historicalsource
/
leisuresuitlarry
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
leisuresuitlarry/RM38.CG

1626 lines
27 KiB
Plaintext
Raw Permalink Blame History

[logics for room 38 -- rmBlackjack
[ "Leisure Suit Larry in the Land of the Lounge Lizards"
[ by Al Lowe
%include "rm38.msg"
%include "gamedefs.h"
%include "bj.h"
%include "contrlrs.h"
[ %view vWinner 150 [ First, a little information.
[ %view vCardsShuffling 151
[ %view vClubs 152
[ %view vSpades 153
[ %view vHearts 154
[ %view vDiamonds 155
[ %view vBlackjack 156
[ %define cBACK 0 [ Cell numbers of the card views.
[ %define c2 0
[ %define c3 1
[ %define c4 2
[ %define c5 3
[ %define c6 4
[ %define c7 5
[ %define c8 6
[ %define c9 7
[ %define c10 8
[ %define cJACK 9
[ %define cQUEEN 10
[ %define cKING 11
[ %define cACE 12
%define CARD_DELAY 9 [ Cycles between card draws.
%define DEALER_BUST 22 [ Cycles WINNER! sign is drawn.
%define WINNER 33
%define AUTO_WIN 44
%define BLACKJACK 55
%define SECONDS_BEFORE_CLUE 45
%define SHUFFLE_CYCLES 28
%define cDeal cF4
%define cHit cF6
%define cStand cF8
if (initLog)
{
SetHorizon( 1);
Reset( xyOn);
LoadLogics( lgcBlackjack);
LoadView( vWinner);
LoadView( vClubs);
LoadView( vSpades);
LoadView( vHearts);
LoadView( vDiamonds);
LoadView( vBlankCard);
LoadView( vCardBack);
LoadSound( sCard);
LoadSound( sBJWinner);
LoadSound( sCardsShuffling);
if (monitorType != MONO)
{
LoadView( vCardsShuffling);
}
else
{
LoadView( vMONOCardsShuffling);
}
LoadPic( currentRoom);
DrawPic( currentRoom);
[ Don't DiscardPic( currentRoom);
AnimateObj( aCards);
IgnoreObjs( aCards);
Position( aCards, 61, 55);
if (monitorType != MONO)
{
SetView( aCards, vCardsShuffling);
}
else
{
SetView( aCards, vMONOCardsShuffling);
}
AnimateObj( aWinner);
IgnoreObjs( aWinner);
SetView( aWinner, vWinner);
Position( aWinner, 54, 82);
oldBet = 2;
insurance = 1;
clueTimer = SECONDS_BEFORE_CLUE;
ShowPic( );
function = UPDATE_STATUS;
Call( lgcBlackjack);
Print( 47);
Set( handsOff);
Set( noScript);
Return();
} [ end initLOG
Set( nearPerson);
[*****
:handleInput
[*****
if ((Controller( cHelp) ||
Said( help)))
{
Set( showHelpMessage);
}
if ((Said( tip, dealer) ||
Said( give, dealer, money) ||
Said( give, money, dealer)))
{
Print( 23);
}
if ((Controller( cDeal) ||
Said( deal, hand) ||
Said( deal, cards) ||
Said( deal)))
{
clueTimer = SECONDS_BEFORE_CLUE;
if (handInPlay)
{
Print( 28);
}
else
{
if (!oldBet)
{
Print( 7); [ "Bet some money, dummy!
Print( 8);
}
else
{
if (oldBet > dollars) [ "You don't have that much, dummy!
{
script = 0;
Print( 30);
}
else
{
Set( scriptDone);
script = 0;
}
}
}
}
if ((Controller( cStand) ||
Said( stand)))
{
clueTimer = SECONDS_BEFORE_CLUE;
if (!waitingForInput)
{
Print( 44);
}
else
{
if (handInPlay == PLAYER)
{
script = 100; [ Let's move on.
Set( scriptDone);
}
else
{
if (handInPlay == SPLIT)
{
script = 200;
Set( scriptDone);
}
else
{
Print( 44);
}
}
}
}
if ((Controller( cHit) ||
Said( hit) ||
Said( hit, me) ||
Said( card) ||
Said( give, me, card)))
{
clueTimer = SECONDS_BEFORE_CLUE;
if (!waitingForInput)
{
Print( 44);
}
else
{
if (handInPlay == PLAYER)
{
++cardCount;
currentCard = pFirstCard;
currentCard += cardCount;
--currentCard;
function = DRAW_CARD;
Call( lgcBlackjack);
pTotal += value;
if (softAce)
{
Reset( softAce);
Set( pSoftAce);
}
}
else
{
if (handInPlay == SPLIT)
{
++cardCount;
currentCard = sFirstCard;
currentCard += cardCount;
--currentCard;
function = DRAW_CARD;
Call( lgcBlackjack);
sTotal += value;
if (softAce)
{
Reset( softAce);
Set( sSoftAce);
}
}
else
{
Print( 44);
}
}
}
}
if (!haveInput) {goto noInput;}
if ((Said( double) ||
Said( double, up) ||
Said( double, down)))
{
clueTimer = SECONDS_BEFORE_CLUE;
if (!waitingForInput)
{
Print( 44);
}
else
{
if (handInPlay == PLAYER)
{
if ((pTotal < 10 ||
pTotal > 11))
{
Print( 24);
}
else
{
if (dollars < pBet)
{
Print( 27);
}
else
{
Set( scriptDone);
script = 20;
}
}
}
else
{
if (handInPlay != SPLIT)
{
Print( 44); [ "You fuckup!"
}
else [ It's not a player or split hand!
{
if ((sTotal < 10 ||
sTotal > 11))
{
Print( 24);
}
else
{
if (dollars < sBet)
{
Print( 27);
}
else
{
Set( scriptDone);
script = 120;
}
}
}
}
}
}
if ((Said( split) ||
Said( split, cards) ||
Said( split, hand)))
{
clueTimer = SECONDS_BEFORE_CLUE;
if (!waitingForInput)
{
Print( 44);
}
else
{
if (handInPlay != PLAYER)
{
Print( 44);
}
else
{
if (cardCount != 2)
{
Print( 25);
}
else
{
currentCard = pFirstCard;
card =@ currentCard;
function = GET_SUIT_VALUE;
Call( lgcBlackjack); [ Check to see if he has a pair.
work = cell;
++currentCard;
card =@ currentCard;
function = GET_SUIT_VALUE;
Call( lgcBlackjack);
if (cell != work)
{
Print( 22); [ Nope.
}
else
{
if (pBet > dollars)
{
Print( 27);
}
else
{
Set( scriptDone);
script = 10;
}
}
}
}
}
}
if ((Said( surrender) ||
Said( surrender, cards) ||
Said( surrender, hand)))
{
clueTimer = SECONDS_BEFORE_CLUE;
if (!waitingForInput)
{
Print( 44);
}
else
{
if (handInPlay != PLAYER)
{
Print( 44);
}
else
{
if (cardCount != 2)
{
Print( 26);
}
else
{
Print( 6);
winnings = insurance;
function = PAY_WINNER;
Call( lgcBlackjack);
handInPlay = HAND_DONE;
}
}
}
}
if ((Said( change, bet, rol) ||
Said( new, bet, rol) ||
Said( raise, bet, rol) ||
Said( lower, bet, rol) ||
Said( bet, rol)))
{
clueTimer = SECONDS_BEFORE_CLUE;
if (handInPlay)
{
Print( 29);
}
else
{
:mrLooper2;
GetNum( 3, oldBet);
work = oldBet;
insurance = 0;
if (work > 20)
{
Print( 31);
goto mrLooper2;
}
:mrLooper4;
if (work > 1)
{
work -= 2;
++insurance;
goto mrLooper4;
}
if (work == 1)
{
Print( 4);
goto mrLooper2;
}
if (oldBet > dollars)
{
Print( 27);
goto mrLooper2;
}
function = UPDATE_STATUS;
Call( lgcBlackjack);
}
}
if (debugging &&
Said( show, all))
{
currentCard = dFirstCard;
:mrLooper;
function = DRAW_CARD;
Call( lgcBlackjack);
++currentCard;
if (!currentCard > lastCard)
{
goto mrLooper;
}
}
if ((Said( leave, rol) ||
Said( quit, rol) ||
Said( go, casino) ||
Said( look, room) ||
Said( look, casino) ||
Said( stand, up)))
{
Print( 15);
Set( readyToLeave);
}
if ((Said( rules) ||
Said( read, table) ||
Said( read, sign) ||
Said( read, rules)))
{
Set( showHelpMessage);
}
if ((Said( look) ||
Said( look, table)))
{
clueTimer = SECONDS_BEFORE_CLUE;
Print( 1);
}
if ((Said( look, girl) ||
Said( look, dealer)))
{
Print( 13);
}
if ((Said( talk, girl) ||
Said( talk, dealer)))
{
Print( 21);
}
[*****
:noInput
[*****
if (aSecondPassed)
{
--clueTimer;
if (clueTimer == 1)
{
Set( showHelpMessage);
}
}
if (showHelpMessage)
{
Reset( showHelpMessage);
Print( 45);
Print( 46);
Print( 47);
clueTimer = SECONDS_BEFORE_CLUE;
}
if (scriptDone)
{
Reset( scriptDone);
++script;
clueTimer = SECONDS_BEFORE_CLUE;
if (script == 1)
{
Reset( pBlackjack);
Reset( dBlackjack);
Reset( pDoubledDown);
Reset( sDoubledDown);
Reset( pSixCardWinner);
Reset( sSixCardWinner);
Reset( softAce);
Reset( pSoftAce);
Reset( dSoftAce);
Reset( sSoftAce);
Reset( insured);
dTotal = 0;
pTotal = 0;
sTotal = 0;
sBet = 0;
pBet = 0;
cardCount = 0;
pBet = oldBet;
dollars -= pBet;
handInPlay = PLAYER;
Set( preventSaveGame);
[ Here's where we deal all 18 cards.
currentCard = firstCard;
:dealLoop
Random( 0, 51, work);
[ This forces an ace into dealer's up card.
if (forceAtest &&
currentCard == firstCard)
{
work = 51;
}
if (currentCard != firstCard) [ Don't need to check card1.
{
cardToTest = firstCard;
:testLoop
card =@ cardToTest;
if (card == work) [ It's a match; pick another.
{
goto dealLoop;
}
++cardToTest;
if (cardToTest < currentCard) [ Don't test against itself.
{
goto testLoop;
}
}
if (currentCard == sFirstCard) [ This prevents splitting splits.
{
card = work;
function = GET_SUIT_VALUE;
Call( lgcBlackjack);
work2 = value;
work3 = pFirstCard;
card =@ work3;
function = GET_SUIT_VALUE;
Call( lgcBlackjack);
if (work2 == value)
{
goto dealLoop;
}
}
currentCard @= work; [ It's ok. Save it.
++currentCard;
if (!currentCard > lastCard)
{
goto dealLoop; [ Do another.
}
[ All cards are dealt. Clean off the table.
DrawPic( currentRoom);
ShowPic( );
function = UPDATE_STATUS;
Call( lgcBlackjack);
SetCel( aCards, 0);
Draw( aCards);
scriptCycles = SHUFFLE_CYCLES;
Sound( sCardsShuffling, soundDone);
}
if (script == 2)
{
Erase( aCards);
scriptCycles = CARD_DELAY;
}
if (script == 3)
{
currentCard = pFirstCard;
function = DRAW_CARD;
Call( lgcBlackjack);
scriptCycles = CARD_DELAY;
pTotal = value;
if (softAce)
{
Reset( softAce);
Set( pSoftAce);
}
}
if (script == 4)
{
currentCard = dFirstCard;
function = DRAW_CARD;
Call( lgcBlackjack);
scriptCycles = CARD_DELAY;
dTotal = value;
if (softAce)
{
Reset( softAce);
Set( dSoftAce);
}
}
if (script == 5)
{
currentCard = pFirstCard;
++currentCard;
function = DRAW_CARD;
Call( lgcBlackjack);
scriptCycles = CARD_DELAY;
pTotal += value;
if (softAce)
{
Reset( softAce);
Set( pSoftAce);
}
}
if (script == 6)
{
currentCard = dFirstCard;
++currentCard;
function = DRAW_FACE_DOWN;
Call( lgcBlackjack);
dTotal += value;
if (softAce)
{
Reset( softAce);
Set( dSoftAce);
}
[ First, check player's hand for BJ.
cardCount = 2; [ player's card count
currentCard = pFirstCard;
card =@ currentCard;
function = GET_SUIT_VALUE;
Call( lgcBlackjack);
if ((value == 1 || value == 10))
{
work = value;
++currentCard;
card =@ currentCard;
function = GET_SUIT_VALUE;
Call( lgcBlackjack);
if (work == 1 && value == 10) [ Either, an ace and a 10...
{
Set( pBlackjack);
}
if (work == 10 && value == 1) [ ...or, a 10 and an ace...
{
Set( pBlackjack);
}
}
[ Whether player had BJ or not, see if insurance is necessary.
currentCard = dFirstCard;
card =@ currentCard;
function = GET_SUIT_VALUE;
Call( lgcBlackjack);
if (value == 1)
{
[ Dealer has an ace showing. Handle insurance dialogue.
CancelLine();
PreventInput();
if (monitorType == MONO)
{
ClearLines( 24, 24, BG_COLOR);
Display( 24, 0, 2);
}
else
{
ClearLines( 23, 23, BG_COLOR);
Display( 23, 0, 2);
}
lastChar = 0;
SetScanStart();
if (!lastChar)
{
Return();
}
if ((lastChar == 89 || [ Y
lastChar == 121)) [ y
{
if (insurance > dollars)
{
Print( 27);
}
else
{
Set( insured);
dollars -= insurance;
function = UPDATE_STATUS;
Call( lgcBlackjack);
}
}
else
{
if (lastChar != 78 && [ N
lastChar != 110) [ n
{
Print( 10);
lastChar = 0;
Return();
}
}
ResetScanStart(); [ We have a legal answer.
lastChar = 0;
if (monitorType == MONO)
{
ClearLines( 24, 24, BG_COLOR);
}
else
{
ClearLines( 23, 23, BG_COLOR);
}
AcceptInput();
}
[ Finally, check dealer's hand for BJ.
currentCard = dFirstCard;
card =@ currentCard;
function = GET_SUIT_VALUE;
Call( lgcBlackjack);
if ((value == 1 || value == 10))
{
work = value;
++currentCard;
card =@ currentCard;
function = GET_SUIT_VALUE;
Call( lgcBlackjack);
if (work == 1 && value == 10) [ Either, an ace and a 10...
{
Set( dBlackjack);
}
if (work == 10 && value == 1) [ ...or, a 10 and an ace...
{
Set( dBlackjack);
}
}
[ Now the flags are set, figure out what happens.
if (pBlackjack)
{
Print( 17); [ You got BJ!
if (dBlackjack) [ Him too? It's a push!
{
handInPlay = HAND_DONE;
currentCard = dFirstCard;
++currentCard; [ Turn over dealer's hole card.
function = DRAW_CARD;
Call( lgcBlackjack);
Print( 5); [ Dealer got BJ!
Print( 14); [ It's a push.
winnings = pBet;
function = PAY_WINNER;
Call( lgcBlackjack);
if (insured)
{
Print( 9); [ Your insurance pays off.
winnings = insurance;
winnings += insurance;
function = PAY_WINNER;
Call( lgcBlackjack);
}
}
else
{
winnings = pBet; [ It's all yours. Pay him...
winnings += pBet;
winnings += insurance; [ ...1 & 1/2 his original bet.
function = PAY_WINNER;
Call( lgcBlackjack);
scriptCycles = BLACKJACK;
Draw( aWinner);
Set( soundDone);
}
}
else
{
[ No player BJ. How about dealer?
if (!dBlackjack)
{
[ Continue on. Nothing exciting this hand!
Set( waitingForInput);
script = 8; [ Skip the Erase( aWinner); below.
}
else
{
[ Dealer got BJ!
handInPlay = HAND_DONE;
currentCard = dFirstCard;
++currentCard;
function = DRAW_CARD; [ Turn over hole card.
Call( lgcBlackjack);
function = UPDATE_STATUS;
Call( lgcBlackjack);
Print( 5); [ Dealer got BJ!
if (insured)
{
Print( 9); [ Your insurance pays off.
winnings = insurance;
winnings += insurance;
function = PAY_WINNER;
Call( lgcBlackjack);
}
}
}
}
if (script == 7) [ Get here if only player has BJ.
{
Erase( aWinner);
handInPlay = HAND_DONE;
}
[ This is what happens if he decides to legally split a pair.
if (script == 11)
{
Reset( waitingForInput);
sBet = oldBet;
dollars -= sBet;
function = UPDATE_STATUS;
Call( lgcBlackjack);
currentCard = sFirstCard; [ Swap current pCard2...
work =@ currentCard;
work2 = pFirstCard;
++work2;
work3 =@ work2;
currentCard @= work3;
work2 @= work; [ ...with sCard1.
currentCard = pFirstCard; [ Erase existing pCard2.
++currentCard;
function = ERASE_CARD;
Call( lgcBlackjack);
scriptCycles = CARD_DELAY;
}
if (script == 12)
{
currentCard = sFirstCard; [ now draw sCard1 (old pCard2).
function = DRAW_CARD;
Call( lgcBlackjack);
scriptCycles = CARD_DELAY;
pTotal -= value;
if (softAce)
{
Reset( softAce);
Set( sSoftAce);
}
}
if (script == 13)
{
Set( waitingForInput);
currentCard = pFirstCard;
++currentCard;
function = DRAW_CARD; [ Now draw NEW pCard2.
Call( lgcBlackjack);
pTotal += value;
if (softAce)
{
Reset( softAce);
Set( pSoftAce);
}
}
[ Here we handle if the player legally doubled down.
if (script == 21)
{
Reset( waitingForInput);
dollars -= pBet;
pBet += pBet; [ Double his bet.
function = UPDATE_STATUS;
Call( lgcBlackjack);
scriptCycles = CARD_DELAY;
}
if (script == 22)
{
Set( waitingForInput);
Set( pDoubledDown);
++cardCount;
currentCard = pFirstCard;
currentCard += cardCount;
--currentCard;
function = DRAW_CARD;
Call( lgcBlackjack);
pTotal += value;
if (softAce)
{
Reset( softAce);
Set( pSoftAce);
}
script = 101;
}
[ Handle a player's six card winning hand.
if (script == 31)
{
Print( 18); [ Six cards win!
script = 101;
Set( pSixCardWinner);
}
[ This wraps up the player's hand, and determines which hand comes
[next: either the split or the dealer.
if (script == 101) [ pHand is over. Now what?
{
handInPlay = SPLIT;
Reset( waitingForInput);
if (pSoftAce && pTotal < 12)
{
Reset( pSoftAce);
pTotal += 10;
}
if (pTotal > 21) [ If busted, tell him about it.
{
if (!sBet)
{
Print( 11); [ You're busted.
}
else
{
Print( 38); [ *First* hand busted.
}
}
if (!sBet) [ We have no further business here.
{
script = 201; [ So let's do the dealer.
}
else
{
Set( waitingForInput);
Reset( softAce);
cardCount = 2;
currentCard = sFirstCard; [ sCard1 is already drawn.
card =@ currentCard;
function = GET_SUIT_VALUE;
Call( lgcBlackjack); [ Fix up sTotal.
sTotal = value;
if (softAce)
{
Reset( softAce);
Set( sSoftAce);
}
currentCard = sFirstCard;
++currentCard;
function = DRAW_CARD; [ Draw sCard2.
Call( lgcBlackjack);
sTotal += value;
if (softAce)
{
Reset( softAce);
Set( sSoftAce);
}
}
}
if (script == 121) [ Split hand doubled down.
{
Reset( waitingForInput);
dollars -= sBet;
sBet += sBet; [ Double bet.
function = UPDATE_STATUS;
Call( lgcBlackjack);
scriptCycles = CARD_DELAY;
}
if (script == 122)
{
Set( waitingForInput);
Set( sDoubledDown);
++cardCount;
currentCard = sFirstCard;
currentCard += cardCount;
--currentCard;
function = DRAW_FACE_DOWN;
Call( lgcBlackjack);
sTotal += value;
if (softAce)
{
Reset( softAce);
Set( sSoftAce);
}
script = 201;
}
[ Handle the split hand's six card winner.
if (script == 131)
{
Print( 18); [ Six cards win!
script = 201;
Set( sSixCardWinner);
}
if (script == 201)
{
Reset( waitingForInput);
handInPlay = DEALER;
scriptCycles = CARD_DELAY;
[ First, wrap up the split hand.
if (sBet && sSoftAce && sTotal < 12)
{
Reset( sSoftAce);
sTotal += 10;
}
if (sTotal > 21)
{
Print( 42); [ *Split* hand busted.
}
[ Now, it's the dealer's turn. Decide where to go from here.
[There are three branches we COULD take:
[
[ a. He's now a loser; script jumps to 220;
[ b. He's an auto-winner; script jumps to 230;
[ c. He's still in contention; script continues.
[
[ All are the real script -= 1, since we want a little
[delay first.
if (pTotal < 22) [ He's still good.
{
if (pSixCardWinner)
{
script = 230; [ It's an auto-win.
}
}
else
{
if (!sBet)
{
script = 220; [ He's a loser!
}
else
{
if (sTotal > 21)
{
script = 220; [ He's a loser!
}
else
{
if (sSixCardWinner)
{
script = 230; [ It's an auto-win.
}
}
}
}
}
[ Now the dealer will try for his best hand. We only get
[here if at least one hand is < 22, and it wasn't a sixCardHand.
if (script == 202)
{
Reset( softAce);
scriptCycles = CARD_DELAY;
cardCount = 2;
currentCard = dFirstCard; [ Get value of dealer's hand.
card =@ currentCard;
function = GET_SUIT_VALUE;
Call( lgcBlackjack);
dTotal = value;
if (softAce)
{
Reset( softAce);
Set( dSoftAce);
}
++currentCard;
function = DRAW_CARD; [ Turn over his hole card.
Call( lgcBlackjack);
dTotal += value;
if (softAce)
{
Reset( softAce);
Set( dSoftAce);
}
}
if (script == 203)
{
scriptCycles = CARD_DELAY;
if (dSoftAce &&
dTotal > 6 &&
dTotal < 12)
{
Reset( dSoftAce);
dTotal += 10;
}
if (dTotal < 17)
{
++cardCount; [ Dealer needs another card.
currentCard = dFirstCard;
currentCard += cardCount;
--currentCard; [ currentCard is var# of next card.
function = DRAW_CARD;
Call( lgcBlackjack);
dTotal += value;
if (softAce)
{
Reset( softAce);
Set( dSoftAce);
}
if (cardCount < 6)
{
script -= 1;
}
}
}
[ Dealer is all done, whether he got to play any additional cards
[or not. So, clean things up, and make handInPlay = HAND_DONE.
if (script == 204)
{
if (pDoubledDown)
{
currentCard = pFirstCard;
++currentCard;
++currentCard;
function = DRAW_CARD; [ Draw pCard3 (formerly face down).
Call( lgcBlackjack);
}
if (dTotal > 21) [ Dealer went bust.
{
Print( 12);
if (pTotal > 21)
{
++script; [ Go check the split hand!
}
else
{
winnings = pBet;
winnings += pBet;
function = PAY_WINNER;
Call( lgcBlackjack);
scriptCycles = DEALER_BUST;
Draw( aWinner);
Set( soundDone);
}
}
else [ Dealer NOT bust.
{
if (pTotal > 21) [ Handle the player's hand first.
{
++script; [ Go check the split hand!
}
else
{
if (pTotal > dTotal) [ Player wins.
{
if (sBet)
{
Print( 36);
}
winnings = pBet;
winnings += pBet;
function = PAY_WINNER;
Call( lgcBlackjack);
scriptCycles = WINNER;
Draw( aWinner);
Set( soundDone);
}
if (pTotal == dTotal) [ Player's hand's a push.
{
if (sBet)
{
Print( 35);
}
else
{
Print( 14);
}
winnings = pBet;
function = PAY_WINNER;
Call( lgcBlackjack);
++script;
}
if (pTotal < dTotal) [ Player loses.
{
++script;
if (sBet)
{
Print( 37);
}
else
{
Print( 16);
}
}
}
}
}
[ After dealing with the player's hand, we now check the split hand.
if (script == 205)
{
if (!sBet) [ No split hand?
{
++script; [ ...Leave.
}
else
{
if (sDoubledDown)
{
currentCard = sFirstCard;
++currentCard;
++currentCard;
function = DRAW_CARD; [ Draw sCard3 face up.
Call( lgcBlackjack);
}
if (dTotal > 21) [ Dealer went bust.
{
if (pTotal > 21) [ He didn't see this before,
{
Print( 12); [ so show him now.
}
if (sTotal > 21)
{
++script; [ Go erase the winner?
}
else
{
winnings = sBet;
winnings += sBet;
function = PAY_WINNER;
Call( lgcBlackjack);
scriptCycles = DEALER_BUST;
if (pTotal > 21) [ It wasn't drawn,
{
Draw( aWinner); [ so draw it.
}
Set( soundDone);
}
}
else [ Dealer NOT bust.
{
if (sTotal > 21)
{
++script; [ Go erase the winner?
}
else
{
if (sTotal > dTotal) [ Split wins.
{
Print( 40);
winnings = sBet;
winnings += sBet;
function = PAY_WINNER;
Call( lgcBlackjack);
scriptCycles = WINNER;
if (pTotal > 21) [ It wasn't drawn,
{
Draw( aWinner); [ so draw it.
}
Set( soundDone);
}
if (sTotal == dTotal) [ Split hand's a push.
{
Print( 39);
winnings = sBet;
function = PAY_WINNER;
Call( lgcBlackjack);
++script;
}
if (sTotal < dTotal) [ Player loses.
{
Print( 41);
++script;
}
}
}
}
}
[ We only get here if the WINNER sign is drawn. Erase it.
if (script == 206)
{
Erase( aWinner);
handInPlay = HAND_DONE;
}
[ He lost. Turn over dealer's hole card and tell him the bad news.
if (script == 221)
{
currentCard = dFirstCard;
++currentCard;
function = DRAW_CARD;
Call( lgcBlackjack);
handInPlay = HAND_DONE;
}
[ He's a six-card automatic winner. Pay off without showing
[dealer's hole card. Tell him the good news.
if (script == 231)
{
if (!pSixCardWinner)
{
++script;
}
else
{
winnings = pBet;
winnings += pBet;
function = PAY_WINNER;
Call( lgcBlackjack);
scriptCycles = AUTO_WIN;
Draw( aWinner);
Set( soundDone);
}
}
if (script == 232)
{
if (!sSixCardWinner)
{
++script;
}
else
{
winnings = sBet;
winnings += sBet;
function = PAY_WINNER;
Call( lgcBlackjack);
scriptCycles = AUTO_WIN;
Draw( aWinner);
Set( soundDone);
}
}
if (script == 233)
{
Erase( aWinner);
handInPlay = HAND_DONE;
}
}
if (handInPlay == HAND_DONE)
{
handInPlay = NONE;
Reset( waitingForInput);
Reset( preventSaveGame);
script = 0;
scriptCycles = 0;
clueTimer = SECONDS_BEFORE_CLUE;
if (!dollars) [ "You eat discarded fast food
{
script = 0;
function = UPDATE_STATUS;
Call( lgcBlackjack);
}
}
if (handInPlay == PLAYER)
{
if (pTotal > 21)
{
Set( scriptDone);
script = 100; [ Busted
}
else
{
if (cardCount > 5)
{
Set( scriptDone);
script = 30; [ a Six Card Winner.
}
}
}
if (handInPlay == SPLIT) [ Auto detection of busts & winners
{
if (sTotal > 21)
{
Set( scriptDone);
script = 200; [ Busted
}
else
{
if (cardCount > 5)
{
Set( scriptDone);
script = 130; [ A six card winner!
}
}
}
if (soundDone)
{
Reset( soundDone);
if (script == 1) [ It's the card shuffling sound.
{
Sound( sCardsShuffling, soundDone);
}
if ((script == 6 || [ It's the BJ sound!
script == 204 ||
script == 205 ||
script == 231 ||
script == 232))
{
Sound( sBJWinner, soundDone);
}
}
if (restoreInProgress)
{
function = UPDATE_STATUS;
Call( lgcBlackjack);
}
[*****
:exit [ test for leaving the room
[*****
if (readyToLeave)
{
Reset( handsOff);
Reset( noScript);
Reset( preventSaveGame);
newRoom = rmInsideCasino;
}
if (debugging && forceAtest)
{
if ((pTotal != oldPTotal ||
sTotal != oldSTotal ||
dTotal != oldDTotal))
{
function = SHOW_TOTALS;
Call( lgcBlackjack);
}
}
Reference in New Issue View Git Blame Copy Permalink