Milyar Dolarlık Oyun Algoritması

#!/usr/bin/env yabasic
# Las_Vegas.yab
# Yazar: K110
# Artistic lisans sözleşmesi :https://www.ncftp.com/ncftp/doc/LICENSE.txt

// Derleme koşulları

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

// Oyun Pencersi

open window 500,500

// Diziler

dim renkler$(14)
dim rakam$(14)

// Değişkenler

Dolar=100
Bahis=0
Bahis$="Bahis Girin"
Sistem$=peek$("os")

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

renkler$(0)=renk1$
renkler$(1)=renk2$
renkler$(2)=renk3$
renkler$(3)=renk4$
renkler$(4)=renk5$
renkler$(5)=renk6$
renkler$(6)=renk7$
renkler$(7)=renk8$
renkler$(8)=renk9$
renkler$(9)=renk10$
renkler$(10)=renk11$
renkler$(11)=renk12$
renkler$(12)=renk13$
renkler$(13)=renk14$
renkler$(14)=renk15$

rakam$(0)="1"
rakam$(1)="2"
rakam$(2)="3"
rakam$(3)="4"
rakam$(4)="5"
rakam$(5)="6"
rakam$(6)="7"
rakam$(7)="8"
rakam$(8)="9"
rakam$(9)="10"
rakam$(10)="11"
rakam$(11)="12"
rakam$(12)="13"
rakam$(13)="14"
rakam$(14)="15"

// Oyun Sahası

backcolor renkler$(11)
clear window
clear screen

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