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
|
Route23Script: ; 511da (14:51da)
call Route23Script_511e9
call EnableAutoTextBoxDrawing
ld hl, Route23ScriptPointers
ld a, [wRoute23CurScript]
jp CallFunctionInTable
Route23Script_511e9: ; 511e9 (14:51e9)
ld hl, wd126
bit 6, [hl]
res 6, [hl]
ret z
ResetEvents EVENT_VICTORY_ROAD_2_BOULDER_ON_SWITCH1, EVENT_VICTORY_ROAD_2_BOULDER_ON_SWITCH2
ResetEvents EVENT_VICTORY_ROAD_3_BOULDER_ON_SWITCH1, EVENT_VICTORY_ROAD_3_BOULDER_ON_SWITCH2
ld a, HS_VICTORY_ROAD_3_BOULDER
ld [wMissableObjectIndex], a
predef ShowObject
ld a, HS_VICTORY_ROAD_2_BOULDER
ld [wMissableObjectIndex], a
predef_jump HideObject
Route23ScriptPointers: ; 51213 (14:5213)
dw Route23Script0
dw Route23Script1
dw Route23Script2
Route23Script0: ; 51219 (14:5219)
ld hl, YCoordsData_51255
ld a, [wYCoord]
ld b, a
ld e, $0
EventFlagBit c, EVENT_PASSED_EARTHBADGE_CHECK + 1, EVENT_PASSED_CASCADEBADGE_CHECK
.asm_51224
ld a, [hli]
cp $ff
ret z
inc e
dec c
cp b
jr nz, .asm_51224
cp $23
jr nz, .asm_51237
ld a, [wXCoord]
cp $e
ret nc
.asm_51237
ld a, e
ld [hSpriteIndexOrTextID], a
ld a, c
ld [wWhichBadge], a
ld b, FLAG_TEST
EventFlagAddress hl, EVENT_PASSED_CASCADEBADGE_CHECK
predef FlagActionPredef
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
ld a, [wWhichBadge]
ld c, a
ld b, 0
add hl, bc
add hl, bc
ld a, [hli]
ld h, [hl]
ld l, a
ld de, wcd6d
.copyTextLoop
ld a, [hli]
ld [de], a
inc de
cp "@"
jr nz, .copyTextLoop
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 [wSimulatedJoypadStatesIndex], a
ld a, D_DOWN
ld [wSimulatedJoypadStatesEnd], a
xor a
ld [wSpriteStateData1 + 9], a
ld [wJoyIgnore], a
jp StartSimulatingJoypadStates
Route23Script1: ; 512ec (14:52ec)
ld a, [wSimulatedJoypadStatesIndex]
and a
ret nz
Route23Script2: ; 512f1 (14:52f1)
ld a, $0
ld [wRoute23CurScript], 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)
TX_ASM
EventFlagBit a, EVENT_PASSED_EARTHBADGE_CHECK, EVENT_PASSED_CASCADEBADGE_CHECK
call Route23Script_51346
jp TextScriptEnd
Route23Text2: ; 51310 (14:5310)
TX_ASM
EventFlagBit a, EVENT_PASSED_VOLCANOBADGE_CHECK, EVENT_PASSED_CASCADEBADGE_CHECK
call Route23Script_51346
jp TextScriptEnd
Route23Text3: ; 51319 (14:5319)
TX_ASM
EventFlagBit a, EVENT_PASSED_MARSHBADGE_CHECK, EVENT_PASSED_CASCADEBADGE_CHECK
call Route23Script_51346
jp TextScriptEnd
Route23Text4: ; 51322 (14:5322)
TX_ASM
EventFlagBit a, EVENT_PASSED_SOULBADGE_CHECK, EVENT_PASSED_CASCADEBADGE_CHECK
call Route23Script_51346
jp TextScriptEnd
Route23Text5: ; 5132b (14:532b)
TX_ASM
EventFlagBit a, EVENT_PASSED_RAINBOWBADGE_CHECK, EVENT_PASSED_CASCADEBADGE_CHECK
call Route23Script_51346
jp TextScriptEnd
Route23Text6: ; 51334 (14:5334)
TX_ASM
EventFlagBit a, EVENT_PASSED_THUNDERBADGE_CHECK, EVENT_PASSED_CASCADEBADGE_CHECK
call Route23Script_51346
jp TextScriptEnd
Route23Text7: ; 5133d (14:533d)
TX_ASM
EventFlagBit a, EVENT_PASSED_CASCADEBADGE_CHECK
call Route23Script_51346
jp TextScriptEnd
Route23Script_51346: ; 51346 (14:5346)
ld [wWhichBadge], a
call Route23Script_5125d
ld a, [wWhichBadge]
inc a
ld c, a
ld b, FLAG_TEST
ld hl, wObtainedBadges
predef FlagActionPredef
ld a, c
and a
jr nz, .asm_5136e
ld hl, VictoryRoadGuardText1
call PrintText
call Route23Script_512d8
ld a, $1
ld [wRoute23CurScript], a
ret
.asm_5136e
ld hl, VictoryRoadGuardText2
call PrintText
ld a, [wWhichBadge]
ld c, a
ld b, FLAG_SET
EventFlagAddress hl, EVENT_PASSED_CASCADEBADGE_CHECK
predef FlagActionPredef
ld a, $2
ld [wRoute23CurScript], a
ret
Route23Script_51388: ; 51388 (14:5388)
ld hl, VictoryRoadGuardText2
jp PrintText
VictoryRoadGuardText1: ; 5138e (14:538e)
TX_FAR _VictoryRoadGuardText1
TX_ASM
ld a, SFX_DENIED
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 "@"
|
