-
Notifications
You must be signed in to change notification settings - Fork 32
/
BJ.H
86 lines (72 loc) · 2.03 KB
/
BJ.H
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
[
[ bj.h
[
[ LEISURE SUIT LARRY IN THE LAND OF THE LOUNGE LIZARDS BLACKJACK HEADER
[
[ Wednesday, March 4, 1987 at 11:21 p.m.
[ Sunday, May 31, 1987 at 8:56 p.m.
[
%object aWinner 13 [ Animated objects.
%object aQuestion 14
%object aCards 15
#define CLUBS 152 [ Defines of view numbers.
#define SPADES 153
#define HEARTS 154
#define DIAMONDS 155
#define BLANK_CARD 156
#define CARD_BACK 157
%flag pSoftAce 242 [ Flags.
%flag dSoftAce 243
%flag sSoftAce 244
%flag showHelpMessage 245
%flag pBlackjack 246
%flag dBlackjack 247
%flag pDoubledDown 248
%flag sDoubledDown 249
%flag pSixCardWinner 250
%flag sSixCardWinner 251
%flag softAce 252
%flag waitingForInput 253
%flag insured 254
%flag readyToLeave 255
%var oldDTotal 216
%var oldPTotal 217
%var oldSTotal 218
%var clueTimer 219
%var work2 220 [ Vars.
%var work3 221
%var dTotal 222
%var pTotal 223
%var sTotal 224
%var sBet 225
%var pBet 226
%var insurance 227
%var winnings 228
%var function 229 [which function to execute in rm56.
#define DRAW_CARD 1
#define ERASE_CARD 2
#define DRAW_FACE_DOWN 3
#define GET_SUIT_VALUE 4
#define PAY_WINNER 5
#define UPDATE_STATUS 6
#define SHOW_TOTALS 7
%var suit 230
%var value 231
%var card 232
%var cardCount 233 [ How many cards are visible.
%var cardToTest 234
%var currentCard 235 [ Used as a pointer to vars below.
%var handInPlay 236
#define NONE 0
#define PLAYER 1
#define SPLIT 2
#define DEALER 3
#define HAND_DONE 255
[ Vars numbered 237 through 254 contain the card values for the 3 hands.
[They are only referenced indirectly, so no defines are needed.
%define firstCard 237 [ First var containing a card.
%define dFirstCard 237 [ Var numbers of the
%define pFirstCard 243 [ first card of
%define sFirstCard 249 [ each hand.
%define lastCard 254 [ Last var containing a card.
%var oldBet 255