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

Commenting Options