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 /msg %table 6If at any time you want to change the table /msg %table 6type @set table /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.