RAFI21

ON 1:TEXT:*@deal*:#wwe:{ 
  /set %number1 $rand(1, 10) 
  /set %number2 $rand(1,10) 
  /set %number3 $rand(1,10) 
  /set %number4 $rand(1,10) 
  /set %number5 $rand(1,10) 
  /set %number6 $rand(1,10) 
  /set %number7 $rand(1,10) 
  /set %number8 $rand(1,10) 
  /set %card1a %number1 
  /set %card1b %number2 
  /set %card2a %number3 
  /set %card2b %number4 
  /set %card1c %number5 
  /set %card1d %number6 
  /set %card2c %number7 
  /set %card2d %number8 
  /set %total1a 0 
  /inc %total1a %card1a 
  /inc %total1a %card1b 
  /set %total2a 0 
  /inc %total2a %card2a 
  /inc %total2a %card2b 
  /msg %table 13 The dealer flings out the cards at blistering speed. 
  /msg %table 13 %player1 picks up his cards and fans them out. 
  /msg %table 13 %player2 picks up his cards and fans them out. 
  /notice %player1 7You have been dealt a6  %card1a 3and a6 %card1b 8. 
  /notice %player1 7Your total is6 %total1a 
  /notice %player2 7You have been dealt a6  %card2a 3and a6 %card2b 8. 
  /notice %player2 7Your total is6 %total2a 
  /if %card1a == 1 /if %card1b == 11 /msg %table 9PLAYER 1 WINS WITH BLACKJACK!!! 
  /if %card1a == 11 /if %card1b == 1 /msg %table 9PLAYER 1 WINS WITH BLACKJACK!!! 
  /if %card2a == 1 /if %card2b == 11 /msg %table 9PLAYER 2 WINS WITH BLACKJACK!!! 
  /if %card2a == 11 /if %card2b == 1 /msg %table 9PLAYER 2 WINS WITH BLACKJACK!!! 
  /msg %table  %Player1 do you want another card?To draw another card say @twist_p1. 
  /msg %table Remember more than 21 is bust! 
  /msg %table Otherwise type @pass_p1. 
} 
ON 1:TEXT:@P1:#wwe:{ 
  /set %player1 $nick 
  /notice %player1 6You are player 1 
  /notice %player1 3House rules: 
  /notice %player1 3*Over 21 and you bust (lose). 
  /notice %player1 3*Only one chance to twist 
  /notice %player1 3*Highest combination wins 
  /notice %player1 3*Black Jack (1 and 10) is the best possible hand 
  /msg %table 6 %player1 sits in the first seat 
} 
ON 1:TEXT:@P2:#wwe:{ 
  /set %player2 $nick 
  /notice %player2 6You are player 2 
  /notice %player2 3House rules: 
  /notice %player2 3*Over 21 and you bust (lose). 
  /notice %player2 3*Only one chance to twist 
  /notice %player2 3*Highest combination wins 
  /notice %player2 3*Black Jack (1 and 10) is the best possible hand 
  /msg %table 16 %player2 sits in the second seat 
} 
ON 1:TEXT:*@twist_p1*:#wwe:{ 
  /set %total1b %total1a 
  /inc %total1b %card1c 
  /msg %table 13The dealer fires a card in %player1's direction. 
  /msg %table 13A single bead of sweat runs down %player1's head. 
  /msg %table 13 %player1 slowly turns it over and takes a peak. 
  /if %total1b > 21 /msg %table 4Player 1 is 6bust. 12Player 2 6wins. 
  /if %total1b < 21 /notice %player1 3Your new, and final total, is6 %total1b . 
  /if %total1b < 21 /msg %table %Player2 do you want another card?To draw another card say @twist_p2. 
  /if %total1b < 21 /msg %table Remember more than 21 is bust! 
  /if %total1b < 21 /msg %table Otherwise type @pass_p2. 
} 
ON 1:TEXT:*@twist_p2*:#wwe:{ 
  /set %total2b %total2a 
  /inc %total2b %card2c 
  /msg %table 13The dealer fires a card in %player2's direction. 
  /msg %table 13 %player1 's hand creeps out shakily to collect it. 
  /msg %table 13 %player1 turns over the card and stares at it. 
  /if %total2b > 21 /msg %table 3Player 2 is 6bust. 3Player 1 6wins. 
  /if %total2b < 21 /notice %player2 3Your new, and final total, is6 %total2b . 
  /if %total2b < 21 /msg %table 3That concludes this game of Black Jack. 
  /if %total2b < 21 /msg %table 3Player ones final score was6 %total1b . 
  /if %total2b < 21 /msg %table 3Player twos final score was6 %total2b . 
  /if %total2b < 21 /if %total1b > %total2b /msg %table 12PLAYER 1 WINS!!! 
  /if %total2b < 21 /if %total2b > %total1b /msg %table 12PLAYER 2 WINS!!! 
} 
ON 1:TEXT:*@pass_p1*:#wwe:{ 
  /set %total1b %total1a 
  /msg %table 13  %player2 glancesat %player1 
  /msg %table 12"Big head" he mutters under his breath 
  /msg %table 13 %player1 just sits confidently as the dealer turns to %player2. 
  /notice %player1 3Your final total, is6 %total1b . 
  /msg %table Player 2 do you want another card?To draw another card say @twist_p2. 
  /msg %table Remember more than 21 is bust! Otherwise type @pass_p2. 
} 
ON 1:TEXT:*@pass_p2*:#wwe:{ 
  /set %total2b %total2a 
  /msg %table 13 %player1 looks at %player2 in fear 
  /msg %table 11Thoughts of faliure begin to run through his head. 
  /msg %table 13 %player2 just sits content. 
  /notice %player2 3Your final total, is6 %total2b . 
  /msg %table 3That concludes this game of Black Jack. 
  /msg %table 3Player ones final score was6 %total1b . 
  /msg %table 3Player twos final score was6 %total2b . 
  /if %total1b > %total2b /msg %table 12PLAYER 1 WINS!!! 
  /if %total2b > %total1b /msg %table 12PLAYER 2 WINS!!! 
} 
ON 1:TEXT:*@Seats*:#wwe:{ 
  /msg # 7 Player 1 : 9 %player1 
  /msg # 7Player 2 : 9 %player2 
  /msg # 7Table    : 9 %table 
} 
ON 1:TEXT:*@Start*:#wwe:{ 
  /set %table $chan 
  /msg %table 12 Welcome to the Black Jack table. 
  /msg %table 10To play Player 1 must type @P1 
  /msg %table 10and Player 2 must type @P2. 
  /msg %table 9To ensure that both players are properly seated type @seats. 
  /msg %table 4Once you are happy with the preperation type @deal. 
  /msg %table  ----------- 
  /msg %table 4Both players will be dealt their cards. 
  /msg %table 6if at any time you want to change the seated players 
  /msg %table  ----------- 
  /msg %table 6type @set players <insert player1 name> <insert player2 name> 
  /msg %table 6If at any time you want to change the table 
  /msg %table 6type @set table <insert table name here> 
  /msg %table ----------- 
  /msg %table 6Enjoy! 
} 
ON 1:TEXT:*@Set players *:#wwe:{ 
  /set %player1 $3 
  /set %player2 $4 
  /msg # table %table 7 Players 9 %player1 %player2 57set. 
} 
ON 1:TEXT:*@Set table*:#wwe:{ 
  /set %table # 
  /msg # 7 Table 9 %table 7 set.