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
|
CeruleanCity_Script:
call EnableAutoTextBoxDrawing
ld hl, CeruleanCity_ScriptPointers
ld a, [wCeruleanCityCurScript]
jp CallFunctionInTable
CeruleanCityScript_1948c:
xor a
ld [wJoyIgnore], a
ld [wCeruleanCityCurScript], a
ld a, HS_CERULEAN_RIVAL
ld [wMissableObjectIndex], a
predef_jump HideObject
CeruleanCity_ScriptPointers:
dw CeruleanCityScript0
dw CeruleanCityScript1
dw CeruleanCityScript2
dw CeruleanCityScript3
dw CeruleanCityScript4
CeruleanCityScript4:
ld a, [wIsInBattle]
cp $ff
jp z, CeruleanCityScript_1948c
ld a, $f0
ld [wJoyIgnore], a
SetEvent EVENT_BEAT_CERULEAN_ROCKET_THIEF
ld a, $2
ldh [hSpriteIndexOrTextID], a
call DisplayTextID
xor a
ld [wJoyIgnore], a
ld [wCeruleanCityCurScript], a
ret
CeruleanCityScript0:
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, $2
ldh [hSpriteIndexOrTextID], 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, $f0
ld [wJoyIgnore], a
ld a, [wXCoord]
cp 20 ; is the player standing on the right side of the bridge?
jr z, .playerOnRightSideOfBridge
ld a, $1
ldh [hSpriteIndex], a
ld a, SPRITESTATEDATA2_MAPX
ldh [hSpriteDataOffset], a
call GetPointerWithinSpriteStateData2
ld [hl], 25
.playerOnRightSideOfBridge
ld a, HS_CERULEAN_RIVAL
ld [wMissableObjectIndex], a
predef ShowObject
ld de, CeruleanCityMovement1
ld a, $1
ldh [hSpriteIndex], a
call MoveSprite
ld a, $1
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
CeruleanCityScript_1955d:
ld a, 1
ldh [hSpriteIndex], a
xor a ; SPRITE_FACING_DOWN
ldh [hSpriteFacingDirection], a
jp SetSpriteFacingDirectionAndDelay ; face object
CeruleanCityScript1:
ld a, [wd730]
bit 0, a
ret nz
xor a
ld [wJoyIgnore], a
ld a, $1
ldh [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, OPP_RIVAL1
ld [wCurOpponent], a
ld a, 3
ld [wTrainerNo], a
xor a
ldh [hJoyHeld], a
call CeruleanCityScript_1955d
ld a, $2
ld [wCeruleanCityCurScript], a
ret
CeruleanCityScript2:
ld a, [wIsInBattle]
cp $ff
jp z, CeruleanCityScript_1948c
call CeruleanCityScript_1955d
ld a, $f0
ld [wJoyIgnore], a
SetEvent EVENT_BEAT_CERULEAN_RIVAL
ld a, $1
ldh [hSpriteIndexOrTextID], a
call DisplayTextID
call StopAllMusic
farcall Music_RivalAlternateStart
ld a, $1
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, $1
ldh [hSpriteIndex], a
call MoveSprite
ld a, $3
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
CeruleanCityScript3:
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 [wCeruleanCityCurScript], a
ret
CeruleanCity_TextPointers:
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:
text_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:
text_far _CeruleanCityText_19668
text_end
CeruleanCityText_1966d:
text_far _CeruleanCityText_1966d
text_end
CeruleanCityText_19672:
text_far _CeruleanCityText_19672
text_end
CeruleanCityText_19677:
text_far _CeruleanCityText_19677
text_end
CeruleanCityText2:
text_asm
CheckEvent EVENT_BEAT_CERULEAN_ROCKET_THIEF
jr nz, .beatRocketThief
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
ldh a, [hSpriteIndexOrTextID]
ld [wSpriteIndex], a
call EngageMapTrainer
call InitBattleEnemyParameters
ld a, $4
ld [wCeruleanCityCurScript], a
jp TextScriptEnd
.beatRocketThief
ld hl, CeruleanCityText_196f3
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
CeruleanCityText_196d9:
text_far _CeruleanCityText_196d9
text_end
ReceivedTM28Text:
text_far _ReceivedTM28Text
sound_get_item_1
text_far _ReceivedTM28Text2
text_waitbutton
text_end
TM28NoRoomText:
text_far _TM28NoRoomText
text_end
CeruleanCityText_196ee:
text_far _CeruleanCityText_196ee
text_end
CeruleanCityText_196f3:
text_far _CeruleanCityText_196f3
text_end
CeruleanCityText3:
text_far _CeruleanCityText3
text_end
CeruleanCityText4:
text_far _CeruleanCityText4
text_end
CeruleanCityText5:
text_far _CeruleanCityText5
text_end
CeruleanCityText11:
CeruleanCityText6:
text_far _CeruleanCityText6
text_end
CeruleanCityText7:
text_asm
ldh a, [hRandomAdd]
cp 180 ; 76/256 chance of 1st dialogue
jr c, .notFirstText
ld hl, CeruleanCityText_19730
call PrintText
jr .end
.notFirstText
cp 100 ; 80/256 chance of 2nd dialogue
jr c, .notSecondText
ld hl, CeruleanCityText_19735
call PrintText
jr .end
.notSecondText
; 100/256 chance of 3rd dialogue
ld hl, CeruleanCityText_1973a
call PrintText
.end
jp TextScriptEnd
CeruleanCityText_19730:
text_far _CeruleanCityText_19730
text_end
CeruleanCityText_19735:
text_far _CeruleanCityText_19735
text_end
CeruleanCityText_1973a:
text_far _CeruleanCityText_1973a
text_end
CeruleanCityText8:
text_asm
ldh a, [hRandomAdd]
cp 180 ; 76/256 chance of 1st dialogue
jr c, .notFirstText
ld hl, CeruleanCityText_1976f
call PrintText
jr .end
.notFirstText
cp 120 ; 60/256 chance of 2nd dialogue
jr c, .notSecondText
ld hl, CeruleanCityText_19774
call PrintText
jr .end
.notSecondText
cp 60 ; 60/256 chance of 3rd dialogue
jr c, .notThirdText
ld hl, CeruleanCityText_19779
call PrintText
jr .end
.notThirdText
; 60/256 chance of 4th dialogue
ld hl, CeruleanCityText_1977e
call PrintText
.end
jp TextScriptEnd
CeruleanCityText_1976f:
text_far _CeruleanCityText_1976f
text_end
CeruleanCityText_19774:
text_far _CeruleanCityText_19774
text_end
CeruleanCityText_19779:
text_far _CeruleanCityText_19779
text_end
CeruleanCityText_1977e:
text_far _CeruleanCityText_1977e
text_end
CeruleanCityText9:
text_far _CeruleanCityText9
text_end
CeruleanCityText10:
text_far _CeruleanCityText10
text_end
CeruleanCityText12:
text_far _CeruleanCityText12
text_end
CeruleanCityText13:
text_far _CeruleanCityText13
text_end
CeruleanCityText16:
text_far _CeruleanCityText16
text_end
CeruleanCityText17:
text_far _CeruleanCityText17
text_end
|
