Yerli ve Milli oyunumuz "Las Vegas"ın DH okurlarına özel, ücretsiz, kayıtsız ve key'siz sürümünü sizlerle paylaşmak istiyorum.
Oyun içeriği: Casino'lar da kullanılan ve tek kollu cnavar olarak bilinen, Jeton'lu kumar makinalarından esinlenilmiş bir şans oyunu. Oyuncunun toplam 100 $ kredisi var ve istediği miktarda (1 ile 9 $ arası) bahis yatırabiliyor. Üç top aynı renkte gelirse, yatırdığı miktarın 33 katını kazanıyor. Diğer durumlarda hep kaybediyor.
if peek$("os") = "unix" then if not (peek("isbound")) then bind "Las_Vegas" system("chmod +x Las_Vegas") endif elsif peek$("os") = "windows" then if not (peek("isbound")) then bind "Las_Vegas.exe" endif endif
if Sistem$ = "windows" then Font$="swiss20" elsif Sistem$ = "unix" then Font$ = "9x15" endif
renk1$="255,0,0" // Kırmızı renk2$="0,255,0" // Yeşil renk3$="0,0,255" // Lacivert renk4$="0,205,205" // Mavi renk5$="255,255,0" // Sarı renk6$="255,0,255" // Pembe renk7$="90,34,0" // Kahve rengi renk8$="255,127,0" // Turunju renk9$="90,0,90" // Mor renk10$="127,127,127" // Gri renk11$="255,255,255" // Beyaz renk12$="32,64,127" // Donuk Lacivert renk13$="30,60,110" // Derin Lacivert renk14$="0,64,0" // Koyu Yeşil renk15$="0,0,0" // Siyah
color renkler$(10) text 250,90,"L a s V e g a s",Font$,"cc"
color renkler$(12) fill circle 100,250,60 fill circle 250,250,60 fill circle 400,250,60
color renkler$(13) fill circle 100,250,52 fill circle 250,250,52 fill circle 400,250,52
// Oyun İşlemleri
while(Dolar > 0)
for x = 0 to 14 gosub SansTopu1 gosub SansTopu2 gosub SansTopu3 sleep 0.1 if x = 14 then if numaram1 = numaram2 and numaram1 = numaram3 then Bahis = Bahis * 33 Dolar = Dolar + Bahis else Dolar = Dolar - Bahis endif Dolar = Dolar gosub SansiniDene endif next x inkey$
wend
// Alt Yordamlar
label SansTopu1 numaram1=int(ran(9)) color renkler$(numaram1) fill circle 100,250,50 color renkler$(10) text 100,250,rakam$(x),Font$,"cc" sleep 0.1 return
label SansTopu2 numaram2=int(ran(9)) color renkler$(numaram2) fill circle 250,250,50 color renkler$(10) text 250,250,rakam$(x),Font$,"cc" sleep 0.1 return
label SansTopu3 numaram3=int(ran(9)) color renkler$(numaram3) fill circle 400,250,50 color renkler$(10) text 400,250,rakam$(x),Font$,"cc" sleep 0.1 return
label SansiniDene gosub Param gosub Bahisler gosub Gir return
label Param color renkler$(11) fill rectangle 100,50,400,100 color renkler$(10) text 250,90,"Toplam paraniz "+str$(Dolar)+" $",Font$,"cc" return
label Bahisler color renkler$(11) fill rectangle 200,380,300,425 color renkler$(10) text 250,410,Bahis$,Font$,"cc" fill rectangle 190,425,310,450 return
label Gir if Dolar = 0 then gosub Son endif color renkler$(14) Gir$=inkey$ if Gir$ = "1" then Bahis = 1 elsif Gir$ = "2" then Bahis = 2 elsif Gir$ = "3" then Bahis = 3 elsif Gir$ = "4" then Bashis = 4 elseif Gir$ = "5" then Bahis = 5 elsif Gir$ = "6" then Bahis = 6 elsif Gir$ = "7" then Bahis = 7 elsif Gir$ = "8" then Bahis = 8 elsif Gir$ = "9" then Bahis = 9 else gosub Hata1 endif sleep 0.1 if Bahis > Dolar then gosub Hata2 endif sleep 0.1 text 250,440,Gir$+" $",Font$,"cc" return
label Hata1 color renkler$(0) text 250,440,"1 - 9 RAKAM",Font$,"cc" sleep 2 color renkler$(10) fill rectangle 190,425,310,450 gosub Gir return
label Hata2 color renkler$(0) text 250,440,"Son "+str$(Dolar)+" $ Kaldi",Font$,"cc" sleep 2 color renkler$(10) fill rectangle 190,425,310,450 gosub Gir return
label Son clear window color renkler$(10) text 250,250,"Oyun Sonlandi","cc" return
Madem kaynak kodlarini acmak istiyorsunuz github koyarsaniz rahat edersiniz. Hem gorunurlugu artar hem bir portfoy olur
yeni mesaja git
Yeni mesajları sizin için sürekli kontrol ediyoruz, bir mesaj yazılırsa otomatik yükleyeceğiz.Bir Daha Gösterme