Spice Girls ( 16+ Program )
-
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 -
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
-
crystalmeth bunu yazdı
1:31 deki sahneyi bi benmi gördümki :)
-
https://www.youtube.com/watch?v=zF2GGh_hWc0
-
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: endhacı 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)
-
falcon bunu yazdıcrystalmeth bunu yazdı
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
-
falcon bunu yazdıcrystalmeth bunu yazdı
1:31 deki sahneyi bi benmi gördümki :)
nasıl bi yokluktasın sen :-)
-
crystalmeth bunu yazdıfalcon bunu yazdıcrystalmeth bunu yazdı
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 :))
-
SkynetX bunu yazdıcrystalmeth bunu yazdıfalcon bunu yazdıcrystalmeth bunu yazdı
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
-
https://www.youtube.com/watch?v=QBYajZHCcuE
benim attıklarıma yorum yapmayanın siki kalkmasın