on *:TEXT:!slots:#:{
  if ($readini( casino.ini, $nick, Money ) == $null) {
    /notice $nick $+ , You have not registered yet. Please have some complimentary chips. Type: !atm
    halt
  }
  if ($readini( casino.ini, $nick, Money ) < 5) {
    /notice $nick 10Sorry but you don't have enough money. Ask someone for a loan.
    halt
  }
  if ($rand(1,6) == 1) /set %srand1 ¤
  if ($rand(1,6) == 2) /set %srand1 ¤
  if ($rand(1,6) == 3) /set %srand1 ¤
  if ($rand(1,6) == 4) /set %srand1 Î
  if ($rand(1,6) == 5) /set %srand1 Î
  if ($rand(1,6) == 6) /set %srand1 ¥
  ; 
  if ($rand(1,6) == 1) /set %srand2 ¤
  if ($rand(1,6) == 2) /set %srand2 ¤
  if ($rand(1,6) == 3) /set %srand2 ¤
  if ($rand(1,6) == 4) /set %srand2 Î
  if ($rand(1,6) == 5) /set %srand2 Î
  if ($rand(1,6) == 6) /set %srand2 ¥
  ; 
  if ($rand(1,6) == 1) /set %srand3 ¤
  if ($rand(1,6) == 2) /set %srand3 ¤
  if ($rand(1,6) == 3) /set %srand3 ¤
  if ($rand(1,6) == 4) /set %srand3 Î
  if ($rand(1,6) == 5) /set %srand3 Î
  if ($rand(1,6) == 6) /set %srand3 ¥
  /set %money.temp $calc( $readini( casino.ini, $nick, Money ) -5 )
  /writeini casino.ini $nick Money %money.temp
  /unset %money.temp
  /msg $chan 10 $+ $nick pulls the handle...the slots are ( %srand1 )( %srand2 )( %srand3 )
  if (%srand1 == ¤) if (%srand2 == ¤) if (%srand3 == ¤) /msg $chan 10Congrats $nick $+ !!! You have won 100 dollars!!!
  if (%srand1 == ¤) if (%srand2 == ¤) if (%srand3 == ¤) /set %money.won $calc( $readini( casino.ini, $nick, Money ) +100 )
  if (%srand1 == ¤) if (%srand2 == ¤) if (%srand3 == ¤) /writeini casino.ini $nick Money %money.won
  if (%srand1 == ¤) if (%srand2 == ¤) if (%srand3 == ¤) /unset %money.won
  if (%srand1 == Î) if (%srand2 == Î) if (%srand3 == Î) /msg $chan 10Congrats $nick $+ !!! You have won 500 dollars!!!
  if (%srand1 == Î) if (%srand2 == Î) if (%srand3 == Î) /set %money.won $calc( $readini( casino.ini, $nick, Money ) +500 )
  if (%srand1 == Î) if (%srand2 == Î) if (%srand3 == Î) /writeini casino.ini $nick Money %money.won
  if (%srand1 == Î) if (%srand2 == Î) if (%srand3 == Î) /unset %money.won
  if (%srand1 == ¥) if (%srand2 == ¥) if (%srand3 == ¥) /msg $chan 10JACKPOT!!!! You have won 1,000 dollars $nick $+ !!!
  if (%srand1 == ¥) if (%srand2 == ¥) if (%srand3 == ¥) /set %money.won $calc( $readini( casino.ini, $nick, Money ) +1000 )
  if (%srand1 == ¥) if (%srand2 == ¥) if (%srand3 == ¥) /writeini casino.ini $nick Money %money.won
  if (%srand1 == ¥) if (%srand2 == ¥) if (%srand3 == ¥) /unset %money.won
}
;MONEY MANAGMENT
on *:TEXT:!money*:#:{
  if ($readini( casino.ini, $nick, Money ) == $null) {
    /notice $nick $+ , You have not registered yet. Please have some complimentary chips. Type: !atm
    halt
  }
  if ($2 != $null) {
    if ($readini( casino.ini, $2, Money ) == $null) {
      /msg $chan $2 has not registered.
      halt
    }
    else /msg $chan 10 $$2 has $readini(casino.ini, $$2, Money) dollars.
  }
  if ($2 == $null) /msg $chan 10 $nick has $readini(casino.ini, $nick, Money) dollars.
}
;GIVE
on *:TEXT:!give*:#:{
  if ($readini( casino.ini, $nick, Money ) == $null) {
    /notice $nick $+ , You have not registered yet. Please have some complimentary chips. Type: !atm
    halt
  }
  if ($2 == $null) {
    /notice $nick 10Please use a type a nickname. ex: !give chef-tech 100
    halt
  }
  if ($3 == $null) {
    /notice $nick 10Please use a type a dollar ammount. ex: !give chef-tech 100
    halt
  }
  if ($$3 < 1) {
    /notice $nick 10Please give more than 1 dollar.
    halt
  }
  if ($readini( casino.ini, $nick, Money ) < $3) {
    /msg $chan 10Sorry $nick doesn't have $3 dollars to give $$2 
    halt
  }
  if ($2 == $nick) {
    /notice $nick 10You can't give money to yourself, you already have it!
    halt
  }
  if ($readini( casino.ini, $nick, Money ) >= $3) {
    /set %money.give $calc( $readini( casino.ini, $nick, Money ) - $3 ) 
    /msg $chan 10 $nick has given $$2 $3 dollars. 
    /set %money.given $calc( $readini( casino.ini, $2, Money ) + $3 ) 
    /writeini casino.ini $nick Money %money.give
    /writeini casino.ini $2 Money %money.given
    /unset %money.give
    /unset %money.given
  }
}
;PICK3
on *:TEXT:!pickthree*:#:{
  if ($readini( casino.ini, $nick, Money ) == $null) {
    /notice $nick $+ , You have not registered yet. Please have some complimentary chips. Type: !atm
    halt
  }
  if ($2 == $null) {
    /notice $nick 10Please pick three numbers 0-9. ex: !pickthree 1 2 3
    halt
  }
  if ($3 == $null) {
    /notice $nick 10Please pick three numbers 0-9. ex: !pickthree 1 2 3
    halt
  }
  if ($4 == $null) {
    /notice $nick 10Please pick three numbers 0-9. ex: !pickthree 1 2 3
    halt
  }
  if ($readini( casino.ini, $nick, Money ) < 5) {
    /notice $nick 10Sorry but you don't have enough money. Ask someone for a loan.
    halt
  }
  if ($readini( casino.ini, $nick, Money ) >= 5) {
    /set %lotto.nick $2 $3 $4
    %lotto.nick = $sorttok(%lotto.nick,32,n)
    /set %lotto.winner $rand(0,9) $rand(0,9) $rand(0,9)
    %lotto.winner = $sorttok(%lotto.winner,32,n)
    if (%lotto.nick == %lotto.winner) {
      /msg $chan 10Congrats $nick $+ !!! The numbers were -----> %lotto.winner <------ You have just won 100,000,000 dollars!!!!
      /set %money.won $calc( $readini( casino.ini, $nick, Money ) + 100000000)
      /writeini casino.ini $nick Money %money.won
      /unset %money.won
      /unset %lotto.nick
      /unset %lotto.winner
    }
    if (%lotto.nick != %lotto.winner) {
      /msg $chan 10Sorry $nick $+ , but you have lost 5 dollars. The numbers were -----> %lotto.winner <------ Try again. Remember if you win you get 100,000,000 dollars!!
      /set %money.temp $calc( $readini( casino.ini, $nick, Money ) - 5)
      /writeini casino.ini $nick Money %money.temp
      /unset %money.temp
      /unset %lotto.nick
      /unset %lotto.winner
    }
  } 
}
;LOTTO
on *:TEXT:!luckylotto*:#:{
  if ($readini( casino.ini, $nick, Money ) == $null) {
    /notice $nick $+ , You have not registered yet. Please have some complimentary chips. Type: !atm
    halt
  }
  if ($2 == $null) {
    /notice $nick 10Please enter a number 1-9. ex: !luckylotto 5
    halt
  }
  if ($readini( casino.ini, $nick, Money ) < 10) {
    /notice $nick 10Sorry but you don't have enough money. Ask someone for a loan.
    halt
  }
  if ($readini( casino.ini, $nick, Money ) >= 10) {
    /set %lotto.user $2
    /set %lotto.number $rand(1,9)
    if (%lotto.user == %lotto.number) {
      /msg $chan 10Congrats $nick $+ !!! You have just won 100 dollars!!!!
      /set %money.won $calc( $readini( casino.ini, $nick, Money ) + 100)
      /writeini casino.ini $nick Money %money.won
      /unset %money.won
    }
    if (%lotto.user != %lotto.number) {
      /msg $chan 10Sorry $nick $+ , but you lost 10 dollars. The number was ---> %lotto.number <---- Try again. Jackpot is 100 dollars!!
    }
    /set %money.temp $calc( $readini( casino.ini, $nick, Money ) - 10)
    /writeini casino.ini $nick Money %money.temp
    /unset %money.temp
    /unset %lotto.user
    /unset %lotto.number
  }
}
;COINTOSS
on *:TEXT:!cointoss*:#:{
  if ($readini( casino.ini, $nick, Money ) == $null) {
    /notice $nick $+ , You have not registered yet. Please have some complimentary chips. Type: !atm
    halt
  }
  if ($readini( casino.ini, $nick, Money ) < $2) {
    /notice $nick 10Sorry but you don't have $2 dollars to spend.
    halt
  }
  if ($2 == $null) {
    /notice $nick 10Please type a dollar ammount. ex: !cointoss (money) (heads or tails)
    halt
  }
  if ($3 == $null) { 
    /notice $nick 10Please indicate whether you are betting on heads or tails. ex: !cointoss (money) (heads or tails)
    halt
  }
  if ($2 < 1) {
    /notice $nick 10Please bet with 1 dollar or more.
    halt
  } 
  if ($readini( casino.ini, $nick, Money ) >= $2) {
    /set %coinflip $rand(1,2)
    if ((%coinflip == 1) && ($3 == heads)) {
      /msg $chan 10Congratulations!!! $nick You have won $2 dollars!!!
      /set %money.temp $calc( $readini( casino.ini, $nick, Money ) + $2)
    }
    if ((%coinflip == 2) && ($3 == tails)) {
      /msg $chan 10Congratulations!!! $nick You have won $2 dollars!!!
      /set %money.temp $calc( $readini( casino.ini, $nick, Money ) + $2)
    }
    if ((%coinflip != 2) && ($3 == tails)) {
      /msg $chan 10Sorry $nick $+ , You lost $2 dollars. The coin landed on HEADS.
      /set %money.temp $calc( $readini( casino.ini, $nick, Money ) - $2) 
    }
    if ((%coinflip == 2) && ($3 != tails)) {
      /msg $chan 10Sorry $nick $+ , You lost $2 dollars. The coin landed on TAILS.
      /set %money.temp $calc( $readini( casino.ini, $nick, Money ) - $2)
    }
    /writeini casino.ini $nick Money %money.temp
    /unset %money.temp
    /unset %coinflip
  }
}
;BAR
on *:TEXT:!beer*:#:{
  if ($readini( casino.ini, $nick, Money ) == $null) {
    /notice $nick $+ , You have not registered yet. Please have some complimentary chips. Type: !atm
    halt
  } 
  if ($readini( casino.ini, $nick, Money ) < 5) {
    /notice $nick $+ , Ask a friend for some cash, no credit here.
    halt
  } 
  if ($2 != $null) /msg $chan 13 $+ $nick buys $$2 a $read(casinobeer.txt)
  if ($2 == $null) /describe $chan pours $nick an ice cold $read(casinobeer.txt)
  /set %money.drink $calc( $readini( casino.ini, $nick, Money ) -5 )
  /writeini casino.ini $nick Money %money.drink
  /unset %money.drink
}
on *:TEXT:!malt*:#:{
  if ($readini( casino.ini, $nick, Money ) == $null) {
    /notice $nick $+ , You have not registered yet. Please have some complimentary chips. Type: !atm
    halt
  }
  if ($readini( casino.ini, $nick, Money ) < 2) {
    /notice $nick $+, Ask a friend for some cash, no credit here.
    halt
  }
  if ($2 != $null) /msg $chan 13 $+ $nick buys $$2 a $read(casinomalt.txt)
  if ($2 == $null) /describe $chan hands $nick a 40 of $read(casinomalt.txt)
  /set %money.drink $calc( $readini( casino.ini, $nick, Money ) -2 )
  /writeini casino.ini $nick Money %money.drink
  /unset %money.drink
}
on *:TEXT:!mixed*:#:{
  if ($readini( casino.ini, $nick, Money ) == $null) {
    /notice $nick $+ , You have not registered yet. Please have some complimentary chips. Type: !atm
    halt
  }
  if ($readini( casino.ini, $nick, Money ) < 8) {
    /notice $nick $+ , Ask a friend for some cash, no credit here.
    halt
  }
  if ($2 != $null) /msg $chan 13 $+ $nick buys $$2 a $read(casinomixed.txt)
  if ($2 == $null) /describe $chan mixes up a $read(casinomixed.txt) for $nick
  /set %money.drink $calc( $readini( casino.ini, $nick, Money ) -8 )
  /writeini casino.ini $nick Money %money.drink
  /unset %money.drink
}
on *:TEXT:!wine*:#:{
  if ($readini( casino.ini, $nick, Money ) == $null) {
    /notice $nick $+ , You have not registered yet. Please have some complimentary chips. Type: !atm
    halt
  }
  if ($readini( casino.ini, $nick, Money ) < 10) {
    /notice $nick $+ Ask a friend for some cash, no credit here.
    halt
  }
  if ($2 != $null) /msg $chan 13 $+ $nick buys $$2 a glass of $read(casinowine.txt)
  if ($2 == $null) /describe $chan pours a glass of $read(casinowine.txt) for $nick
  /set %money.drink $calc( $readini( casino.ini, $nick, Money ) -10 )
  /writeini casino.ini $nick Money %money.drink
  /unset %money.drink
}
on *:TEXT:!shot*:#:{
  if ($readini( casino.ini, $nick, Money ) == $null) {
    /notice $nick $+ , You have not registered yet. Please have some complimentary chips. Type: !atm
    halt
  }
  if ($readini( casino.ini, $nick, Money ) < 7) {
    /notice $nick $+ , Ask a friend for some cash, no credit here.
    halt
  }
  if ($2 != $null) /msg $chan 13 $+ $nick buys $$2 a shot of $read(casinoshot.txt)
  if ($2 == $null) /describe $chan hands $nick a shot of $read(casinoshot.txt)
  /set %money.drink $calc( $readini( casino.ini, $nick, Money ) -7 )
  /writeini casino.ini $nick Money %money.drink
  /unset %money.drink
}
;ORDER
on *:text:!order*:#: {
  if ($readini( casino.ini, $nick, Money ) == $null) {
    /notice $nick $+ , You have not registered yet. Please have some complimentary chips. Type: !atm
    halt
  }
  if ($readini( casino.ini, $nick, Money ) < 10) {
    /notice $nick $+ , Ask a friend for some cash, no credit here.
    halt
  }
  if ($2 == $null) {
    /notice $nick 13Please use: !order (drink) (nick*)
    halt
  }
  if ($3 != $null) {
    /msg $chan 13 $+ $nick buys $$3 a $$2
    /set %money.drink $calc( $readini( casino.ini, $nick, Money ) -10 )
    /writeini casino.ini $nick Money %money.drink
    /unset %money.drink
    halt
  }
  if ($2 != $null) {
    /describe $chan hands $nick a $$2
    /set %money.drink $calc( $readini( casino.ini, $nick, Money ) -10 )
    /writeini casino.ini $nick Money %money.drink
    /unset %money.drink
  }
}
;ATM
on *:TEXT:!atm:#:{
  if ($readini( casino.ini, $nick, Money ) != $null) {
    /notice $nick $+ , You have already registered. Better ask a friend for a loan.
    halt
  }
  /notice $nick Welcome to $chan $+ 's Bar & Casino. Here's 50 bucks. Have Fun and Drink Up! For help type: !bar or !casino
  /writeini casino.ini $nick Money 50
}
on *:TEXT:!tip*:#:{
  if ($readini( casino.ini, $nick, Money ) == $null) {
    /notice $nick $+ , You have not registered yet. Please have some complimentary chips. Type: !atm
    halt
  }
  if ($2 == $null) {
    /notice $nick 10Please type a number. Ex. !tip 10
    halt
  }
  if ($2 < 1) {
    /notice $nick 10Please tip with 1 dollar or more.
    halt
  }
  else  {
    /msg $chan 13Thankyou, here's your tip:13,11 $read casinotip.txt
    /set %money.temp $calc( $readini( casino.ini, $nick, Money ) - $2 )
    /set %money.tip $calc( $readini( casino.ini, $me, Money ) + $2 )
    /writeini casino.ini $nick Money %money.temp
    /writeini casino.ini $me Money %money.tip
    /unset %money.temp
    /unset %money.tip
  }
}
;BAR HELP
on *:TEXT:!bar:#:{
  /notice $nick 13Would you like to see the menu? 
  /notice $nick 13!malt, !beer, !shot, !mixed, !wine
  /notice $nick 13Prices: 2, 5, 7, 8, 10
  /notice $nick 13Buy any drink you want for 10 bucks with !order (drink)
  /notice $nick 13To buy anyone a drink type their nick after the trigger.
  /notice $nick 13Give a tip and receive one in return: !tip (#)
}
;CASINO HELP
on *:TEXT:`casino:#:{
  /notice $nick 10!atm [register your nick and recieve 50 dollars.
  /notice $nick 10!money <nick> [check to see your or anyone's winnings] 
  /notice $nick 10!give <nick> <money> [help someone down on their luck]
  /notice $nick 10!slots [Plays the game, costs 5 dollars a try]
  /notice $nick 10!cointoss <heads or tails> <money> [50/50 bet on the toss of a coin]
  /notice $nick 10!luckylotto <number> [10  dollars a tickets, wins 100]
  /notice $nick 10!pickthree <number> <number> <number> [5 dollars a ticket. wins 100,000,000]
  /notice $nick 10!blackjack <money> [play 21]
  /notice $nick 10!vphelp [shows VidoPoker rules]
  /notice $nick 10!craps <money> [try to hit 7 or 11]
  /notice $nick 10!dice <money> [ony 1:1 game]
}
;CRAPS
on *:TEXT:!craps*:#: {
  if ($readini( casino.ini, $nick, Money ) == $null) {
    /notice $nick $+ , You have not registered yet. Please have some complimentary chips. Type: !atm
    halt
  }
  if ($2 == $null) {
    /notice $nick 10Please type a dollar ammount. ex: !craps (money)
    halt
  }
  if ($readini( casino.ini, $nick, Money ) < $2) {
    /notice $nick 10Sorry but you don't have $2 dollars to spend.
    halt
  }
  if ($2 < 1) {
    /notice $nick 10Please bet with 1 dollar or more.
    halt
  }
  var %R = $rand(1,6) | var %C = $rand(1,6)
  var %T = $Calc(%R + %C)
  /msg $chan 10 $+ $nick Rolls the dice......... %R & %C
  /msg $chan 10 Dice Total= %T
  if (%T = 7) {
    var %M = $calc($2 * 5)
    /msg $chan 10 $+ $nick GOT SEVENS!! You Win %m dollars!
    /set %money.temp $calc( $readini( casino.ini, $nick, Money ) + %m)
    /writeini casino.ini $nick Money %money.temp
    /unset %money.temp
    /unset %R
    /unset %C
    /unset %T
    /unset %M  
    /halt
  }
  if  (%T = 11) {
    var %M = $calc($2 * 16)
    /msg $chan 10 $+ $nick GOT ELEVEN!! You Win %m dollars!!!
    /set %money.temp $calc( $readini( casino.ini, $nick, Money ) + %m)
    /writeini casino.ini $nick Money %money.temp
    /unset %money.temp
    /unset %R
    /unset %C
    /unset %T
    /unset %M
    /halt
  }
  else {
    /msg $chan 10 $+ $Nick Crapped out! You Lose $2 dollars.  
    /set %money.temp $calc( $readini( casino.ini, $nick, Money ) - $2)
    /writeini casino.ini $nick Money %money.temp
    /unset %money.temp
    /unset %R
    /unset %C
    /unset %T
    /unset %M
  }
}
;DICE
on *:TEXT:!dice*:#:{
  if ($readini( casino.ini, $nick, Money ) == $null) {
    /notice $nick $+ , You have not registered yet. Please have some complimentary chips. Type: !atm
    halt
  }
  if (%dice == on) {
    /notice $nick 10Game already in progress. Please type: !djoin
    halt
  }
  if ($2 == $null) {
    /notice $nick 10Please enter a bet ammount. ex: !dice 10
    halt
  }
  if ($2 > $readini( casino.ini, $nick, Money )) {
    /msg $chan 10 $+ $nick does not have $2 dollars to play
    halt
  }
  if ($2 < 1) {
    /notice $nick 10Please give more than 1 dollar
    halt
  }
  /set %dicedplayer1 $nick
  /set %dice on
  /set %dicedmoney $2
  /msg $chan 10DICE has been started by %dicedplayer1 The bet is %dicedmoney You have 60 seconds to join type: !djoin
  /timer72 1 60 /msg $chan 10Sorry %dicedplayer1 nobody joined the DICE game.
  /timer73 1 60 /unset %dice*
}
on *:TEXT:!djoin:#:{
  if ($readini( casino.ini, $nick, Money ) == $null) {
    /notice $nick $+ , You have not registered yet. Please have some complimentary chips. Type: !atm
    halt
  }
  if ($nick == %dicedplayer1) {
    /notice $nick 10You cannot play yourself!
    halt
  }
  if (%dice == $null) {
    /notice $nick 10Sorry DICE has not yet started. To start type !dice <money>
    halt
  }
  if (%dicedmoney > $readini( casino.ini, $nick, Money )) {
    /msg $chan 10Sorry, $nick cannot join. $nick does have %dicedmoney dollars.
    halt
  }
  /timer72 off
  /timer73 off
  goto next 
  :next
  /set %dicedplayer2 $nick
  /set %diceplayer1num $rand(1,6)
  /set %diceplayer2num $rand(1,6)
  /msg $chan 10DICE have been thrown. Bet is set at %dicedmoney dollars.
  /msg $chan 10 $+ %dicedplayer1 $+ 's number was ---> %diceplayer1num <---
  /msg $chan 10 $+ %dicedplayer2 $+ 's number was ---> %diceplayer2num <---
  if (%diceplayer1num > %diceplayer2num) {
    /msg $chan 10 $+ %dicedplayer1 has won %dicedmoney dollars!!!
    /set %dicewinner $calc( $readini( casino.ini, %dicedplayer1, Money ) + %dicedmoney)
    /set %diceloser $calc( $readini( casino.ini, %dicedplayer2, Money ) - %dicedmoney)
    /writeini casino.ini %dicedplayer1 Money %dicewinner
    /writeini casino.ini %dicedplayer2 Money %diceloser 
    /unset %dice*
    halt
  }
  if (%diceplayer1num < %diceplayer2num) {
    /msg $chan 10 $+ %dicedplayer2 has won %dicedmoney dollars!!!
    /set %dicewinner $calc( $readini( casino.ini, %dicedplayer2, Money ) + %dicedmoney)
    /set %diceloser $calc( $readini( casino.ini, %dicedplayer1, Money ) - %dicedmoney)
    /writeini casino.ini %dicedplayer2 Money %dicewinner
    /writeini casino.ini %dicedplayer1 Money %diceloser 
    /unset %dice*
    halt
  }
  if (%diceplayer1num == %diceplayer2num) {
    /msg $chan 10It was a tie. Nobody one won. Please roll again.
    goto next
  }
}
;BLACKJACK
on *:TEXT:!blackjack*:#:{
  if (%bj == on) {
    /msg $chan 10Blackjack is already in progress. Please wait your turn.
    halt
  }
  if ( %hs [ $+ [ $nick ] ] != $null ) /notice $nick 10 $+ $nick $+ , you have a game in progress!!!
  if ( %hs [ $+ [ $nick ] ] == $null ) {
    if ( $2 == $null ) /notice $nick 10Please enter amount you want to bet. ex. !blackjack 20
    if ($readini( casino.ini, $nick, Money ) == $null ) /notice $nick 10 $+ $nick is not yet registered.  Type !atm
    if ( $readini( casino.ini, $nick, Money ) < $2 ) /notice $nick 10You don't have that much money...try something lower!
    if ( $readini( casino.ini, $nick, Money ) >= $2 ) {
      if ( $2 < 1 ) {
        /notice $nick 10Please bet more than 1 dollar.
        halt
      }
      if ( $2 > 0 ) {
        /set %bj on
        /set %bet [ $+ [ $nick ] ] $2
        /bjdeal
        /msg $chan 10 $+ $nick bet $2 dollars on a hand of blackjack
        /var %cch = $rand(1,4)
        if ( %cch == 1) /msg $chan 10 $+ $nick $+ 's hand: 4,0 %hcard1 [ $+ [ $nick ] ]  4,0 %hcard2 [ $+ [ $nick ] ] 
        if ( %cch == 2) /msg $chan 10 $+ $nick $+ 's hand: 4,0 %hcard1 [ $+ [ $nick ] ]  1,0 %hcard2 [ $+ [ $nick ] ] 
        if ( %cch == 3) /msg $chan 10 $+ $nick $+ 's hand: 1,0 %hcard1 [ $+ [ $nick ] ]  4,0 %hcard2 [ $+ [ $nick ] ] 
        if ( %cch == 4) /msg $chan 10 $+ $nick $+ 's hand: 1,0 %hcard1 [ $+ [ $nick ] ]  1,0 %hcard2 [ $+ [ $nick ] ] 
        if (( %hcard1 [ $+ [ $nick ] ] == A ) && ( %hcard2 [ $+ [ $nick ] ] == A )) {
          /set %addh [ $+ [ $nick ] ] 12
          /set %aceh [ $+ [ $nick ] ] 0
        }
        if (( %hcard1 [ $+ [ $nick ] ] == A ) || ( %hcard2 [ $+ [ $nick ] ] == A )) { /set %aceh [ $+ [ $nick ] ] 0 }
        /set %ccc [ $+ [ $nick ] ] $rand(1,2)
        if ( %ccc [ $+ [ $nick ] ] == 1) /msg $chan 10Dealer's hand: 4,0 %ccard1 [ $+ [ $nick ] ]  12,0 ? 
        if ( %ccc [ $+ [ $nick ] ] == 2) /msg $chan 10Dealer's hand: 1,0 %ccard1 [ $+ [ $nick ] ]  12,0 ? 
        if ( %addh [ $+ [ $nick ] ] == 21 ) {
          /set %bj [ $+ [ $nick ] ] $calc( $2 / 2 )
          /set %bj [ $+ [ $nick ] ] $calc( %bj [ $+ [ $nick ] ] + $2 )
          /msg $chan 4Blackjack!! $nick has won %bj [ $+ [ $nick ] ] dollars!!
          /set %bj.temp $calc( $readini( casino.ini, $nick, Money ) + %bj [ $+ [ $nick ] ] )
          /writeini casino.ini $nick Money %bj.temp
          /unset %bj.temp
          /unset %hs [ $+ [ $nick ] ]
          /unset %bet [ $+ [ $nick ] ]
          /unset %addh [ $+ [ $nick ] ]
          /unset %addc [ $+ [ $nick ] ]
          /unset %hcard1 [ $+ [ $nick ] ]
          /unset %hcard2 [ $+ [ $nick ] ]
          /unset %ccard1 [ $+ [ $nick ] ]
          /unset %ccard2 [ $+ [ $nick ] ]
          /unset %hcard3 [ $+ [ $nick ] ]
          /unset %ccard3 [ $+ [ $nick ] ]
          /unset %bj [ $+ [ $nick ] ]
          /unset %aceh [ $+ [ $nick ] ] 
          /unset %double [ $+ [ $nick ] ]
          /unset %bj
          /halt
        }
        if ( %addh [ $+ [ $nick ] ] != 21 ) {
          set %double [ $+ [ $nick ] ] $calc( %bet [ $+ [ $nick ] ] * 2)
          if ( $readini( casino.ini, $nick, Money ) >= %double [ $+ [ $nick ] ] ) {
            /msg $chan 10 Hit Stand or Double?
            /set %d [ $+ [ $nick ] ] 0
            /set %hs [ $+ [ $nick ] ] 0
            /halt
          }
          if ( $readini( casino.ini, $nick, Money ) < %double [ $+ [ $nick ] ] ) {
            /msg $chan 10 Hit or Stand?
            /set %hs [ $+ [ $nick ] ] 0
            /halt
          }
        }
      }
    }
  }
}
on *:TEXT:d:#:{
  if ( %d [ $+ [ $nick ] ] != $null ) {
    /unset %d [ $+ [ $nick ] ]
    /set %bet [ $+ [ $nick ] ] %double [ $+ [ $nick ] ] 
    /hit
    /var %cch = $rand(1,2)
    if ( %cch = 1 ) {
      if (( %hcard1 [ $+ [ $nick ] ] == A ) || ( %hcard2 [ $+ [ $nick ] ] == A )) {
        /msg $chan 10 $+ $nick hits: 4,0 %hcard3 [ $+ [ $nick ] ] 10 Total is %addh [ $+ [ $nick ] ] or $calc(%addh [ $+ [ $nick ] ] - 10)
      }
      else /msg $chan 10 $+ $nick hits: 4,0 %hcard3 [ $+ [ $nick ] ] 10 Total is %addh [ $+ [ $nick ] ]
    }
    if ( %cch = 2 ) {
      if (( %hcard1 [ $+ [ $nick ] ] == A ) || ( %hcard2 [ $+ [ $nick ] ] == A )) {
        /msg $chan 10 $+ $nick hits: 1,0 %hcard3 [ $+ [ $nick ] ] 10 Total is %addh [ $+ [ $nick ] ] or $calc(%addh [ $+ [ $nick ] ] - 10)
      }
      else {
        /msg $chan 10 $+ $nick hits: 1,0 %hcard3 [ $+ [ $nick ] ] 10 Total is %addh [ $+ [ $nick ] ]
      }
    }
    if ( %addh [ $+ [ $nick ] ] == 21 ) /stand
    if ( %aceh [ $+ [ $nick ] ] != $null ) {
      if ( %add [ $+ [ $nick ] ] > 21 ) {
        /set %addh [ $+ [ $nick ] ] $calc( %addh [ $+ [ $nick ] ] - 10)
        /unset %aceh [ $+ [ $nick ] ]
      }
    }
    if ( %hcard3 [ $+ [ $nick ] ] == A ) {
      if ( %aceh [ $+ [ $nick ] ] != $null ) {
        if ( $calc(%addh [ $+ [ $nick ] ] + 10) > 21 ) {
          /unset %aceh [ $+ [ $nick ] ]
        }
        if ( %addh [ $+ [ $nick ] ] == 21 ) /stand
      }
      if ( $calc(%addh [ $+ [ $nick ] ] + 10) == 21 ) /stand
    }
    if ( %hcard3 [ $+ [ $nick ] ] != A ) {
      if ( %aceh [ $+ [ $nick ] ] != $null ) {
        if ( %addh [ $+ [ $nick ] ] > 21 ) {
          /set %addh [ $+ [ $nick ] ] $calc(%addh [ $+ [ $nick ] ] - 10)
          /unset %aceh [ $+ [ $nick ] ]
        }
        if ( %addh [ $+ [ $nick ] ] == 21 ) /stand
      }
      if ( %addh [ $+ [ $nick ] ] == 21 ) /stand
    }
    if ( %addh [ $+ [ $nick ] ] > 21 ) {
      if ( %aceh [ $+ [ $nick ] ] == $null ) {
        /msg $chan 4 $+ $nick Busts! $nick loses %bet [ $+ [ $nick ] ] dollars
        /var %ccc2 [ $+ [ $nick ] ] = $rand(1,2)
        if ( %ccc2 [ $+ [ $nick ] ] == 1 ) {
          if ( %ccc [ $+ [ $nick ] ] == 1) /msg $chan 10Dealer's hand: 4,0 %ccard1 [ $+ [ $nick ] ]  4,0 %ccard1 [ $+ [ $nick ] ] 
          if ( %ccc [ $+ [ $nick ] ] == 2) /msg $chan 10Dealer's hand: 1,0 %ccard1 [ $+ [ $nick ] ]  4,0 %ccard1 [ $+ [ $nick ] ] 
        }
        if ( %ccc2 [ $+ [ $nick ] ] == 2 ) {
          if ( %ccc [ $+ [ $nick ] ] == 1) /msg $chan 10Dealer's hand: 4,0 %ccard1 [ $+ [ $nick ] ]  1,0 %ccard1 [ $+ [ $nick ] ] 
          if ( %ccc [ $+ [ $nick ] ] == 2) /msg $chan 10Dealer's hand: 1,0 %ccard1 [ $+ [ $nick ] ]  1,0 %ccard1 [ $+ [ $nick ] ] 
        }
        /set %bj.temp $calc( $readini( casino.ini, $nick, Money ) - %bet [ $+ [ $nick ] ] )
        /writeini casino.ini $nick Money %bj.temp
        /unset %bj.temp
        /unset %hs [ $+ [ $nick ] ]
        /unset %bet [ $+ [ $nick ] ]
        /unset %addh [ $+ [ $nick ] ]
        /unset %addc [ $+ [ $nick ] ]
        /unset %hcard1 [ $+ [ $nick ] ]
        /unset %hcard2 [ $+ [ $nick ] ]
        /unset %ccard1 [ $+ [ $nick ] ]
        /unset %ccard2 [ $+ [ $nick ] ]
        /unset %hcard3 [ $+ [ $nick ] ]
        /unset %ccard3 [ $+ [ $nick ] ]
        /unset %a1 [ $+ [ $nick ] ]
        /unset %a2 [ $+ [ $nick ] ]
        /unset %b1 [ $+ [ $nick ] ]
        /unset %b2 [ $+ [ $nick ] ]
        /unset %a3 [ $+ [ $nick ] ]
        /unset %c3 [ $+ [ $nick ] ]
        /unset %aceh [ $+ [ $nick ] ]
        /unset %acec [ $+ [ $nick ] ]
        /unset %double [ $+ [ $nick ] ]
        /unset %bj
      }
      if ( %aceh [ $+ [ $nick ] ] != $null ) /set %addh [ $+ [ $nick ] ] $calc(%addh [ $+ [ $nick ] ] - 10)
    }
    if ( %addh [ $+ [ $nick ] ] < 21 ) /stand
  }
}
on *:TEXT:h:#:{
  if ( %hs [ $+ [ $nick ] ] != $null ) {
    /unset %d [ $+ [ $nick ] ]
    /hit
    /var %cch = $rand(1,2)
    if ( %cch = 1 ) {
      if (( %hcard1 [ $+ [ $nick ] ] == A ) || ( %hcard2 [ $+ [ $nick ] ] == A )) {
        /msg $chan 10 $+ $nick hits: 4,0 %hcard3 [ $+ [ $nick ] ] 10 Total is %addh [ $+ [ $nick ] ] or $calc(%addh [ $+ [ $nick ] ] - 10)
      }
      else /msg $chan 10 $+ $nick hits: 4,0 %hcard3 [ $+ [ $nick ] ] 10 Total is %addh [ $+ [ $nick ] ]
    }
    if ( %cch = 2 ) {
      if (( %hcard1 [ $+ [ $nick ] ] == A ) || ( %hcard2 [ $+ [ $nick ] ] == A )) {
        /msg $chan 10 $+ $nick hits: 1,0 %hcard3 [ $+ [ $nick ] ] 10 Total is %addh [ $+ [ $nick ] ] or $calc(%addh [ $+ [ $nick ] ] - 10)
      }
      else {
        /msg $chan 10 $+ $nick hits: 1,0 %hcard3 [ $+ [ $nick ] ] 10 Total is %addh [ $+ [ $nick ] ]
      }
    }
    if ( %addh [ $+ [ $nick ] ] == 21 ) /stand 
    if ( %aceh [ $+ [ $nick ] ] != $null ) {
      if ( %add [ $+ [ $nick ] ] > 21 ) {
        /set %addh [ $+ [ $nick ] ] $calc( %addh [ $+ [ $nick ] ] - 10)
        /unset %aceh [ $+ [ $nick ] ]
      }
    }
    if ( %hcard3 [ $+ [ $nick ] ] == A ) {
      if ( %aceh [ $+ [ $nick ] ] != $null ) {
        if ( $calc(%addh [ $+ [ $nick ] ] + 10) > 21 ) {
          /unset %aceh [ $+ [ $nick ] ]
        }
        if ( %addh [ $+ [ $nick ] ] == 21 ) /stand
      }
      if ( $calc(%addh [ $+ [ $nick ] ] + 10) == 21 ) /stand
    }
    if ( %hcard3 [ $+ [ $nick ] ] != A ) {
      if ( %aceh [ $+ [ $nick ] ] != $null ) {
        if ( %addh [ $+ [ $nick ] ] > 21 ) {
          /set %addh [ $+ [ $nick ] ] $calc(%addh [ $+ [ $nick ] ] - 10)
          /unset %aceh [ $+ [ $nick ] ]
        }
        if ( %addh [ $+ [ $nick ] ] == 21 ) /stand
      }
      if ( %addh [ $+ [ $nick ] ] == 21 ) /stand
    }
    if ( %addh [ $+ [ $nick ] ] > 21 ) {
      if ( %aceh [ $+ [ $nick ] ] == $null ) {
        /msg $chan 4 $+ $nick Busts! $nick loses %bet [ $+ [ $nick ] ] dollars
        /var %ccc2 [ $+ [ $nick ] ] = $rand(1,2)
        if ( %ccc2 [ $+ [ $nick ] ] == 1 ) {
          if ( %ccc [ $+ [ $nick ] ] == 1) /msg $chan 10Dealer's hand: 4,0 %ccard1 [ $+ [ $nick ] ]  4,0 %ccard1 [ $+ [ $nick ] ] 
          if ( %ccc [ $+ [ $nick ] ] == 2) /msg $chan 10Dealer's hand: 1,0 %ccard1 [ $+ [ $nick ] ]  4,0 %ccard1 [ $+ [ $nick ] ] 
        }
        if ( %ccc2 [ $+ [ $nick ] ] == 2 ) {
          if ( %ccc [ $+ [ $nick ] ] == 1) /msg $chan 10Dealer's hand: 4,0 %ccard1 [ $+ [ $nick ] ]  1,0 %ccard1 [ $+ [ $nick ] ] 
          if ( %ccc [ $+ [ $nick ] ] == 2) /msg $chan 10Dealer's hand: 1,0 %ccard1 [ $+ [ $nick ] ]  1,0 %ccard1 [ $+ [ $nick ] ] 
        }
        /set %bj.temp $calc( $readini( casino.ini, $nick, Money ) - %bet [ $+ [ $nick ] ] )
        /writeini casino.ini $nick Money %bj.temp
        /unset %bj.temp
        /unset %hs [ $+ [ $nick ] ]
        /unset %bet [ $+ [ $nick ] ]
        /unset %addh [ $+ [ $nick ] ]
        /unset %addc [ $+ [ $nick ] ]
        /unset %hcard1 [ $+ [ $nick ] ]
        /unset %hcard2 [ $+ [ $nick ] ]
        /unset %ccard1 [ $+ [ $nick ] ]
        /unset %ccard2 [ $+ [ $nick ] ]
        /unset %hcard3 [ $+ [ $nick ] ]
        /unset %ccard3 [ $+ [ $nick ] ]
        /unset %a1 [ $+ [ $nick ] ]
        /unset %a2 [ $+ [ $nick ] ]
        /unset %b1 [ $+ [ $nick ] ]
        /unset %b2 [ $+ [ $nick ] ]
        /unset %a3 [ $+ [ $nick ] ]
        /unset %c3 [ $+ [ $nick ] ]
        /unset %aceh [ $+ [ $nick ] ]
        /unset %acec [ $+ [ $nick ] ]
        /unset %double [ $+ [ $nick ] ]
        /unset %bj
      }
      if ( %aceh [ $+ [ $nick ] ] != $null ) /set %addh [ $+ [ $nick ] ] $calc(%addh [ $+ [ $nick ] ] - 10)
    }
    if ( %addh [ $+ [ $nick ] ] < 21 ) /msg $chan 10 Hit or Stand?
  }
}
on *:TEXT:s:#:{
  if ( %hs [ $+ [ $nick ] ] != $null ) /stand
  /unset %d [ $+ [ $nick ] ]
  /unset %aceh [ $+ [ $nick ] ]
  /unset %acec [ $+ [ $nick ] ]
  /halt
}

alias /bjdeal {
  set %hcard1 [ $+ [ $nick ] ] $rand(0,11)
  set %hcard2 [ $+ [ $nick ] ] $rand(0,11)
  set %ccard1 [ $+ [ $nick ] ] $rand(0,11)
  set %ccard2 [ $+ [ $nick ] ] $rand(0,11)
  set %a1 [ $+ [ $nick ] ] $rand(1,4)
  set %a2 [ $+ [ $nick ] ] $rand(1,4)
  set %b1 [ $+ [ $nick ] ] $rand(1,4)
  set %b2 [ $+ [ $nick ] ] $rand(1,4)
  set %addh [ $+ [ $nick ] ] $calc( %hcard1 [ $+ [ $nick ] ] + %hcard2 [ $+ [ $nick ] ] )
  set %addc [ $+ [ $nick ] ] $calc( %ccard1 [ $+ [ $nick ] ] + %ccard2 [ $+ [ $nick ] ] )
  if ( %hcard1 [ $+ [ $nick ] ] == 0 ) /set %addh [ $+ [ $nick ] ] $calc(%addh [ $+ [ $nick ] ] + 10)
  if ( %hcard2 [ $+ [ $nick ] ] == 0 ) /set %addh [ $+ [ $nick ] ] $calc(%addh [ $+ [ $nick ] ] + 10)
  if ( %ccard1 [ $+ [ $nick ] ] == 0 ) /set %addc [ $+ [ $nick ] ] $calc(%addc [ $+ [ $nick ] ] + 10)
  if ( %ccard2 [ $+ [ $nick ] ] == 0 ) /set %addc [ $+ [ $nick ] ] $calc(%addc [ $+ [ $nick ] ] + 10)
  if ( %hcard1 [ $+ [ $nick ] ] == 11 ) /set %addh [ $+ [ $nick ] ] $calc(%addh [ $+ [ $nick ] ] - 1)
  if ( %hcard2 [ $+ [ $nick ] ] == 11 ) /set %addh [ $+ [ $nick ] ] $calc(%addh [ $+ [ $nick ] ] - 1)
  if ( %ccard1 [ $+ [ $nick ] ] == 11 ) /set %addc [ $+ [ $nick ] ] $calc(%addc [ $+ [ $nick ] ] - 1)
  if ( %ccard2 [ $+ [ $nick ] ] == 11 ) /set %addc [ $+ [ $nick ] ] $calc(%addc [ $+ [ $nick ] ] - 1)
  if ( %hcard1 [ $+ [ $nick ] ] == 1 ) {
    /set %addh [ $+ [ $nick ] ] $calc( %addh [ $+ [ $nick ] ] + 10 )
    /set %aceh [ $+ [ $nick ] ] 0
    /set %hcard1 [ $+ [ $nick ] ] A
  }
  if (( %hcard1 [ $+ [ $nick ] ] == 10 ) || ( %hcard1 [ $+ [ $nick ] ] == 0 ) || ( %hcard1 [ $+ [ $nick ] ] == 11 )) {
    if ( %a1 [ $+ [ $nick ] ] == 1 ) /set %hcard1 [ $+ [ $nick ] ] J
    if ( %a1 [ $+ [ $nick ] ] == 2 ) /set %hcard1 [ $+ [ $nick ] ] Q
    if ( %a1 [ $+ [ $nick ] ] == 3 ) /set %hcard1 [ $+ [ $nick ] ] K
    if ( %a1 [ $+ [ $nick ] ] == 4 ) /set %hcard1 [ $+ [ $nick ] ] 10
  }
  if ( %hcard2 [ $+ [ $nick ] ] == 1 ) {
    /set %addh [ $+ [ $nick ] ] $calc( %addh [ $+ [ $nick ] ] + 10 )
    /set %aceh [ $+ [ $nick ] ] 0
    /set %hcard2 [ $+ [ $nick ] ] A
  }
  if (( %hcard2 [ $+ [ $nick ] ] == 10 ) || ( %hcard2 [ $+ [ $nick ] ] == 0 ) || ( %hcard2 [ $+ [ $nick ] ] == 11 )) { 
    if ( %a2 [ $+ [ $nick ] ] == 1 ) /set %hcard2 [ $+ [ $nick ] ] J
    if ( %a2 [ $+ [ $nick ] ] == 2 ) /set %hcard2 [ $+ [ $nick ] ] Q
    if ( %a2 [ $+ [ $nick ] ] == 3 ) /set %hcard2 [ $+ [ $nick ] ] K
    if ( %a2 [ $+ [ $nick ] ] == 4 ) /set %hcard2 [ $+ [ $nick ] ] 10
  }
  if ( %ccard1 [ $+ [ $nick ] ] == 1 ) {
    /set %addc [ $+ [ $nick ] ] $calc( %addc [ $+ [ $nick ] ] + 10 )
    /set %acec [ $+ [ $nick ] ] 0
    /set %ccard1 [ $+ [ $nick ] ] A
  }
  if (( %ccard1 [ $+ [ $nick ] ] == 10 ) || ( %ccard1 [ $+ [ $nick ] ] == 0 ) || ( %ccard1 [ $+ [ $nick ] ] == 11 )) {
    if ( %b1 [ $+ [ $nick ] ] == 1 ) /set %ccard1 [ $+ [ $nick ] ] J
    if ( %b1 [ $+ [ $nick ] ] == 2 ) /set %ccard1 [ $+ [ $nick ] ] Q
    if ( %b1 [ $+ [ $nick ] ] == 3 ) /set %ccard1 [ $+ [ $nick ] ] K
    if ( %b1 [ $+ [ $nick ] ] == 4 ) /set %ccard1 [ $+ [ $nick ] ] 10
  }
  if ( %ccard2 [ $+ [ $nick ] ] == 1 ) {
    /set %addc [ $+ [ $nick ] ] $calc( %addc [ $+ [ $nick ] ] + 10 )
    /set %acec [ $+ [ $nick ] ] 0
    /set %ccard2 [ $+ [ $nick ] ] A
  }
  if (( %ccard2 [ $+ [ $nick ] ] == 10 ) || ( %ccard2 [ $+ [ $nick ] ] == 0 ) || ( %ccard2 [ $+ [ $nick ] ] == 11 )) {
    if ( %b2 [ $+ [ $nick ] ] == 1 ) /set %ccard2 [ $+ [ $nick ] ] J
    if ( %b2 [ $+ [ $nick ] ] == 2 ) /set %ccard2 [ $+ [ $nick ] ] Q
    if ( %b2 [ $+ [ $nick ] ] == 3 ) /set %ccard2 [ $+ [ $nick ] ] K
    if ( %b2 [ $+ [ $nick ] ] == 4 ) /set %ccard2 [ $+ [ $nick ] ] 10
  }
  return
}



alias /hit {
  set %hcard3 [ $+ [ $nick ] ] $rand(0,10)
  set %a3 [ $+ [ $ 
}