Şimdi Ara

Milyar Dolarlık Oyun Algoritması

Bu Konudaki Kullanıcılar:
3 Misafir - 3 Masaüstü
5 sn
3
Cevap
0
Favori
1.643
Tıklama
Daha Fazla
İstatistik
  • Konu İstatistikleri Yükleniyor
0 oy
Öne Çıkar
Sayfa: 1
Giriş
Mesaj
  • 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.

    http://www.mediafire.com/file/rxjmcvbzb95iw92/Las_Vegas.exe.zip/file

    Virüs raporu: The linkhttp://www.mediafire.com/file/rxjmcvbzb95iw92/Las_Vegas.exe.zip/file is safe according to the reputation data of Kaspersky

    Kaynak Kod:
    #!/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



  • Madem kaynak kodlarini acmak istiyorsunuz github koyarsaniz rahat edersiniz. Hem gorunurlugu artar hem bir portfoy olur
  • 
Sayfa: 1
- x
Bildirim
mesajınız kopyalandı (ctrl+v) yapıştırmak istediğiniz yere yapıştırabilirsiniz.