folder Tahribat.com Forumları
linefolder Visual Basic - Basic - PicBasic ve Türevleri
linefolder Spice Girls ( 16+ Program )



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.
    Reply With Quote Alıntı yap
  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.
    Reply With Quote Alıntı yap
  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
    Reply With Quote Alıntı yap
  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
    Reply With Quote Alıntı yap
  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
    Çok sıkılıyom
    Reply With Quote Alıntı yap
  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

    “Fortes Fortuna Adiuvat”
    Reply With Quote Alıntı yap
  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 :-)

    Arayan yok, Soranı skim.
    Reply With Quote Alıntı yap
  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 :))

    Reply With Quote Alıntı yap
  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

    “Fortes Fortuna Adiuvat”
    Reply With Quote Alıntı yap
  10. KısayolKısayol reportŞikayet pmÖzel Mesaj
    do_som
    do_som's avatar
    Banlanmış Üye
    Kayıt Tarihi: 08/Şubat/2016
    Erkek

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

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

    Reply With Quote Alıntı yap
Toplam Hit: 25481 Toplam Mesaj: 72
programlama foto galeri basic