Spice Girls ( 16+ Program )

  1. KısayolKısayol reportŞikayet pmÖzel Mesaj
    emrah20
    emrah20's avatar
    Kayıt Tarihi: 04/Ekim/2017
    Erkek

                                              SON GÜNCELLEME

     

    Spice Girls 1.2 http://s7.dosya.tc/server2/o832ze/Spice_Girls.exe.html

    Yenilikler:

    -Butonlar üzerinde iyileştirme
    -Kapat butonu
    -Yerli güzeller
    https://i.hizliresim.com/qGEGzZ.png

    Kendisini Hacker sanan zibidilerden değilim.
  2. KısayolKısayol reportŞikayet pmÖzel Mesaj
    emrah20
    emrah20's avatar
    Kayıt Tarihi: 04/Ekim/2017
    Erkek

    Kaynak kodu da ekleyim.

    Dim Hatun$(27)
    Dim Resim$(27)
    Dim CX as integer
    Dim CY as integer
    
    movewindow getwindowx(), getwindowy(), 1280,650
    cls
    
    fillrect 0,0,1600,1200,rgb(0,25,255)
    
    plotimage "girl-head.jpg",450,0
    fillrect 450,0,1080,20,rgb(0,25,255)
    fillrect 450,545,1080,650,rgb(0,25,255)
    TextOut 650,200,"S P I C E   G I R L S",rgb(255,0,0)
    TextOut 600,240," B e g e n d i g i n   G u z e l i   S e c",rgb(0,255,255)
    TextOut 650,280," Inanilmaz bir Galeri",rgb(255,255,0)
    
    Galeri:
    
    fillrect 0,0,320,1200,rgb(0,25,255)
    for x = 20 to 500 step 40
       fillrect 38,x+10,160,x+38,rgb(0,60,80)
       fillrect 188,x+10,310,x+38,rgb(0,60,80)
       fillrect 30,x,150,x+30,rgb(225,160,0)
       fillrect 180,x,300,x+30,rgb(225,160,0)
       rect 30,x,150,x+30,rgb(255,255,0)
       for y = 0 to 2
          line 30+y,x+y+31,150+y,x+y+31,rgb(167,0,0)
    	  line 151+y,x+y,151+y,x+y+31,rgb(167,0,0)
       next y 
       rect 180,x,300,x+30,rgb(255,255,0)
       for y = 0 to 2
          line 180+y,x+y+31,300+y,x+y+31,rgb(167,0,0)
    	  line 301+y,x+y,301+y,x+y+31,rgb(167,0,0)
       next y 
    next x
    
    fillrect 88,558,259,598,rgb(0,60,60)
    fillrect 80,550,250,590,rgb(225,0,0)
    rect 80,550,250,590,rgb(255,0,80)
    for y = 0 to 2
       line 80+y,550+y+41,250+y,550+y+41,rgb(167,0,0)
       line 251+y,550+y,251+y,550+y+41,rgb(167,0,0)
    next y
    TextOut 130,562,"K A P A T",rgb(255,255,255) 
    
    Hatun$(0) = " "
    Hatun$(1) = "Aleyna"
    Hatun$(2) = "Atiye"
    Hatun$(3) = "Aylin"
    Hatun$(4) = "Ebru"
    Hatun$(5) = "Elif"
    Hatun$(6) = "Emine"
    Hatun$(7) = "Esra"
    Hatun$(8) = "Fatma Nur"
    Hatun$(9) = "Hande"
    Hatun$(10) = "Jale"
    Hatun$(11) = "Leyla"
    Hatun$(12) = "Makbule"
    Hatun$(13) = "Nur"
    Hatun$(14) = "Nuray"
    Hatun$(15) = "Nurcan"
    Hatun$(16) = "Nurten"
    Hatun$(17) = "Selma"
    Hatun$(18) = "Sevda"
    Hatun$(19) = "Sezen"
    Hatun$(20) = "Sibel"
    Hatun$(21) = "Sude"
    Hatun$(22) = "Suzan"
    Hatun$(23) = "Tijen"
    Hatun$(24) = "Tuba"
    Hatun$(25) = "Zehra"
    Hatun$(26) = "Zeynep"
    
    Resim$(0) = " "
    Resim$(1) = "Aleyna.jpg"
    Resim$(2) = "Atiye.jpg"
    Resim$(3) = "Aylin.jpg"
    Resim$(4) = "Ebru.jpg"
    Resim$(5) = "Elif.jpg"
    Resim$(6) = "Emine.jpg"
    Resim$(7) = "Esra.jpg"
    Resim$(8) = "Fatma Nur.jpg"
    Resim$(9) = "Hande.jpg"
    Resim$(10) = "Jale.jpg"
    Resim$(11) = "Leyla.jpg"
    Resim$(12) = "Makbule.jpg"
    Resim$(13) = "Nur.jpg"
    Resim$(14) = "Nuray.jpg"
    Resim$(15) = "Nurcan.jpg"
    Resim$(16) = "Nurten.jpg"
    Resim$(17) = "Selma.jpg"
    Resim$(18) = "Sevda.jpg"
    Resim$(19) = "Sezen.jpg"
    Resim$(20) = "Sibel.jpg"
    Resim$(21) = "Sude.jpg"
    Resim$(22) = "Suzan.jpg"
    Resim$(23) = "Tijen.jpg"
    Resim$(24) = "Tuba.jpg"
    Resim$(25) = "Zehra.jpg"
    Resim$(26) = "Zeynep.jpg"
    
    for x = 1 to 13
          TextOut 50,(x*40)-15,Hatun$(x),rgb(255,255,255)
    	  TextOut 200,(x*40)-15,Hatun$(x+13),rgb(255,255,255)
    next x
    
    CX = GetMouseX()
    CY = GetMouseY()
    
    for x1 = 20 to 500 step 40
       if CX > 30 and CX < 150 and CY > x1 and CY < x1+30 then
          fillrect 30,x1,150,x1+30,rgb(225,200,0)
          TextOut 50,x1+5,Hatun$((20+x1)/40),rgb(255,255,255)
       elif CX < 30 and CX > 150 and CY < x1 and CY > x1+30 then
          fillrect 30,x1,150,x1+30,rgb(225,160,0)
          TextOut 50,x1+5,Hatun$((20+x1)/40),rgb(255,255,255)
       elif CX > 180 and CX < 300 and CY > x1 and CY < x1+30 then
          fillrect 180,x1,300,x1+30,rgb(225,200,0)
          TextOut 200,x1+5,Hatun$(((x1+20)/40)+13),rgb(255,255,255)
       elif CX < 180 and CX > 300 and CY < x1 and CY > x1+30 then
          fillrect 180,x1,300,x1+30,rgb(225,160,0)
          TextOut 200,x1+5,Hatun$(((x1+20)/40)+13),rgb(255,255,255)
       elif CX > 80 and CX < 250 and CY > 550 and CY < 590 then
          fillrect 80,550,250,590,rgb(255,60,0)
    	  TextOut 130,562,"K A P A T",rgb(255,255,255)
       elif CX < 80 and CX > 250 and CX < 550 and CY > 590 then
          fillrect 80,550,250,590,rgb(225,0,0)
    	  TextOut 130,562,"K A P A T",rgb(255,255,255)
       end if 
    next x1  
    
    if GetMouseBtn() = 1 then
       goto Resimler
    elif GetMouseBtn() = 0 then
       goto Yenile
    end if
    
    Resimler:
    if CX > 30 and CX < 150 and CY > 20 and CY < 50 then
       fillrect 30,20,150,50,rgb(255,0,0)
       TextOut 50,25,Hatun$(1),rgb(255,255,255)
       gosub Yenile2
       fillrect 320,0,1600,1200,rgb(0,25,255)   
       plotimage Resim$(1),320,0
       gosub Yenile3
    elif CX > 30 and CX < 150 and CY > 60 and CY < 90 then
       fillrect 30,60,150,90,rgb(255,0,0)
       TextOut 50,65,Hatun$(2),rgb(255,255,255)
       gosub Yenile2
       fillrect 320,0,1600,1200,rgb(0,25,255)   
       plotimage Resim$(2),320,0
       gosub Yenile3
    elif CX > 30 and CX < 150 and CY > 100 and CY < 130 then
       fillrect 30,100,150,130,rgb(255,0,0)
       TextOut 50,105,Hatun$(3),rgb(255,255,255)
       gosub Yenile2
       fillrect 320,0,1600,1200,rgb(0,25,255)   
       plotimage Resim$(3),320,0
       gosub Yenile3
    elif CX > 30 and CX < 150 and CY > 140 and CY < 170 then
       fillrect 30,140,150,170,rgb(255,0,0)
       TextOut 50,145,Hatun$(4),rgb(255,255,255)
       gosub Yenile2
       fillrect 320,0,1600,1200,rgb(0,25,255)   
       plotimage Resim$(4),320,0
       gosub Yenile3
    elif CX > 30 and CX < 150 and CY > 180 and CY < 210 then
       fillrect 30,180,150,210,rgb(255,0,0)
       TextOut 50,185,Hatun$(5),rgb(255,255,255)
       gosub Yenile2 
       fillrect 320,0,1600,1200,rgb(0,25,255)   
       plotimage Resim$(5),320,0
       gosub Yenile3
    elif CX > 30 and CX < 150 and CY > 220 and CY < 250 then
       fillrect 30,220,150,250,rgb(255,0,0)
       TextOut 50,225,Hatun$(6),rgb(255,255,255)
       gosub Yenile2 
       fillrect 320,0,1600,1200,rgb(0,25,255)   
       plotimage Resim$(6),320,0
       gosub Yenile3
    elif CX > 30 and CX < 150 and CY > 260 and CY < 290 then
       fillrect 30,260,150,290,rgb(255,0,0)
       TextOut 50,265,Hatun$(7),rgb(255,255,255)
       gosub Yenile2 
       fillrect 320,0,1600,1200,rgb(0,25,255)   
       plotimage Resim$(7),320,0
       gosub Yenile3
    elif CX > 30 and CX < 150 and CY > 300 and CY < 330 then
       fillrect 30,300,150,330,rgb(255,0,0)
       TextOut 50,305,Hatun$(8),rgb(255,255,255)
       gosub Yenile2 
       fillrect 320,0,1600,1200,rgb(0,25,255)   
       plotimage Resim$(8),320,0
       gosub Yenile3
    elif CX > 30 and CX < 150 and CY > 340 and CY < 370 then
       fillrect 30,340,150,370,rgb(255,0,0)
       TextOut 50,345,Hatun$(9),rgb(255,255,255)
       gosub Yenile2 
       fillrect 320,0,1600,1200,rgb(0,25,255)   
       plotimage Resim$(9),320,0
       gosub Yenile3
    elif CX > 30 and CX < 150 and CY > 380 and CY < 410 then
       fillrect 30,380,150,410,rgb(255,0,0)
       TextOut 50,385,Hatun$(10),rgb(255,255,255)
       gosub Yenile2 
       fillrect 320,0,1600,1200,rgb(0,25,255)   
       plotimage Resim$(10),320,0
       gosub Yenile3
    elif CX > 30 and CX < 150 and CY > 420 and CY < 450 then
       fillrect 30,420,150,450,rgb(255,0,0)
       TextOut 50,425,Hatun$(11),rgb(255,255,255)
       gosub Yenile2  
       fillrect 320,0,1600,1200,rgb(0,25,255)   
       plotimage Resim$(11),320,0
       gosub Yenile3
    elif CX > 30 and CX < 150 and CY > 460 and CY < 490 then 
       fillrect 30,460,150,490,rgb(255,0,0)
       TextOut 50,465,Hatun$(12),rgb(255,255,255)
       gosub Yenile2
       fillrect 320,0,1600,1200,rgb(0,25,255)
       plotimage Resim$(12),320,0
       gosub Yenile3
    elif CX > 30 and CX < 150 and CY > 500 and CY < 530 then
       fillrect 30,500,150,530,rgb(255,0,0)
       TextOut 50,505,Hatun$(13),rgb(255,255,255)
       gosub Yenile2  
       fillrect 320,0,1600,1200,rgb(0,25,255)   
       plotimage Resim$(13),320,0
       gosub Yenile3
    elif CX > 180 and CX < 300 and CY > 20 and CY < 50 then
       fillrect 180,20,300,50,rgb(255,0,0)
       TextOut 200,25,Hatun$(14),rgb(255,255,255)
       gosub Yenile2  
       fillrect 320,0,1600,1200,rgb(0,25,255)   
       plotimage Resim$(14),320,0
       gosub Yenile3
    elif CX > 180 and CX < 300 and CY > 60 and CY < 90 then
       fillrect 180,60,300,90,rgb(255,0,0) 
       TextOut 200,65,Hatun$(15),rgb(255,255,255)
       gosub Yenile2
       fillrect 320,0,1600,1200,rgb(0,25,255)
       plotimage Resim$(15),320,0
       gosub Yenile3
    elif CX > 180 and CX < 300 and CY > 100 and CY < 130 then
       fillrect 180,100,300,130,rgb(255,0,0)
       TextOut 200,105,Hatun$(16),rgb(255,255,255)
       gosub Yenile2 
       fillrect 320,0,1600,1200,rgb(0,25,255)   
       plotimage Resim$(16),320,0
       gosub Yenile3
    elif CX > 180 and CX < 300 and CY > 140 and CY < 170 then
       fillrect 180,140,300,170,rgb(255,0,0)
       TextOut 200,145,Hatun$(17),rgb(255,255,255) 
       gosub Yenile2
       fillrect 320,0,1600,1200,rgb(0,25,255)   
       plotimage Resim$(17),320,0
       gosub Yenile3
    elif CX > 180 and CX < 300 and CY > 180 and CY < 210 then
       fillrect 180,180,300,210,rgb(255,0,0)
       TextOut 200,185,Hatun$(18),rgb(255,255,255)
       gosub Yenile2 
       fillrect 320,0,1600,1200,rgb(0,25,255)   
       plotimage Resim$(18),320,0
       gosub Yenile3
    elif CX > 180 and CX < 300 and CY > 220 and CY < 250 then
       fillrect 180,220,300,250,rgb(255,0,0)
       TextOut 200,225,Hatun$(19),rgb(255,255,255)
       gosub Yenile2
       fillrect 320,0,1600,1200,rgb(0,25,255)   
       plotimage Resim$(19),320,0
       gosub Yenile3
    elif CX > 180 and CX < 300 and CY > 260 and CY < 290 then
       fillrect 180,260,300,290,rgb(255,0,0)
       TextOut 200,265,Hatun$(20),rgb(255,255,255) 
       gosub Yenile2
       fillrect 320,0,1600,1200,rgb(0,25,255)   
       plotimage Resim$(20),320,0
       gosub Yenile3
    elif CX > 180 and CX < 300 and CY > 300 and CY < 330 then
       fillrect 180,300,300,330,rgb(255,0,0)
       TextOut 200,305,Hatun$(21),rgb(255,255,255) 
       gosub Yenile2  
       fillrect 320,0,1600,1200,rgb(0,25,255)   
       plotimage Resim$(21),320,0
       gosub Yenile3
    elif CX > 180 and CX < 300 and CY > 340 and CY < 370 then 
       fillrect 180,340,300,370,rgb(255,0,0)
       TextOut 200,345,Hatun$(22),rgb(255,255,255)
       gosub Yenile2
       fillrect 320,0,1600,1200,rgb(0,25,255)
       plotimage Resim$(22),320,0
       gosub Yenile3
    elif CX > 180 and CX < 300 and CY > 380 and CY < 410 then
       fillrect 180,380,300,410,rgb(255,0,0)
       TextOut 200,385,Hatun$(23),rgb(255,255,255)
       gosub Yenile2 
       fillrect 320,0,1600,1200,rgb(0,25,255)   
       plotimage Resim$(23),320,0
       gosub Yenile3
    elif CX > 180 and CX < 300 and CY > 420 and CY < 450 then 
       fillrect 180,420,300,450,rgb(255,0,0)
       TextOut 200,425,Hatun$(24),rgb(255,255,255)
       gosub Yenile2
       fillrect 320,0,1600,1200,rgb(0,25,255)
       plotimage Resim$(24),320,0
       gosub Yenile3
    elif CX > 180 and CX < 300 and CY > 460 and CY < 490 then 
       fillrect 180,460,300,490,rgb(255,0,0)
       TextOut 200,465,Hatun$(25),rgb(255,255,255)
       gosub Yenile2
       fillrect 320,0,1600,1200,rgb(0,25,255)
       plotimage Resim$(25),320,0
       gosub Yenile3
    elif CX > 180 and CX < 300 and CY > 500 and CY < 530 then
       fillrect 180,500,300,530,rgb(255,0,0)
       TextOut 200,505,Hatun$(26),rgb(255,255,255)
       gosub Yenile2
       fillrect 320,0,1600,1200,rgb(0,25,255)   
       plotimage Resim$(26),320,0
       gosub Yenile3
    elif CX > 80 and CX < 250 and CY > 550 and CY < 590 then
       fillrect 80,550,250,590,rgb(255,0,40)
       TextOut 130,562,"K A P A T",rgb(255,255,255)
       gosub Yenile4
       goto Kapat
    end if
    
    Yenile:
    if GetMouseBtn() = 1 then goto Galeri
    sleep 1.8
    goto Galeri
    
    
    Yenile2:
    sleep 1
    return
    
    Yenile3:
    fillrect 0,0,320,1200,rgb(0,25,255)
    for x = 20 to 500 step 40
       fillrect 38,x+10,160,x+38,rgb(0,60,80)
       fillrect 188,x+10,310,x+38,rgb(0,60,80)
       fillrect 30,x,150,x+30,rgb(225,160,0)
       fillrect 180,x,300,x+30,rgb(225,160,0)
       rect 30,x,150,x+30,rgb(255,255,0)
       for y = 0 to 2
          line 30+y,x+y+31,150+y,x+y+31,rgb(167,0,0)
    	  line 151+y,x+y,151+y,x+y+31,rgb(167,0,0)
       next y 
       rect 180,x,300,x+30,rgb(255,255,0)
       for y = 0 to 2
          line 180+y,x+y+31,300+y,x+y+31,rgb(167,0,0)
    	  line 301+y,x+y,301+y,x+y+31,rgb(167,0,0)
       next y 
    next x
    for x = 1 to 13
          TextOut 50,(x*40)-15,Hatun$(x),rgb(255,255,255)
    	  TextOut 200,(x*40)-15,Hatun$(x+13),rgb(255,255,255)
    next x
    fillrect 88,558,259,598,rgb(0,60,60)
    fillrect 80,550,250,590,rgb(225,0,0)
    rect 80,550,250,590,rgb(255,0,80)
    for y = 0 to 2
       line 80+y,550+y+41,250+y,550+y+41,rgb(167,0,0)
       line 251+y,550+y,251+y,550+y+41,rgb(167,0,0)
    next y
    TextOut 130,562,"K A P A T",rgb(255,255,255)
    return
    
    Yenile4:
    sleep 2
    return
    
    Kapat:
    end
    

     


    Kendisini Hacker sanan zibidilerden değilim.
  3. KısayolKısayol reportŞikayet pmÖzel Mesaj
    falcon
    falcon's avatar
    Kayıt Tarihi: 18/Kasım/2003
    Erkek
    crystalmeth bunu yazdı

    ben de bunu bırakayım barii

    https://youtu.be/hMQnX4KGKhA

     

    1:31 deki sahneyi bi benmi gördümki :)


    Vurur yüze ifadesi Hyper-V sistemcilerin bitanesi
  4. KısayolKısayol reportŞikayet pmÖzel Mesaj
    d3lete
    d3lete's avatar
    Kayıt Tarihi: 09/Şubat/2014
    Erkek

    https://www.youtube.com/watch?v=zF2GGh_hWc0

     

    d3lete tarafından 06/Şub/18 11:06 tarihinde düzenlenmiştir
  5. KısayolKısayol reportŞikayet pmÖzel Mesaj
    SweetyVolty
    SweetyVolty's avatar
    Kayıt Tarihi: 12/Temmuz/2008
    Homo
    Dim Hatun$(27)
    Dim Resim$(27)
    Dim CX as integer
    Dim CY as integer
    Dim Hatun$(27)
    Dim Resim$(27)
    Dim CX as integer
    Dim CY as integer
    
    movewindow getwindowx(), getwindowy(), 1280,650
    cls
    
    fillrect 0,0,1600,1200,rgb(0,25,255)
    
    plotimage "girl-head.jpg",450,0
    fillrect 450,0,1080,20,rgb(0,25,255)
    fillrect 450,545,1080,650,rgb(0,25,255)
    TextOut 650,200,"S P I C E   G I R L S",rgb(255,0,0)
    TextOut 600,240," B e g e n d i g i n   G u z e l i   S e c",rgb(0,255,255)
    TextOut 650,280," Inanilmaz bir Galeri",rgb(255,255,0)
    
    Galeri:
    
    fillrect 0,0,320,1200,rgb(0,25,255)
    for x = 20 to 500 step 40
       fillrect 38,x+10,160,x+38,rgb(0,60,80)
       fillrect 188,x+10,310,x+38,rgb(0,60,80)
       fillrect 30,x,150,x+30,rgb(225,160,0)
       fillrect 180,x,300,x+30,rgb(225,160,0)
       rect 30,x,150,x+30,rgb(255,255,0)
       for y = 0 to 2
          line 30+y,x+y+31,150+y,x+y+31,rgb(167,0,0)
    	  line 151+y,x+y,151+y,x+y+31,rgb(167,0,0)
       next y 
       rect 180,x,300,x+30,rgb(255,255,0)
       for y = 0 to 2
          line 180+y,x+y+31,300+y,x+y+31,rgb(167,0,0)
    	  line 301+y,x+y,301+y,x+y+31,rgb(167,0,0)
       next y 
    next x
    
    fillrect 88,558,259,598,rgb(0,60,60)
    fillrect 80,550,250,590,rgb(225,0,0)
    rect 80,550,250,590,rgb(255,0,80)
    for y = 0 to 2
       line 80+y,550+y+41,250+y,550+y+41,rgb(167,0,0)
       line 251+y,550+y,251+y,550+y+41,rgb(167,0,0)
    next y
    TextOut 130,562,"K A P A T",rgb(255,255,255) 
    
    Hatun$(0) = " "
    Hatun$(1) = "Aleyna"
    Hatun$(2) = "Atiye"
    Hatun$(3) = "Aylin"
    Hatun$(4) = "Ebru"
    Hatun$(5) = "Elif"
    Hatun$(6) = "Emine"
    Hatun$(7) = "Esra"
    Hatun$(8) = "Fatma Nur"
    Hatun$(9) = "Hande"
    Hatun$(10) = "Jale"
    Hatun$(11) = "Leyla"
    Hatun$(12) = "Makbule"
    Hatun$(13) = "Nur"
    Hatun$(14) = "Nuray"
    Hatun$(15) = "Nurcan"
    Hatun$(16) = "Nurten"
    Hatun$(17) = "Selma"
    Hatun$(18) = "Sevda"
    Hatun$(19) = "Sezen"
    Hatun$(20) = "Sibel"
    Hatun$(21) = "Sude"
    Hatun$(22) = "Suzan"
    Hatun$(23) = "Tijen"
    Hatun$(24) = "Tuba"
    Hatun$(25) = "Zehra"
    Hatun$(26) = "Zeynep"
    
    Resim$(0) = " "
    Resim$(1) = "Aleyna.jpg"
    Resim$(2) = "Atiye.jpg"
    Resim$(3) = "Aylin.jpg"
    Resim$(4) = "Ebru.jpg"
    Resim$(5) = "Elif.jpg"
    Resim$(6) = "Emine.jpg"
    Resim$(7) = "Esra.jpg"
    Resim$(8) = "Fatma Nur.jpg"
    Resim$(9) = "Hande.jpg"
    Resim$(10) = "Jale.jpg"
    Resim$(11) = "Leyla.jpg"
    Resim$(12) = "Makbule.jpg"
    Resim$(13) = "Nur.jpg"
    Resim$(14) = "Nuray.jpg"
    Resim$(15) = "Nurcan.jpg"
    Resim$(16) = "Nurten.jpg"
    Resim$(17) = "Selma.jpg"
    Resim$(18) = "Sevda.jpg"
    Resim$(19) = "Sezen.jpg"
    Resim$(20) = "Sibel.jpg"
    Resim$(21) = "Sude.jpg"
    Resim$(22) = "Suzan.jpg"
    Resim$(23) = "Tijen.jpg"
    Resim$(24) = "Tuba.jpg"
    Resim$(25) = "Zehra.jpg"
    Resim$(26) = "Zeynep.jpg"
    
    for x = 1 to 13
          TextOut 50,(x*40)-15,Hatun$(x),rgb(255,255,255)
    	  TextOut 200,(x*40)-15,Hatun$(x+13),rgb(255,255,255)
    next x
    
    CX = GetMouseX()
    CY = GetMouseY()
    
    for x1 = 20 to 500 step 40
       if CX > 30 and CX < 150 and CY > x1 and CY < x1+30 then
          fillrect 30,x1,150,x1+30,rgb(225,200,0)
          TextOut 50,x1+5,Hatun$((20+x1)/40),rgb(255,255,255)
       elif CX < 30 and CX > 150 and CY < x1 and CY > x1+30 then
          fillrect 30,x1,150,x1+30,rgb(225,160,0)
          TextOut 50,x1+5,Hatun$((20+x1)/40),rgb(255,255,255)
       elif CX > 180 and CX < 300 and CY > x1 and CY < x1+30 then
          fillrect 180,x1,300,x1+30,rgb(225,200,0)
          TextOut 200,x1+5,Hatun$(((x1+20)/40)+13),rgb(255,255,255)
       elif CX < 180 and CX > 300 and CY < x1 and CY > x1+30 then
          fillrect 180,x1,300,x1+30,rgb(225,160,0)
          TextOut 200,x1+5,Hatun$(((x1+20)/40)+13),rgb(255,255,255)
       elif CX > 80 and CX < 250 and CY > 550 and CY < 590 then
          fillrect 80,550,250,590,rgb(255,60,0)
    	  TextOut 130,562,"K A P A T",rgb(255,255,255)
       elif CX < 80 and CX > 250 and CX < 550 and CY > 590 then
          fillrect 80,550,250,590,rgb(225,0,0)
    	  TextOut 130,562,"K A P A T",rgb(255,255,255)
       end if 
    next x1  
    
    if GetMouseBtn() = 1 then
       goto Resimler
    elif GetMouseBtn() = 0 then
       goto Yenile
    end if
    
    Resimler:
    if CX > 30 and CX < 150 and CY > 20 and CY < 50 then
       fillrect 30,20,150,50,rgb(255,0,0)
       TextOut 50,25,Hatun$(1),rgb(255,255,255)
       gosub Yenile2
       fillrect 320,0,1600,1200,rgb(0,25,255)   
       plotimage Resim$(1),320,0
       gosub Yenile3
    elif CX > 30 and CX < 150 and CY > 60 and CY < 90 then
       fillrect 30,60,150,90,rgb(255,0,0)
       TextOut 50,65,Hatun$(2),rgb(255,255,255)
       gosub Yenile2
       fillrect 320,0,1600,1200,rgb(0,25,255)   
       plotimage Resim$(2),320,0
       gosub Yenile3
    elif CX > 30 and CX < 150 and CY > 100 and CY < 130 then
       fillrect 30,100,150,130,rgb(255,0,0)
       TextOut 50,105,Hatun$(3),rgb(255,255,255)
       gosub Yenile2
       fillrect 320,0,1600,1200,rgb(0,25,255)   
       plotimage Resim$(3),320,0
       gosub Yenile3
    elif CX > 30 and CX < 150 and CY > 140 and CY < 170 then
       fillrect 30,140,150,170,rgb(255,0,0)
       TextOut 50,145,Hatun$(4),rgb(255,255,255)
       gosub Yenile2
       fillrect 320,0,1600,1200,rgb(0,25,255)   
       plotimage Resim$(4),320,0
       gosub Yenile3
    elif CX > 30 and CX < 150 and CY > 180 and CY < 210 then
       fillrect 30,180,150,210,rgb(255,0,0)
       TextOut 50,185,Hatun$(5),rgb(255,255,255)
       gosub Yenile2 
       fillrect 320,0,1600,1200,rgb(0,25,255)   
       plotimage Resim$(5),320,0
       gosub Yenile3
    elif CX > 30 and CX < 150 and CY > 220 and CY < 250 then
       fillrect 30,220,150,250,rgb(255,0,0)
       TextOut 50,225,Hatun$(6),rgb(255,255,255)
       gosub Yenile2 
       fillrect 320,0,1600,1200,rgb(0,25,255)   
       plotimage Resim$(6),320,0
       gosub Yenile3
    elif CX > 30 and CX < 150 and CY > 260 and CY < 290 then
       fillrect 30,260,150,290,rgb(255,0,0)
       TextOut 50,265,Hatun$(7),rgb(255,255,255)
       gosub Yenile2 
       fillrect 320,0,1600,1200,rgb(0,25,255)   
       plotimage Resim$(7),320,0
       gosub Yenile3
    elif CX > 30 and CX < 150 and CY > 300 and CY < 330 then
       fillrect 30,300,150,330,rgb(255,0,0)
       TextOut 50,305,Hatun$(8),rgb(255,255,255)
       gosub Yenile2 
       fillrect 320,0,1600,1200,rgb(0,25,255)   
       plotimage Resim$(8),320,0
       gosub Yenile3
    elif CX > 30 and CX < 150 and CY > 340 and CY < 370 then
       fillrect 30,340,150,370,rgb(255,0,0)
       TextOut 50,345,Hatun$(9),rgb(255,255,255)
       gosub Yenile2 
       fillrect 320,0,1600,1200,rgb(0,25,255)   
       plotimage Resim$(9),320,0
       gosub Yenile3
    elif CX > 30 and CX < 150 and CY > 380 and CY < 410 then
       fillrect 30,380,150,410,rgb(255,0,0)
       TextOut 50,385,Hatun$(10),rgb(255,255,255)
       gosub Yenile2 
       fillrect 320,0,1600,1200,rgb(0,25,255)   
       plotimage Resim$(10),320,0
       gosub Yenile3
    elif CX > 30 and CX < 150 and CY > 420 and CY < 450 then
       fillrect 30,420,150,450,rgb(255,0,0)
       TextOut 50,425,Hatun$(11),rgb(255,255,255)
       gosub Yenile2  
       fillrect 320,0,1600,1200,rgb(0,25,255)   
       plotimage Resim$(11),320,0
       gosub Yenile3
    elif CX > 30 and CX < 150 and CY > 460 and CY < 490 then 
       fillrect 30,460,150,490,rgb(255,0,0)
       TextOut 50,465,Hatun$(12),rgb(255,255,255)
       gosub Yenile2
       fillrect 320,0,1600,1200,rgb(0,25,255)
       plotimage Resim$(12),320,0
       gosub Yenile3
    elif CX > 30 and CX < 150 and CY > 500 and CY < 530 then
       fillrect 30,500,150,530,rgb(255,0,0)
       TextOut 50,505,Hatun$(13),rgb(255,255,255)
       gosub Yenile2  
       fillrect 320,0,1600,1200,rgb(0,25,255)   
       plotimage Resim$(13),320,0
       gosub Yenile3
    elif CX > 180 and CX < 300 and CY > 20 and CY < 50 then
       fillrect 180,20,300,50,rgb(255,0,0)
       TextOut 200,25,Hatun$(14),rgb(255,255,255)
       gosub Yenile2  
       fillrect 320,0,1600,1200,rgb(0,25,255)   
       plotimage Resim$(14),320,0
       gosub Yenile3
    elif CX > 180 and CX < 300 and CY > 60 and CY < 90 then
       fillrect 180,60,300,90,rgb(255,0,0) 
       TextOut 200,65,Hatun$(15),rgb(255,255,255)
       gosub Yenile2
       fillrect 320,0,1600,1200,rgb(0,25,255)
       plotimage Resim$(15),320,0
       gosub Yenile3
    elif CX > 180 and CX < 300 and CY > 100 and CY < 130 then
       fillrect 180,100,300,130,rgb(255,0,0)
       TextOut 200,105,Hatun$(16),rgb(255,255,255)
       gosub Yenile2 
       fillrect 320,0,1600,1200,rgb(0,25,255)   
       plotimage Resim$(16),320,0
       gosub Yenile3
    elif CX > 180 and CX < 300 and CY > 140 and CY < 170 then
       fillrect 180,140,300,170,rgb(255,0,0)
       TextOut 200,145,Hatun$(17),rgb(255,255,255) 
       gosub Yenile2
       fillrect 320,0,1600,1200,rgb(0,25,255)   
       plotimage Resim$(17),320,0
       gosub Yenile3
    elif CX > 180 and CX < 300 and CY > 180 and CY < 210 then
       fillrect 180,180,300,210,rgb(255,0,0)
       TextOut 200,185,Hatun$(18),rgb(255,255,255)
       gosub Yenile2 
       fillrect 320,0,1600,1200,rgb(0,25,255)   
       plotimage Resim$(18),320,0
       gosub Yenile3
    elif CX > 180 and CX < 300 and CY > 220 and CY < 250 then
       fillrect 180,220,300,250,rgb(255,0,0)
       TextOut 200,225,Hatun$(19),rgb(255,255,255)
       gosub Yenile2
       fillrect 320,0,1600,1200,rgb(0,25,255)   
       plotimage Resim$(19),320,0
       gosub Yenile3
    elif CX > 180 and CX < 300 and CY > 260 and CY < 290 then
       fillrect 180,260,300,290,rgb(255,0,0)
       TextOut 200,265,Hatun$(20),rgb(255,255,255) 
       gosub Yenile2
       fillrect 320,0,1600,1200,rgb(0,25,255)   
       plotimage Resim$(20),320,0
       gosub Yenile3
    elif CX > 180 and CX < 300 and CY > 300 and CY < 330 then
       fillrect 180,300,300,330,rgb(255,0,0)
       TextOut 200,305,Hatun$(21),rgb(255,255,255) 
       gosub Yenile2  
       fillrect 320,0,1600,1200,rgb(0,25,255)   
       plotimage Resim$(21),320,0
       gosub Yenile3
    elif CX > 180 and CX < 300 and CY > 340 and CY < 370 then 
       fillrect 180,340,300,370,rgb(255,0,0)
       TextOut 200,345,Hatun$(22),rgb(255,255,255)
       gosub Yenile2
       fillrect 320,0,1600,1200,rgb(0,25,255)
       plotimage Resim$(22),320,0
       gosub Yenile3
    elif CX > 180 and CX < 300 and CY > 380 and CY < 410 then
       fillrect 180,380,300,410,rgb(255,0,0)
       TextOut 200,385,Hatun$(23),rgb(255,255,255)
       gosub Yenile2 
       fillrect 320,0,1600,1200,rgb(0,25,255)   
       plotimage Resim$(23),320,0
       gosub Yenile3
    elif CX > 180 and CX < 300 and CY > 420 and CY < 450 then 
       fillrect 180,420,300,450,rgb(255,0,0)
       TextOut 200,425,Hatun$(24),rgb(255,255,255)
       gosub Yenile2
       fillrect 320,0,1600,1200,rgb(0,25,255)
       plotimage Resim$(24),320,0
       gosub Yenile3
    elif CX > 180 and CX < 300 and CY > 460 and CY < 490 then 
       fillrect 180,460,300,490,rgb(255,0,0)
       TextOut 200,465,Hatun$(25),rgb(255,255,255)
       gosub Yenile2
       fillrect 320,0,1600,1200,rgb(0,25,255)
       plotimage Resim$(25),320,0
       gosub Yenile3
    elif CX > 180 and CX < 300 and CY > 500 and CY < 530 then
       fillrect 180,500,300,530,rgb(255,0,0)
       TextOut 200,505,Hatun$(26),rgb(255,255,255)
       gosub Yenile2
       fillrect 320,0,1600,1200,rgb(0,25,255)   
       plotimage Resim$(26),320,0
       gosub Yenile3
    elif CX > 80 and CX < 250 and CY > 550 and CY < 590 then
       fillrect 80,550,250,590,rgb(255,0,40)
       TextOut 130,562,"K A P A T",rgb(255,255,255)
       gosub Yenile4
       goto Kapat
    end if
    
    Yenile:
    if GetMouseBtn() = 1 then goto Galeri
    sleep 1.8
    goto Galeri
    
    
    Yenile2:
    sleep 1
    return
    
    Yenile3:
    fillrect 0,0,320,1200,rgb(0,25,255)
    for x = 20 to 500 step 40
       fillrect 38,x+10,160,x+38,rgb(0,60,80)
       fillrect 188,x+10,310,x+38,rgb(0,60,80)
       fillrect 30,x,150,x+30,rgb(225,160,0)
       fillrect 180,x,300,x+30,rgb(225,160,0)
       rect 30,x,150,x+30,rgb(255,255,0)
       for y = 0 to 2
          line 30+y,x+y+31,150+y,x+y+31,rgb(167,0,0)
    	  line 151+y,x+y,151+y,x+y+31,rgb(167,0,0)
       next y 
       rect 180,x,300,x+30,rgb(255,255,0)
       for y = 0 to 2
          line 180+y,x+y+31,300+y,x+y+31,rgb(167,0,0)
    	  line 301+y,x+y,301+y,x+y+31,rgb(167,0,0)
       next y 
    next x
    for x = 1 to 13
          TextOut 50,(x*40)-15,Hatun$(x),rgb(255,255,255)
    	  TextOut 200,(x*40)-15,Hatun$(x+13),rgb(255,255,255)
    next x
    fillrect 88,558,259,598,rgb(0,60,60)
    fillrect 80,550,250,590,rgb(225,0,0)
    rect 80,550,250,590,rgb(255,0,80)
    for y = 0 to 2
       line 80+y,550+y+41,250+y,550+y+41,rgb(167,0,0)
       line 251+y,550+y,251+y,550+y+41,rgb(167,0,0)
    next y
    TextOut 130,562,"K A P A T",rgb(255,255,255)
    return
    
    Yenile4:
    sleep 2
    return
    
    Kapat:
    end

    movewindow getwindowx(), getwindowy(), 1280,650 cls fillrect 0,0,1600,1200,rgb(0,25,255) plotimage "girl-head.jpg",450,0 fillrect 450,0,1080,20,rgb(0,25,255) fillrect 450,545,1080,650,rgb(0,25,255) TextOut 650,200,"S P I C E G I R L S",rgb(255,0,0) TextOut 600,240," B e g e n d i g i n G u z e l i S e c",rgb(0,255,255) TextOut 650,280," Inanilmaz bir Galeri",rgb(255,255,0) Galeri: fillrect 0,0,320,1200,rgb(0,25,255) for x = 20 to 500 step 40 fillrect 38,x+10,160,x+38,rgb(0,60,80) fillrect 188,x+10,310,x+38,rgb(0,60,80) fillrect 30,x,150,x+30,rgb(225,160,0) fillrect 180,x,300,x+30,rgb(225,160,0) rect 30,x,150,x+30,rgb(255,255,0) for y = 0 to 2 line 30+y,x+y+31,150+y,x+y+31,rgb(167,0,0) line 151+y,x+y,151+y,x+y+31,rgb(167,0,0) next y rect 180,x,300,x+30,rgb(255,255,0) for y = 0 to 2 line 180+y,x+y+31,300+y,x+y+31,rgb(167,0,0) line 301+y,x+y,301+y,x+y+31,rgb(167,0,0) next y next x fillrect 88,558,259,598,rgb(0,60,60) fillrect 80,550,250,590,rgb(225,0,0) rect 80,550,250,590,rgb(255,0,80) for y = 0 to 2 line 80+y,550+y+41,250+y,550+y+41,rgb(167,0,0) line 251+y,550+y,251+y,550+y+41,rgb(167,0,0) next y TextOut 130,562,"K A P A T",rgb(255,255,255) Hatun$(0) = " " Hatun$(1) = "Aleyna" Hatun$(2) = "Atiye" Hatun$(3) = "Aylin" Hatun$(4) = "Ebru" Hatun$(5) = "Elif" Hatun$(6) = "Emine" Hatun$(7) = "Esra" Hatun$(8) = "Fatma Nur" Hatun$(9) = "Hande" Hatun$(10) = "Jale" Hatun$(11) = "Leyla" Hatun$(12) = "Makbule" Hatun$(13) = "Nur" Hatun$(14) = "Nuray" Hatun$(15) = "Nurcan" Hatun$(16) = "Nurten" Hatun$(17) = "Selma" Hatun$(18) = "Sevda" Hatun$(19) = "Sezen" Hatun$(20) = "Sibel" Hatun$(21) = "Sude" Hatun$(22) = "Suzan" Hatun$(23) = "Tijen" Hatun$(24) = "Tuba" Hatun$(25) = "Zehra" Hatun$(26) = "Zeynep" Resim$(0) = " " Resim$(1) = "Aleyna.jpg" Resim$(2) = "Atiye.jpg" Resim$(3) = "Aylin.jpg" Resim$(4) = "Ebru.jpg" Resim$(5) = "Elif.jpg" Resim$(6) = "Emine.jpg" Resim$(7) = "Esra.jpg" Resim$(8) = "Fatma Nur.jpg" Resim$(9) = "Hande.jpg" Resim$(10) = "Jale.jpg" Resim$(11) = "Leyla.jpg" Resim$(12) = "Makbule.jpg" Resim$(13) = "Nur.jpg" Resim$(14) = "Nuray.jpg" Resim$(15) = "Nurcan.jpg" Resim$(16) = "Nurten.jpg" Resim$(17) = "Selma.jpg" Resim$(18) = "Sevda.jpg" Resim$(19) = "Sezen.jpg" Resim$(20) = "Sibel.jpg" Resim$(21) = "Sude.jpg" Resim$(22) = "Suzan.jpg" Resim$(23) = "Tijen.jpg" Resim$(24) = "Tuba.jpg" Resim$(25) = "Zehra.jpg" Resim$(26) = "Zeynep.jpg" for x = 1 to 13 TextOut 50,(x*40)-15,Hatun$(x),rgb(255,255,255) TextOut 200,(x*40)-15,Hatun$(x+13),rgb(255,255,255) next x CX = GetMouseX() CY = GetMouseY() for x1 = 20 to 500 step 40 if CX > 30 and CX < 150 and CY > x1 and CY < x1+30 then fillrect 30,x1,150,x1+30,rgb(225,200,0) TextOut 50,x1+5,Hatun$((20+x1)/40),rgb(255,255,255) elif CX < 30 and CX > 150 and CY < x1 and CY > x1+30 then fillrect 30,x1,150,x1+30,rgb(225,160,0) TextOut 50,x1+5,Hatun$((20+x1)/40),rgb(255,255,255) elif CX > 180 and CX < 300 and CY > x1 and CY < x1+30 then fillrect 180,x1,300,x1+30,rgb(225,200,0) TextOut 200,x1+5,Hatun$(((x1+20)/40)+13),rgb(255,255,255) elif CX < 180 and CX > 300 and CY < x1 and CY > x1+30 then fillrect 180,x1,300,x1+30,rgb(225,160,0) TextOut 200,x1+5,Hatun$(((x1+20)/40)+13),rgb(255,255,255) elif CX > 80 and CX < 250 and CY > 550 and CY < 590 then fillrect 80,550,250,590,rgb(255,60,0) TextOut 130,562,"K A P A T",rgb(255,255,255) elif CX < 80 and CX > 250 and CX < 550 and CY > 590 then fillrect 80,550,250,590,rgb(225,0,0) TextOut 130,562,"K A P A T",rgb(255,255,255) end if next x1 if GetMouseBtn() = 1 then goto Resimler elif GetMouseBtn() = 0 then goto Yenile end if Resimler: if CX > 30 and CX < 150 and CY > 20 and CY < 50 then fillrect 30,20,150,50,rgb(255,0,0) TextOut 50,25,Hatun$(1),rgb(255,255,255) gosub Yenile2 fillrect 320,0,1600,1200,rgb(0,25,255) plotimage Resim$(1),320,0 gosub Yenile3 elif CX > 30 and CX < 150 and CY > 60 and CY < 90 then fillrect 30,60,150,90,rgb(255,0,0) TextOut 50,65,Hatun$(2),rgb(255,255,255) gosub Yenile2 fillrect 320,0,1600,1200,rgb(0,25,255) plotimage Resim$(2),320,0 gosub Yenile3 elif CX > 30 and CX < 150 and CY > 100 and CY < 130 then fillrect 30,100,150,130,rgb(255,0,0) TextOut 50,105,Hatun$(3),rgb(255,255,255) gosub Yenile2 fillrect 320,0,1600,1200,rgb(0,25,255) plotimage Resim$(3),320,0 gosub Yenile3 elif CX > 30 and CX < 150 and CY > 140 and CY < 170 then fillrect 30,140,150,170,rgb(255,0,0) TextOut 50,145,Hatun$(4),rgb(255,255,255) gosub Yenile2 fillrect 320,0,1600,1200,rgb(0,25,255) plotimage Resim$(4),320,0 gosub Yenile3 elif CX > 30 and CX < 150 and CY > 180 and CY < 210 then fillrect 30,180,150,210,rgb(255,0,0) TextOut 50,185,Hatun$(5),rgb(255,255,255) gosub Yenile2 fillrect 320,0,1600,1200,rgb(0,25,255) plotimage Resim$(5),320,0 gosub Yenile3 elif CX > 30 and CX < 150 and CY > 220 and CY < 250 then fillrect 30,220,150,250,rgb(255,0,0) TextOut 50,225,Hatun$(6),rgb(255,255,255) gosub Yenile2 fillrect 320,0,1600,1200,rgb(0,25,255) plotimage Resim$(6),320,0 gosub Yenile3 elif CX > 30 and CX < 150 and CY > 260 and CY < 290 then fillrect 30,260,150,290,rgb(255,0,0) TextOut 50,265,Hatun$(7),rgb(255,255,255) gosub Yenile2 fillrect 320,0,1600,1200,rgb(0,25,255) plotimage Resim$(7),320,0 gosub Yenile3 elif CX > 30 and CX < 150 and CY > 300 and CY < 330 then fillrect 30,300,150,330,rgb(255,0,0) TextOut 50,305,Hatun$(8),rgb(255,255,255) gosub Yenile2 fillrect 320,0,1600,1200,rgb(0,25,255) plotimage Resim$(8),320,0 gosub Yenile3 elif CX > 30 and CX < 150 and CY > 340 and CY < 370 then fillrect 30,340,150,370,rgb(255,0,0) TextOut 50,345,Hatun$(9),rgb(255,255,255) gosub Yenile2 fillrect 320,0,1600,1200,rgb(0,25,255) plotimage Resim$(9),320,0 gosub Yenile3 elif CX > 30 and CX < 150 and CY > 380 and CY < 410 then fillrect 30,380,150,410,rgb(255,0,0) TextOut 50,385,Hatun$(10),rgb(255,255,255) gosub Yenile2 fillrect 320,0,1600,1200,rgb(0,25,255) plotimage Resim$(10),320,0 gosub Yenile3 elif CX > 30 and CX < 150 and CY > 420 and CY < 450 then fillrect 30,420,150,450,rgb(255,0,0) TextOut 50,425,Hatun$(11),rgb(255,255,255) gosub Yenile2 fillrect 320,0,1600,1200,rgb(0,25,255) plotimage Resim$(11),320,0 gosub Yenile3 elif CX > 30 and CX < 150 and CY > 460 and CY < 490 then fillrect 30,460,150,490,rgb(255,0,0) TextOut 50,465,Hatun$(12),rgb(255,255,255) gosub Yenile2 fillrect 320,0,1600,1200,rgb(0,25,255) plotimage Resim$(12),320,0 gosub Yenile3 elif CX > 30 and CX < 150 and CY > 500 and CY < 530 then fillrect 30,500,150,530,rgb(255,0,0) TextOut 50,505,Hatun$(13),rgb(255,255,255) gosub Yenile2 fillrect 320,0,1600,1200,rgb(0,25,255) plotimage Resim$(13),320,0 gosub Yenile3 elif CX > 180 and CX < 300 and CY > 20 and CY < 50 then fillrect 180,20,300,50,rgb(255,0,0) TextOut 200,25,Hatun$(14),rgb(255,255,255) gosub Yenile2 fillrect 320,0,1600,1200,rgb(0,25,255) plotimage Resim$(14),320,0 gosub Yenile3 elif CX > 180 and CX < 300 and CY > 60 and CY < 90 then fillrect 180,60,300,90,rgb(255,0,0) TextOut 200,65,Hatun$(15),rgb(255,255,255) gosub Yenile2 fillrect 320,0,1600,1200,rgb(0,25,255) plotimage Resim$(15),320,0 gosub Yenile3 elif CX > 180 and CX < 300 and CY > 100 and CY < 130 then fillrect 180,100,300,130,rgb(255,0,0) TextOut 200,105,Hatun$(16),rgb(255,255,255) gosub Yenile2 fillrect 320,0,1600,1200,rgb(0,25,255) plotimage Resim$(16),320,0 gosub Yenile3 elif CX > 180 and CX < 300 and CY > 140 and CY < 170 then fillrect 180,140,300,170,rgb(255,0,0) TextOut 200,145,Hatun$(17),rgb(255,255,255) gosub Yenile2 fillrect 320,0,1600,1200,rgb(0,25,255) plotimage Resim$(17),320,0 gosub Yenile3 elif CX > 180 and CX < 300 and CY > 180 and CY < 210 then fillrect 180,180,300,210,rgb(255,0,0) TextOut 200,185,Hatun$(18),rgb(255,255,255) gosub Yenile2 fillrect 320,0,1600,1200,rgb(0,25,255) plotimage Resim$(18),320,0 gosub Yenile3 elif CX > 180 and CX < 300 and CY > 220 and CY < 250 then fillrect 180,220,300,250,rgb(255,0,0) TextOut 200,225,Hatun$(19),rgb(255,255,255) gosub Yenile2 fillrect 320,0,1600,1200,rgb(0,25,255) plotimage Resim$(19),320,0 gosub Yenile3 elif CX > 180 and CX < 300 and CY > 260 and CY < 290 then fillrect 180,260,300,290,rgb(255,0,0) TextOut 200,265,Hatun$(20),rgb(255,255,255) gosub Yenile2 fillrect 320,0,1600,1200,rgb(0,25,255) plotimage Resim$(20),320,0 gosub Yenile3 elif CX > 180 and CX < 300 and CY > 300 and CY < 330 then fillrect 180,300,300,330,rgb(255,0,0) TextOut 200,305,Hatun$(21),rgb(255,255,255) gosub Yenile2 fillrect 320,0,1600,1200,rgb(0,25,255) plotimage Resim$(21),320,0 gosub Yenile3 elif CX > 180 and CX < 300 and CY > 340 and CY < 370 then fillrect 180,340,300,370,rgb(255,0,0) TextOut 200,345,Hatun$(22),rgb(255,255,255) gosub Yenile2 fillrect 320,0,1600,1200,rgb(0,25,255) plotimage Resim$(22),320,0 gosub Yenile3 elif CX > 180 and CX < 300 and CY > 380 and CY < 410 then fillrect 180,380,300,410,rgb(255,0,0) TextOut 200,385,Hatun$(23),rgb(255,255,255) gosub Yenile2 fillrect 320,0,1600,1200,rgb(0,25,255) plotimage Resim$(23),320,0 gosub Yenile3 elif CX > 180 and CX < 300 and CY > 420 and CY < 450 then fillrect 180,420,300,450,rgb(255,0,0) TextOut 200,425,Hatun$(24),rgb(255,255,255) gosub Yenile2 fillrect 320,0,1600,1200,rgb(0,25,255) plotimage Resim$(24),320,0 gosub Yenile3 elif CX > 180 and CX < 300 and CY > 460 and CY < 490 then fillrect 180,460,300,490,rgb(255,0,0) TextOut 200,465,Hatun$(25),rgb(255,255,255) gosub Yenile2 fillrect 320,0,1600,1200,rgb(0,25,255) plotimage Resim$(25),320,0 gosub Yenile3 elif CX > 180 and CX < 300 and CY > 500 and CY < 530 then fillrect 180,500,300,530,rgb(255,0,0) TextOut 200,505,Hatun$(26),rgb(255,255,255) gosub Yenile2 fillrect 320,0,1600,1200,rgb(0,25,255) plotimage Resim$(26),320,0 gosub Yenile3 elif CX > 80 and CX < 250 and CY > 550 and CY < 590 then fillrect 80,550,250,590,rgb(255,0,40) TextOut 130,562,"K A P A T",rgb(255,255,255) gosub Yenile4 goto Kapat end if Yenile: if GetMouseBtn() = 1 then goto Galeri sleep 1.8 goto Galeri Yenile2: sleep 1 return Yenile3: fillrect 0,0,320,1200,rgb(0,25,255) for x = 20 to 500 step 40 fillrect 38,x+10,160,x+38,rgb(0,60,80) fillrect 188,x+10,310,x+38,rgb(0,60,80) fillrect 30,x,150,x+30,rgb(225,160,0) fillrect 180,x,300,x+30,rgb(225,160,0) rect 30,x,150,x+30,rgb(255,255,0) for y = 0 to 2 line 30+y,x+y+31,150+y,x+y+31,rgb(167,0,0) line 151+y,x+y,151+y,x+y+31,rgb(167,0,0) next y rect 180,x,300,x+30,rgb(255,255,0) for y = 0 to 2 line 180+y,x+y+31,300+y,x+y+31,rgb(167,0,0) line 301+y,x+y,301+y,x+y+31,rgb(167,0,0) next y next x for x = 1 to 13 TextOut 50,(x*40)-15,Hatun$(x),rgb(255,255,255) TextOut 200,(x*40)-15,Hatun$(x+13),rgb(255,255,255) next x fillrect 88,558,259,598,rgb(0,60,60) fillrect 80,550,250,590,rgb(225,0,0) rect 80,550,250,590,rgb(255,0,80) for y = 0 to 2 line 80+y,550+y+41,250+y,550+y+41,rgb(167,0,0) line 251+y,550+y,251+y,550+y+41,rgb(167,0,0) next y TextOut 130,562,"K A P A T",rgb(255,255,255) return Yenile4: sleep 2 return Kapat: end

     

     

    hacı bu şekilde (inşalla becerebilmişimdirasdfgh) yapıştırırsan kodları hem daha rahat okunur, hem de barmaklarımız yorulmaz. Ne dersin?

    Insert> Insert Code Block </> 


    Holy inş dötünün sol lobunda tam oturduğun yerde kocaman sivilce çıkar, eski mis gibi text editoründen ne istedin yahu :'|

     

    vazgeçtim aq olmuyor. eski tbtyi özledim................. (tasarım olarak)

     

     

    SweetyVolty tarafından 06/Şub/18 11:10 tarihinde düzenlenmiştir

    buralar bir zamanlar dutluktu, şimdi hep abardıman diktiler.
  6. KısayolKısayol reportŞikayet pmÖzel Mesaj
    crystalmeth
    crystalmeth's avatar
    Kayıt Tarihi: 25/Ağustos/2014
    Erkek
    falcon bunu yazdı
    crystalmeth bunu yazdı

    ben de bunu bırakayım barii

    https://youtu.be/hMQnX4KGKhA

     

    1:31 deki sahneyi bi benmi gördümki :)

    ahahahaha o kadar da izledim hiç dikkatimi çekmemişti. Zar zor dur dura dur dura yakaladım :D

  7. KısayolKısayol reportŞikayet pmÖzel Mesaj
    kUz3y
    kUz3y's avatar
    Kayıt Tarihi: 14/Aralık/2009
    Erkek
    falcon bunu yazdı
    crystalmeth bunu yazdı

    ben de bunu bırakayım barii

    https://youtu.be/hMQnX4KGKhA

     

    1:31 deki sahneyi bi benmi gördümki :)

    nasıl bi yokluktasın sen :-)


    kUz3y
  8. KısayolKısayol reportŞikayet pmÖzel Mesaj
    SkynetX
    SkynetX's avatar
    Kayıt Tarihi: 06/Şubat/2015
    Erkek
    crystalmeth bunu yazdı
    falcon bunu yazdı
    crystalmeth bunu yazdı

    ben de bunu bırakayım barii

    https://youtu.be/hMQnX4KGKhA

     

    1:31 deki sahneyi bi benmi gördümki :)

    ahahahaha o kadar da izledim hiç dikkatimi çekmemişti. Zar zor dur dura dur dura yakaladım :D

    En az 720p de izle hocam aşağısında belli olmuyor :))

  9. KısayolKısayol reportŞikayet pmÖzel Mesaj
    crystalmeth
    crystalmeth's avatar
    Kayıt Tarihi: 25/Ağustos/2014
    Erkek
    SkynetX bunu yazdı
    crystalmeth bunu yazdı
    falcon bunu yazdı
    crystalmeth bunu yazdı

    ben de bunu bırakayım barii

    https://youtu.be/hMQnX4KGKhA

     

    1:31 deki sahneyi bi benmi gördümki :)

    ahahahaha o kadar da izledim hiç dikkatimi çekmemişti. Zar zor dur dura dur dura yakaladım :D

    En az 720p de izle hocam aşağısında belli olmuyor :))

    teşekkürler hocam , direkt 1080 e aldım :D

  10. KısayolKısayol reportŞikayet pmÖzel Mesaj
    do_som
    do_som's avatar
    Kayıt Tarihi: 08/Şubat/2016
    Erkek

    https://www.youtube.com/watch?v=QBYajZHCcuE

    benim attıklarıma yorum yapmayanın siki kalkmasın

Toplam Hit: 6166 Toplam Mesaj: 72
programlama foto galeri basic