IRCRehberi.Net- Türkiyenin En iyi IRC ve Genel Forum Sitesi

IRCRehberi.Net- Türkiyenin En iyi IRC ve Genel Forum Sitesi (https://www.ircrehberi.net/)
-   mIRC Scripting Hazır Kodlar (https://www.ircrehberi.net/mirc-scripting-hazir-kodlar/)
-   -   21 BlackJack Oyunu En Güncel Hali (https://www.ircrehberi.net/mirc-scripting-hazir-kodlar/172448-21-blackjack-oyunu-en-guncel-hali.html)

iLLeTBey 18 Kasım 2023 17:52

21 BlackJack Oyunu En Güncel Hali
 
Kod:

on *:TEXT:!oyun:#: {
  var %oyuncu = $nick
  var %krupiye = Krupiye
  var %deste = As 2 3 4 5 6 7 8 9 10 Vale Kız Papaz Joker As 2 3 4 5 6 7 8 9 10 Vale Kız Papaz Joker As 2 3 4 5 6 7 8 9 10 Vale Kız Papaz Joker As 2 3 4 5 6 7 8 9 10 Vale Kız Papaz Joker
  var %deste = $shuffle(%deste)
  var %oyuncuEl = $gettok(%deste, 1, 32)
  var %krupiyeEl = $gettok(%deste, 2, 32)
  var %bahis = $rand(10, 100)
 
  if ($nick == %krupiye) {
    msg $chan %oyuncu Oyunun krupiyesi sensin! Bekleme yapabilirsin.
  }
  else {
    if ($numtok(%oyuncuEl, 32) >= 5) {
      msg $chan %oyuncu En fazla 5 kişi oynayabiliriz. Başka bir oyun odası deneyin.
    }
    else {
      msg $chan %oyuncu Senin kartların: %oyuncuEl. Toplam: $calc($cardval(%oyuncuEl))
      msg $chan %krupiye Krupiye'nin kartları: %krupiyeEl. Toplam: $calc($cardval(%krupiyeEl))
      msg $chan %oyuncu Bahis: $%bahis. !kartal veya !kapan de.
    }
  }
}

on *:TEXT:!kartal:#: {
  var %oyuncu = $nick
  var %deste = As 2 3 4 5 6 7 8 9 10 Vale Kız Papaz Joker As 2 3 4 5 6 7 8 9 10 Vale Kız Papaz Joker As 2 3 4 5 6 7 8 9 10 Vale Kız Papaz Joker As 2 3 4 5 6 7 8 9 10 Vale Kız Papaz Joker
  var %deste = $shuffle(%deste)
  var %oyuncuEl = $gettok(%deste, 1, 32)
  var %yeniKart = $gettok(%deste, 1, 32)
 
  if ($nick == Krupiye) {
    msg $chan %oyuncu Sen krupiyesin. Oyuncu olarak oyna!
  }
  else {
    if ($calc($cardval(%oyuncuEl)) > 21) {
      msg $chan %oyuncu Senin kartların: %oyuncuEl. Toplam: $calc($cardval(%oyuncuEl)). Battın!
    }
    else {
      set %oyuncuEl %oyuncuEl %yeniKart
      msg $chan %oyuncu Senin kartların: %oyuncuEl. Toplam: $calc($cardval(%oyuncuEl)). !kartal veya !kapan de.
    }
  }
}

on *:TEXT:!kapan:#: {
  var %oyuncu = $nick
  var %krupiye = Krupiye
  var %deste = As 2 3 4 5 6 7 8 9 10 Vale Kız Papaz Joker As 2 3 4 5 6 7 8 9 10 Vale Kız Papaz Joker As 2 3 4 5 6 7 8 9 10 Vale Kız Papaz Joker As 2 3 4 5 6 7 8 9 10 Vale Kız Papaz Joker
  var %deste = $shuffle(%deste)
  var %oyuncuEl = $gettok(%deste, 1, 32)
  var %krupiyeEl = $gettok(%deste, 2, 32)
 
  if ($nick == %krupiye) {
    msg $chan %oyuncu Sen krupiyesin. Oyuncu olarak oyna!
  }
  else {
    while ($calc($cardval(%krupiyeEl)) < 17) {
      var %yeniKart = $gettok(%deste, 1, 32)
      set %krupiyeEl %krupiyeEl %yeniKart
    }

    msg $chan %krupiye Krupiye'nin kartları: %krupiyeEl. Toplam: $calc($cardval(%krupiyeEl))

    var %oyuncuToplam = $calc($cardval(%oyuncuEl))
    var %krupiyeToplam = $calc($cardval(%krupiyeEl))

    if (%oyuncuToplam > 21) {
      msg $chan %oyuncu Battın! Krupiye kazanır.
    }
    else if (%krupiyeToplam > 21) {
      msg $chan %oyuncu Krupiye battı! Sen kazanırsın.
    }
    else if (%oyuncuToplam > %krupiyeToplam) {
      msg $chan %oyuncu Sen kazanırsın!
    }
    else if (%oyuncuToplam == %krupiyeToplam) {
      msg $chan %oyuncu Berabere!
    }
    else {
      msg $chan %oyuncu Krupiye kazanır.
    }
  }
}

!oyun !kartal !kapan komutlariyla oynanır en guncel halidir.

YiLDiZ 21 Kasım 2023 19:51

Paylaşım için teşekkürler

L_ 24 Kasım 2023 20:27

En sevdiğim oyun güzel zaman geciyor
elinize sağlık @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

iLLeTBey 24 Kasım 2023 20:28

Alıntı:

L_ Nickli Üyeden Alıntı (Mesaj 1498443)
En sevdiğim oyun güzel zaman geciyor
elinize sağlık @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]


Bol şanslar ozaman :)

1903 26 Kasım 2023 00:03

Emeğine Sağlık .

Reyhan 26 Kasım 2023 00:06

Emeğinize sağlık @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] :erk:

She 03 Aralık 2023 12:18

Güzel paylaşım için teşekkür ederiz

Malefiz 04 Aralık 2023 22:48

Emeğinize sağlık.


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 10:16.

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2024, vBulletin Solutions, Inc.

Copyright ©2019 - 2023 | IRCRehberi