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
|
Route23Script: ; 511da (14:51da)
call Route23Script_511e9
call EnableAutoTextBoxDrawing
ld hl, Route23ScriptPointers
ld a, [W_ROUTE23CURSCRIPT]
jp CallFunctionInTable
Route23Script_511e9: ; 511e9 (14:51e9)
ld hl, $d126
bit 6, [hl]
res 6, [hl]
ret z
ld hl, $d7ee
res 0, [hl]
res 7, [hl]
ld hl, $d813
res 0, [hl]
res 6, [hl]
ld a, $7a
ld [$cc4d], a
ld a, $15
call Predef ; indirect jump to AddMissableObject (f1c8 (3:71c8))
ld a, $60
ld [$cc4d], a
ld a, $11
jp Predef ; indirect jump to RemoveMissableObject (f1d7 (3:71d7))
Route23ScriptPointers: ; 51213 (14:5213)
dw Route23Script0
dw Route23Script1
dw Route23Script2
Route23Script0: ; 51219 (14:5219)
ld hl, YCoordsData_51255 ; $5255
ld a, [W_YCOORD]
ld b, a
ld e, $0
ld c, $7
.asm_51224
ld a, [hli]
cp $ff
ret z
inc e
dec c
cp b
jr nz, .asm_51224 ; 0x5122b $f7
cp $23
jr nz, .asm_51237 ; 0x5122f $6
ld a, [W_XCOORD]
cp $e
ret nc
.asm_51237
ld a, e
ld [$ff8c], a
ld a, c
ld [$cd3d], a
ld b, $2
ld hl, $d7ed
ld a, $10
call Predef
ld a, c
and a
ret nz
call Route23Script_5125d
call DisplayTextID
xor a
ld [hJoyHeld], a
ret
YCoordsData_51255: ; 51255 (14:5255)
db $23,$38,$55,$60,$69,$77,$88,$FF
Route23Script_5125d: ; 5125d (14:525d)
ld hl, BadgeTextPointers ; $5276
ld a, [wWhichTrade] ; $cd3d
ld c, a
ld b, $0
add hl, bc
add hl, bc
ld a, [hli]
ld h, [hl]
ld l, a
ld de, $cd6d
.asm_5126e
ld a, [hli]
ld [de], a
inc de
cp $50
jr nz, .asm_5126e
ret
BadgeTextPointers: ; 51276 (14:5276)
dw CascadeBadgeText
dw ThunderBadgeText
dw RainbowBadgeText
dw SoulBadgeText
dw MarshBadgeText
dw VolcanoBadgeText
dw EarthBadgeText
EarthBadgeText: ; 51284 (14:5284)
db "EARTHBADGE@"
VolcanoBadgeText: ; 5128f (14:528f)
db "VOLCANOBADGE@"
MarshBadgeText: ; 5129c (14:529c)
db "MARSHBADGE@"
SoulBadgeText: ; 512a7 (14:52a7)
db "SOULBADGE@"
RainbowBadgeText: ; 512b1 (14:52b1)
db "RAINBOWBADGE@"
ThunderBadgeText: ; 512be (14:52be)
db "THUNDERBADGE@"
CascadeBadgeText: ; 512cb (14:52cb)
db "CASCADEBADGE@"
Route23Script_512d8: ; 512d8 (14:52d8)
ld a, $1
ld [$cd38], a
ld a, $80
ld [$ccd3], a
xor a
ld [$c109], a
ld [wJoyIgnore], a
jp Func_3486
Route23Script1: ; 512ec (14:52ec)
ld a, [$cd38]
and a
ret nz
Route23Script2: ; 512f1 (14:52f1)
ld a, $0
ld [W_ROUTE23CURSCRIPT], a
ret
Route23TextPointers: ; 512f7 (14:52f7)
dw Route23Text1
dw Route23Text2
dw Route23Text3
dw Route23Text4
dw Route23Text5
dw Route23Text6
dw Route23Text7
dw Route23Text8
Route23Text1: ; 51307 (14:5307)
db $08 ; asm
ld a, $6
call Route23Script_51346
jp TextScriptEnd
Route23Text2: ; 51310 (14:5310)
db $08 ; asm
ld a, $5
call Route23Script_51346
jp TextScriptEnd
Route23Text3: ; 51319 (14:5319)
db $08 ; asm
ld a, $4
call Route23Script_51346
jp TextScriptEnd
Route23Text4: ; 51322 (14:5322)
db $08 ; asm
ld a, $3
call Route23Script_51346
jp TextScriptEnd
Route23Text5: ; 5132b (14:532b)
db $08 ; asm
ld a, $2
call Route23Script_51346
jp TextScriptEnd
Route23Text6: ; 51334 (14:5334)
db $08 ; asm
ld a, $1
call Route23Script_51346
jp TextScriptEnd
Route23Text7: ; 5133d (14:533d)
db $8
ld a, $0
call Route23Script_51346
jp TextScriptEnd
Route23Script_51346: ; 51346 (14:5346)
ld [wWhichTrade], a ; $cd3d
call Route23Script_5125d
ld a, [wWhichTrade] ; $cd3d
inc a
ld c, a
ld b, $2
ld hl, W_OBTAINEDBADGES
ld a, $10 ; FlagActionPredef
call Predef
ld a, c
and a
jr nz, .asm_5136e
ld hl, VictoryRoadGuardText1
call PrintText
call Route23Script_512d8
ld a, $1
ld [W_ROUTE23CURSCRIPT], a
ret
.asm_5136e
ld hl, VictoryRoadGuardText2
call PrintText
ld a, [wWhichTrade] ; $cd3d
ld c, a
ld b, $1
ld hl, $d7ed
ld a, $10 ; FlagActionPredef
call Predef
ld a, $2
ld [W_ROUTE23CURSCRIPT], a
ret
Route23Script_51388: ; 51388 (14:5388)
ld hl, VictoryRoadGuardText2
jp PrintText
VictoryRoadGuardText1: ; 5138e (14:538e)
TX_FAR _VictoryRoadGuardText1
db $08 ; asm
ld a, (SFX_02_51 - SFX_Headers_02) / 3
call PlaySoundWaitForCurrent
call WaitForSoundToFinish
jp TextScriptEnd
VictoryRoadGuardText2: ; 5139e (14:539e)
TX_FAR _VictoryRoadGuardText2
db $b
TX_FAR _VictoryRoadGuardText_513a3
db "@"
Route23Text8: ; 513a8 (14:53a8)
TX_FAR _Route23Text8
db "@"
|
