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
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
|
SafariZoneGatePrintSafariZoneWorker1WouldYouLikeToJoinText::
ld hl, .WelcomeText
call PrintText
ld a, MONEY_BOX
ld [wTextBoxID], a
call DisplayTextBoxID
call YesNoChoice
ld a, [wCurrentMenuItem]
and a
jp nz, .PleaseComeAgain
ld hl, wPlayerMoney
ld a, [hli]
or [hl]
inc hl
or [hl]
jr nz, .has_positive_balance
call SafariZoneEntranceGetLowCostAdmissionText
jr c, .CantPayWalkDown
jr .poor_mans_discount
.has_positive_balance
xor a
ldh [hMoney], a
ld a, $05
ldh [hMoney + 1], a
ld a, $00
ldh [hMoney + 2], a
call HasEnoughMoney
jr nc, .success
ld hl, .NotEnoughMoneyText
call PrintText
call SafariZoneEntranceCalculateLowCostAdmission
jr c, .CantPayWalkDown
jr .poor_mans_discount
.success
xor a
ld [wPriceTemp], a
ld a, $05
ld [wPriceTemp + 1], a
ld a, $00
ld [wPriceTemp + 2], a
ld hl, wPriceTemp + 2
ld de, wPlayerMoney + 2
ld c, 3
predef SubBCDPredef
ld a, SFX_PURCHASE
call PlaySoundWaitForCurrent
call WaitForSoundToFinish
ld a, MONEY_BOX
ld [wTextBoxID], a
call DisplayTextBoxID
ld hl, .MakePaymentText
call PrintText
ld a, 30
ld hl, 502
.poor_mans_discount
ld [wNumSafariBalls], a
ld a, h
ld [wSafariSteps], a
ld a, l
ld [wSafariSteps + 1], a
ld a, PAD_UP
ld c, 3
call SafariZoneEntranceAutoWalk2
SetEvent EVENT_IN_SAFARI_ZONE
ResetEventReuseHL EVENT_SAFARI_GAME_OVER
ld a, SCRIPT_SAFARIZONEGATE_PLAYER_MOVING
ld [wSafariZoneGateCurScript], a
jr .done
.PleaseComeAgain
ld hl, .PleaseComeAgainText
call PrintText
.CantPayWalkDown
ld a, PAD_DOWN
ld c, 1
call SafariZoneEntranceAutoWalk2
ld a, SCRIPT_SAFARIZONEGATE_PLAYER_MOVING_DOWN
ld [wSafariZoneGateCurScript], a
.done
ret
.WelcomeText
text_far _SafariZoneGateSafariZoneWorker1WouldYouLikeToJoinText
text_end
.MakePaymentText
text_far _SafariZoneGateSafariZoneWorker1ThatllBe500PleaseText
sound_get_item_1
text_far _SafariZoneGateSafariZoneWorker1CallYouOnThePAText
text_end
.PleaseComeAgainText
text_far _SafariZoneGateSafariZoneWorker1PleaseComeAgainText
text_end
.NotEnoughMoneyText
text_far _SafariZoneGateSafariZoneWorker1NotEnoughMoneyText
text_end
SafariZoneGatePrintSafariZoneWorker2Text::
ld hl, .FirstTimeHereText
call PrintText
call YesNoChoice
ld a, [wCurrentMenuItem]
and a
ld hl, .YoureARegularHereText
jr nz, .print_text
ld hl, .SafariZoneExplanationText
.print_text
call PrintText
ret
.FirstTimeHereText
text_far _SafariZoneGateSafariZoneWorker2FirstTimeHereText
text_end
.SafariZoneExplanationText
text_far _SafariZoneGateSafariZoneWorker2SafariZoneExplanationText
text_end
.YoureARegularHereText
text_far _SafariZoneGateSafariZoneWorker2YoureARegularHereText
text_end
SafariZoneEntranceAutoWalk2:
push af
ld b, 0
ld a, c
ld [wSimulatedJoypadStatesIndex], a
ld hl, wSimulatedJoypadStatesEnd
pop af
call FillMemory
jp StartSimulatingJoypadStates
SafariZoneEntranceCalculateLowCostAdmission:
ld hl, wPlayerMoney
ld de, hMoney
ld bc, $3
call CopyData
xor a
ldh [hDivideBCDDivisor], a
ldh [hDivideBCDDivisor + 1], a
ld a, 23
ldh [hDivideBCDDivisor + 2], a
predef DivideBCDPredef3
ldh a, [hDivideBCDQuotient + 2]
call SafariZoneEntranceConvertBCDtoNumber
push af
ld hl, wPlayerMoney
xor a
ld bc, $3
call FillMemory
ld hl, SafariZoneEntranceText_f20c4
call PrintText_NoCreatingTextBox
ld a, MONEY_BOX
ld [wTextBoxID], a
call DisplayTextBoxID
ld hl, SafariZoneEntranceText_f20c9
call PrintText
pop af
inc a
jr z, .max_balls
cp 29
jr c, .load_balls
.max_balls
ld a, 29
.load_balls
ld hl, 502
and a
ret
SafariZoneEntranceText_f20c4:
text_far _SafariZoneLowCostText1
text_end
SafariZoneEntranceText_f20c9:
text_far _SafariZoneLowCostText2
text_end
SafariZoneEntranceGetLowCostAdmissionText:
ld hl, wSafariSteps
ld a, [hl]
push af
inc [hl]
ld e, a
ld d, $0
ld hl, Pointers_f2100
add hl, de
add hl, de
ld a, [hli]
ld h, [hl]
ld l, a
call PrintText
pop af
cp $3
jr z, .give_one_ball
scf
ret
.give_one_ball
ld hl, SafariZoneEntranceText_f20f6
call PrintText_NoCreatingTextBox
ld a, $1
ld hl, 502
and a
ret
SafariZoneEntranceText_f20f6:
text_far _SafariZoneLowCostText3
sound_get_item_1
text_far _SafariZoneLowCostText4
text_end
Pointers_f2100:
dw SafariZoneEntranceText_f210a
dw SafariZoneEntranceText_f210f
dw SafariZoneEntranceText_f2114
dw SafariZoneEntranceText_f2119
dw SafariZoneEntranceText_f2119
SafariZoneEntranceText_f210a:
text_far _SafariZoneLowCostText5
text_end
SafariZoneEntranceText_f210f:
text_far _SafariZoneLowCostText6
text_end
SafariZoneEntranceText_f2114:
text_far _SafariZoneLowCostText7
text_end
SafariZoneEntranceText_f2119:
text_far _SafariZoneLowCostText8
text_end
SafariZoneEntranceConvertBCDtoNumber:
push hl
ld c, a
and $f
ld l, a
ld h, $0
ld a, c
and $f0
swap a
ld bc, 10
call AddNTimes
ld a, l
pop hl
ret
|
