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
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
|
CeruleanCity_Script:
call EnableAutoTextBoxDrawing
ld hl, CeruleanCity_ScriptPointers
ld a, [wCeruleanCityCurScript]
jp CallFunctionInTable
CeruleanCityClearScripts:
xor a ; SCRIPT_CERULEANCITY_DEFAULT
ld [wJoyIgnore], a
ld [wCeruleanCityCurScript], a
ld a, TOGGLE_CERULEAN_RIVAL
ld [wToggleableObjectIndex], a
predef_jump HideObject
CeruleanCity_ScriptPointers:
def_script_pointers
dw_const CeruleanCityDefaultScript, SCRIPT_CERULEANCITY_DEFAULT
dw_const CeruleanCityRivalBattleScript, SCRIPT_CERULEANCITY_RIVAL_BATTLE
dw_const CeruleanCityRivalDefeatedScript, SCRIPT_CERULEANCITY_RIVAL_DEFEATED
dw_const CeruleanCityRivalCleanupScript, SCRIPT_CERULEANCITY_RIVAL_CLEANUP
dw_const CeruleanCityRocketDefeatedScript, SCRIPT_CERULEANCITY_ROCKET_DEFEATED
CeruleanCityRocketDefeatedScript:
ld a, [wIsInBattle]
cp $ff
jp z, CeruleanCityClearScripts
ld a, PAD_CTRL_PAD
ld [wJoyIgnore], a
SetEvent EVENT_BEAT_CERULEAN_ROCKET_THIEF
ld a, TEXT_CERULEANCITY_ROCKET
ldh [hTextID], a
call DisplayTextID
xor a ; SCRIPT_CERULEANCITY_DEFAULT
ld [wJoyIgnore], a
ld [wCeruleanCityCurScript], a
ret
CeruleanCityDefaultScript:
IF DEF(_DEBUG)
call DebugPressedOrHeldB
ret nz
ENDC
CheckEvent EVENT_BEAT_CERULEAN_ROCKET_THIEF
jr nz, .skipRocketThiefEncounter
ld hl, CeruleanCityCoords1
call ArePlayerCoordsInArray
jr nc, .skipRocketThiefEncounter
ld a, [wCoordIndex]
cp $1
ld a, PLAYER_DIR_UP
ld b, SPRITE_FACING_DOWN
jr nz, .playerBelowRocketThief
ld a, PLAYER_DIR_DOWN
ld b, SPRITE_FACING_UP
.playerBelowRocketThief
ld [wPlayerMovingDirection], a
ld a, b
ld [wSprite02StateData1FacingDirection], a
call Delay3
ld a, TEXT_CERULEANCITY_ROCKET
ldh [hTextID], a
jp DisplayTextID
.skipRocketThiefEncounter
CheckEvent EVENT_BEAT_CERULEAN_RIVAL
ret nz
ld hl, CeruleanCityCoords2
call ArePlayerCoordsInArray
ret nc
ld a, [wWalkBikeSurfState]
and a
jr z, .walking
call StopAllMusic
.walking
ld c, BANK(Music_MeetRival)
ld a, MUSIC_MEET_RIVAL
call PlayMusic
xor a
ldh [hJoyHeld], a
ld a, PAD_CTRL_PAD
ld [wJoyIgnore], a
ld a, [wXCoord]
cp 20 ; is the player standing on the right side of the bridge?
jr z, .playerOnRightSideOfBridge
ld a, CERULEANCITY_RIVAL
ldh [hSpriteIndex], a
ld a, SPRITESTATEDATA2_MAPX
ldh [hSpriteDataOffset], a
call GetPointerWithinSpriteStateData2
ld [hl], 25
.playerOnRightSideOfBridge
ld a, TOGGLE_CERULEAN_RIVAL
ld [wToggleableObjectIndex], a
predef ShowObject
ld de, CeruleanCityMovement1
ld a, CERULEANCITY_RIVAL
ldh [hSpriteIndex], a
call MoveSprite
ld a, SCRIPT_CERULEANCITY_RIVAL_BATTLE
ld [wCeruleanCityCurScript], a
ret
CeruleanCityCoords1:
dbmapcoord 30, 7
dbmapcoord 30, 9
db -1 ; end
CeruleanCityCoords2:
dbmapcoord 20, 6
dbmapcoord 21, 6
db -1 ; end
CeruleanCityMovement1:
db NPC_MOVEMENT_DOWN
db NPC_MOVEMENT_DOWN
db NPC_MOVEMENT_DOWN
db -1 ; end
CeruleanCityFaceRivalScript:
ld a, CERULEANCITY_RIVAL
ldh [hSpriteIndex], a
xor a ; SPRITE_FACING_DOWN
ldh [hSpriteFacingDirection], a
jp SetSpriteFacingDirectionAndDelay ; face object
CeruleanCityRivalBattleScript:
ld a, [wStatusFlags5]
bit BIT_SCRIPTED_NPC_MOVEMENT, a
ret nz
xor a
ld [wJoyIgnore], a
ld a, TEXT_CERULEANCITY_RIVAL
ldh [hTextID], a
call DisplayTextID
ld hl, wStatusFlags3
set BIT_TALKED_TO_TRAINER, [hl]
set BIT_PRINT_END_BATTLE_TEXT, [hl]
ld hl, CeruleanCityRivalDefeatedText
ld de, CeruleanCityRivalVictoryText
call SaveEndBattleTextPointers
ld a, OPP_RIVAL1
ld [wCurOpponent], a
ld a, 3
ld [wTrainerNo], a
xor a
ldh [hJoyHeld], a
call CeruleanCityFaceRivalScript
ld a, SCRIPT_CERULEANCITY_RIVAL_DEFEATED
ld [wCeruleanCityCurScript], a
ret
CeruleanCityRivalDefeatedScript:
ld a, [wIsInBattle]
cp $ff
jp z, CeruleanCityClearScripts
call CeruleanCityFaceRivalScript
ld a, PAD_CTRL_PAD
ld [wJoyIgnore], a
SetEvent EVENT_BEAT_CERULEAN_RIVAL
ld a, TEXT_CERULEANCITY_RIVAL
ldh [hTextID], a
call DisplayTextID
call StopAllMusic
farcall Music_RivalAlternateStart
ld a, CERULEANCITY_RIVAL
ldh [hSpriteIndex], a
call SetSpriteMovementBytesToFF
ld a, [wXCoord]
cp 20 ; is the player standing on the right side of the bridge?
jr nz, .playerOnRightSideOfBridge
ld de, CeruleanCityMovement4
jr .skip
.playerOnRightSideOfBridge
ld de, CeruleanCityMovement3
.skip
ld a, CERULEANCITY_RIVAL
ldh [hSpriteIndex], a
call MoveSprite
ld a, SCRIPT_CERULEANCITY_RIVAL_CLEANUP
ld [wCeruleanCityCurScript], a
ret
CeruleanCityMovement3:
db NPC_MOVEMENT_LEFT
db NPC_MOVEMENT_DOWN
db NPC_MOVEMENT_DOWN
db NPC_MOVEMENT_DOWN
db NPC_MOVEMENT_DOWN
db NPC_MOVEMENT_DOWN
db NPC_MOVEMENT_DOWN
db -1 ; end
CeruleanCityMovement4:
db NPC_MOVEMENT_RIGHT
db NPC_MOVEMENT_DOWN
db NPC_MOVEMENT_DOWN
db NPC_MOVEMENT_DOWN
db NPC_MOVEMENT_DOWN
db NPC_MOVEMENT_DOWN
db NPC_MOVEMENT_DOWN
db -1 ; end
CeruleanCityRivalCleanupScript:
ld a, [wStatusFlags5]
bit BIT_SCRIPTED_NPC_MOVEMENT, a
ret nz
ld a, TOGGLE_CERULEAN_RIVAL
ld [wToggleableObjectIndex], a
predef HideObject
xor a
ld [wJoyIgnore], a
call PlayDefaultMusic
ld a, SCRIPT_CERULEANCITY_DEFAULT
ld [wCeruleanCityCurScript], a
ret
CeruleanCity_TextPointers:
def_text_pointers
dw_const CeruleanCityRivalText, TEXT_CERULEANCITY_RIVAL
dw_const CeruleanCityRocketText, TEXT_CERULEANCITY_ROCKET
dw_const CeruleanCityCooltrainerMText, TEXT_CERULEANCITY_COOLTRAINER_M
dw_const CeruleanCitySuperNerd1Text, TEXT_CERULEANCITY_SUPER_NERD1
dw_const CeruleanCitySuperNerd2Text, TEXT_CERULEANCITY_SUPER_NERD2
dw_const CeruleanCityGuardText, TEXT_CERULEANCITY_GUARD1
dw_const CeruleanCityCooltrainerF1Text, TEXT_CERULEANCITY_COOLTRAINER_F1
dw_const CeruleanCityElectrodeText, TEXT_CERULEANCITY_ELECTRODE
dw_const CeruleanCityCooltrainerF2Text, TEXT_CERULEANCITY_COOLTRAINER_F2
dw_const CeruleanCitySuperNerd3Text, TEXT_CERULEANCITY_SUPER_NERD3
dw_const CeruleanCityGuardText, TEXT_CERULEANCITY_GUARD2
dw_const CeruleanCitySignText, TEXT_CERULEANCITY_SIGN
dw_const CeruleanCityTrainerTipsText, TEXT_CERULEANCITY_TRAINER_TIPS
dw_const MartSignText, TEXT_CERULEANCITY_MART_SIGN
dw_const PokeCenterSignText, TEXT_CERULEANCITY_POKECENTER_SIGN
dw_const CeruleanCityBikeShopSign, TEXT_CERULEANCITY_BIKESHOP_SIGN
dw_const CeruleanCityGymSign, TEXT_CERULEANCITY_GYM_SIGN
CeruleanCityRivalText:
text_asm
CheckEvent EVENT_BEAT_CERULEAN_RIVAL
; do pre-battle text
jr z, .PreBattle
; or talk about bill
ld hl, CeruleanCityRivalIWentToBillsText
call PrintText
jr .end
.PreBattle
ld hl, .PreBattleText
call PrintText
.end
jp TextScriptEnd
.PreBattleText:
text_far _CeruleanCityRivalPreBattleText
text_end
CeruleanCityRivalDefeatedText:
text_far _CeruleanCityRivalDefeatedText
text_end
CeruleanCityRivalVictoryText:
text_far _CeruleanCityRivalVictoryText
text_end
CeruleanCityRivalIWentToBillsText:
text_far _CeruleanCityRivalIWentToBillsText
text_end
CeruleanCityRocketText:
text_asm
CheckEvent EVENT_BEAT_CERULEAN_ROCKET_THIEF
jr nz, .beatRocketThief
ld hl, .Text
call PrintText
ld hl, wStatusFlags3
set BIT_TALKED_TO_TRAINER, [hl]
set BIT_PRINT_END_BATTLE_TEXT, [hl]
ld hl, .IGiveUpText
ld de, .IGiveUpText
call SaveEndBattleTextPointers
ldh a, [hTextID]
ld [wSpriteIndex], a
call EngageMapTrainer
call InitBattleEnemyParameters
ld a, SCRIPT_CERULEANCITY_ROCKET_DEFEATED
ld [wCeruleanCityCurScript], a
jp TextScriptEnd
.beatRocketThief
ld hl, .IllReturnTheTMText
call PrintText
lb bc, TM_DIG, 1
call GiveItem
jr c, .Success
ld hl, .TM28NoRoomText
call PrintText
jr .Done
.Success
ld a, $1
ld [wDoNotWaitForButtonPressAfterDisplayingText], a
ld hl, .ReceivedTM28Text
call PrintText
farcall CeruleanHideRocket
.Done
jp TextScriptEnd
.Text:
text_far _CeruleanCityRocketText
text_end
.ReceivedTM28Text:
text_far _CeruleanCityRocketReceivedTM28Text
sound_get_item_1
text_far _CeruleanCityRocketIBetterGetMovingText
text_waitbutton
text_end
.TM28NoRoomText:
text_far _CeruleanCityRocketTM28NoRoomText
text_end
.IGiveUpText:
text_far _CeruleanCityRocketIGiveUpText
text_end
.IllReturnTheTMText:
text_far _CeruleanCityRocketIllReturnTheTMText
text_end
CeruleanCityCooltrainerMText:
text_far _CeruleanCityCooltrainerMText
text_end
CeruleanCitySuperNerd1Text:
text_far _CeruleanCitySuperNerd1Text
text_end
CeruleanCitySuperNerd2Text:
text_far _CeruleanCitySuperNerd2Text
text_end
CeruleanCityGuardText:
text_far _CeruleanCityGuardText
text_end
CeruleanCityCooltrainerF1Text:
text_asm
ldh a, [hRandomAdd]
cp 180 ; 76/256 chance of 1st dialogue
jr c, .notFirstText
ld hl, .ElectrodeUseSonicboomText
call PrintText
jr .end
.notFirstText
cp 100 ; 80/256 chance of 2nd dialogue
jr c, .notSecondText
ld hl, .ElectrodePunchText
call PrintText
jr .end
.notSecondText
; 100/256 chance of 3rd dialogue
ld hl, .ElectrodeWithdrawText
call PrintText
.end
jp TextScriptEnd
.ElectrodeUseSonicboomText:
text_far _CeruleanCityCooltrainerF1ElectrodeUseSonicboomText
text_end
.ElectrodePunchText:
text_far _CeruleanCityCooltrainerF1ElectrodePunchText
text_end
.ElectrodeWithdrawText:
text_far _CeruleanCityCooltrainerF1ElectrodeWithdrawText
text_end
CeruleanCityElectrodeText:
text_asm
ldh a, [hRandomAdd]
cp 180 ; 76/256 chance of 1st dialogue
jr c, .notFirstText
ld hl, .TookASnoozeText
call PrintText
jr .end
.notFirstText
cp 120 ; 60/256 chance of 2nd dialogue
jr c, .notSecondText
ld hl, .IsLoafingAroundText
call PrintText
jr .end
.notSecondText
cp 60 ; 60/256 chance of 3rd dialogue
jr c, .notThirdText
ld hl, .TurnedAwayText
call PrintText
jr .end
.notThirdText
; 60/256 chance of 4th dialogue
ld hl, .IgnoredOrdersText
call PrintText
.end
jp TextScriptEnd
.TookASnoozeText:
text_far _CeruleanCityElectrodeTookASnoozeText
text_end
.IsLoafingAroundText:
text_far _CeruleanCityElectrodeIsLoafingAroundText
text_end
.TurnedAwayText:
text_far _CeruleanCityElectrodeTurnedAwayText
text_end
.IgnoredOrdersText:
text_far _CeruleanCityElectrodeIgnoredOrdersText
text_end
CeruleanCityCooltrainerF2Text:
text_far _CeruleanCityCooltrainerF2Text
text_end
CeruleanCitySuperNerd3Text:
text_far _CeruleanCitySuperNerd3Text
text_end
CeruleanCitySignText:
text_far _CeruleanCitySignText
text_end
CeruleanCityTrainerTipsText:
text_far _CeruleanCityTrainerTipsText
text_end
CeruleanCityBikeShopSign:
text_far _CeruleanCityBikeShopSign
text_end
CeruleanCityGymSign:
text_far _CeruleanCityGymSign
text_end
|
