IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

-Blackjack oyunu 2 kişi ile oynanır.
-Oyuna katılmak için kanala !21 yazmalısınız.
-Aynen diğer kişide !21 yazmalıdır.
-Kart istemek için !card
-Kart istemiyorum !comp
-Puan için !puan
-Beraberlik halinde !comp kullanamazsınız kart cekmelisiniz.

«13:20:30» <hArun> !21
«13:20:31» <blackjack> Oyun 2 kişiliktir ve bir kişi daha kanala !21 yazıp oyuna katılmalıdır, please wait ..
«13:20:33» <kil> !21
«13:20:34» -blackjack- 21 oyunu blackjack. 21'e en yakın sayısı olan kazanır.
«13:20:34» <blackjack> Oyun başlıyor, oyuncular şu kişiler : hArun - kil
«13:20:34» <blackjack> hArun sen başlıyorsun hemen kartını çek (!card)
«13:20:38» <hArun> !card
«13:20:39» <blackjack> kil sıra sende. Kartını çekmek için !card yazmalısın. Eğer elindeki sayılar yeterli ise !comp yazmalısın.
«13:20:42» <kil> !card
«13:20:43» -blackjack- kart: [4]
«13:20:43» -blackjack- sayı: 4
«13:20:43» <blackjack> hArun sıra sende. Kartını çekmek için !card yazmalısın. Eğer elindeki sayılar yeterli ise !comp yazmalısın dostum acele et..
«13:20:47» <hArun> !card
«13:20:48» <blackjack> kil sıra sende. Kartını çekmek için !card yazmalısın. Eğer elindeki sayılar yeterli ise !comp yazmalısın.
«13:20:51» <kil> !card
«13:20:52» -blackjack- kart: [4] [8]
«13:20:53» -blackjack- sayı: 12
«13:20:53» <blackjack> hArun sıra sende. Kartını çekmek için !card yazmalısın. Eğer elindeki sayılar yeterli ise !comp yazmalısın dostum acele et..
«13:20:56» <hArun> !comp
«13:20:56» <blackjack> kil kart çekmek için !card yazmalısın , kart çekmemek ve rakibi beklemek için ise !comp yazmalısın canım.
«13:21:02» <kil> !comp
«13:21:03» <blackjack> KAZANAN hArun kart's-> [8] [6] tötal's-> 14
«13:21:03» <blackjack> KAYBEDEN kil kart's -> [4] [8] tötal's-> 12

Kod:

;##############################################

;## !21 cards game ############################

;#########################   by cabadak  ######

;##############################################

on *:text:!21:#: {

  if !$timer(21cardgame) { set %chan21game $chan | .timer21cardgame 0 180 puansirala }

  if (%21jog != on) {

    set %21jog on

    set %21player-1 $nick

    msg $chan Oyun 2 kişiliktir ve bir kişi daha kanala !21 yazıp oyuna katılmalıdır, please wait ..

    .timer_21-onlyone 1 30 player-me $chan

    set %21para-jog-1 off

    halt

  }

  if (%21jog == on) && (!%21player-2) && ($nick != %21player-1) {

    .timer_21-onlyone off

    set %21player-2 $nick

    set %21game-starts ok

    .notice %21player-1 " !puan " yazın.. 21 sayıya ulaşan ve en yaklaşan kazanır.  

    .notice %21player-2 21 oyunu blackjack. 21'e en yakın sayısı olan kazanır. 

    msg $chan 1Oyun başlıyor, oyuncular şu kişiler :  4 %21player-1 1-4 %21player-2 

    msg $chan 4 %21player-1 1 sen başlıyorsun hemen kartını çek (!card)

    set %21jogada-jog 1

    set %21para-jog-2 off

    .timer_end-21 1 62 encerra-21 $chan

  }

}

on *:text:!puan*:#: {

  if $1 == !puanreset && $nick isop $chan {  unset %wins* | msg # blackjack puan listesi sıfırlandı. (4reset1) | .timer21cardgame off | return }

  if !$2 && $($+(%,wins,$nick)) { msg #  $+(,$nick,) : 2 $($+(%,wins,$nick),2) 1puanınız var ve2 $calc($($+(%,wins,$nick),2) / 5 ) 1kez kazandınız.  } 

  if !$2 && !$($+(%,wins,$nick)) { msg # $+(,$nick,) : 2 0 puanınız var malesef hiç kazanamadınız. }

}

alias puansirala {

  var %i 1

  while $var(%wins*,%i) {

    var %ml $var(%wins*,%i).value 

    var %gl $remove($var(%wins*,%i),%,wins)

    var %kazanan %kazanan $+(%ml,.,%gl)

    inc %i

  }

  var %kaz $sorttok(%kazanan,32,nr) 

  tokenize 32 %kaz

  msg %chan21game 4Blackjack En iyi ilk 5 : 1) $+(10,$gettok($1,2,46),) -> $gettok($1,1,46) $+(13,$chr(124),) 2) $+(10,$gettok($2,2,46),) -> $gettok($2,1,46) $+(13,$chr(124),) 3) $+(10,$gettok($3,2,46),) : $gettok($3,1,46) $+(13,$chr(124),) 4) $+(10,$gettok($4,2,46),) -> $gettok($4,1,46) $+(13,$chr(124),) 5) $+(10,$gettok($$5,2,46),) -> $gettok($$5,1,46)

}

 

alias player-me {

  msg $1 4  %21player-1 $+   1ikimiz oynuyoruz ..

  set %21player-2 $me

  set %21jogada-jog 1

  set %21para-jog-2 off

  msg $1 1Oyun başlıyor, oyuncular şu kişiler :4 %21player-1 1-4 %21player-2

  msg $1 4 %21player-1 1sen başlıyorsun, kanala !card yazarak kartını çek.

  .timer_end-21 1 62 encerra-21 $1

}

alias me-play {

  if (%21jogada-jog == 2)  && ($me == %21player-2) {

    set %carta-jog-2 $rand(1,13)

    if (!%21cards-value-2) {

      set %21cards-value-2 %carta-jog-2

      set %21cards-player-2 $pass-to-card(%carta-jog-2)

      set %21jogada-jog 1

      msg $1 !card

      calc-next-orstop %21cards-value-2 %21player-2 $1

    }

    else {

      set %21jogada-jog 1

      set %21cards-value-2 $calc(%21cards-value-2 + %carta-jog-2)

      set %21cards-player-2 %21cards-player-2 $pass-to-card(%carta-jog-2)

      var %21me-play = %21cards-value-2

      if (%21me-play isnum 15-18) {

        var %me-play = $rand(1,2)

        if (%me-play == 1) {

          msg $1 !card

          calc-next-orstop %21cards-value-2 %21player-2 $1

          .timer_end-21 1 62 encerra-21 $1

          halt

        }

        if (%me-play == 2) {

          set %21para-jog-2 on

          msg $1 !comp

          if (%21para-jog-1 !== on) {

            calc-next-orstop %21cards-value-2 %21player-2 $1

            .timer_end-21 1 62 encerra-21 $1

            halt

          }

          if (%21para-jog-1 == on) {

            who-winns-21 $1

          }

        }

        halt

      }

      if (%21me-play isnum 1-14) {

        msg $1 !card

        calc-next-orstop %21cards-value-2 %21player-2 $1

        .timer_end-21 1 62 encerra-21 $1

        halt

      }

      if (%21me-play isnum 19-20) {

        set %21para-jog-2 on

        msg $1 !comp

        if (%21para-jog-1 !== on) {

          calc-next-orstop %21cards-value-2 %21player-2 $1

          .timer_end-21 1 62 encerra-21 $1

        }

        if (%21para-jog-1 !== on) {

          calc-next-orstop %21cards-value-2 %21player-2 $1

          .timer_end-21 1 62 encerra-21 $1

          halt

        }

        if (%21para-jog-1 == on) {

          who-winns-21 $1

          halt

        }

        halt

      }

      if (%21me-play == 21) {

        msg $1 !card

        calc-next-orstop %21cards-value-2 %21player-2 $1

      }

      if (%21me-play isnum 22-1000) {

        calc-next-orstop %21cards-value-2 %21player-2 $1

        .timer_end-21 off

        halt

      }

    }

  }

}

on *:text:!card:#: {

  if (%21jogada-jog == 1) && ($nick == %21player-1) && (%21player-2 != $me) {

    set %carta-jog-1 $rand(1,13)

    if (!%21cards-value-1) {

      set %21cards-value-1 %carta-jog-1

      set %21cards-player-1 $pass-to-card(%carta-jog-1)

      set %21jogada-jog 2

      .notice $nick 14kart:3 %21cards-player-1

      .notice $nick 14sayı:3 %21cards-value-1

      calc-next-orstop %21cards-value-1 %21player-1 $chan

      .timer_end-21 1 62 encerra-21 $chan

      halt

    }

    else {

      set %21jogada-jog 2

      set %21cards-value-1 $calc(%21cards-value-1 + %carta-jog-1)

      set %21cards-player-1 %21cards-player-1 $pass-to-card(%carta-jog-1)

      .notice $nick 14kart:3 %21cards-player-1

      .notice $nick 14sayı:3 %21cards-value-1

      calc-next-orstop %21cards-value-1 %21player-1 $chan

      halt

    }

  }

  if (%21jogada-jog == 1) && ($nick == %21player-1) && (%21player-2 == $me) {

    set %carta-jog-1 $rand(1,13)

    if (!%21cards-value-1) {

      set %21cards-value-1 %carta-jog-1

      set %21cards-player-1 $pass-to-card(%carta-jog-1)

      set %21jogada-jog 2

      .notice $nick 14kart:3 %21cards-player-1

      .notice $nick 14sayı:3 %21cards-value-1

      calc-next-orstop %21cards-value-1 %21player-1 $chan

      .timer_end-21 1 62 encerra-21 $chan

      halt

    }

    else {

      set %21jogada-jog 2

      set %21cards-value-1 $calc(%21cards-value-1 + %carta-jog-1)

      set %21cards-player-1 %21cards-player-1 $pass-to-card(%carta-jog-1)

      .notice $nick 14kart:3 %21cards-player-1

      .notice $nick 14sayı:3 %21cards-value-1

      calc-next-orstop %21cards-value-1 %21player-1 $chan

      .timer_end-21 1 62 encerra-21 $chan

      halt

    }

  }

  if (%21jogada-jog == 2)  && ($nick == %21player-2) {

    set %carta-jog-2 $rand(1,13)

    if (!%21cards-value-2) {

      set %21cards-value-2 %carta-jog-2

      set %21cards-player-2 $pass-to-card(%carta-jog-2)

      set %21jogada-jog 1

      .notice $nick 14kart:3 %21cards-player-2

      .notice $nick 14sayı:3 %21cards-value-2

      calc-next-orstop %21cards-value-2 %21player-2 $chan

      .timer_end-21 1 62 /encerra-21 $chan

      halt

    }

    if (%21cards-value-2) {

      set %21jogada-jog 1

      set %21cards-value-2 $calc(%21cards-value-2 + %carta-jog-2)

      set %21cards-player-2 %21cards-player-2 $pass-to-card(%carta-jog-2)

      .notice $nick 14kart:3 %21cards-player-2

      .notice $nick 14sayı:3 %21cards-value-2

      calc-next-orstop %21cards-value-2 %21player-2 $chan

      .timer_end-21 1 62 encerra-21 $chan

      halt

    }

  }

}

alias encerra-21 {

  if (%21jog == on) {

    who-winns-21 $1

  }

  else {

    acaba-21

  }

}

alias calc-next-orstop {

  if (%21player-2 != $me) {

    if ($1 > 21) && ($2 == %21player-1)  { msg $3 1BOOOOOOOOOOMMMM!!  4  $2  1çektiğin kart ile 21'i geçtin, oyunu kaybettin.  %21cards-player-1  1Toplam %21cards-value-1 |  .timer_end-21 off | msg $3  KAZANAN4 %21player-2  1çektiği kartlar-> %21cards-player-2  1Kartların toplamı-> %21cards-value-2 | inc $+(%,wins,%21player-2) 5 ( kanala !puan yaz ) | acaba-21 | halt }

    if ($1 == 21) && ($2 == %21player-1)  { msg $3 4KAZANAN4  %21player-1  1çektiği kartlar, %21cards-player-1 toplam, %21cards-value-1 | inc $+(%,wins,%21player-1) 5 ( kanala !puan yaz ) |  .timer_end-21 off | acaba-21 | halt }

    if ($1 < 21) && ($2 == %21player-1) {

      if (%21para-jog-2 !== on) { msg $3 4  %21player-2 1sıra sende. Kartını çekmek için !card yazmalısın. Eğer elindeki sayılar yeterli ise !comp yazmalısın. }

      if (%21para-jog-2 == on) { set %21jogada-jog 1 | msg $3 4 %21player-1 4sıra sende. Kanala !card yaz ve kartını çek. Eğer kart istemiyorsan !comp yaz.  |  .timer_end-21 1 62 encerra-21 $3 | halt }

    }

    if ($1 > 21) && ($2 == %21player-2) { msg $3  1BOOOOOOOOOOMMMM! !4  $2 1çektiğin kart ile oyunu kaybettin. -> %21cards-player-2 1toplam->  %21cards-value-2 1 | msg $3  1KAZANAN ->4 %21player-1 1çektiği kartlar->  %21cards-player-1 1Elinin toplamı-> %21cards-value-1  | inc $+(%,wins,%21player-1) 5 ( kanala !puan yaz ) |  .timer_end-21 off | acaba-21 | halt }

    if ($1 == 21) && ($2 == %21player-2) { msg $3 1KAZANAN 4 %21player-2 1kartlar->  %21cards-player-2 1toplamı-> %21cards-value-2  | inc $+(%,wins,%21player-2) 5 |  .timer_end-21 off | acaba-21 | halt | inc $+(%,wins,%21player-2) 5 ( kanala !puan yaz ) }

    if ($1 < 21) && ($2 == %21player-2) {

      if (%21para-jog-1 !== on) { msg $3 4 %21player-1 1sıra sende. Kartını çekmek için !card yazmalısın. Eğer elindeki sayılar yeterli ise !comp yazmalısın dostum acele et..   | halt }

      if (%21para-jog-1 == on)  { set %21jogada-jog 2 | msg $3 4 %21player-2 1sıra sende dostum. Kanala !card yaz ve kartını çek, elindeki kartlar yeterliyse !comp yaz ve rakibini bekle..  |  .timer_end-21 1 62 /encerra-21 $3 | halt }

    }

  }

  if (%21player-2 == $me) {

    if ($1 > 21) && ($2 == %21player-1)  { msg $3  1BOOOOOOOOOOMMMM!!!!4 $2 1kaybettin. Kartların ->  %21cards-player-1  1toplamda -> %21cards-value-1 sayı. |  .timer_end-21 off | msg $3  1KAZANAN OYUNCU -> 4 %21player-2 1elindeki kartlar-> %21cards-player-2 1toplamda ise-> %21cards-value-2 1sayı. | inc $+(%,wins,%21player-2) 5 ( kanala !puan yaz ) | acaba-21 | halt }

    if ($1 == 21) && ($2 == %21player-1)  { msg $3 1KAZANAN4 %21player-1 1ÇEKTİĞİ TÜM KARTLAR ->  %21cards-player-1 1ÇEKTİĞİ TÜM KARTLARİN TOPLAM SAYISI ->4 %21cards-value-1 ( kanala !puan yaz ) |  .timer_end-21 off | acaba-21 | halt }

    if ($1 < 21) && ($2 == %21player-1) {

      if (%21para-jog-2 !== on) { msg $3  SIRA BENDE ! | me-play $3 }

      if (%21para-jog-2 == on) { set %21jogada-jog 1 | msg $3 4 %21player-1 1oyna aslan parçası.. Kartını çekmek için !card yaz. Eğer elindeki sayılar yeterli ise !comp yaz ama acele et..  |  .timer_end-21 1 62 encerra-21 $3 | halt }

    }

    if ($1 > 21) && ($2 == %21player-2) { /msg $3 1BOOOOOOOOOOMMMM  4 $2 1oyunu kaybettin. Senin kartların ->  %21cards-player-2 1kartlarin toplamı ->  %21cards-value-2  | inc $+(%,wins,%21player-1) 5 | msg $3 KAZANAN4 %21player-1  1İŞTE ŞU KARTLARI ÇEKTİ ->  %21cards-player-1 1 VE ÇEKTİĞİ KARTLARIN TOPLAMI ->  %21cards-value-1  ( kanala !puan yaz ) |  .timer_end-21 off | acaba-21 | halt }

    if ($1 == 21) && ($2 == %21player-2) { msg $3 1KAZANAN 4 %21player-2 1 KARTLARI->  %21cards-player-2 1TOPLAMI->  %21cards-value-2  | inc $+(%,wins,%21player-2) 5 ( kanala !puan yaz ) |   .timer_end-21 off | acaba-21 | halt }

    if ($1 < 21) && ($2 == %21player-2) {

      if (%21para-jog-1 !== on) { msg $3 4 %21player-1 1sıra sende gençoğlan. Kanala !card yaz ve  çek. kart istemiyore !comp yaziyore.. | halt }

      if (%21para-jog-1 == on)  { set %21jogada-jog 2 | msg $3 1şimdi ise ben çekiyorum ve çektimm.. ! | .timer_end-21  off | .timer_only-me-play 1 2 me-play $3 |  halt }

    }

  }

}

alias acaba-21 {

  set %21jog off

  unset %21player-1 %21player-2 %21cards-value-1 %21cards-player-1 %21cards-value-2 %21cards-player-2 %21game-starts

}

on *:text:!comp:#: {

  if (%21jog == on) && (%21player-2) {

    if ($var(%21cards-player*,0) > 1) {

      if (%21player-2 != $me) {

        if (%21jogada-jog == 1) {

          if ($nick == %21player-1) && (%21para-jog-2 !== on) { set %21para-jog-1 on | set %21jogada-jog 2 | msg $chan 4 %21player-2 1kart çekmek için !card yazmalısın , kart çekmemek ve rakibi beklemek için ise !comp yazmalısın canım.  |  .timer_end-21 1 62 encerra-21 $chan | halt }

          if ($nick == %21player-1) && (%21para-jog-2 == on) { who-winns-21 $chan |  .timer_end-21 off }

        }

        if (%21jogada-jog == 2) {

          if ($nick == %21player-2) && (%21para-jog-1 !== on) { set %21para-jog-2 on | set %21jogada-jog 1 | msg $chan 4 %21player-1 1oyna koçum! Yapacağın şey basit? Kart istiyorsan !card yazıyorsun, kart istemiyorsan !comp yazıyorsun.. understand me?   |  .timer_end-21 1 62 encerra-21 $chan  | halt }

          if ($nick == %21player-2) && (%21para-jog-1 == on) { who-winns-21 $chan |  .timer_end-21 off }

        }

      }

      if (%21player-2 == $me) {

        if (%21jogada-jog == 1) {

          if ($nick == %21player-1) && (%21para-jog-2 !== on) { set %21para-jog-1 on | set %21jogada-jog 2 | msg $chan ŞİMDİ DE BEN ÇEKİYORUM, ALLAH ÇEKTİRMESİN HOPPA.. Rule! | .timer_end-21 off | .timer_only-me-play 1 2 me-play $chan | halt }

          if ($nick == %21player-1) && (%21para-jog-2 == on) { who-winns-21 $chan |  .timer_end-21 off }

        }

        if (%21jogada-jog == 2) {

          if ($nick == %21player-2) && (%21para-jog-1 !== on) { set %21para-jog-2 on | set %21jogada-jog 1 | msg $chan 4 %21player-1 1sıra sende. Kartını çekmek için !card yazmalısın. Eğer elindeki sayılar yeterli ise !comp yazmalısın dostum acele et..   |  .timer_end-21 1 62 encerra-21 $chan  | halt }

          if ($nick == %21player-2) && (%21para-jog-1 == on) { who-winns-21 $chan |  .timer_end-21 off }

        }

      }

    }

    else { msg $chan 1ilk önce bi kart çek ondan sonra compla uyanıkmısın nesin ak :4 !card }

  }

}

alias who-winns-21 {

  if ($var(%21cards-player*,0) > 1) {

    set %21total-jog-1 $calc(21 - %21cards-value-1)

    set %21total-jog-2 $calc(21 - %21cards-value-2)

    if (%21total-jog-1 < %21total-jog-2) {  .timer_end-21 off | msg $1  1KAZANAN4 %21player-1 1 kart's-> %21cards-player-1 tötal's->  %21cards-value-1  | inc $+(%,wins,%21player-1) 5 ( kanala !puan yaz ) | msg $1  1KAYBEDEN4 %21player-2 1kart's -> %21cards-player-2 1tötal's-> %21cards-value-2  | acaba-21 | halt }

    if (%21total-jog-1 > %21total-jog-2) {  .timer_end-21 off | msg $1  1KAZANAN4 %21player-2 1elindeki kartlar-> %21cards-player-2 1Toplamı-> %21cards-value-2 | inc $+(%,wins,%21player-2) 5 ( kanala !puan yaz ) | msg $1 1KAYBEDEN 4 %21player-1 1elindeki kartları-> %21cards-player-1 1toplamı-> %21cards-value-1  | acaba-21 | halt }

    if (%21total-jog-1 == %21total-jog-2) && ($var(%cartas-jog*,0) = 2) {  .timer_end-21 off | msg $1 Oyun Bitti.. !  | msg $1    %21player-1  KARTLAR-> %21cards-player-1 TOPLAM-> %21cards-value-1 | msg $1  %21player-2  1kart's-> %21cards-player-2 1toplam-> %21cards-value-2  | acaba-21 | halt } 

  }

  else { msg $1 oyun bitti ve kazanan yok.!  | acaba-21 }

}

alias pass-to-card {

  set %21cor  $rand(1,2)

  if (%21cor == 1) { set %21cort 1 }

  if (%21cor == 2) { set %21cort 4 }

  if ($1 == 1) { return  $+ %21cort $+ ,0 $+ [A] }

  if ($1 == 2) { return  $+ %21cort $+ ,0 $+ [2] }

  if ($1 == 3) { return  $+ %21cort $+ ,0 $+ [3] }

  if ($1 == 4) { return  $+ %21cort $+ ,0 $+ [4] }

  if ($1 == 5) { return  $+ %21cort $+ ,0 $+ [5] }

  if ($1 == 6) { return  $+ %21cort $+ ,0 $+ [6] }

  if ($1 == 7) { return  $+ %21cort $+ ,0 $+ [7] }

  if ($1 == 8) { return  $+ %21cort $+ ,0 $+ [8] }

  if ($1 == 9) { return  $+ %21cort $+ ,0 $+ [9] }

  if ($1 == 10) { return  $+ %21cort $+ ,0 $+ [10] }

  if ($1 == 11) { return  $+ %21cort $+ ,0 $+ [J] }

  if ($1 == 12) { return  $+ %21cort $+ ,0 $+ [Q] }

  if ($1 == 13) { return  $+ %21cort $+ ,0 $+ [K] }

  if ($1 == 21) { return  $+ %21cort $+ ,0 $+ [G] }

}

(hawkee)

Alıntı:

q0kh4n Nickli Üyeden Alıntı (Mesaj 1040752745)

çalışma sizemi ait

kodun orjinali *

PHP- Kodu:

   ;##############################################
;## !21 cards game ############################
;######################### by rhasttaff  ######
;##############################################
on *:text:!21:#: {
  if (%21jog !== on) {
    set %21jog on
    set %21jogador-1 $nick
    /msg $chan 12This Game Requires 2 12Players. Someone needs to type 4!2112 to play against you within 6012 seconds.
    .timer_encerra-21 1 62 /encerra-21 $chan
    set %21para-jog-1 off
    halt
  }
  if (%21jog == on) && (!%21jogador-2) {
    /timer_21-um-so off
    set %21jogador-2 $nick
    /notice %21jogador-1 This is the 21 Cards game! Whomever gets their cards to equal the number: 21 wins the game! 
    /notice %21jogador-2 This is the 21 Cards game! Whomever gets their cards to equal the number: 21 wins the game!
    /msg $chan Game Started!! 9-14=[12 %21jogador-1 14]=9- 7& 9-14=[2 %21jogador-2 14]=9-
    /msg $chan Player: 9-14=[12 %21jogador-1 14]=9- it is now your turn! type 4!card $+ . You have 60 seconds to play...
    set %21jogada-jog 1
    set %21para-jog-2 off
    .timer_encerra-21 1 62 /encerra-21 $chan
  }
}
on *:text:!card:#: {
  if (%21jogada-jog == 1) && ($nick == %21jogador-1) {
    set %carta-jog-1 $rand(1,13)
    if (!%cartas-valor-jog-1) {
      set %cartas-valor-jog-1 %carta-jog-1
      set %cartas-jog-1 $passa-carta(%carta-jog-1)
      set %21jogada-jog 2
      /notice $nick Your cards: %cartas-jog-1
      /notice $nick Your total: %cartas-valor-jog-1
      /calcula-proxima-oupara %cartas-valor-jog-1 %21jogador-1 $chan
    }
    else {
      set %21jogada-jog 2
      set %cartas-valor-jog-1 $calc(%cartas-valor-jog-1 + %carta-jog-1)
      set %cartas-jog-1 %cartas-jog-1 $passa-carta(%carta-jog-1)
      /notice $nick Your cards: %cartas-jog-1
      /notice $nick Your total: %cartas-valor-jog-1
      /calcula-proxima-oupara %cartas-valor-jog-1 %21jogador-1 $chan
    }
  }
  if (%21jogada-jog == 2)  && ($nick == %21jogador-2) {
    set %carta-jog-2 $rand(1,13)
    if (!%cartas-valor-jog-2) {
      set %cartas-valor-jog-2 %carta-jog-2
      set %cartas-jog-2 $passa-carta(%carta-jog-2)
      set %21jogada-jog 1
      /notice $nick Your cards: %cartas-jog-2
      /notice $nick Your total: %cartas-valor-jog-2
      /calcula-proxima-oupara %cartas-valor-jog-2 %21jogador-2 $chan
    }
    else {
      set %21jogada-jog 1
      set %cartas-valor-jog-2 $calc(%cartas-valor-jog-2 + %carta-jog-2)
      set %cartas-jog-2 %cartas-jog-2 $passa-carta(%carta-jog-2)
      /notice $nick Your cards: %cartas-jog-2
      /notice $nick Your total: %cartas-valor-jog-2
      /calcula-proxima-oupara %cartas-valor-jog-2 %21jogador-2 $chan
    }
  }
}
alias encerra-21 {
  if (%21jog == on) {
    quem-ganha-21 $1
  }
  else {
    acaba-21
  }
}
alias calcula-proxima-oupara {
  if ($1 > 21) && ($2 == %21jogador-1)  { /msg $3 12[4 BOOOOOOOOOOMMMM!!!!12] 9-14=[12 $2 14]=9- Explodes with the cards  %cartas-jog-1  Totaling:4 %cartas-valor-jog-1 |  /timer_encerra-21 off | /msg $3 Winner  9-14=[2 %21jogador-2 14]=9- with the Cards %cartas-jog-2 Totalizing:4 %cartas-valor-jog-2  | /acaba-21 | halt }
  if ($1 == 21) && ($2 == %21jogador-1)  { /msg $3 Winner: 9-14=[12 %21jogador-1 14]=9- with the cards %cartas-jog-1 Totaling:4 %cartas-valor-jog-1 |  /timer_encerra-21 off | /acaba-21 | halt }
  if ($1 < 21) && ($2 == %21jogador-1) {
    if (%21para-jog-2 !== on) { /msg $3 9-14=[2 %21jogador-2 14]=9- Your Turn! Type 4 !card  for one more card or type 4 !compare  To compare the cards and end the game! You have 60 seconds... }
    if (%21para-jog-2 == on) { set %21jogada-jog 1 | /msg $3 9-14=[12 %21jogador-1 14]=9- You rule! Type 4 !card  for one more card or type 4 !compare  To compare the cards and end the game! You have 60 seconds...  |  .timer_encerra-21 1 62 /encerra-21 $3 | halt }
  }
  if ($1 > 21) && ($2 == %21jogador-2) { /msg $3 12[4 BOOOOOOOOOOMMMM!!!!12] 9-14=[2 $2 14]=9- Explodes with the cards %cartas-jog-2 Totaling:4 %cartas-valor-jog-2 | /msg $3 Winner 9-14=[12 %21jogador-1 14]=9- with the Cards %cartas-jog-1 Totaling:4 %cartas-valor-jog-1  |  /timer_encerra-21 off | /acaba-21 | halt }
  if ($1 == 21) && ($2 == %21jogador-2) { /msg $3 Winner 9-14=[2 %21jogador-2 14]=9- with the cards  %cartas-jog-2 Totaling:4 %cartas-valor-jog-2  |   /timer_encerra-21 off | /acaba-21 | halt }
  if ($1 < 21) && ($2 == %21jogador-2) {
    if (%21para-jog-1 !== on) { /msg $3 9-14=[12 %21jogador-1 14]=9- Your Turn! Type 4 !card  for one more card or type 4 !compare  To compare the cards and end the game! You have 60 seconds... | halt }
    if (%21para-jog-1 == on)  { set %21jogada-jog 2 | /msg $3  9-14=[2 %21jogador-2 14]=9- You rule! Type 4 !card  for one more card or type 4 !compare  To compare the cards and end the game! You have 60 seconds...  |  .timer_encerra-21 1 62 /encerra-21 $3 | halt }
  }
}
alias acaba-21 {
  set %21jog off
  unset %21jogador-1 %21jogador-2 %cartas-valor-jog-1 %cartas-jog-1 %cartas-valor-jog-2 %cartas-jog-2
}
on *:text:!compare:#: {
  if (%21jogada-jog == 1) {
    if ($nick == %21jogador-1) && (%21para-jog-2 !== on) { /set %21para-jog-1 on | set %21jogada-jog 2 | /msg $chan   9-14=[2 %21jogador-2 14]=9-  You rule! Type 4 !card  for one more card or type 4 !compare  To compare the cards and end the game! You have 60 seconds... |  .timer_encerra-21 1 62 /encerra-21 $chan }
    if ($nick == %21jogador-1) && (%21para-jog-2 == on) { /quem-ganha-21 $chan |  /timer_encerra-21 off }
  }
  if (%21jogada-jog == 2) {
    if ($nick == %21jogador-2) && (%21para-jog-1 !== on) { /set %21para-jog-2 on | set %21jogada-jog 1 | /msg $chan   9-14=[12 %21jogador-1 14]=9- You rule! Type 4 !card  for one more card or type 4 !compare  To compare the cards and end the game! You have 60 seconds... |  .timer_encerra-21 1 62 /encerra-21 $chan }
    if ($nick == %21jogador-2) && (%21para-jog-1 == on) { /quem-ganha-21 $chan |  /timer_encerra-21 off }
  }
}
alias quem-ganha-21 {
  set %21total-jog-1 $calc(21 - %cartas-valor-jog-1)
  set %21total-jog-2 $calc(21 - %cartas-valor-jog-2)
  if (%21total-jog-1 < %21total-jog-2) {  /timer_encerra-21 off | /msg $1 Winner 9-14=[12 %21jogador-1 14]=9- with the Cards %cartas-jog-1 Totaling:4 %cartas-valor-jog-1 | /msg $1 Against the Cards: %cartas-jog-2 Of 9-14=[2 %21jogador-2 14]=9- Totaling:4 %cartas-valor-jog-2 | /acaba-21 | halt }
  if (%21total-jog-1 > %21total-jog-2) {  .timer_encerra-21 off | /msg $1 Winner  9-14=[2 %21jogador-2 14]=9- with the Cards %cartas-jog-2 Totaling:4 %cartas-valor-jog-2  | /msg $1 Against the Cards: %cartas-jog-1 Of 9-14=[2 %21jogador-1 14]=9- Totaling:4 %cartas-valor-jog-1  | /acaba-21 | halt }
  if (%21total-jog-1 == %21total-jog-2) {  .timer_encerra-21 off | /msg $1 This Game have no winner! | /acaba-21 | halt } 
}
alias passa-carta {
  set %21cor  $rand(1,2)
  if (%21cor == 1) { set %21cort 1 }
  if (%21cor == 2) { set %21cort 4 }
  if ($1 == 1) { return  $+ %21cort $+ ,0 $+ [A] }
  if ($1 == 2) { return  $+ %21cort $+ ,0 $+ [2] }
  if ($1 == 3) { return  $+ %21cort $+ ,0 $+ [3] }
  if ($1 == 4) { return  $+ %21cort $+ ,0 $+ [4] }
  if ($1 == 5) { return  $+ %21cort $+ ,0 $+ [5] }
  if ($1 == 6) { return  $+ %21cort $+ ,0 $+ [6] }
  if ($1 == 7) { return  $+ %21cort $+ ,0 $+ [7] }
  if ($1 == 8) { return  $+ %21cort $+ ,0 $+ [8] }
  if ($1 == 9) { return  $+ %21cort $+ ,0 $+ [9] }
  if ($1 == 10) { return  $+ %21cort $+ ,0 $+ [10] }
  if ($1 == 11) { return  $+ %21cort $+ ,0 $+ [J] }
  if ($1 == 12) { return  $+ %21cort $+ ,0 $+ [Q] }
  if ($1 == 13) { return  $+ %21cort $+ ,0 $+ [K] }
}