This was ENTIRELY written, and Created by me.
This game can lagg bad so unless you have a good computer running it and browsing, CAN be Hard.

Details --------------------------------------------

1. This is FREE to Use on your network, FREE, yes may i repeat? Free.
2. if you wish to use. CREDIT goes to. i1337/Grogerian
3. As far as i know, this will only work with mIRC MSL Language.
4. if you use pm me with what network and channel name.
5. Changes can be made but must be stated in chan still "Developpor: Grogerian Modded by: *your name*
6. i have given you permission to use this with no cost, all i ask is to be credited for the work i have done.
Glitches ----------- Deemed Unfixable --------------
7. this makes a VIRTUAL deck of cards, sometimes the deck will Blank and give dead variables ie. Your Card is [] and []
How to use. -------------------------------------------
1. !blackjack Gives 500$ and begins the game in Query chat"
2. !hit Self Explanitory
3. !stay Self Explanitory
4. !commands -Shows all commands-
5. /Freeze *Nick* - Freezes nick from use of Casino
6. /unfreeze *Nick* - Unfreezes nick from use of casino.
7. /Allow *Nick* - Gives permission to a user to ban people *Usually given to trusted ops
8. /unallow *Nick* - must i really tell you?
9. !records *Nick* - Shows records of specified nick *Must be messaged in channel
10. !Donate *Nick* *Amount* - Give the amounnt of money to the specified player
11. !Freeze/!unfreeze *Nick* - yeah, you get the point.

Ps ----------------------------------------------------

1. i believe this works everywheres if not, its not hard to learn how to fix just the On 1:text:!blackjack [Etc.]:#chan: {
if it doesnt work change the #chan to a *
2. Affiliates May be removed, their for my network anyways.
3. Have fun and Thanks for using this.

Script will be below with details ------------------------

Open your script editor Alt + R -------------------------
Go to "Aliases" --------And paste the following in -------
Code:
 

/Unsetbj {
  unset %bet [ $+ [ $$1 ] ]
  unset %Playing [ $+ [ $$1 ] ]
  unset %times [ $+ [ $$1 ] ]
  unset %Card [ $+ [ $$1 ] ]
  unset %Card2 [ $+ [ $$1 ] ]
  unset %Deal [ $+ [ $$1 ] ]
  unset %Deal2 [ $+ [ $$1 ] ]
  unset %Cardname [ $+ [ $$1 ] ]
  unset %Card2name [ $+ [ $$1 ] ]
  unset %Dealname [ $+ [ $$1 ] ]
  unset %Deal2name [ $+ [ $$1 ] ]
  unset %DealTotal [ $+ [ $$1 ] ] 
  unset %Total [ $+ [ $$1 ] ]
  unset %ace [ $+ [ $$1 ] ]
}
/Freeze {
  msg $$1 FROZEN: use of blackjack created by i1337 is no longer accepted.
  Set %Froze [ $+ [ $$1 ] ] 1
}
/unfreeze {
  unset %Froze [ $+ [ $$1 ] ]
  msg $$1 UNFROZEN: use of blackjack created by i1337 Is Accepted.
}
/newdeck {
  writeini $$1 $$1 1 Ace of Hearts
  writeini $$1 $$1 2 Ace of Spades
  writeini $$1 $$1 3 Ace of Diamonds
  writeini $$1 $$1 4 Ace of Clubs
  writeini $$1 $$1 5 King of Diamonds
  writeini $$1 $$1 6 King of Hearts
  writeini $$1 $$1 7 King of Spades
  writeini $$1 $$1 8 King of Clubs
  writeini $$1 $$1 10 Queen of Diamonds
  writeini $$1 $$1 11 Queen of Hearts
  writeini $$1 $$1 12 Queen of Spades
  writeini $$1 $$1 13 Queen of Clubs
  writeini $$1 $$1 14 Jack of Diamonds
  writeini $$1 $$1 15 Jack of Hearts
  writeini $$1 $$1 16 Jack of Spades
  writeini $$1 $$1 17 Jack of Clubs
  writeini $$1 $$1 18 Ten of Diamonds
  writeini $$1 $$1 19 Ten of Hearts
  writeini $$1 $$1 20 Ten of Spades
  writeini $$1 $$1 21 Ten of Clubs
  writeini $$1 $$1 22 Nine of Diamonds
  writeini $$1 $$1 23 Nine of Hearts
  writeini $$1 $$1 24 Nine of Spades
  writeini $$1 $$1 25 Nine of Clubs
  writeini $$1 $$1 26 Eight of Diamonds
  writeini $$1 $$1 27 Eight of Hearts
  writeini $$1 $$1 28 Eight of Spades
  writeini $$1 $$1 29 Eight of Clubs
  writeini $$1 $$1 30 Seven of Diamonds
  writeini $$1 $$1 31 Seven of Hearts
  writeini $$1 $$1 32 Seven of Spades
  writeini $$1 $$1 33 Seven of Clubs
  writeini $$1 $$1 34 Six of Diamonds
  writeini $$1 $$1 35 Six of Hearts
  writeini $$1 $$1 36 Six of Spades
  writeini $$1 $$1 37 Six of Clubs
  writeini $$1 $$1 38 Five of Hearts
  writeini $$1 $$1 39 Five of Diamonds
  writeini $$1 $$1 40 Five of Spades
  writeini $$1 $$1 41 Five of Clubs
  writeini $$1 $$1 42 Four of Hearts
  writeini $$1 $$1 43 Four of Diamonds
  writeini $$1 $$1 44 Four of Spades
  writeini $$1 $$1 45 Four of Clubs
  writeini $$1 $$1 46 Three of Hearts
  writeini $$1 $$1 47 Three of Diamonds
  writeini $$1 $$1 48 Three of Spades
  writeini $$1 $$1 49 Three of Clubs
  writeini $$1 $$1 50 Two of Hearts
  writeini $$1 $$1 51 Two of Diamonds
  writeini $$1 $$1 52 Two of Spades
  writeini $$1 $$1 9 Two of Clubs
}
/Allowed {
  msg $Active guess What $$1 is now allowed to ban people from use of Blackjack! Now Watch out you guys :) :Aware: 
  Set %Allowed [ $+ [ $$1 ] ] 1
}
/deallow {
  msg $Active guess What $$1 is no longer allowed to ban people from use of Blackjack!
  Set %Allowed [ $+ [ $$1 ] ] 0
}
The Following goes into "Remote" --------------------------
Code:
on 1:Text:!commands:*: {
  msg $nick !blackjack if you run out of money, or are just beginning use this to play.
  msg $nick !play [Dollar amount no $ sign] will play the dollar amount entered in the game.
  msg $nick !hit pick up another card, Dealer stays at 17 and above. if you go above 21 you bust!
  msg $nick !stay stop playing and take your card value, this will activate the dealers game.
  msg $nick !donate [Name] [Amount] Donates the requestes amount to the requested player from your own money!
  msg $nick !records [Name] Shows the current blackjack stats for this player!
}
On 1:Text:!Records*:*: {
  msg $Chan $$2 Has won: %bjwins [ $+ [ $$2 ] ] $+ , Has lost: %bjlosses [ $+ [ $$2 ] ] $+ , Has Played: %bjplays [ $+ [ $$2 ] ] $+ , And has %Money [ $+ [ $$2 ] ] $+ $, Has Bet: %bethigh [ $+ [ $$2 ] ] $+ $, Has had: %moneyhigh [ $+ [ $$2 ] ] $+ $, and has had a winning streak of: %winningstreak [ $+ [ $$2 ] ] $+ !!
}
On 1:Text:!Donate*:*: {
  if (%money [ $+ [ $nick ] ] < $$3) {
    msg $chan $nick $+ !! You don't even have $$3 $+ $$
    Halt
  }
  set %money [ $+ [ $nick ] ] $calc( %money [ $+ [ $nick ] ] - $$3 )
  set %Money [ $+ [ $$2 ] ] $Calc( %money [ $+ [ $$2 ] ] + $$3 )
  msg $chan $nick has donated $$3 $+ $ to $$2
}
}
On 1:Text:New Key has been set due to [Auto Key Mode]. New key*:*: {
set %key $$13
}
NEw Remote File -----------------------------------------
Code:
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($nick, $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($nick, $nick , %Cardhit [ $+ [ $nick ] ] )
      unset %hittimes
    }
    writeini $nick $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 ] ] )
    msg $nick 4 [ $nick ] 9 you drew a 4[ [ %hitcard [ $+ [ $nick ] ] ] ] 9your total is now 7[ %Total [ $+ [ $nick ] ] ]
    if (%total [ $+ [ $nick ] ] > 21) {
      inc %bjlosses [ $+ [ $nick ] ]
      inc %bjplays [ $+ [ $nick ] ]
      set %money [ $+ [ $nick ] ] $calc( %money [ $+ [ $nick ] ] - %bet [ $+ [ $nick ] ] )
      unset %winstreak [ $+ [ $nick ] ]
      msg $nick 4 [  $nick  ] 9 You BUSTED Sorry, try again. Your total is now [ $bytes(%money [ $+ [ $nick ] ],b) ] $+ ]  8 $! if your money is 0$, type !blackjack again.
      /Unsetbj $nick
      halt
    }
  }
}
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($nick, $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($nick, $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 ] ] ) {
    if (%winstreak [ $+ [ $nick ] ] == $null) {
      set %winstreak 0
    }
    inc %winstreak [ $+ [ $nick ] ]
    inc %bjWins [ $+ [ $nick ] ]
    inc %bjplays [ $+ [ $nick ] ]
    set %money [ $+ [ $nick ] ] $calc( %money [ $+ [ $nick ] ] + (%bet [ $+ [ $nick ] ] * 2))
    if (%moneyhigh [ $+ [ $nick ] ] == $null) {
      set %moneyhigh [ $+ [ $nick ] ] 0 
    }
    if (%money [ $+ [ $nick ] ] > %MoneyHigh [ $+ [ $nick ] ]) {
      set %MoneyHigh [ $+ [ $nick ] ] %money [ $+ [ $nick ] ]
    }
    if (%winningstreak [ $+ [ $nick ] ] == $null) {
      set %winningstreak [ $+ [ $nick ] ] 0
    }
    if (%winstreak [ $+ [ $nick ] ] > %winningstreak [ $+ [ $nick ] ]) {
      set %winningstreak [ $+ [ $nick ] ] %winstreak [ $+ [ $nick ] ]
    }
    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
  }
  if (%DealTotal [ $+ [ $nick ] ] > 21) {
    if (%winstreak [ $+ [ $nick ] ] == $null) {
      set %winstreak 0
    }
    inc %winstreak [ $+ [ $nick ] ]
    inc %bjWins [ $+ [ $nick ] ]
    inc %bjplays [ $+ [ $nick ] ]
    set %money [ $+ [ $nick ] ] $calc( %money [ $+ [ $nick ] ] + (%bet [ $+ [ $nick ] ] * 2))
    if (%moneyhigh [ $+ [ $nick ] ] == $null) {
      set %moneyhigh [ $+ [ $nick ] ] 0 
    }
    if (%money [ $+ [ $nick ] ] > %MoneyHigh [ $+ [ $nick ] ]) {
      set %MoneyHigh [ $+ [ $nick ] ] %money [ $+ [ $nick ] ]
    }
    if (%winningstreak [ $+ [ $nick ] ] == $null) {
      set %winningstreak [ $+ [ $nick ] ] 0
    }
    if (%winstreak [ $+ [ $nick ] ] > %winningstreak [ $+ [ $nick ] ]) {
      set %winningstreak [ $+ [ $nick ] ] %winstreak [ $+ [ $nick ] ]
    }
    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
  }
  if (%DealTotal [ $+ [ $nick ] ] > %total [ $+ [ $nick ] ] ) {
    inc %bjlosses [ $+ [ $nick ] ]
    inc %bjplays [ $+ [ $nick ] ]
    unset %winstreak [ $+ [ $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! if your money reaches 0, type !blackjack again.
    /Unsetbj $nick
    halt
  }
}
New Remote File...AGAIN -------------------------------------
Code:
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 $nick $nick 1 Ace of Hearts
  writeini $nick $nick 2 Ace of Spades
  writeini $nick $nick 3 Ace of Diamonds
  writeini $nick $nick 4 Ace of Clubs
  writeini $nick $nick 5 King of Diamonds
  writeini $nick $nick 6 King of Hearts
  writeini $nick $nick 7 King of Spades
  writeini $nick $nick 8 King of Clubs
  writeini $nick $nick 10 Queen of Diamonds
  writeini $nick $nick 11 Queen of Hearts
  writeini $nick $nick 12 Queen of Spades
  writeini $nick $nick 13 Queen of Clubs
  writeini $nick $nick 14 Jack of Diamonds
  writeini $nick $nick 15 Jack of Hearts
  writeini $nick $nick 16 Jack of Spades
  writeini $nick $nick 17 Jack of Clubs
  writeini $nick $nick 18 Ten of Diamonds
  writeini $nick $nick 19 Ten of Hearts
  writeini $nick $nick 20 Ten of Spades
  writeini $nick $nick 21 Ten of Clubs
  writeini $nick $nick 22 Nine of Diamonds
  writeini $nick $nick 23 Nine of Hearts
  writeini $nick $nick 24 Nine of Spades
  writeini $nick $nick 25 Nine of Clubs
  writeini $nick $nick 26 Eight of Diamonds
  writeini $nick $nick 27 Eight of Hearts
  writeini $nick $nick 28 Eight of Spades
  writeini $nick $nick 29 Eight of Clubs
  writeini $nick $nick 30 Seven of Diamonds
  writeini $nick $nick 31 Seven of Hearts
  writeini $nick $nick 32 Seven of Spades
  writeini $nick $nick 33 Seven of Clubs
  writeini $nick $nick 34 Six of Diamonds
  writeini $nick $nick 35 Six of Hearts
  writeini $nick $nick 36 Six of Spades
  writeini $nick $nick 37 Six of Clubs
  writeini $nick $nick 38 Five of Hearts
  writeini $nick $nick 39 Five of Diamonds
  writeini $nick $nick 40 Five of Spades
  writeini $nick $nick 41 Five of Clubs
  writeini $nick $nick 42 Four of Hearts
  writeini $nick $nick 43 Four of Diamonds
  writeini $nick $nick 44 Four of Spades
  writeini $nick $nick 45 Four of Clubs
  writeini $nick $nick 46 Three of Hearts
  writeini $nick $nick 47 Three of Diamonds
  writeini $nick $nick 48 Three of Spades
  writeini $nick $nick 49 Three of Clubs
  writeini $nick $nick 50 Two of Hearts
  writeini $nick $nick 51 Two of Diamonds
  writeini $nick $nick 52 Two of Spades
  writeini $nick $nick 9 Two of Clubs
  msg $nick 4 $nick 9you are beginning with a new deck Ty for playing my Blackjack script.
  msg $nick 4 $nick 9IMPORTANT!!!! - i1337 HQ: #hit-me join #spiderpig #emflum #rofl xD
  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 ] ],b) ] $+ ]  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
    }
    if (%bethigh [ $+ [ $nick ] ] == $null) {
      set %bethigh [ $+ [ $nick ] ] 0
    }
    if (%bet [ $+ [ $nick ] ] > %bethigh [ $+ [ $nick ] ]) {
      Set %bethigh [ $+ [ $nick ] ] %bet [ $+ [ $nick ] ]
    }
    :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($nick, $nick , %Card [ $+ [ $nick ] ])
    Set %Card2name [ $+ [ $nick ] ] $readini($nick, $nick , %Card2 [ $+ [ $nick ] ])
    Set %Dealname [ $+ [ $nick ] ] $readini($nick, $nick , %Deal [ $+ [ $nick ] ])
    Set %Deal2name [ $+ [ $nick ] ] $readini($nick, $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 $nick $nick %Card [ $+ [ $nick ] ] DRAWN
    writeini $nick $nick %Card2 [ $+ [ $nick ] ] DRAWN
    writeini $nick $nick %Deal  [ $+ [ $nick ] ] DRAWN
    writeini $nick $nick %Deal2 [ $+ [ $nick ] ] DRAWN
  }
}
New Remote File again...lol ---------------------------------
Code:
On 1:Text:!Freeze*:*: {
  msg $chan $$2 Can no longer use Black jack script, ordered by $nick
  /Freeze $$2
}
On 1:Text:!unFreeze*:*: {
  msg $chan $$2 Can no longer use Black jack script, ordered by $nick
  /unFreeze $$2
}
----------------------------------------------------------

the reason so many files is because i was to lazy to fix bracket issues, that above you should be EVERYTHING you need, if a command does not work pm me i will add it. Thankyou, and have fun.