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
442
443
444
445
446
447
448
449
450
451
452
|
CeruleanCityScript: ; 19480 (6:5480)
call EnableAutoTextBoxDrawing
ld hl, CeruleanCityScriptPointers
ld a, [W_CERULEANCITYCURSCRIPT]
jp CallFunctionInTable
CeruleanCityScript_1948c: ; 1948c (6:548c)
xor a
ld [wJoyIgnore], a
ld [W_CERULEANCITYCURSCRIPT], a
ld a, HS_CERULEAN_RIVAL
ld [wMissableObjectIndex], a
predef_jump HideObject
CeruleanCityScriptPointers: ; 1949d (6:549d)
dw CeruleanCityScript0
dw CeruleanCityScript1
dw CeruleanCityScript2
dw CeruleanCityScript3
dw CeruleanCityScript4
CeruleanCityScript4: ; 194a7 (6:54a7)
ld a, [W_ISINBATTLE]
cp $ff
jp z, CeruleanCityScript_1948c
ld a, $f0
ld [wJoyIgnore], a
SetEvent EVENT_BEAT_CERULEAN_ROCKET_THIEF
ld a, $2
ld [hSpriteIndexOrTextID], a
call DisplayTextID
xor a
ld [wJoyIgnore], a
ld [W_CERULEANCITYCURSCRIPT], a
ret
CeruleanCityScript0: ; 194c8 (6:54c8)
CheckEvent EVENT_BEAT_CERULEAN_ROCKET_THIEF
jr nz, .asm_194f7
ld hl, CeruleanCityCoords1
call ArePlayerCoordsInArray
jr nc, .asm_194f7
ld a, [wCoordIndex]
cp $1
ld a, PLAYER_DIR_UP
ld b, SPRITE_FACING_DOWN
jr nz, .asm_194e6
ld a, PLAYER_DIR_DOWN
ld b, SPRITE_FACING_UP
.asm_194e6
ld [wPlayerMovingDirection], a
ld a, b
ld [wSpriteStateData1 + 2 * $10 + $9], a
call Delay3
ld a, $2
ld [hSpriteIndexOrTextID], a
jp DisplayTextID
.asm_194f7
CheckEvent EVENT_BEAT_CERULEAN_RIVAL
ret nz
ld hl, CeruleanCityCoords2
call ArePlayerCoordsInArray
ret nc
ld a, [wWalkBikeSurfState]
and a
jr z, .asm_19512
ld a, $ff
ld [wc0ee], a
call PlaySound
.asm_19512
ld c, BANK(Music_MeetRival)
ld a, MUSIC_MEET_RIVAL
call PlayMusic
xor a
ld [hJoyHeld], a
ld a, $f0
ld [wJoyIgnore], a
ld a, [W_XCOORD]
cp $14
jr z, .asm_19535
ld a, $1
ld [H_SPRITEINDEX], a
ld a, $5
ld [H_SPRITEDATAOFFSET], a
call GetPointerWithinSpriteStateData2
ld [hl], $19
.asm_19535
ld a, HS_CERULEAN_RIVAL
ld [wMissableObjectIndex], a
predef ShowObject
ld de, CeruleanCityMovement1
ld a, $1
ld [H_SPRITEINDEX], a
call MoveSprite
ld a, $1
ld [W_CERULEANCITYCURSCRIPT], a
ret
CeruleanCityCoords1: ; 1954f (6:554f)
db $07,$1e
db $09,$1e
db $ff
CeruleanCityCoords2: ; 19554 (6:5554)
db $06,$14
db $06,$15
db $ff
CeruleanCityMovement1: ; 19559 (6:5559)
db NPC_MOVEMENT_DOWN
db NPC_MOVEMENT_DOWN
db NPC_MOVEMENT_DOWN
db $FF
CeruleanCityScript_1955d: ; 1955d (6:555d)
ld a,1
ld [H_SPRITEINDEX],a
xor a ; SPRITE_FACING_DOWN
ld [hSpriteFacingDirection],a
jp SetSpriteFacingDirectionAndDelay ; face object
CeruleanCityScript1: ; 19567 (6:5567)
ld a, [wd730]
bit 0, a
ret nz
xor a
ld [wJoyIgnore], a
ld a, $1
ld [hSpriteIndexOrTextID], a
call DisplayTextID
ld hl, wd72d
set 6, [hl]
set 7, [hl]
ld hl, CeruleanCityText_1966d
ld de, CeruleanCityText_19672
call SaveEndBattleTextPointers
ld a, SONY1 + $c8
ld [W_CUROPPONENT], a
; select which team to use during the encounter
ld a, [W_RIVALSTARTER]
cp STARTER2
jr nz, .NotSquirtle
ld a, $7
jr .done
.NotSquirtle
cp STARTER3
jr nz, .Charmander
ld a, $8
jr .done
.Charmander
ld a, $9
.done
ld [W_TRAINERNO], a
xor a
ld [hJoyHeld], a
call CeruleanCityScript_1955d
ld a, $2
ld [W_CERULEANCITYCURSCRIPT], a
ret
CeruleanCityScript2: ; 195b1 (6:55b1)
ld a, [W_ISINBATTLE]
cp $ff
jp z, CeruleanCityScript_1948c
call CeruleanCityScript_1955d
ld a, $f0
ld [wJoyIgnore], a
SetEvent EVENT_BEAT_CERULEAN_RIVAL
ld a, $1
ld [hSpriteIndexOrTextID], a
call DisplayTextID
ld a, $ff
ld [wc0ee], a
call PlaySound
callba Music_RivalAlternateStart
ld a, $1
ld [H_SPRITEINDEX], a
call SetSpriteMovementBytesToFF
ld a, [W_XCOORD]
cp $14
jr nz, .asm_195f0
ld de, CeruleanCityMovement4
jr .asm_195f3
.asm_195f0
ld de, CeruleanCityMovement3
.asm_195f3
ld a, $1
ld [H_SPRITEINDEX], a
call MoveSprite
ld a, $3
ld [W_CERULEANCITYCURSCRIPT], a
ret
CeruleanCityMovement3: ; 19600 (6:5600)
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 $FF
CeruleanCityMovement4: ; 19608 (6:5608)
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 $FF
CeruleanCityScript3: ; 19610 (6:5610)
ld a, [wd730]
bit 0, a
ret nz
ld a, HS_CERULEAN_RIVAL
ld [wMissableObjectIndex], a
predef HideObject
xor a
ld [wJoyIgnore], a
call PlayDefaultMusic
ld a, $0
ld [W_CERULEANCITYCURSCRIPT], a
ret
CeruleanCityTextPointers: ; 1962d (6:562d)
dw CeruleanCityText1
dw CeruleanCityText2
dw CeruleanCityText3
dw CeruleanCityText4
dw CeruleanCityText5
dw CeruleanCityText6
dw CeruleanCityText7
dw CeruleanCityText8
dw CeruleanCityText9
dw CeruleanCityText10
dw CeruleanCityText11
dw CeruleanCityText12
dw CeruleanCityText13
dw MartSignText
dw PokeCenterSignText
dw CeruleanCityText16
dw CeruleanCityText17
CeruleanCityText1: ; 1964f (6:564f)
TX_ASM
CheckEvent EVENT_BEAT_CERULEAN_RIVAL
; do pre-battle text
jr z, .PreBattleText
; or talk about bill
ld hl, CeruleanCityText_19677
call PrintText
jr .end
.PreBattleText
ld hl, CeruleanCityText_19668
call PrintText
.end
jp TextScriptEnd
CeruleanCityText_19668: ; 19668 (6:5668)
TX_FAR _CeruleanCityText_19668
db "@"
CeruleanCityText_1966d: ; 1966d (6:566d)
TX_FAR _CeruleanCityText_1966d
db "@"
CeruleanCityText_19672: ; 19672 (6:5672)
TX_FAR _CeruleanCityText_19672
db "@"
CeruleanCityText_19677: ; 19677 (6:5677)
TX_FAR _CeruleanCityText_19677
db "@"
CeruleanCityText2: ; 1967c (6:567c)
TX_ASM
CheckEvent EVENT_BEAT_CERULEAN_ROCKET_THIEF
jr nz, .asm_4ca20
ld hl, CeruleanCityText_196d9
call PrintText
ld hl, wd72d
set 6, [hl]
set 7, [hl]
ld hl, CeruleanCityText_196ee
ld de, CeruleanCityText_196ee
call SaveEndBattleTextPointers
ld a, [hSpriteIndexOrTextID]
ld [wSpriteIndex], a
call EngageMapTrainer
call InitBattleEnemyParameters
ld a, $4
ld [W_CERULEANCITYCURSCRIPT], a
jp TextScriptEnd
.asm_4ca20
ld hl, CeruleanCityText_196f3
call PrintText
lb bc, TM_28, 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
callba CeruleanHideRocket
.Done
jp TextScriptEnd
CeruleanCityText_196d9: ; 196d9 (6:56d9)
TX_FAR _CeruleanCityText_196d9
db "@"
ReceivedTM28Text: ; 196de (6:56de)
TX_FAR _ReceivedTM28Text
db $0B
TX_FAR _ReceivedTM28Text2
db $0D, "@"
TM28NoRoomText: ; 196e9 (6:56e9)
TX_FAR _TM28NoRoomText
db "@"
CeruleanCityText_196ee: ; 196ee (6:56ee)
TX_FAR _CeruleanCityText_196ee
db "@"
CeruleanCityText_196f3: ; 196f3 (6:56f3)
TX_FAR _CeruleanCityText_196f3
db "@"
CeruleanCityText3: ; 196f8 (6:56f8)
TX_FAR _CeruleanCityText3
db "@"
CeruleanCityText4: ; 196fd (6:56fd)
TX_FAR _CeruleanCityText4
db "@"
CeruleanCityText5: ; 19702 (6:5702)
TX_FAR _CeruleanCityText5
db "@"
CeruleanCityText11: ; 19707 (6:5707)
CeruleanCityText6: ; 19707 (6:5707)
TX_FAR _CeruleanCityText6
db "@"
CeruleanCityText7: ; 1970c (6:570c)
TX_ASM
ld a, [hRandomAdd]
cp $b4
jr c, .asm_e9fc9
ld hl, CeruleanCityText_19730
call PrintText
jr .asm_d486e
.asm_e9fc9
cp $64
jr c, .asm_df99b
ld hl, CeruleanCityText_19735
call PrintText
jr .asm_d486e
.asm_df99b
ld hl, CeruleanCityText_1973a
call PrintText
.asm_d486e
jp TextScriptEnd
CeruleanCityText_19730: ; 19730 (6:5730)
TX_FAR _CeruleanCityText_19730
db "@"
CeruleanCityText_19735: ; 19735 (6:5735)
TX_FAR _CeruleanCityText_19735
db "@"
CeruleanCityText_1973a: ; 1973a (6:573a)
TX_FAR _CeruleanCityText_1973a
db "@"
CeruleanCityText8: ; 1973f (6:573f)
TX_ASM
ld a, [hRandomAdd]
cp $b4
jr c, .asm_e28da
ld hl, CeruleanCityText_1976f
call PrintText
jr .asm_f2f38
.asm_e28da
cp $78
jr c, .asm_15d08
ld hl, CeruleanCityText_19774
call PrintText
jr .asm_f2f38
.asm_15d08
cp $3c
jr c, .asm_d7fea
ld hl, CeruleanCityText_19779
call PrintText
jr .asm_f2f38
.asm_d7fea
ld hl, CeruleanCityText_1977e
call PrintText
.asm_f2f38
jp TextScriptEnd
CeruleanCityText_1976f: ; 1976f (6:576f)
TX_FAR _CeruleanCityText_1976f
db "@"
CeruleanCityText_19774: ; 19774 (6:5774)
TX_FAR _CeruleanCityText_19774
db "@"
CeruleanCityText_19779: ; 19779 (6:5779)
TX_FAR _CeruleanCityText_19779
db "@"
CeruleanCityText_1977e: ; 1977e (6:577e)
TX_FAR _CeruleanCityText_1977e
db "@"
CeruleanCityText9: ; 19783 (6:5783)
TX_FAR _CeruleanCityText9
db "@"
CeruleanCityText10: ; 19788 (6:5788)
TX_FAR _CeruleanCityText10
db "@"
CeruleanCityText12: ; 1978d (6:578d)
TX_FAR _CeruleanCityText12
db "@"
CeruleanCityText13: ; 19792 (6:5792)
TX_FAR _CeruleanCityText13
db "@"
CeruleanCityText16: ; 19797 (6:5797)
TX_FAR _CeruleanCityText16
db "@"
CeruleanCityText17: ; 1979c (6:579c)
TX_FAR _CeruleanCityText17
db "@"
|
