BlackJack - ForumAilem.Com - Paylasimin Yeni Adresi


ForumAilem.Com - Paylasimin Yeni Adresi
  SohbetYaz

Sevgili Ziyaretçi!
Kayıt olmak için bir dakikanızı ayırın, Daha ne bekliyorsunuz?
Kurallar & İletişim
Kayıt Ol
Etiketlenen üyelerin listesi

Like Tree1Beğeni
  • 1 Post By emektar

Yeni Konu Aç Cevapla
 
LinkBack Seçenekler Arama Stil
Alt 06 - 10 - 2024, 13:23   #1 (permalink)
Çevrimiçi
Kullanıcıların profil bilgileri ziyaretçilere kapalı
BlackJack


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.
    }
  }
}

BlackJack 21 sevenler için !oyun !kartal !kapan komutları ile oynanir.
aSpeNDos bunu beğendi
  Alıntı ile Cevapla

Cevapla

Bu Konuyu Paylaşın !


Seçenekler Arama
Stil

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Açık
Pingbacks are Açık
Refbacks are Açık