rendered paste bodyOn 1:Text:!blackjack:*: {
if (%Froze [ $+ [ $Chan ] ] == 1) {
Msg $Nick You are trying to use my script from a frozen channel
Halt
}
if (%Froze [ $+ [ $nick ] ] == 1) {
Msg $Nick You Have Been Frozen From Use Of My Casino
Halt
}
writeini blackjack $nick 1 Ace of Hearts
writeini blackjack $nick 2 Ace of Spades
writeini blackjack $nick 3 Ace of Diamonds
writeini blackjack $nick 4 Ace of Clubs
writeini blackjack $nick 5 King of Diamonds
writeini blackjack $nick 6 King of Hearts
writeini blackjack $nick 7 King of Spades
writeini blackjack $nick 8 King of Clubs
writeini blackjack $nick 10 Queen of Diamonds
writeini blackjack $nick 11 Queen of Hearts
writeini blackjack $nick 12 Queen of Spades
writeini blackjack $nick 13 Queen of Clubs
writeini blackjack $nick 14 Jack of Diamonds
writeini blackjack $nick 15 Jack of Hearts
writeini blackjack $nick 16 Jack of Spades
writeini blackjack $nick 17 Jack of Clubs
writeini blackjack $nick 18 Ten of Diamonds
writeini blackjack $nick 19 Ten of Hearts
writeini blackjack $nick 20 Ten of Spades
writeini blackjack $nick 21 Ten of Clubs
writeini blackjack $nick 22 Nine of Diamonds
writeini blackjack $nick 23 Nine of Hearts
writeini blackjack $nick 24 Nine of Spades
writeini blackjack $nick 25 Nine of Clubs
writeini blackjack $nick 26 Eight of Diamonds
writeini blackjack $nick 27 Eight of Hearts
writeini blackjack $nick 28 Eight of Spades
writeini blackjack $nick 29 Eight of Clubs
writeini blackjack $nick 30 Seven of Diamonds
writeini blackjack $nick 31 Seven of Hearts
writeini blackjack $nick 32 Seven of Spades
writeini blackjack $nick 33 Seven of Clubs
writeini blackjack $nick 34 Six of Diamonds
writeini blackjack $nick 35 Six of Hearts
writeini blackjack $nick 36 Six of Spades
writeini blackjack $nick 37 Six of Clubs
writeini blackjack $nick 38 Five of Hearts
writeini blackjack $nick 39 Five of Diamonds
writeini blackjack $nick 40 Five of Spades
writeini blackjack $nick 41 Five of Clubs
writeini blackjack $nick 42 Four of Hearts
writeini blackjack $nick 43 Four of Diamonds
writeini blackjack $nick 44 Four of Spades
writeini blackjack $nick 45 Four of Clubs
writeini blackjack $nick 46 Three of Hearts
writeini blackjack $nick 47 Three of Diamonds
writeini blackjack $nick 48 Three of Spades
writeini blackjack $nick 49 Three of Clubs
writeini blackjack $nick 50 Two of Hearts
writeini blackjack $nick 51 Two of Diamonds
writeini blackjack $nick 52 Two of Spades
writeini blackjack $nick 9 Two of Clubs
msg $nick 4 $nick 9you are beginning with a new deck
if (%money [ $+ [ $nick ] ] == $null || %money [ $+ [ $nick ] ] <= 0) {
Set %money [ $+ [ $nick ] ] 500
msg $nick 4 $+ $nick9 To begin playing Type !play xxx, replace xxx with amount in dollars, !hit to get another card, and !stay to stay i have also given you9[ 500 ] 8$!
/unsetbj $nick
halt
}
msg $nick 4 $+ $nick9 To begin playing Type !play xxx, replace xxx with amount in dollars, !hit to get another card, and !stay to stay you have 9[ $bytes(%money [ $+ [ $nick ] ], ] $+ ] 8$!
/unsetbj $nick
}
on 1:text:!play*:*: {
if (%Froze [ $+ [ $Chan ] ] == 1) {
Msg $Nick You are trying to use my script from a frozen channel
Halt
}
if (%Froze [ $+ [ $nick ] ] == 1) {
Msg $Nick You Have Been Frozen From Use Of My Casino
Halt
}
Set %bet [ $+ [ $nick ] ] $replace($2-,$chr(44),,-,)
Set %Playing [ $+ [ $nick ] ] $nick
if (%money [ $+ [ $nick ] ] != $null) {
if ($2- == Fun ) {
Set %bet [ $+ [ $nick ] ] 0
}
if ($2- == $null ) {
msg $nick 4 $+ $nick 9 make a bet or do !play fun
halt
}
if (%bet [ $+ [ $nick ] ] > %Money [ $+ [ $nick ] ] ) {
msg $nick 4 $+ $nick 9 you dont have that much money
halt
}
:Drawn
inc %times [ $+ [ $nick ] ]
if (%times [ $+ [ $nick ] ] >= 15) {
msg $nick 4 $+ $nick 9 Sorry. the deck is gone a new deck has been added
/newdeck $nick
}
Set %Card [ $+ [ $nick ] ] $rand(1,52)
Set %Card2 [ $+ [ $nick ] ] $rand(1,52)
Set %Deal [ $+ [ $nick ] ] $rand(1,52)
Set %Deal2 [ $+ [ $nick ] ] $rand(1,52)
While (%Card2 [ $+ [ $nick ] ] == %Card [ $+ [ $nick ] ] || %Card2 [ $+ [ $nick ] ] == %Deal [ $+ [ $nick ] ] || %Card2 [ $+ [ $nick ] ] == %Deal2 [ $+ [ $nick ] ] || %Card [ $+ [ $nick ] ] == %Deal [ $+ [ $nick ] ] || %Card [ $+ [ $nick ] ] == %Deal2 [ $+ [ $nick ] ]) {
Set %Card [ $+ [ $nick ] ] $rand(1,52)
Set %Card2 [ $+ [ $nick ] ] $rand(1,52)
Set %Deal [ $+ [ $nick ] ] $rand(1,52)
Set %Deal2 [ $+ [ $nick ] ] $rand(1,52)
}
Set %Cardname [ $+ [ $nick ] ] $readini(blackjack, $nick , %Card [ $+ [ $nick ] ])
Set %Card2name [ $+ [ $nick ] ] $readini(blackjack, $nick , %Card2 [ $+ [ $nick ] ])
Set %Dealname [ $+ [ $nick ] ] $readini(blackjack, $nick , %Deal [ $+ [ $nick ] ])
Set %Deal2name [ $+ [ $nick ] ] $readini(blackjack, $nick , %Deal2 [ $+ [ $nick ] ])
While (%Deal2name [ $+ [ $nick ] ] == DRAWN || %Dealname [ $+ [ $nick ] ] == DRAWN || %Cardname [ $+ [ $nick ] ] == DRAWN || %Card2name [ $+ [ $nick ] ] == DRAWN) {
goto Drawn
}
if (two isin %Cardname [ $+ [ $nick ] ]) {
Set %value [ $+ [ $nick ] ] 2
}
if (nine isin %Cardname [ $+ [ $nick ] ]) {
Set %value [ $+ [ $nick ] ] 9
}
if (three isin %Cardname [ $+ [ $nick ] ]) {
Set %value [ $+ [ $nick ] ] 3
}
if (four isin %Cardname [ $+ [ $nick ] ]) {
Set %value [ $+ [ $nick ] ] 4
}
if (five isin %Cardname [ $+ [ $nick ] ]) {
Set %value [ $+ [ $nick ] ] 5
}
if (six isin %Cardname [ $+ [ $nick ] ]) {
Set %value [ $+ [ $nick ] ] 6
}
if (seven isin %Cardname [ $+ [ $nick ] ]) {
Set %value [ $+ [ $nick ] ] 7
}
if (eight isin %Cardname [ $+ [ $nick ] ]) {
Set %value [ $+ [ $nick ] ] 8
}
if (Ten isin %Cardname [ $+ [ $nick ] ] || Jack isin %Cardname [ $+ [ $nick ] ] || Queen isin %Cardname [ $+ [ $nick ] ] || King isin %Cardname [ $+ [ $nick ] ] ) {
Set %value [ $+ [ $nick ] ] 10
}
if (Ace isin %Cardname [ $+ [ $nick ] ] ) {
Set %ace [ $+ [ $nick ] ] 1
Set %value [ $+ [ $nick ] ] 11
}
if (two isin %Card2name [ $+ [ $nick ] ]) {
Set %valueb [ $+ [ $nick ] ] 2
}
if (nine isin %Card2name [ $+ [ $nick ] ]) {
Set %valueb [ $+ [ $nick ] ] 9
}
if (three isin %Card2name [ $+ [ $nick ] ]) {
Set %valueb [ $+ [ $nick ] ] 3
}
if (four isin %Card2name [ $+ [ $nick ] ]) {
Set %valueb [ $+ [ $nick ] ] 4
}
if (five isin %Card2name [ $+ [ $nick ] ]) {
Set %valueb [ $+ [ $nick ] ] 5
}
if (six isin %Card2name [ $+ [ $nick ] ]) {
Set %valueb [ $+ [ $nick ] ] 6
}
if (seven isin %Card2name [ $+ [ $nick ] ]) {
Set %valueb [ $+ [ $nick ] ] 7
}
if (eight isin %Card2name [ $+ [ $nick ] ]) {
Set %valueb [ $+ [ $nick ] ] 8
}
if (Ten isin %Card2name [ $+ [ $nick ] ] || Jack isin %Card2name [ $+ [ $nick ] ] || Queen isin %Card2name [ $+ [ $nick ] ] || King isin %Card2name [ $+ [ $nick ] ] ) {
Set %valueb [ $+ [ $nick ] ] 10
}
if (Ace isin %Card2name [ $+ [ $nick ] ] && Ace isin %Cardname [ $+ [ $nick ] ]) {
Set %valueb [ $+ [ $nick ] ] 1
goto Jump
}
if (Ace isin %Card2Name [ $+ [ $nick ] ]) {
Set %valueb [ $+ [ $nick ] ] 11
Set %Ace [ $+ [ $nick ] ]
}
:Jump
if (two isin %Dealname [ $+ [ $nick ] ]) {
Set %dealvalue [ $+ [ $nick ] ] 2
}
if (nine isin %Dealname [ $+ [ $nick ] ]) {
Set %dealvalue [ $+ [ $nick ] ] 9
}
if (three isin %Dealname [ $+ [ $nick ] ]) {
Set %dealvalue [ $+ [ $nick ] ] 3
}
if (four isin %Dealname [ $+ [ $nick ] ]) {
Set %dealvalue [ $+ [ $nick ] ] 4
}
if (five isin %Dealname [ $+ [ $nick ] ]) {
Set %dealvalue [ $+ [ $nick ] ] 5
}
if (six isin %Dealname [ $+ [ $nick ] ]) {
Set %dealvalue [ $+ [ $nick ] ] 6
}
if (seven isin %Dealname [ $+ [ $nick ] ]) {
Set %dealvalue [ $+ [ $nick ] ] 7
}
if (eight isin %Dealname [ $+ [ $nick ] ]) {
Set %dealvalue [ $+ [ $nick ] ] 8
}
if (Ten isin %Dealname [ $+ [ $nick ] ] || Jack isin %Dealname [ $+ [ $nick ] ] || Queen isin %Dealname [ $+ [ $nick ] ] || King isin %Dealname [ $+ [ $nick ] ] ) {
Set %dealvalue [ $+ [ $nick ] ] 10
}
if (Ace isin %Dealname [ $+ [ $nick ] ] ) {
Set %dealvalue [ $+ [ $nick ] ] 11
}
if (two isin %Deal2name [ $+ [ $nick ] ]) {
Set %dealvalueb [ $+ [ $nick ] ] 2
}
if (nine isin %Deal2name [ $+ [ $nick ] ]) {
Set %dealvalueb [ $+ [ $nick ] ] 9
}
if (three isin %Deal2name [ $+ [ $nick ] ]) {
Set %dealvalueb [ $+ [ $nick ] ] 3
}
if (four isin %Deal2name [ $+ [ $nick ] ]) {
Set %dealvalueb [ $+ [ $nick ] ] 4
}
if (five isin %Deal2name [ $+ [ $nick ] ]) {
Set %dealvalueb [ $+ [ $nick ] ] 5
}
if (six isin %Deal2name [ $+ [ $nick ] ]) {
Set %dealvalueb [ $+ [ $nick ] ] 6
}
if (seven isin %Deal2name [ $+ [ $nick ] ]) {
Set %dealvalueb [ $+ [ $nick ] ] 7
}
if (eight isin %Deal2name [ $+ [ $nick ] ]) {
Set %dealvalueb [ $+ [ $nick ] ] 8
}
if (Ten isin %Deal2name [ $+ [ $nick ] ] || Jack isin %Deal2name [ $+ [ $nick ] ] || Queen isin %Deal2name [ $+ [ $nick ] ] || King isin %Deal2name [ $+ [ $nick ] ] ) {
Set %dealvalueb [ $+ [ $nick ] ] 10
}
if (Ace isin %Deal2name [ $+ [ $nick ] ] && Ace isin %Dealname [ $+ [ $nick ] ]) {
Set %dealvalueb [ $+ [ $nick ] ] 1
}
Set %DealTotal [ $+ [ $nick ] ] $calc(%dealvalue [ $+ [ $nick ] ] + %dealvalueb [ $+ [ $nick ] ] )
Set %Total [ $+ [ $nick ] ] $Calc(%Value [ $+ [ $nick ] ] + %Valueb [ $+ [ $nick ] ] )
msg $nick 4[ $+ $nick $+ ] 9Card 1 is7[ %Cardname [ $+ [ $nick ] ] ]9,Card 2 is7[ %Card2name [ $+ [ $nick ] ] ], 9The total value is 8[ %Total [ $+ [ $nick ] ] ]
msg $nick 4[ $+ $nick $+ ] 9Dealers Card is 7[ %Dealname [ $+ [ $nick ] ] ]9, his second card is hidden.
writeini blackjack $nick %Card [ $+ [ $nick ] ] DRAWN
writeini blackjack $nick %Card2 [ $+ [ $nick ] ] DRAWN
writeini blackjack $nick %Deal [ $+ [ $nick ] ] DRAWN
writeini blackjack $nick %Deal2 [ $+ [ $nick ] ] DRAWN
}
}
on 1:text:!hit:*: {
if (%Froze [ $+ [ $Chan ] ] == 1) {
Msg $Nick You are trying to use my script from a frozen channel
Halt
}
if (%Froze [ $+ [ $nick ] ] == 1) {
Msg $Nick You Have Been Frozen From Use Of My Casino
Halt
}
if ($nick == %Playing [ $+ [ $nick ] ] ) {
Set %Cardhit [ $+ [ $nick ] ] $rand(1,52)
Set %hitCard [ $+ [ $nick ] ] $readini(blackjack, $nick , %Cardhit [ $+ [ $nick ] ] )
while (%hitcard [ $+ [ $nick ] ] == DRAWN) {
inc %hittimes [ $+ [ $nick ] ]
if (%hittimes [ $+ [ $nick ] ] >= 15) {
msg $nick 4 $nick 9 Sorry. the deck is gone, a new deck has been added
/newdeck $nick
}
Set %Cardhit [ $+ [ $nick ] ] $rand(1,52)
Set %hitCard [ $+ [ $nick ] ] $readini(blackjack, $nick , %Cardhit [ $+ [ $nick ] ] )
unset %hittimes
}
writeini blackjack $nick %Cardhit [ $+ [ $nick ] ] DRAWN
if (two isin %hitcard [ $+ [ $nick ] ]) {
if (%Ace [ $+ [ $nick ] ] == 1 && %total [ $+ [ $nick ] ] >= 20) {
Set %total [ $+ [ $nick ] ] $Calc(%total [ $+ [ $nick ] ] - 10)
unset %ace [ $+ [ $nick ] ]
}
Set %hitcardtotal [ $+ [ $nick ] ] 2
}
if (nine isin %hitcard [ $+ [ $nick ] ]) {
if (%Ace [ $+ [ $nick ] ] == 1 && %total [ $+ [ $nick ] ] >= 13) {
Set %total [ $+ [ $nick ] ] $Calc(%total [ $+ [ $nick ] ] - 10)
unset %ace [ $+ [ $nick ] ]
}
Set %hitcardtotal [ $+ [ $nick ] ] 9
}
if (three isin %hitcard [ $+ [ $nick ] ]) {
if (%Ace [ $+ [ $nick ] ] == 1 && %total [ $+ [ $nick ] ] >= 19) {
Set %total [ $+ [ $nick ] ] $Calc(%total [ $+ [ $nick ] ] - 10)
unset %ace [ $+ [ $nick ] ]
}
Set %hitcardtotal [ $+ [ $nick ] ] 3
}
if (four isin %hitcard [ $+ [ $nick ] ]) {
if (%Ace [ $+ [ $nick ] ] == 1 && %total [ $+ [ $nick ] ] >= 18) {
Set %total [ $+ [ $nick ] ] $Calc(%total [ $+ [ $nick ] ] - 10)
unset %ace [ $+ [ $nick ] ]
}
Set %hitcardtotal [ $+ [ $nick ] ] 4
}
if (five isin %hitcard [ $+ [ $nick ] ]) {
if (%Ace [ $+ [ $nick ] ] == 1 && %total [ $+ [ $nick ] ] >= 17) {
Set %total [ $+ [ $nick ] ] $Calc(%total [ $+ [ $nick ] ] - 10)
unset %ace [ $+ [ $nick ] ]
}
Set %hitcardtotal [ $+ [ $nick ] ] 5
}
if (six isin %hitcard [ $+ [ $nick ] ]) {
if (%Ace [ $+ [ $nick ] ] == 1 && %total [ $+ [ $nick ] ] >= 16) {
Set %total [ $+ [ $nick ] ] $Calc(%total [ $+ [ $nick ] ] - 10)
unset %ace [ $+ [ $nick ] ]
}
Set %hitcardtotal [ $+ [ $nick ] ] 6
}
if (seven isin %hitcard [ $+ [ $nick ] ]) {
if (%Ace [ $+ [ $nick ] ] == 1 && %total [ $+ [ $nick ] ] >= 15) {
Set %total [ $+ [ $nick ] ] $Calc(%total [ $+ [ $nick ] ] - 10)
unset %ace [ $+ [ $nick ] ]
}
Set %hitcardtotal [ $+ [ $nick ] ] 7
}
if (eight isin %hitcard [ $+ [ $nick ] ]) {
if (%Ace [ $+ [ $nick ] ] == 1 && %total [ $+ [ $nick ] ] >= 14) {
Set %total [ $+ [ $nick ] ] $Calc(%total [ $+ [ $nick ] ] - 10)
unset %ace [ $+ [ $nick ] ]
}
Set %hitcardtotal [ $+ [ $nick ] ] 8
}
if (Ten isin %hitcard [ $+ [ $nick ] ] || Jack isin %hitCard [ $+ [ $nick ] ] || Queen isin %hitcard [ $+ [ $nick ] ] || King isin %hitcard [ $+ [ $nick ] ] ) {
if (%Ace [ $+ [ $nick ] ] == 1 && %total [ $+ [ $nick ] ] >= 12) {
Set %total [ $+ [ $nick ] ] $Calc(%total [ $+ [ $nick ] ] - 10)
unset %ace [ $+ [ $nick ] ]
}
Set %hitcardtotal [ $+ [ $nick ] ] 10
}
if (Ace isin %hitcard [ $+ [ $nick ] ] && %total [ $+ [ $nick ] ] >= 11) {
if (%Ace [ $+ [ $nick ] ] == 1 && %total [ $+ [ $nick ] ] >= 20) {
Set %total [ $+ [ $nick ] ] $Calc(%total [ $+ [ $nick ] ] - 10)
unset %ace [ $+ [ $nick ] ]
}
Set %hitcardtotal [ $+ [ $nick ] ] 1
}
if ( Ace isin %hitcard [ $+ [ $nick ] ] && %total [ $+ [ $nick ] ] <= 10 ) {
if (%Ace [ $+ [ $nick ] ] == 1 && %total [ $+ [ $nick ] ] >= 11) {
Set %total [ $+ [ $nick ] ] $Calc(%total [ $+ [ $nick ] ] - 10)
unset %ace [ $+ [ $nick ] ]
}
Set %hitcardtotal [ $+ [ $nick ] ] 11
}
Set %Total [ $+ [ $nick ] ] $Calc( %total [ $+ [ $nick ] ] + %hitcardtotal [ $+ [ $nick ] ] )
if (%total [ $+ [ $nick ] ] >= 22) {
inc %bjlosses [ $+ [ $nick ] ]
set %money [ $+ [ $nick ] ] $calc( %money [ $+ [ $nick ] ] - %bet [ $+ [ $nick ] ] )
msg $nick 4 [ $nick ] 9 you drew a 4[ [ %hitcard [ $+ [ $nick ] ] ] ] 9your total is now 7[ %Total [ $+ [ $nick ] ] ]
msg $nick 4 [ $nick ] 9 You BUSTED Sorry, try again. Your total is now [ $bytes(%money [ $+ [ $nick ] ],b) 8 $!
/Unsetbj $nick
halt
}
msg $nick 4 [ $nick ] 9 you drew a 4[ [ %hitcard [ $+ [ $nick ] ] ] ] 9your total is now 7[ %Total [ $+ [ $nick ] ] ]
}
}
on 1:Text:!stay:*: {
if (%Froze [ $+ [ $Chan ] ] == 1) {
Msg $Nick You are trying to use my script from a frozen channel
Halt
}
if (%Froze [ $+ [ $nick ] ] == 1) {
Msg $Nick You Have Been Frozen From Use Of My Casino
Halt
}
msg $nick 9 The Dealer's Cards were 4[ $+ %Dealname [ $+ [ $nick ] ] $+ ] 9and4[ $+ %Deal2name [ $+ [ $nick ] ] $+ ] 9the total is7[ $+ %dealtotal [ $+ [ $nick ] ] $+ ]
while ( %dealtotal [ $+ [ $nick ] ] < 17 ) {
Set %Dealhit [ $+ [ $nick ] ] $rand(1,52)
Set %Dealhitname [ $+ [ $nick ] ] $readini(blackjack, $nick , %Dealhit [ $+ [ $nick ] ] )
while (%dealhitname [ $+ [ $nick ] ] == DRAWN) {
inc %hittimes [ $+ [ $nick ] ]
if (%hittimes [ $+ [ $nick ] ] >= 50) {
msg $nick 9the deck is gone, a new deck has been added
/newdeck $nick
}
Set %dealhit [ $+ [ $nick ] ] $rand(1,52)
Set %dealhitname [ $+ [ $nick ] ] $readini(blackjack, $nick , %Cardhit [ $+ [ $nick ] ] )
unset %hittimes
}
if (two isin %dealhitname [ $+ [ $nick ] ]) {
Set %dealhitnametotal [ $+ [ $nick ] ] 2
}
if (nine isin %dealhitname [ $+ [ $nick ] ]) {
Set %dealhitnametotal [ $+ [ $nick ] ] 9
}
if (three isin %dealhitname [ $+ [ $nick ] ]) {
Set %dealhitnametotal [ $+ [ $nick ] ] 3
}
if (four isin %dealhitname [ $+ [ $nick ] ]) {
Set %dealhitnametotal [ $+ [ $nick ] ] 4
}
if (five isin %dealhitname [ $+ [ $nick ] ]) {
Set %dealhitnametotal [ $+ [ $nick ] ] 5
}
if (six isin %dealhitname [ $+ [ $nick ] ]) {
Set %dealhitnametotal [ $+ [ $nick ] ] 6
}
if (seven isin %dealhitname [ $+ [ $nick ] ]) {
Set %dealhitnametotal [ $+ [ $nick ] ] 7
}
if (eight isin %dealhitname [ $+ [ $nick ] ]) {
Set %dealhitnametotal [ $+ [ $nick ] ] 8
}
if (Ten isin %dealhitname [ $+ [ $nick ] ] || Jack isin %dealhitname [ $+ [ $nick ] ] || Queen isin %dealhitname [ $+ [ $nick ] ] || King isin %dealhitname [ $+ [ $nick ] ] ) {
Set %dealhitnametotal [ $+ [ $nick ] ] 10
}
if (Ace isin %dealhitname [ $+ [ $nick ] ] && %Dealtotal [ $+ [ $nick ] ] >= 11) {
Set %dealhitnametotal [ $+ [ $nick ] ] 1
}
if (Ace isin %dealhitname [ $+ [ $nick ] ] && %Dealtotal [ $+ [ $nick ] ] <= 11) {
Set %dealhitnametotal [ $+ [ $nick ] ] 11
}
Set %dealtotal [ $+ [ $nick ] ] $calc(%dealtotal [ $+ [ $nick ] ] + %dealhitnametotal [ $+ [ $nick ] ] )
msg $nick 4 $+ [ $+ $nick $+ ], 9 the dealer drew a 7[ [ %dealhitname [ $+ [ $nick ] ] ] ]9 his total is now 8[ %dealtotal [ $+ [ $nick ] ] ] ]
}
msg $nick 4 $+ [ $+ $nick $+ ], 9 your total is 7[ [ %total [ $+ [ $nick ] ] ] ]9 The Dealers total is 7[ %DealTotal [ $+ [ $nick ] ] ] ]
if ( %total [ $+ [ $nick ] ] >= %DealTotal [ $+ [ $nick ] ] ) {
inc %bjWins [ $+ [ $nick ] ]
set %money [ $+ [ $nick ] ] $calc( %money [ $+ [ $nick ] ] + (%bet [ $+ [ $nick ] ] * 2))
msg $nick 9 Congratulations 4 $+ [ $nick ] 9 You Win! your total number of wins is now: 7[ %bjWins [ $+ [ $nick ] ] ] , and your Money: 9[ $bytes(%money [ $+ [ $nick ] ],b) ]8$9!
/Unsetbj $nick
halt
}
if (%DealTotal [ $+ [ $nick ] ] > 21) {
inc %bjWins [ $+ [ $nick ] ]
set %money [ $+ [ $nick ] ] $calc( %money [ $+ [ $nick ] ] + (%bet [ $+ [ $nick ] ] * 2))
msg $nick 9 Congratulations 4 [ $nick ] 9 You Win! your total number of wins is now: 7[ %bjWins [ $+ [ $nick ] ] ] , and your Money: 9[ $bytes(%money [ $+ [ $nick ] ],b) ] 8$9!
/Unsetbj $nick
halt
}
if (%DealTotal [ $+ [ $nick ] ] > %total [ $+ [ $nick ] ] ) {
inc %bjlosses [ $+ [ $nick ] ]
set %money [ $+ [ $nick ] ] $calc( %money [ $+ [ $nick ] ] - %bet [ $+ [ $nick ] ] )
msg $nick 9 You lose! Sorry 4 [ $nick ] 9your total number of Losses is now: 7[ %bjlosses [ $+ [ $nick ] ] ] , and your Money: 9[ $bytes(%money [ $+ [ $nick ] ],b) ] 8$9!
/Unsetbj $nick
halt
}
}
}
On 1:Text:!casino*:#blackjack: {
if ($$2 == Freeze) {
/freeze $$3
}
if ($$2 == unFreeze) {
/unfreeze $$3
}
}
On 1:Text:!gift*:#blackjack: {
if ($nick == Grogerian || $nick == i1337) {
set %money [ $+ [ $$2 ] ] $$3
}
}
;;;; Place the BELOW in ALIASES
/unsetbj {
unset %hitcardtotal [ $+ [ $1- ] ]
unset %total [ $+ [ $1- ] ]
unset %hitcard [ $+ [ $1- ] ]
unset %cardhit [ $+ [ $1- ] ]
unset %dealtotal [ $+ [ $1- ] ]
unset %dealhitnametotal [ $+ [ $1- ] ]
unset %dealhit [ $+ [ $1- ] ]
unset %dealhitname [ $+ [ $1- ] ]
unset %hittimes [ $+ [ $1- ] ]
unset %times [ $+ [ $1- ] ]
unset %Deal2 [ $+ [ $1- ] ]
unset %Deal [ $+ [ $1- ] ]
unset %Card2 [ $+ [ $1- ] ]
unset %Card [ $+ [ $1- ] ]
unset %value [ $+ [ $1- ] ]
unset %valueb [ $+ [ $1- ] ]
unset %Dealvalue [ $+ [ $1- ] ]
unset %Dealvalueb [ $+ [ $1- ] ]
unset %cardname [ $+ [ $1- ] ]
unset %card2name [ $+ [ $1- ] ]
unset %dealname [ $+ [ $1- ] ]
unset %deal2name [ $+ [ $1- ] ]
unset %bet [ $+ [ $1- ] ]
unset %ace [ $+ [ $1- ] ]
unset %Playing [ $+ [ $1- ] ]
}
/newdeck {
writeini blackjack $1- 1 Ace of Hearts
writeini blackjack $1- 2 Ace of Spades
writeini blackjack $1- 3 Ace of Diamonds
writeini blackjack $1- 4 Ace of Clubs
writeini blackjack $1- 5 King of Diamonds
writeini blackjack $1- 6 King of Hearts
writeini blackjack $1- 7 King of Spades
writeini blackjack $1- 8 King of Clubs
writeini blackjack $1- 10 Queen of Diamonds
writeini blackjack $1- 11 Queen of Hearts
writeini blackjack $1- 12 Queen of Spades
writeini blackjack $1- 13 Queen of Clubs
writeini blackjack $1- 14 Jack of Diamonds
writeini blackjack $1- 15 Jack of Hearts
writeini blackjack $1- 16 Jack of Spades
writeini blackjack $1- 17 Jack of Clubs
writeini blackjack $1- 18 Ten of Diamonds
writeini blackjack $1- 19 Ten of Hearts
writeini blackjack $1- 20 Ten of Spades
writeini blackjack $1- 21 Ten of Clubs
writeini blackjack $1- 22 Nine of Diamonds
writeini blackjack $1- 23 Nine of Hearts
writeini blackjack $1- 24 Nine of Spades
writeini blackjack $1- 25 Nine of Clubs
writeini blackjack $1- 26 Eight of Diamonds
writeini blackjack $1- 27 Eight of Hearts
writeini blackjack $1- 28 Eight of Spades
writeini blackjack $1- 29 Eight of Clubs
writeini blackjack $1- 30 Seven of Diamonds
writeini blackjack $1- 31 Seven of Hearts
writeini blackjack $1- 32 Seven of Spades
writeini blackjack $1- 33 Seven of Clubs
writeini blackjack $1- 34 Six of Diamonds
writeini blackjack $1- 35 Six of Hearts
writeini blackjack $1- 36 Six of Spades
writeini blackjack $1- 37 Six of Clubs
writeini blackjack $1- 38 Five of Hearts
writeini blackjack $1- 39 Five of Diamonds
writeini blackjack $1- 40 Five of Spades
writeini blackjack $1- 41 Five of Clubs
writeini blackjack $1- 42 Four of Hearts
writeini blackjack $1- 43 Four of Diamonds
writeini blackjack $1- 44 Four of Spades
writeini blackjack $1- 45 Four of Clubs
writeini blackjack $1- 46 Three of Hearts
writeini blackjack $1- 47 Three of Diamonds
writeini blackjack $1- 48 Three of Spades
writeini blackjack $1- 49 Three of Clubs
writeini blackjack $1- 50 Two of Hearts
writeini blackjack $1- 51 Two of Diamonds
writeini blackjack $1- 52 Two of Spades
writeini blackjack $1- 9 Two of Clubs
}
/Freeze {
Set %Froze [ $+ [ $1- ] ] 1
Msg $1- You Have Been Frozen From Use Of My Casino
}
/Unfreeze {
UnSet %Froze [ $+ [ $1- ] ]
Msg $1- You Have Been UnFrozen From Use Of My Casino
}