By RagBot on Aug 31, 2009I made this so I had something to do on my own, i didn't need someone else, or a clone to do the commands.
I believe it works on 6.34+, but it hasn't worked on some earlier than that, not sure how low the version though
/bj to begin the blackjack game
/hit to get another card
/stand to take your chances
/bet to bet on your hand
/money to see how much money you have
/reset to reset your money to $500 (you must do this to get money in the first place)
/endbj in case there's a glitch, this resets everything.
This is quite large, but I had a picky friend, and he didn't want the same card drawn up twice.
alias endbj {
unset %points
unset %points2
unset %bj.*
unset %TO
unset %ace
reset
unset %bet
echo -a 4BlackJack has been ended.
}
alias reset {
echo -a Your money has been reset to $ $+ 500.
set %cash 500
}
alias det { /hit }
alias detdealer { /dealerhit }
alias money { echo -a You have $ $+ %cash $+ . }
alias BJ {
if (%TO == active) { HALT }
set %points2 0
set %points 0
set %TO active
set %bet active
set %bj.1H deck
set %bj.2H deck
set %bj.3H deck
set %bj.4H deck
set %bj.5H deck
set %bj.6H deck
set %bj.7H deck
set %bj.8H deck
set %bj.9H deck
set %bj.jH deck
set %bj.qH deck
set %bj.kH deck
set %bj.1C deck
set %bj.2C deck
set %bj.3C deck
set %bj.4C deck
set %bj.5C deck
set %bj.6C deck
set %bj.7C deck
set %bj.8C deck
set %bj.9C deck
set %bj.jC deck
set %bj.qC deck
set %bj.kC deck
set %bj.1S deck
set %bj.2S deck
set %bj.3S deck
set %bj.4S deck
set %bj.5S deck
set %bj.6S deck
set %bj.7S deck
set %bj.8S deck
set %bj.9S deck
set %bj.jS deck
set %bj.qS deck
set %bj.kS deck
set %bj.1D deck
set %bj.2D deck
set %bj.3D deck
set %bj.4D deck
set %bj.5D deck
set %bj.6D deck
set %bj.7D deck
set %bj.8D deck
set %bj.9D deck
set %bj.jD deck
set %bj.qD deck
set %bj.kD deck
set %bj.10C deck
set %bj.10S deck
set %bj.10H deck
set %bj.10D deck
/det
/det
}
alias bet {
if (%bet != active) { HALT }
set %bet $1
if (%bet <= 0) {
set %bet active
echo -a 4You must bet something!
HALT
}
if (%bet > %cash) {
set %bet active
echo -a 4You don't have enough money!
}
if (%bet <= %cash) {
echo -a You have just bet $ $+ %bet $+ .
dec %cash %bet
}
}
alias hit {
if (%TO != active) { HALT }
if (%ace == active) { HALT }
set %card1 $rand(1,52)
if (%card1 == 1) {
if (%bj.1H != deck) {
/det
}
elseif (%bj.1H == deck) {
set %ace active
set %bj.1H active
echo -a You get a Ace of Hearts. 1 point or 11 points?
}
}
if (%card1 == 2) {
if (%bj.2H != deck) {
/det
}
elseif (%bj.2H == deck) {
inc %points 2
unset %bj.2H
echo -a You get a Two of Hearts. You have %points points.
}
}
if (%card1 == 3) {
if (%bj.3H != deck) {
/det
}
elseif (%bj.3H == deck) {
inc %points 3
unset %bj.3H
echo -a You get a Three of Hearts. You have %points points.
}
}
if (%card1 == 4) {
if (%bj.4H != deck) {
/det
}
elseif (%bj.4H == deck) {
inc %points 4
unset %bj.4H
echo -a You get a Four of Hearts. You have %points points.
}
}
if (%card1 == 5) {
if (%bj.5H != deck) {
/det
}
elseif (%bj.5H == deck) {
inc %points 5
unset %bj.5H
echo -a You get a Five of Hearts. You have %points points.
}
}
if (%card1 == 6) {
if (%bj.6H != deck) {
/det
}
elseif (%bj.6H == deck) {
inc %points 6
unset %bj.6H
echo -a You get a Six of Hearts. You have %points points.
}
}
if (%card1 == 7) {
if (%bj.7H != deck) {
/det
}
elseif (%bj.7H == deck) {
inc %points 7
unset %bj.7H
echo -a You get a Seven of Hearts. You have %points points.
}
}
if (%card1 == 8) {
if (%bj.8H != deck) {
/det
}
elseif (%bj.8H == deck) {
inc %points 8
unset %bj.8H
echo -a You get a Eight of Hearts. You have %points points.
}
}
if (%card1 == 9) {
if (%bj.9H != deck) {
/det
}
elseif (%bj.9H == deck) {
inc %points 9
unset %bj.9H
echo -a You get a Nine of Hearts. You have %points points.
}
}
if (%card1 == 10) {
if (%bj.10H != deck) {
/det
}
elseif (%bj.10H == deck) {
inc %points 10
unset %bj.10H
echo -a You get a Ten of Hearts. You have %points points.
}
}
if (%card1 == 11) {
if (%bj.jH != deck) {
/det
}
elseif (%bj.jH == deck) {
inc %points 10
unset %bj.jH
echo -a You get a Jack of Hearts. You have %points points.
}
}
if (%card1 == 12) {
if (%bj.qH != deck) {
/det
}
elseif (%bj.qH == deck) {
inc %points 10
unset %bj.qH
echo -a You get a Queen of Hearts. You have %points points.
}
}
if (%card1 == 13) {
if (%bj.kH != deck) {
/det
}
elseif (%bj.kH == deck) {
inc %points 10
unset %bj.kH
echo -a You get a King of Hearts. You have %points points.
}
}
if (%card1 == 14) {
if (%bj.1C != deck) {
/det
}
elseif (%bj.1C == deck) {
set %ace active
set %bj.1C active
echo -a You get a Ace of Clubs. 1 point or 11 points?
}
}
if (%card1 == 15) {
if (%bj.2C != deck) {
/det
}
elseif (%bj.2C == deck) {
inc %points 2
unset %bj.2C
echo -a You get a Two of Clubs. You have %points points.
}
}
if (%card1 == 16) {
if (%bj.3C != deck) {
/det
}
elseif (%bj.3C == deck) {
inc %points 3
unset %bj.3C
echo -a You get a Three of Clubs. You have %points points.
}
}
if (%card1 == 17) {
if (%bj.4C != deck) {
/det
}
elseif (%bj.4C == deck) {
inc %points 4
unset %bj.4C
echo -a You get a Four of Clubs. You have %points points.
}
}
if (%card1 == 18) {
if (%bj.5C != deck) {
/det
}
elseif (%bj.5C == deck) {
inc %points 5
unset %bj.5C
echo -a You get a Five of Clubs. You have %points points.
}
}
if (%card1 == 19) {
if (%bj.6C != deck) {
/det
}
elseif (%bj.6C == deck) {
inc %points 6
unset %bj.6C
echo -a You get a Six of Clubs. You have %points points.
}
}
if (%card1 == 20) {
if (%bj.7C != deck) {
/det
}
elseif (%bj.7C == deck) {
inc %points 7
unset %bj.7C
echo -a You get a Seven of Clubs. You have %points points.
}
}
if (%card1 == 21) {
if (%bj.8C != deck) {
/det
}
elseif (%bj.8C == deck) {
inc %points 8
unset %bj.8C
echo -a You get a Eight of Clubs. You have %points points.
}
}
if (%card1 == 22) {
if (%bj.9C != deck) {
/det
}
elseif (%bj.9C == deck) {
inc %points 9
unset %bj.9C
echo -a You get a Nine of Clubs. You have %points points.
}
}
if (%card1 == 23) {
if (%bj.10C != deck) {
/det
}
elseif (%bj.10C == deck) {
inc %points 10
unset %bj.10C
echo -a You get a Ten of Clubs. You have %points points.
}
}
if (%card1 == 24) {
if (%bj.jC != deck) {
/det
}
elseif (%bj.jC == deck) {
inc %points 10
unset %bj.jC
echo -a You get a Jack of Clubs. You have %points points.
}
}
if (%card1 == 25) {
if (%bj.qC != deck) {
/det
}
elseif (%bj.qC == deck) {
inc %points 10
unset %bj.qC
echo -a You get a Queen of Clubs. You have %points points.
}
}
if (%card1 == 26) {
if (%bj.kC != deck) {
/det
}
elseif (%bj.kC == deck) {
inc %points 10
unset %bj.kC
echo -a You get a King of Clubs. You have %points points.
}
}
if (%card1 == 27) {
if (%bj.1D != deck) {
/det
}
elseif (%bj.1D == deck) {
set %ace active
set %bj.1D active
echo -a You get a Ace of Diamonds. 1 point or 11 points?
}
}
if (%card1 == 28) {
if (%bj.2D != deck) {
/det
}
elseif (%bj.2D == deck) {
inc %points 2
unset %bj.2D
echo -a You get a Two of Diamonds. You have %points points.
}
}
if (%card1 == 29) {
if (%bj.3D != deck) {
/det
}
elseif (%bj.3D == deck) {
inc %points 3
unset %bj.3D
echo -a You get a Three of Diamonds. You have %points points.
}
}
if (%card1 == 30) {
if (%bj.4D != deck) {
/det
}
elseif (%bj.4D == deck) {
inc %points 4
unset %bj.4D
echo -a You get a Four of Diamonds. You have %points points.
}
}
if (%card1 == 31) {
if (%bj.5D != deck) {
/det
}
elseif (%bj.5D == deck) {
inc %points 5
unset %bj.5D
echo -a You get a Five of Diamonds. You have %points points.
}
}
if (%card1 == 32) {
if (%bj.6D != deck) {
/det
}
elseif (%bj.6D == deck) {
inc %points 6
unset %bj.6D
echo -a You get a Six of Diamonds. You have %points points.
}
}
if (%card1 == 33) {
if (%bj.7D != deck) {
/det
}
elseif (%bj.7D == deck) {
inc %points 7
unset %bj.7D
echo -a You get a Seven of Diamonds. You have %points points.
}
}
if (%card1 == 34) {
if (%bj.8D != deck) {
/det
}
elseif (%bj.8D == deck) {
inc %points 8
unset %bj.8D
echo -a You get a Eight of Diamonds. You have %points points.
}
}
if (%card1 == 35) {
if (%bj.9D != deck) {
/det
}
elseif (%bj.9D == deck) {
inc %points 9
unset %bj.9D
echo -a You get a Nine of Diamonds. You have %points points.
}
}
if (%card1 == 36) {
if (%bj.10D != deck) {
/det
}
elseif (%bj.10D == deck) {
inc %points 10
unset %bj.10D
echo -a You get a Ten of Diamonds. You have %points points.
}
}
if (%card1 == 37) {
if (%bj.jD != deck) {
/det
}
elseif (%bj.jD == deck) {
inc %points 10
unset %bj.jD
echo -a You get a Jack of Diamonds. You have %points points.
}
}
if (%card1 == 38) {
if (%bj.qD != deck) {
/det
}
elseif (%bj.qD == deck) {
inc %points 10
unset %bj.qD
echo -a You get a Queen of Diamonds. You have %points points.
}
}
if (%card1 == 39) {
if (%bj.kD != deck) {
/det
}
elseif (%bj.kD == deck) {
inc %points 10
unset %bj.kD
echo -a You get a King of Diamonds. You have %points points.
}
}
if (%card1 == 40) {
if (%bj.1S != deck) {
/det
}
elseif (%bj.1S == deck) {
set %ace active
set %bj.1S active
echo -a You get a Ace of Spades. 1 point or 11 points?
}
}
if (%card1 == 41) {
if (%bj.2S != deck) {
/det
}
elseif (%bj.2S == deck) {
inc %points 2
unset %bj.2S
echo -a You get a Two of Spades. You have %points points.
}
}
if (%card1 == 42) {
if (%bj.3S != deck) {
/det
}
elseif (%bj.3S == deck) {
inc %points 3
unset %bj.3S
echo -a You get a Three of Spades. You have %points points.
}
}
if (%card1 == 43) {
if (%bj.4S != deck) {
/det
}
elseif (%bj.4S == deck) {
inc %points 4
unset %bj.4S
echo -a You get a Four of Spades. You have %points points.
}
}
if (%card1 == 44) {
if (%bj.5S != deck) {
/det
}
elseif (%bj.5S == deck) {
inc %points 5
unset %bj.5S
echo -a You get a Five of Spades. You have %points points.
}
}
if (%card1 == 45) {
if (%bj.6S != deck) {
/det
}
elseif (%bj.6S == deck) {
inc %points 6
unset %bj.6S
echo -a You get a Six of Spades. You have %points points.
}
}
if (%card1 == 46) {
if (%bj.7S != deck) {
/det
}
elseif (%bj.7S == deck) {
inc %points 7
unset %bj.7S
echo -a You get a Seven of Spades. You have %points points.
}
}
if (%card1 == 47) {
if (%bj.8S != deck) {
/det
}
elseif (%bj.8S == deck) {
inc %points 8
unset %bj.8S
echo -a You get a Eight of Spades. You have %points points.
}
}
if (%card1 == 48) {
if (%bj.9S != deck) {
/det
}
elseif (%bj.9S == deck) {
inc %points 9
unset %bj.9S
echo -a You get a Nine of Spades. You have %points points.
}
}
if (%card1 == 49) {
if (%bj.10S != deck) {
/det
}
elseif (%bj.10S == deck) {
inc %points 10
unset %bj.10S
echo -a You get a Ten of Spades. You have %points points.
}
}
if (%card1 == 50) {
if (%bj.jS != deck) {
/det
}
elseif (%bj.jS == deck) {
inc %points 10
unset %bj.jS
echo -a You get a Jack of Spades. You have %points points.
}
}
if (%card1 == 51) {
if (%bj.qS != deck) {
/det
}
elseif (%bj.qS == deck) {
inc %points 10
unset %bj.qS
echo -a You get a Queen of Spades. You have %points points.
}
}
if (%card1 == 52) {
if (%bj.kS != deck) {
/det
}
elseif (%bj.kS == deck) {
inc %points 10
unset %bj.kS
echo -a You get a King of Spades. You have %points points.
}
}
if (%points > 21) {
echo -a 4BUSTED
unset %TO
unset %bj.*
}
}
alias stand {
if (%TO != active) { HALT }
/dealerhit
}
alias standdealer {
if (%points <= %points2) {
echo -a You now have $ $+ %cash $+ .
unset %TO
unset %bj.*
unset %points
unset %points2
echo -a 4YOU LOSE
}
if (%points2 < %points) {
echo -a 7YOU WIN
unset %points
unset %points2
unset %TO
unset %bj.*
if (%bet == active) { echo -a You get $ $+ 1 for winning | inc %cash 1 | HALT }
inc %cash $calc(%bet * 2)
echo -a You now have $ $+ %cash $+ .
}
}
alias dealerhit {
if (%TO != active) { HALT }
set %card1 $rand(1,52)
if (%card1 == 1) {
if (%bj.1H != deck) {
/detdealer
}
elseif (%bj.1H == deck) {
if (%points2 >= 11) {
/acedealer 1
}
if (%points <= 10) {
/acedealer 11
}
set %bj.1H active
echo -a Dealer gets an Ace of Hearts.
}
}
if (%card1 == 2) {
if (%bj.2H != deck) {
/detdealer
}
elseif (%bj.2H == deck) {
inc %points2 2
unset %bj.2H
echo -a Dealer gets a Two of Hearts. Dealer has %points2 points.
}
}
if (%card1 == 3) {
if (%bj.3H != deck) {
/detdealer
}
elseif (%bj.3H == deck) {
inc %points2 3
unset %bj.3H
echo -a Dealer gets a Three of Hearts. Dealer has %points2 points.
}
}
if (%card1 == 4) {
if (%bj.4H != deck) {
/detdealer
}
elseif (%bj.4H == deck) {
inc %points2 4
unset %bj.4H
echo -a Dealer gets a Four of Hearts. Dealer has %points2 points.
}
}
if (%card1 == 5) {
if (%bj.5H != deck) {
/detdealer
}
elseif (%bj.5H == deck) {
inc %points2 5
unset %bj.5H
echo -a Dealer gets a Five of Hearts. Dealer has %points2 points.
}
}
if (%card1 == 6) {
if (%bj.6H != deck) {
/detdealer
}
elseif (%bj.6H == deck) {
inc %points2 6
unset %bj.6H
echo -a Dealer gets a Six of Hearts. Dealer has %points2 points.
}
}
if (%card1 == 7) {
if (%bj.7H != deck) {
/detdealer
}
elseif (%bj.7H == deck) {
inc %points2 7
unset %bj.7H
echo -a Dealer gets a Seven of Hearts. Dealer has %points2 points.
}
}
if (%card1 == 8) {
if (%bj.8H != deck) {
/detdealer
}
elseif (%bj.8H == deck) {
inc %points2 8
unset %bj.8H
echo -a Dealer gets an Eight of Hearts. Dealer has %points2 points.
}
}
if (%card1 == 9) {
if (%bj.9H != deck) {
/detdealer
}
elseif (%bj.9H == deck) {
inc %points2 9
unset %bj.9H
echo -a Dealer gets a Nine of Hearts. Dealer has %points2 points.
}
}
if (%card1 == 10) {
if (%bj.10H != deck) {
/detdealer
}
elseif (%bj.10H == deck) {
inc %points2 10
unset %bj.10H
echo -a Dealer gets a Ten of Hearts. Dealer has %points2 points.
}
}
if (%card1 == 11) {
if (%bj.jH != deck) {
/detdealer
}
elseif (%bj.jH == deck) {
inc %points2 10
unset %bj.jH
echo -a Dealer gets a Jack of Hearts. Dealer has %points2 points.
}
}
if (%card1 == 12) {
if (%bj.qH != deck) {
/detdealer
}
elseif (%bj.qH == deck) {
inc %points2 10
unset %bj.qH
echo -a Dealer gets a Queen of Hearts. Dealer has %points2 points.
}
}
if (%card1 == 13) {
if (%bj.kH != deck) {
/detdealer
}
elseif (%bj.kH == deck) {
inc %points2 10
unset %bj.kH
echo -a Dealer gets a King of Hearts. Dealer has %points2 points.
}
}
if (%card1 == 14) {
if (%bj.1C != deck) {
/detdealer
}
elseif (%bj.1C == deck) {
if (%points2 >= 11) {
/acedealer 1
}
if (%points <= 10) {
/acedealer 11
}
set %bj.1C active
echo -a Dealer gets an Ace of Clubs.
}
}
if (%card1 == 15) {
if (%bj.2C != deck) {
/detdealer
}
elseif (%bj.2C == deck) {
inc %points2 2
unset %bj.2C
echo -a Dealer gets a Two of Clubs. Dealer has %points2 points.
}
}
if (%card1 == 16) {
if (%bj.3C != deck) {
/detdealer
}
elseif (%bj.3C == deck) {
inc %points2 3
unset %bj.3C
echo -a Dealer gets a Three of Clubs. Dealer has %points2 points.
}
}
if (%card1 == 17) {
if (%bj.4C != deck) {
/detdealer
}
elseif (%bj.4C == deck) {
inc %points2 4
unset %bj.4C
echo -a Dealer gets a Four of Clubs. Dealer has %points2 points.
}
}
if (%card1 == 18) {
if (%bj.5C != deck) {
/detdealer
}
elseif (%bj.5C == deck) {
inc %points2 5
unset %bj.5C
echo -a Dealer gets a Five of Clubs. Dealer has %points2 points.
}
}
if (%card1 == 19) {
if (%bj.6C != deck) {
/detdealer
}
elseif (%bj.6C == deck) {
inc %points2 6
unset %bj.6C
echo -a Dealer gets a Six of Clubs. Dealer has %points2 points.
}
}
if (%card1 == 20) {
if (%bj.7C != deck) {
/detdealer
}
elseif (%bj.7C == deck) {
inc %points2 7
unset %bj.7C
echo -a Dealer gets a Seven of Clubs. Dealer has %points2 points.
}
}
if (%card1 == 21) {
if (%bj.8C != deck) {
/detdealer
}
elseif (%bj.8C == deck) {
inc %points2 8
unset %bj.8C
echo -a Dealer gets an Eight of Clubs. Dealer has %points2 points.
}
}
if (%card1 == 22) {
if (%bj.9C != deck) {
/detdealer
}
elseif (%bj.9C == deck) {
inc %points2 9
unset %bj.9C
echo -a Dealer gets a Nine of Clubs. Dealer has %points2 points.
}
}
if (%card1 == 23) {
if (%bj.10C != deck) {
/detdealer
}
elseif (%bj.10C == deck) {
inc %points2 10
unset %bj.10C
echo -a Dealer gets a Ten of Clubs. Dealer has %points2 points.
}
}
if (%card1 == 24) {
if (%bj.jC != deck) {
/detdealer
}
elseif (%bj.jC == deck) {
inc %points2 10
unset %bj.jC
echo -a Dealer gets a Jack of Clubs. Dealer has %points2 points.
}
}
if (%card1 == 25) {
if (%bj.qC != deck) {
/detdealer
}
elseif (%bj.qC == deck) {
inc %points2 10
unset %bj.qC
echo -a Dealer gets a Queen of Clubs. Dealer has %points2 points.
}
}
if (%card1 == 26) {
if (%bj.kC != deck) {
/detdealer
}
elseif (%bj.kC == deck) {
inc %points2 10
unset %bj.kC
echo -a Dealer gets a King of Clubs. Dealer has %points2 points.
}
}
if (%card1 == 27) {
if (%bj.1D != deck) {
/detdealer
}
elseif (%bj.1D == deck) {
if (%points2 >= 11) {
/acedealer 1
}
if (%points <= 10) {
/acedealer 11
}
set %bj.1D active
echo -a Dealer gets an Ace of Diamonds.
}
}
if (%card1 == 28) {
if (%bj.2D != deck) {
/detdealer
}
elseif (%bj.2D == deck) {
inc %points2 2
unset %bj.2D
echo -a Dealer gets a Two of Diamonds. Dealer has %points2 points.
}
}
if (%card1 == 29) {
if (%bj.3D != deck) {
/detdealer
}
elseif (%bj.3D == deck) {
inc %points2 3
unset %bj.3D
echo -a Dealer gets a Three of Diamonds. Dealer has %points2 points.
}
}
if (%card1 == 30) {
if (%bj.4D != deck) {
/detdealer
}
elseif (%bj.4D == deck) {
inc %points2 4
unset %bj.4D
echo -a Dealer gets a Four of Diamonds. Dealer has %points2 points.
}
}
if (%card1 == 31) {
if (%bj.5D != deck) {
/detdealer
}
elseif (%bj.5D == deck) {
inc %points2 5
unset %bj.5D
echo -a Dealer gets a Five of Diamonds. Dealer has %points2 points.
}
}
if (%card1 == 32) {
if (%bj.6D != deck) {
/detdealer
}
elseif (%bj.6D == deck) {
inc %points2 6
unset %bj.6D
echo -a Dealer gets a Six of Diamonds. Dealer has %points2 points.
}
}
if (%card1 == 33) {
if (%bj.7D != deck) {
/detdealer
}
elseif (%bj.7D == deck) {
inc %points2 7
unset %bj.7D
echo -a Dealer gets a Seven of Diamonds. Dealer has %points2 points.
}
}
if (%card1 == 34) {
if (%bj.8D != deck) {
/detdealer
}
elseif (%bj.8D == deck) {
inc %points2 8
unset %bj.8D
echo -a Dealer gets an Eight of Diamonds. Dealer has %points2 points.
}
}
if (%card1 == 35) {
if (%bj.9D != deck) {
/detdealer
}
elseif (%bj.9D == deck) {
inc %points2 9
unset %bj.9D
echo -a Dealer gets a Nine of Diamonds. Dealer has %points2 points.
}
}
if (%card1 == 36) {
if (%bj.10D != deck) {
/detdealer
}
elseif (%bj.10D == deck) {
inc %points2 10
unset %bj.10D
echo -a Dealer gets a Ten of Diamonds. Dealer has %points2 points.
}
}
if (%card1 == 37) {
if (%bj.jD != deck) {
/detdealer
}
elseif (%bj.jD == deck) {
inc %points2 10
unset %bj.jD
echo -a Dealer gets a Jack of Diamonds. Dealer has %points2 points.
}
}
if (%card1 == 38) {
if (%bj.qD != deck) {
/detdealer
}
elseif (%bj.qD == deck) {
inc %points2 10
unset %bj.qD
echo -a Dealer gets a Queen of Diamonds. Dealer has %points2 points.
}
}
if (%card1 == 39) {
if (%bj.kD != deck) {
/detdealer
}
elseif (%bj.kD == deck) {
inc %points2 10
unset %bj.kD
echo -a Dealer gets a King of Diamonds. Dealer has %points2 points.
}
}
if (%card1 == 40) {
if (%bj.1S != deck) {
/detdealer
}
elseif (%bj.1S == deck) {
if (%points2 >= 11) {
/acedealer 1
}
if (%points <= 10) {
/acedealer 11
}
set %bj.1S active
echo -a Dealer gets an Ace of Spades.
}
}
if (%card1 == 41) {
if (%bj.2S != deck) {
/detdealer
}
elseif (%bj.2S == deck) {
inc %points2 2
unset %bj.2S
echo -a Dealer gets a Two of Spades. Dealer has %points2 points.
}
}
if (%card1 == 42) {
if (%bj.3S != deck) {
/detdealer
}
elseif (%bj.3S == deck) {
inc %points2 3
unset %bj.3S
echo -a Dealer gets a Three of Spades. Dealer has %points2 points.
}
}
if (%card1 == 43) {
if (%bj.4S != deck) {
/detdealer
}
elseif (%bj.4S == deck) {
inc %points2 4
unset %bj.4S
echo -a Dealer gets a Four of Spades. Dealer has %points2 points.
}
}
if (%card1 == 44) {
if (%bj.5S != deck) {
/detdealer
}
elseif (%bj.5S == deck) {
inc %points2 5
unset %bj.5S
echo -a Dealer gets a Five of Spades. Dealer has %points2 points.
}
}
if (%card1 == 45) {
if (%bj.6S != deck) {
/detdealer
}
elseif (%bj.6S == deck) {
inc %points2 6
unset %bj.6S
echo -a Dealer gets a Six of Spades. Dealer has %points2 points.
}
}
if (%card1 == 46) {
if (%bj.7S != deck) {
/detdealer
}
elseif (%bj.7S == deck) {
inc %points2 7
unset %bj.7S
echo -a Dealer gets a Seven of Spades. Dealer has %points2 points.
}
}
if (%card1 == 47) {
if (%bj.8S != deck) {
/detdealer
}
elseif (%bj.8S == deck) {
inc %points2 8
unset %bj.8S
echo -a Dealer gets an Eight of Spades. Dealer has %points2 points.
}
}
if (%card1 == 48) {
if (%bj.9S != deck) {
/detdealer
}
elseif (%bj.9S == deck) {
inc %points2 9
unset %bj.9S
echo -a Dealer gets a Nine of Spades. Dealer has %points2 points.
}
}
if (%card1 == 49) {
if (%bj.10S != deck) {
/detdealer
}
elseif (%bj.10S == deck) {
inc %points2 10
unset %bj.10S
echo -a Dealer gets a Ten of Spades. Dealer has %points2 points.
}
}
if (%card1 == 50) {
if (%bj.jS != deck) {
/detdealer
}
elseif (%bj.jS == deck) {
inc %points2 10
unset %bj.jS
echo -a Dealer gets a Jack of Spades. Dealer has %points2 points.
}
}
if (%card1 == 51) {
if (%bj.qS != deck) {
/detdealer
}
elseif (%bj.qS == deck) {
inc %points2 10
unset %bj.qS
echo -a Dealer gets a Queen of Spades. Dealer has %points2 points.
}
}
if (%card1 == 52) {
if (%bj.kS != deck) {
/detdealer
}
elseif (%bj.kS == deck) {
inc %points2 10
unset %bj.kS
echo -a Dealer gets a King of Spades. Dealer has %points2 points.
}
}
if (%points2 > 21) {
echo -a 4DEALER BUSTS
inc %cash $calc(%bet * 2)
unset %TO
unset %bj.*
echo -a You have $ $+ %cash $+ .
HALT
}
if (%points2 <= 17) { /detdealer }
if (%points2 > 17) { /standdealer }
}
alias ace {
if (%bj.1H == active) {
if ($1 == 1) {
unset %ace
unset %bj.1H
inc %points 1
echo -a You now have %points points.
}
if ($1 == 11) {
unset %ace
unset %bj.1H
inc %points 11
echo -a You now have %points points.
}
}
if (%bj.1C == active) {
if ($1 == 1) {
unset %ace
unset %bj.1C
inc %points 1
echo -a You now have %points points.
}
if ($1 == 11) {
unset %ace
unset %bj.1C
inc %points 11
echo -a You now have %points points.
}
}
if (%bj.1D == active) {
if ($1 == 1) {
unset %ace
unset %bj.1D
inc %points 1
echo -a You now have %points points.
}
if ($1 == 11) {
unset %ace
unset %bj.1D
inc %points 11
echo -a You now have %points points.
}
}
if (%bj.1S == active) {
if ($1 == 1) {
unset %ace
unset %bj.1S
inc %points 1
echo -a You now have %points points.
}
if ($1 == 11) {
unset %bj.1S
inc %points 11
echo -a You now have %points points.
}
}
}
alias acedealer {
if (%bj.1H == active) {
if ($1 == 1) {
unset %bj.1H
inc %points2 1
echo -a Dealer now has %points2 points.
}
if ($1 == 11) {
unset %bj.1H
inc %points2 11
echo -a Dealer now has %points2 points.
}
}
if (%bj.1C == active) {
if ($1 == 1) {
unset %bj.1C
inc %points2 1
echo -a Dealer now has %points2 points.
}
if ($1 == 11) {
unset %bj.1C
inc %points2 11
echo -a Dealer now has %points2 points.
}
}
if (%bj.1D == active) {
if ($1 == 1) {
unset %bj.1D
inc %points2 1
echo -a Dealer now has %points2 points.
}
if ($1 == 11) {
unset %bj.1D
inc %points2 11
echo -a Dealer now has %points2 points.
}
}
if (%bj.1S == active) {
if ($1 == 1) {
unset %bj.1S
inc %points 1
echo -a Dealer now has %points2 points.
}
if ($1 == 11) {
unset %bj.1S
inc %points 11
echo -a Dealer now has %points2 points.
}
}
if (%points2 > 21) {
echo -a 4DEALER BUSTS
inc %cash $calc(%bet * 2)
unset %TO
unset %bj.*
echo -a You have $ $+ %cash $+ .
HALT
}
if (%points2 <= 17) { /detdealer }
if (%points2 > 17) { /standdealer }
}
