alias blackjack {
    var %deste = A♠ A♥ A♦ A♣ K♠ K♥ K♦ K♣ Q♠ Q♥ Q♦ Q♣ J♠ J♥ J♦ J♣ 10♠ 10♥ 10♦ 10♣ 9♠ 9♥ 9♦ 9♣ 8♠ 8♥ 8♦ 8♣ 7♠ 7♥ 7♦ 7♣ 6♠ 6♥ 6♦ 6♣ 5♠ 5♥ 5♦ 5♣ 4♠ 4♥ 4♦ 4♣ 3♠ 3♥ 3♦ 3♣ 2♠ 2♥ 2♦ 2♣
    var %i = 1, %j, %k, %temp
    while (%i <= 208) {
      %j = $rand(1,208)
      %k = $rand(1,208)
      %temp = $gettok(%deste,%j,32)
      set %deste $puttok(%deste,$gettok(%deste,%k,32),%j,32)
      set %deste $puttok(%deste,%temp,%k,32)
      inc %i
    }
    var %el.$me = $gettok(%deste,1,32) $+ $chr(32) $+ $gettok(%deste,2,32)
    var %el.$nick1 = $gettok(%deste,3,32) $+ $chr(32) $+ $gettok(%deste,4,32)
    var %el.$nick2 = $gettok(%deste,5,32) $+ $chr(32) $+ $gettok(%deste,6,32)
    var %el.$nick3 = $gettok(%deste,7,32) $+ $chr(32) $+ $gettok(%deste,8,32)
    var %el.$nick4 = $gettok(%deste,9,32) $+ $chr(32) $+ $gettok(%deste,10,32)
    var %sira = 11
    var %puan.$me = $calc($deger($gettok(%el.$me,1,32)) + $deger($gettok(%el.$me,2,32)))
    var %puan.$nick1 = $calc($deger($gettok(%el.$nick1,1,32)) + $deger($gettok(%el.$nick1,2,32)))
    var %puan.$nick2 = $calc($deger($gettok(%el.$nick2,1,32)) + $deger($gettok(%el.$nick2,2,32)))
    var %puan.$nick3 = $calc($deger($gettok(%el.$nick3,1,32)) + $deger($gettok(%el.$nick3,2,32)))
    var %puan.$nick4 = $calc($deger($gettok(%el.$nick4,1,32)) + $deger($gettok(%el.$nick4,2,32)))
    msg $chan $me $+ : $replace(%el.$me,A,As,K,Kız,Q,Papaz,J,Vale) ( $+ %puan.$me $+ )
    msg $chan $nick1 $+ : $replace(%el.$nick1,A,As,K,Kız,Q,Papaz,J,Vale) ( $+ %puan.$nick1 $+ )
    msg $chan $nick2 $+ : $replace(%el.$nick2,A,As,K,Kız,Q,Papaz,J,Vale) ( $+ %puan.$nick2 $+ )
    msg $chan $nick3 $+ : $replace(%el.$nick3,A,As,K,Kız,Q,Papaz,J,Vale) ( $+ %puan.$nick3 $+ )
    msg $chan $nick4 $+ : $replace(%el.$nick4,A,As,K,Kız,Q,Papaz,J,Vale) ( $+ %puan.$nick4 $+ )
    msg $chan $me $+ , kart ister misin? (Evet/Hayır)
    msg $chan $nick1 $+ , kart ister misin? (Evet/Hayır)
    msg $chan $nick2 $+ , kart ister misin? (Evet/Hayır)
    msg $chan $nick3 $+ , kart ister misin? (Evet/Hayır)
    msg $chan $nick4 $+ , kart ister misin? (Evet/Hayır)
  }
  
  alias deger {
    if ($1 == A) return 11
    if ($1 == K) return 10
    if ($1 == Q) return 10
    if ($1 == J) return 10
    return $1
  }
  
  on *:TEXT:*:#:{
    if ($nick == $me || $nick == $nick1 || $nick == $nick2 || $nick == $nick3 || $nick == $nick4) {
      if ($1 == Evet) {
        var %yeni = $gettok(%deste,%sira,32)
        inc %sira
        set %el. [ $+ [ $nick ] ] $addtok(%el. [ $+ [ $nick ] ],%yeni,32)
        set %puan. [ $+ [ $nick ] ] $calc(%puan. [ $+ [ $nick ] ] + $deger(%yeni))
        msg $chan $nick $+ : $replace(%el. [ $+ [ $nick ] ],A,As,K,Kız,Q,Papaz,J,Vale) ( $+ %puan. [ $+ [ $nick ] ] $+ )
        if (%puan. [ $+ [ $nick ] ] > 21) {
          msg $chan $nick $+ , 21'i geçtin, kaybettin. :(
        }
        else {
          msg $chan $nick $+ , kart ister misin? (Evet/Hayır)
        }
      }
      if ($1 == Hayır) {
        msg $chan $nick $+ , kart istemiyorsun, tamam.
        set %bitir. [ $+ [ $nick ] ] 1
        if (%bitir.$me == 1 && %bitir.$nick1 == 1 && %bitir.$nick2 == 1 && %bitir.$nick3 == 1 && %bitir.$nick4 == 1) {
          blackjackson
        }
      }
    }
  }
  
  alias blackjackson {
    var %kazanan = $null, %max = 0
    var %i = 1, %nick
    while (%i <= 5) {
      %nick = $gettok($me $nick1 $nick2 $nick3 $nick4,%i,32)
      if (%puan. [ $+ [ %nick ] ] <= 21 && %puan. [ $+ [ %nick ] ] > %max) {
        set %kazanan %nick
        set %max %puan. [ $+ [ %nick ] ]
      }
      inc %i
    }
    if (%kazanan == $null) {
      msg $chan Kimse kazanamadı, hepiniz 21'i geçtin. :(
    }
  
    else {
      msg $chan %kazanan $+ , tebrikler, oyunu kazandın. :)
    }
    ; Oyunu sıfırla
    unset %deste
    unset %el.*
    unset %puan.*
    unset %bitir.*
    unset %sira
  }