# blackjackPlay minut += 1 gs 'stat' if $ARGS[0] = 'new': killvar 'dealerHand' killvar 'playerHand' killvar 'playerBets' killvar 'playerPoints' dealerHand[] = 0 dealerHand[] = 1 playerHand[] = 2 playerHand[] = 3 cardsDealt = 4 numHands = 1 currentHand = 0 handLosses = 0 numAces = 0 dealerPoints = 0 insurance = 0 betTotal = 0 doubleBet = 0 minBet = 10 maxBet = 500 *PL '
' *PL 'You are sitting at the blackjack table.' act 'Bet' : gt 'blackjackPlay', 'bet' act 'Rules' : gt 'blackjackPlay', 'rules' act 'Leave' : gt 'cards' end if $ARGS[0] = 'rules': *PL '
' *PL '

Blackjack Rules:

' *P '
  1. The player and dealer are each dealt 2 cards after initial bets (<> ₽ - <> ₽). The dealer will have 1 face-up card and 1 face-down card.
    2. ' *P '
  2. Face cards are worth 10 points, aces can double as either 11 or 1, and all other cards are worth their numeric value.
    3. ' *P '
  3. After the player finishes drawing, the dealer must continue to draw until he has 17 points or more.
    4. ' *P '
  4. To win, the player must score more points than the dealer, have the dealer bust, or get a blackjack.
    5. ' *P '
  5. Getting over 21 points is known as a bust, and an automatic loss.
    6. ' *P '
  6. Getting an ace and a 10 point card in the first 2 cards is known as a blackjack, and is an automatic win which pays 3 : 2.
    7. ' *P '
  7. If the dealer''s face-up card is an ace, the player can make a side-bet called "insurance" that pays 2 : 1 if the dealer has a blackjack.
    8. ' *P '
  8. At any time, the player can choose to double his/her bet, which gives the player 1 more card but prevents further draws on that hand.
    9. ' *P '
  9. If the player''s hand only consists of two cards of equal value, he/she can split them into 2 hands. Each hand must be covered by an amount equal to the original bet.
    10. ' *P '
  10. The player cannot score a blackjack using a split hand.
    11. ' act 'Return' : gt 'blackjackPlay', 'new' end if $ARGS[0] = 'bet': *PL '
    ' playerBets[0] = INPUT('Place your bet.') if money < playerBets[0]: MSG 'You don''t have enough money for that bet.' gt 'blackjackPlay', 'new' elseif playerBets[0] < minBet: MSG 'There is a minimum bet of <> ₽.' gt 'blackjackPlay', 'new' elseif playerBets[0] > maxBet: MSG 'There is a maximum bet of <> ₽.' gt 'blackjackPlay', 'new' end betTotal = playerBets[0] gs 'deckShuffle' if (deckFace[playerHand[0]] = 1 and deckFace[playerHand[1]] > 9) or (deckFace[playerHand[0]] > 9 and deckFace[playerHand[1]] = 1): gt 'blackjackPlay', 'blackjack' elseif deckFace[dealerHand[0]] > 9 and deckFace[dealerHand[1]] = 1: gt 'blackjackPlay', 'blackjack' elseif deckFace[dealerCards[0]] = 1: gt 'blackjackPlay', 'insurance1' else gt 'blackjackPlay', 'player' end end if $ARGS[0] = 'blackjack': gs 'blackjackView', 1 if playerPoints[0] = 21 and dealerPoints = 21: *PL 'DRAW GAME' *PL 'You retrieve your bet.' elseif playerPoints[0] = 21: *PL 'PLAYER WINS' *PL 'You receive <> ₽ in winnings.' money += playerBets[0] * 3 / 2 else *PL 'DEALER WINS' *PL 'The dealer takes your <> ₽ bet.' money -= playerBets[0] end act 'Continue' : gt 'blackjackPlay', 'new' end if $ARGS[0] = 'insurance1': gs 'blackjackView' *PL 'The dealer has an ace showing. Would you like to place a bet for insurance?' insurance = 0 act 'Bet insurance' : insurance = INPUT('Place your bet.') if money < insurance: MSG 'You don''t have enough money for that bet.' gt 'blackjackPlay', 'insurance1' elseif insurance < 0: MSG 'You cannot bet a negative amount of money.' gt 'blackjackPlay', 'insurance1' elseif insurance > playerBets[0] / 2: MSG 'Insurance cannot exceed half the original bet.' gt 'blackjackPlay', 'insurance1' else gt 'blackjackPlay', 'insurance2' end end act 'No insurance' : gt 'blackjackPlay', 'insurance2' end if $ARGS[0] = 'insurance2': if deckFace[dealerCards[1]] > 9: gs 'blackjackView', 1 if deckFace[dealerCards[1]] < 10: gs 'blackjackView' if dealerPoints = 21: *PL 'DEALER WINS' *P 'The dealer takes your <> ₽ bet' if insurance > 0: *P ' but also gives you <> ₽ for your side bet' *P '.' money -= playerBets[0] money += insurance act 'Continue' : gt 'blackjackPlay', 'new' else *PL 'The dealer takes a peek at his hole card; no blackjack.' if insurance > 0: *P 'He relieves you of <> ₽ for your side bet.' money -= insurance act 'Continue' : CLA wait 500 gt 'blackjackPlay', 'player' end end end if $ARGS[0] = 'player': gs 'blackjackView' if playerPoints[currentHand] > 21: currentHand += 1 & handLosses += 1 & doubleBet = 0 if playerPoints[currentHand] = 21 or doubleBet = 1: currentHand += 1 & doubleBet = 0 if handLosses = numHands: *PL 'DEALER WINS' *P 'The dealer relieves you of <> ₽.' money -= betTotal act 'Continue' : gt 'blackjackPlay', 'new' elseif currentHand >= numHands: *PL 'You can take no further actions.' act 'Continue' : CLA wait 500 gt 'blackjackPlay', 'dealer' end else if numHands = 1: *PL 'You are considering actions for your hand.' $text = '' else *PL 'You are considering your actions for hand #<>.' $text = 'Hand #<>: ' end act '<<$text>>Hit' : i = currentHand * 16 + 2 :loop1 if playerHand[i] ! 0: i += 1 & jump 'loop1' playerHand[i] = cardsDealt cardsDealt += 1 *CLR & CLA *PL '
    ' wait 750 gt 'blackjackPlay', 'player' end if money >= betTotal + playerBets[currentHand]: act '<<$text>>Double' : doubleBet = 1 betTotal += playerBets[currentHand] playerBets[currentHand] *= 2 i = currentHand * 16 + 2 :loop2 if playerHand[i] ! 0: i += 1 & jump 'loop2' playerHand[i] = cardsDealt cardsDealt += 1 *CLR & CLA *PL '
    ' wait 750 gt 'blackjackPlay', 'player' end if playerHand[currentHand * 16 + 2] = 0 and ((deckFace[playerHand[currentHand * 16]] > 9 and deckFace[playerHand[currentHand * 16 + 1]] > 9) or deckFace[playerHand[currentHand * 16]] = deckFace[playerHand[currentHand * 16 + 1]]): act '<<$text>>Split' : betTotal += playerBets[currentHand] playerBets[numHands] = playerBets[currentHand] numHands += 1 i = (currentHand + 1) * 16 :loop3 if playerHand[i] ! 0: i += 16 & jump 'loop3' playerHand[i] = playerHand[currentHand * 16 + 1] playerHand[currentHand * 16 + 1] = cardsDealt cardsDealt += 1 playerHand[i + 1] = cardsDealt cardsDealt += 1 *CLR & CLA *PL '
    ' wait 750 gt 'blackjackPlay', 'player' end end end act '<<$text>>Stay' : currentHand += 1 CLA wait 500 if currentHand < numHands: gt 'blackjackPlay', 'player' if currentHand >= numHands: gt 'blackjackPlay', 'dealer' end end end if $ARGS[0] = 'dealer': gs 'blackjackView', 1 if dealerPoints < 17: act 'Continue' : i = 2 :loop4 if dealerHand[i] ! 0: i += 1 & jump 'loop4' dealerHand[i] = cardsDealt cardsDealt += 1 *CLR & CLA *PL '
    ' wait 750 gt 'blackjackPlay', 'dealer' end elseif dealerPoints > 21: betTotal = 0 i = 0 :loop5 if playerPoints[i] <= 21: betTotal += playerBets[i] i += 1 if i < numHands: jump 'loop5' *PL 'PLAYER WINS' *P 'You receive <> ₽ in winnings.' money += betTotal act 'Continue' : gt 'blackjackPlay', 'new' else betTotal = 0 i = 0 :loop6 if playerPoints[i] > 21: betTotal -= playerBets[i] elseif playerPoints[i] < dealerPoints: betTotal -= playerBets[i] elseif playerpoints[i] > dealerPoints: betTotal += playerBets[i] end i += 1 if i < numHands: jump 'loop6' if betTotal = 0: *PL 'DRAW GAME' if numHands = 1: *P 'You retrieve your bet.' if numHands > 1: *P 'You retrieve your bets.' elseif betTotal < 0: *PL 'DEALER WINS' if numHands > 1: *P 'After taking into account all the hands, you have lost. ' *P 'The dealer relieves you of <<0 - betTotal>> ₽.' else *PL 'PLAYER WINS' if numHands > 1: *P 'After taking into account all the hands, you have won. ' *P 'You receive <> ₽ in winnings.' end money += betTotal act 'Continue' : gt 'blackjackPlay', 'new' end end --- blackjackPlay ---------------------------------