LİSANS SZLEŞMESİ Kim bu uygulamayı kullanırsa yapımcının dayattığı tüüm şartları kabul etmiş sayılır. Şartlar keyfe gre değişebilir. Bu nedenle burada yazmasına gerek yok. bune len Kendi şisans szleşmemi çıkarttım. Kendisini Hacker sanan zibidilerden değilim.

do_som bunu yazdı porno yoksa bende yokum iyi geceler Erotik varmış ama, kalsaydın bari, daha karpuz kesecektik. :) :D

Virüs yok. Biraz bekleyin ve tekrar deneyin Kendim denediğimde de Smartscreen nce engelledi. İkinci denemede çalıştı. Smartscreen'inin szünü ettiği bilinmeyen yayımcı ben oluyorum. Yayımcı adı olarak uygulamanın kendi adını kayıt ettim. Belki ondan kaynaklanıyordur. Kendisini Hacker sanan zibidilerden değilim.

la hiç bişi yok +16lık ya da ben bulamadım asdfgshj ezmek gibi algılama da bu kadar basit bir programlama dilinde bu kadar buglı kod yazmayı nasıl başardın? hiçbişeye tıklayamıyorum bi de selection tools açık kalmış olabilir, bi de nubasic cmd de execute edebileceğin bir komut yok ve çok eğlendim random giri girerken :D Biraz Python'daki gibi düşün: Print "Metin içeriği" Satır numaraları ekleyerek yazarsan son satırda numara eklemeden girilen komut istenilen işlemi yapar. Save Dosya_adı Load Dosya_adı Run Exec Dosya_adı Windows 10 ncesi sürümlerde Ekran büyümüyor ve yapılan işlem ekran dışında kalıyorsa grülmüyor. İkinci bir bilgisayarım olmadığı için bu konuda bir çalışma yapma imkanım yok. Bir kaç kez İnternet kafe'den denedim. Orada gürültüden rahat çalışılmıyor ve başka bir gün gidildiğinde bilgisayar formatlanmış oluyor ve daha nceki çalışmalar gitmiş oluyorlar. emrah20 tarafından 26/Oca/18 14:27 tarihinde düzenlenmiştir Kendisini Hacker sanan zibidilerden değilim.

:ı Paylaşım için teşekkürler +rep Sadece bi imza..

porno yoksa bende yokum iyi geceler :D :D Dante_

Biraz da Eğlenelim Spice Girls : http://s7. dosya. tc/server2/x4th6c/Spice_Girls. exe.html Spice Girls 1.1 sürümü : http://s7. dosya. tc/server2/sztbwm/Spice_Girls_1.1. exe.html Spice Girls 1.2 sürümü : http://s7. dosya. tc/server2/o832ze/Spice_Girls. exe.html Windows 7 veya daha nceki sürümlerde düzgün grünmeyebilir. Windows 10 üzerinde başarı ile denenmiştir. Ekran grüntüsü : emrah20 tarafından 06/Şub/18 09:33 tarihinde düzenlenmiştir Kendisini Hacker sanan zibidilerden değilim.

İlk yazının ilk satırında dediği gibi ben eğlendim. Üstelik programı çalıştırmadan hatta programı indirmeden. Kim bilir program ne eğlencelidir. Sadece bi imza..

emrah20 bunu yazdı Pornografik bir durum yok. Ancak kişilerin inançlarına bağlılığına gre değerlendirmeleri farklı olabilir. Bu nedenle tepki almamak için bir ikaz edeyim dedim. Erotik olarak algılanabileck hoş bayanlar :D D:A:SD:ASD: bu nedir awkkk :D :D:SDA:FH:FDFHDFH bana pm ile atarmısın bi kaç foto ona gre indircem :D alpha. wallhaven. cc adresine git hocam ücretsiz üyelik oluştur. Sonra ayarlarım sekmesinden NSFW'yi bul ve onu aktive et. Te resmide burada. Sonra yukarıda "RANDOM" var oraya tıkla gzün gnlün açılsın :D Telegram : @CuneytKuscu && Discord : Tyenuc#2679 | İstanbul Avr. Yazılım Mühendisi ve sonunda işim var (:

Bu ne virüs mü? Gerçek yoktur. Herşey yorumdur. - KKK - Düşünürseniz, acı çekersiniz. Şüphe ederseniz, delirirsiniz. Hissederseniz, yalnız kalırsınız. O yüzden koy goethe

crystalmeth bunu yazdı ben de bunu bırakayım barii https://youtu.be/hMQnX4KGKhA 1:31 deki sahneyi bi benmi grdümki :) nasıl bi yokluktasın sen :-) Arayan yok, Soranı skim.

EnableTurk bunu yazdı emrah20 bunu yazdı Pornografik bir durum yok. Ancak kişilerin inançlarına bağlılığına gre değerlendirmeleri farklı olabilir. Bu nedenle tepki almamak için bir ikaz edeyim dedim. Erotik olarak algılanabileck hoş bayanlar :D D:A:SD:ASD: bu nedir awkkk :D :D:SDA:FH:FDFHDFH bana pm ile atarmısın bi kaç foto ona gre indircem :D alpha. wallhaven. cc adresine git hocam ücretsiz üyelik oluştur. Sonra ayarlarım sekmesinden NSFW'yi bul ve onu aktive et. Te resmide burada. Sonra yukarıda "RANDOM" var oraya tıkla gzün gnlün açılsın :D evet güzel şeyler var burda beğendim :D edit : eyw. hocam EnableTurk tarafından 26/Oca/18 01:15 tarihinde düzenlenmiştir seni 4 kere dverim yarın

hocalar hiç güzel zevkli resimler yok abuk sabuk şeyler +13 http://dosya.co/7uj52elqm06r/resim.7z.html programı indirmek istemeyen sadece resimleri grmek isteyenler için grsellerin içeriği

pala bunu yazdı Ne muhabbet dndü ama :D Okurken çok güldüm aws :D O değilde program ne işe yarıyor şimdi onu anlamadım ne için yapıldı fayası nedir? ben bir faydasını gremedim kullanıcı açısından. Kadın resmi merak eden varsa araştırır bulur. Ben daha çok programcının buradan bir fayda sağladığı kanısındayım ama bilemedim şimdi :D :D Mantıklı hocam ama sonuçtam emek var eve geçeyim indireceğim bakacağım ne var ne yok hayrına dosyalarıda paylaşsa ne güzel olurdu. :D Bulunduğun yerden memnun değilsen yerini değiştir. Ağaç değilsin.

Bir Müzik grubundan aklıma geldi < ="//www.youtube.com//gJLIiF15wjQ" width="560" height="314" allowfullscreen="allowfullscreen"> emrah20 tarafından 27/Oca/18 20:14 tarihinde düzenlenmiştir Kendisini Hacker sanan zibidilerden değilim.

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 grdü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"

ben de bunu bırakayım barii https://youtu.be/hMQnX4KGKhA 1:31 deki sahneyi bi benmi grdümki :) Vurur yüze ifadesi Hyper-V sistemcilerin bitanesi

Bu ne virüs mü? :) Daha neler, bence mp3 leri barındıran bir şeye benziyor, @emrah20 hocam bir açıklama yaparsanız iyi olurdu valla. Net ortamı, tek tük de olsa iyi dostluklar sağlamışsa bile, vefasızlığı ile ünlüdür..!

@GodKlaus @italyan vay zalımlar. :) Net ortamı, tek tük de olsa iyi dostluklar sağlamışsa bile, vefasızlığı ile ünlüdür..!

porno yoksa bende yokum iyi geceler Erotik varmış ama, kalsaydın bari, daha karpuz kesecektik. :) Net ortamı, tek tük de olsa iyi dostluklar sağlamışsa bile, vefasızlığı ile ünlüdür..!

Ne muhabbet dndü ama :D Okurken çok güldüm aws :D O değilde program ne işe yarıyor şimdi onu anlamadım ne için yapıldı fayası nedir? Bulunduğun yerden memnun değilsen yerini değiştir. Ağaç değilsin.

bırakın program indirmeyi https://www.youtube.com/watch?v=Kc5zXiZX12A&feature=youtu. be güzeller burda şarkıda süper :D

bu konuyu neden silmiyorlar anlamış değilim. Bende o zaman erotik arşivimi paylaşayım. Başkası gitsin bilmem ne paylaşsın holü abi siteyi silsin kjdsakjlds Kuralların içerisinde, "Sitede at koşturmak yasaktır", "Sitede amuda kalkmak yasaktır" yazmaması, sitede at koşturulabileceği ya da amuda kalkılabileceği anlamına gelmez. Konuda benimde yorumum mevcut. Gerekli grülürse beni de banlayabilirsiniz. Çizgiyi aşmışım biraz, yola gelirim bandan sonra (: Ahha dediğin değerlendirilirse, ben ve sen dahil hepimiz yandık desene, ah @emrah20. :) yok yok Ban istemeyuk, sil onu sil.. Net ortamı, tek tük de olsa iyi dostluklar sağlamışsa bile, vefasızlığı ile ünlüdür..!

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$ , 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$ , 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.

https://www.youtube.com/watch?v=zF2GGh_hWc0 d3lete tarafından 06/Şub/18 11:06 tarihinde düzenlenmiştir

TBT-Argeye eklenmeli bence Ellerine sağlık hocam çok eğlenceli bir sürü karı var

Kodları kod etiketi içine yapıştırmıştım. İlk iki satır listeleme için dizi atamasıydı. Tek bir işlem için gerekmiyor. En basit rnek aşağıda. movewindow getwindowx , getwindowy , 800,600 plotimage "girl-head. jpg",0,0 İlk satır grafik pencere oluşturur. Son rakamlar pencere boyutunu belirler. İkinci satır "Resim" ismi ve başlangıç noktasını belirler. 0,0, sol üst kşede en uç nokta anlamına gelir. emrah20 tarafından 06/Şub/18 15:37 tarihinde düzenlenmiştir Kendisini Hacker sanan zibidilerden değilim.

edit. Fatih tarafından 27/Oca/18 05:09 tarihinde düzenlenmiştir enjoy i'm vaccinated

https://www.youtube.com/watch?v=4JmG2JrDT5I&feature=youtu. be&t=1m42s zaaaaa spice girls :D

LİSANS SZLEŞMESİ Kim bu uygulamayı kullanırsa yapımcının dayattığı tüüm şartları kabul etmiş sayılır. Şartlar keyfe gre değişebilir. Bu nedenle burada yazmasına gerek yok. bune len Bazıları zgürlüğü sadece kendileri gibi düşünenlere reva grüyor...

la hiç bişi yok +16lık ya da ben bulamadım asdfgshj ezmek gibi algılama da bu kadar basit bir programlama dilinde bu kadar buglı kod yazmayı nasıl başardın? hiçbişeye tıklayamıyorum bi de selection tools açık kalmış olabilir, bi de nubasic cmd de execute edebileceğin bir komut yok ve çok eğlendim random giri girerken :D Çok sıkılıyom

guzel avrat varmi? Viski var nlerinde, Ne içen dediler? ırakı dedim ben https://www.kisa.link/QobI

Lan biri aciklasin merak ettim olay ne İçinde kadın resimleri var, ben baktım, ama dediği gibi Win7 de sıkıntılı açmadı, klasrden baktım, bildiğin kadın silüetleri. güzel kadınlar falan işte. Net ortamı, tek tük de olsa iyi dostluklar sağlamışsa bile, vefasızlığı ile ünlüdür..!

porno yoksa bende yokum iyi geceler

Pornografik bir durum yok. Ancak kişilerin inançlarına bağlılığına gre değerlendirmeleri farklı olabilir. Bu nedenle tepki almamak için bir ikaz edeyim dedim. emrah20 tarafından 25/Oca/18 23:02 tarihinde düzenlenmiştir Kendisini Hacker sanan zibidilerden değilim.

Bu programı grdükten sonra programcı olasım geldi, adam işi biliyor beyler. :) Net ortamı, tek tük de olsa iyi dostluklar sağlamışsa bile, vefasızlığı ile ünlüdür..!

https://www.youtube.com/watch?v=MTnbsQ0ra8M&feature=youtu. be beni sinirlendirmeyin :D grüntü kalitesi için kusura bakmayın :D

Hocam tam ekran olmuyor win 8 kullanıyorum. Bu sebeple resimleri gremiyorum İndia İndia!

Bu ne? Bunu masaüstü programı olarak yapmaktaki amaç ne?

Hocam 2000 yılına yeni girmiş gibisin. :))))))

Konu altına mesaj atan arkadaşlar banlanırken, bu mesajım umarım hafifletici sebep olur... Bu arada @emrah20, @GodKlaus, @do_som 'a katkılarından dolayı teşekkürler. Gerçek yoktur. Herşey yorumdur. - KKK - Düşünürseniz, acı çekersiniz. Şüphe ederseniz, delirirsiniz. Hissederseniz, yalnız kalırsınız. O yüzden koy goethe

crystalmeth bunu yazdı ben de bunu bırakayım barii https://youtu.be/hMQnX4KGKhA 1:31 deki sahneyi bi benmi grdümki :) ahahahaha o kadar da izledim hiç dikkatimi çekmemişti. Zar zor dur dura dur dura yakaladım :D "Fortes Fortuna Adiuvat"

Yok daha memeler. Sansüre hayır.

Programlama ğreniyorum. Buraya da projelerim için ilham almaya katıldım. Çünkü ne yapmak istediğini bilmeyen birisi hiç bir şeye başlayamaz. Bu benim il grafik arayüz kullanan ve ilk kurulum yapan programım. Simge boş grünüyor , oysa simge içinde mevcut. Adreslemede bir hata oldu gibi. Orasını sonra düzeltmeye çalışacağım. Çok sakıncalı bir içerik yok.. Ailece ortak kullanılan bilgisayarlarda çocuklar etkilenmesin diye yaş sınırı belirtim. emrah20 tarafından 26/Oca/18 09:41 tarihinde düzenlenmiştir Kendisini Hacker sanan zibidilerden değilim.

Programı güncelledim. Spice Girls 1.1 sürümü indirme linkini ilk iletiye ekledim. Spice Girls 1.1 sürümündeki yenilikler: Masaüstü simgesi artık grselli. Programlar menüsüne de artık eklendi ve bir de "Uninstall" seçeneği var. Lisans szleşmesi Tahribat müridlerinin beklentilerini karşılayacak şekilde yenilendi. Butonlarda etkileşme biraz daha düzgün. Kızlar biraz daha cmert Değişmeyenler : Porno yok, Kızların hepsi birbirinden güzel. Harika bende heveslendim programcılığa. :) Net ortamı, tek tük de olsa iyi dostluklar sağlamışsa bile, vefasızlığı ile ünlüdür..!

emrah hocam programın ismini nereden ilham aldınız spice baharat demek degilmi yoksa sizde farklı cagrısımlarımı var :D

falcon bunu yazdı crystalmeth bunu yazdı ben de bunu bırakayım barii https://youtu.be/hMQnX4KGKhA 1:31 deki sahneyi bi benmi grdü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 :))

hocalar hiç güzel zevkli resimler yok abuk sabuk şeyler +13 http://dosya.co/7uj52elqm06r/resim.7z.html programı indirmek istemeyen sadece resimleri grmek isteyenler için grsellerin içeriği Bu ne virüs mü? Gerçek yoktur. Herşey yorumdur. - KKK - Düşünürseniz, acı çekersiniz. Şüphe ederseniz, delirirsiniz. Hissederseniz, yalnız kalırsınız. O yüzden koy goethe

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 Kendisini Hacker sanan zibidilerden değilim.

ortama bak sanki tbtciler tbtcileri sikmeye çalışıyor. konuda bir yaraklık var ama neyse... Akıllı insan her düşündüğünü sylemez ama her sylediğini düşünür.

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$ , 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$ , 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$ , 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$ , 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 yapıştırırsan kodları hem daha rahat okunur, hem de barmaklarımız yorulmaz. Ne dersin? Insert> Insert Code Block </> Holy inş dtü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... SweetyVolty tarafından 06/Şub/18 11:10 tarihinde düzenlenmiştir Çok sıkılıyom

ortama bak sanki tbtciler tbtcileri sikmeye çalışıyor. konuda bir yaraklık var ama neyse... +1

Ne muhabbet dndü ama :D Okurken çok güldüm aws :D O değilde program ne işe yarıyor şimdi onu anlamadım ne için yapıldı fayası nedir? ben bir faydasını gremedim kullanıcı açısından. Kadın resmi merak eden varsa araştırır bulur. Ben daha çok programcının buradan bir fayda sağladığı kanısındayım ama bilemedim şimdi :D :D Telegram : @CuneytKuscu && Discord : Tyenuc#2679 | İstanbul Avr. Yazılım Mühendisi ve sonunda işim var (:

italyan bunu yazdı Konu altına mesaj atan arkadaşlar banlanırken, bu mesajım umarım hafifletici sebep olur... Bu arada @emrah20, @GodKlaus, @do_som 'a katkılarından dolayı teşekkürler. Ben cidden utanç duyuyorum. Hani kuzenim yazmış falan da demiyorum. Banlanacaksam banlanayım ama şu kara lekede silinsin bu forumdan (: Telegram : @CuneytKuscu && Discord : Tyenuc#2679 | İstanbul Avr. Yazılım Mühendisi ve sonunda işim var (:

bu konuyu neden silmiyorlar anlamış değilim. Bende o zaman erotik arşivimi paylaşayım. Başkası gitsin bilmem ne paylaşsın holü abi siteyi silsin kjdsakjlds Kuralların içerisinde, "Sitede at koşturmak yasaktır", "Sitede amuda kalkmak yasaktır" yazmaması, sitede at koşturulabileceği ya da amuda kalkılabileceği anlamına gelmez. Konuda benimde yorumum mevcut. Gerekli grülürse beni de banlayabilirsiniz. Çizgiyi aşmışım biraz, yola gelirim bandan sonra (: Telegram : @CuneytKuscu && Discord : Tyenuc#2679 | İstanbul Avr. Yazılım Mühendisi ve sonunda işim var (:

ben de bunu bırakayım barii https://youtu.be/hMQnX4KGKhA "Fortes Fortuna Adiuvat"

https://www.youtube.com/watch?v=LDZX4ooRsWs Huhuu Kurtla sevişen mazoşist koyun

Konunun gidişatını grünce şu klibide ben eklemeden geçemedim. https://www.youtube.com//560b-mA9q1o can498 tarafından 27/Oca/18 10:37 tarihinde düzenlenmiştir Bir bulutun aya ulaşma mücadelesiydi hayat...

Hocu az daha açsaydın, ne bu porno mu, strip poker mi?

İyi geceler. Kendisini Hacker sanan zibidilerden değilim.

https://www.youtube.com/watch?v=QBYajZHCcuE benim attıklarıma yorum yapmayanın siki kalkmasın

Lan biri aciklasin merak ettim olay ne herkes programcı olmak zorunda değildir, lütfen bir zorunluluk gibi programlama dilleri ğrenmeye çalışmayın. yabancı dil filan ğrenin amq.// s. kimin etini yerim, kasaba minnet etmem.// ince düşünene kalın girer.//

hocam madem yaptın bir hayır bacaklarını... aman. programı tam uyumlu yap. havalı bir şeyler yazdığımı hayal edin

olm bu programları yazarken nası bi kafa yaşıonuz ya :D

Gerçek yoktur. Herşey yorumdur. - KKK - Düşünürseniz, acı çekersiniz. Şüphe ederseniz, delirirsiniz. Hissederseniz, yalnız kalırsınız. O yüzden koy goethe

Pornografik bir durum yok. Ancak kişilerin inançlarına bağlılığına gre değerlendirmeleri farklı olabilir. Bu nedenle tepki almamak için bir ikaz edeyim dedim. Erotik olarak algılanabileck hoş bayanlar :D D:A:SD:ASD: bu nedir awkkk :D :D:SDA:FH:FDFHDFH bana pm ile atarmısın bi kaç foto ona gre indircem :D seni 4 kere dverim yarın

bırakın program indirmeyi https://www.youtube.com/watch?v=Kc5zXiZX12A&feature=youtu. be güzeller burda şarkıda süper :D https://www.youtube.com/watch?v=O6pX9wJszcM Game Over Gerçek yoktur. Herşey yorumdur. - KKK - Düşünürseniz, acı çekersiniz. Şüphe ederseniz, delirirsiniz. Hissederseniz, yalnız kalırsınız. O yüzden koy goethe

Ahlaksız adamdan farkın ne? Fuck Mobb Deep Fuck Biggie Fuck Bad Boy as a staff record label and as a mother fuckin crew. En büyük hayalimi sordu geçenlerde birisi Midtown metrosundan inip Broadwayde bir kaç tur attıktan sonra Union Square Park karşındaki Starbucksda bir kahve içmek.

Tepki almamak için biraz sansür uyguladım. Güzellik n planda. Kendisini Hacker sanan zibidilerden değilim.

Programı güncelledim. Spice Girls 1.1 sürümü indirme linkini ilk iletiye ekledim. Spice Girls 1.1 sürümündeki yenilikler: Masaüstü simgesi artık grselli. Programlar menüsüne de artık eklendi ve bir de "Uninstall" seçeneği var. Lisans szleşmesi Tahribat müridlerinin beklentilerini karşılayacak şekilde yenilendi. Butonlarda etkileşme biraz daha düzgün. Kızlar biraz daha cmert Değişmeyenler : Porno yok, Kızların hepsi birbirinden güzel. emrah20 tarafından 27/Oca/18 16:10 tarihinde düzenlenmiştir Kendisini Hacker sanan zibidilerden değilim.

do_som bunu yazdı bırakın program indirmeyi https://www.youtube.com/watch?v=Kc5zXiZX12A&feature=youtu. be güzeller burda şarkıda süper :D https://www.youtube.com/watch?v=O6pX9wJszcM Game Over https://www.youtube.com/watch?v=gofJrNfBSbo&feature=youtu. be I cant be game over :D