mIRC ~ Blackjack Game v2.1
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.
