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