Unnamed

alias cards {
  var %r $r(1,14)
  if (%r isnum 1 - 10) { return %r }
  elseif (%r isnum 11 - 13) { 
    if (%r == 10) { return Jack }
    if (%r == 11) { return Queen }
    if (%r == 12) { return King }
    if (%r == 13) { return 10 }
  }
  else {
    return Ace 
  }
}
on *:TEXT:!blackjack*:#pang: {
  if ($2 == join) {
    if (!%joinb [ $+ [ $nick ] ]) {
      set %joinb [ $+ [ $nick ] ] $nick
      inc %playersblack
      msg #pang $c1([BLACKJACK]) $c2($nick is now playing and we have) $c1(%playersblack) $c2(players)
    }
    else {
      notice $nick $c1([BLACKJACK]) $c2(Your allready playing)
    }
  }
  if ($2 == start) && (%joinb [ $+ [ $nick ] ]) && (%playersblack > 1) && (%blackjack != playing) {
    set %blackjack playing
    msg #pang $c1([BLACKJACK]) $c2(Game is starting you will be noticed your cards)
    var %nn $var(*joinb*,0)
    while (%nn) {
      set $var(*joinb*,%nn) $remove($var(*joinb*,%nn),$(%joinb,0)) $cards $cards
      notice $remove($var(*joinb*,%nn),$(%joinb,0)) Your cards are - $gettok($var(*joinb*,%nn),3-,32) $iif(*ace* iswm $gettok($var(*joinb*,%nn),3-,32),Please msg me !ace 11 or !ace 1 to decide what you want for your ace)
      dec %nn
    }
  }
}