On 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
}