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
|
VictoryRoad2F_Script:
ld hl, wCurrentMapScriptFlags
bit BIT_CUR_MAP_LOADED_2, [hl]
res BIT_CUR_MAP_LOADED_2, [hl]
call nz, VictoryRoad2FResetBoulderEventScript
ld hl, wCurrentMapScriptFlags
bit BIT_CUR_MAP_LOADED_1, [hl]
res BIT_CUR_MAP_LOADED_1, [hl]
call nz, VictoryRoad2FCheckBoulderEventScript
call EnableAutoTextBoxDrawing
ld hl, VictoryRoad2TrainerHeaders
ld de, VictoryRoad2F_ScriptPointers
ld a, [wVictoryRoad2FCurScript]
call ExecuteCurMapScriptInTable
ld [wVictoryRoad2FCurScript], a
ret
VictoryRoad2FResetBoulderEventScript:
ResetEvent EVENT_VICTORY_ROAD_1_BOULDER_ON_SWITCH
; fallthrough
VictoryRoad2FCheckBoulderEventScript:
CheckEvent EVENT_VICTORY_ROAD_2_BOULDER_ON_SWITCH1
jr z, .not_on_switch
push af
ld a, $15
lb bc, 4, 3
call VictoryRoad2FReplaceTileBlockScript
pop af
.not_on_switch
CheckEventReuseA EVENT_VICTORY_ROAD_2_BOULDER_ON_SWITCH2
ret z
ld a, $1d
lb bc, 7, 11
VictoryRoad2FReplaceTileBlockScript:
ld [wNewTileBlockID], a
predef ReplaceTileBlock
ret
VictoryRoad2F_ScriptPointers:
def_script_pointers
dw_const VictoryRoad2FDefaultScript, SCRIPT_VICTORYROAD2F_DEFAULT
dw_const DisplayEnemyTrainerTextAndStartBattle, SCRIPT_VICTORYROAD2F_START_BATTLE
dw_const EndTrainerBattle, SCRIPT_VICTORYROAD2F_END_BATTLE
VictoryRoad2FDefaultScript:
ld hl, .SwitchCoords
call CheckBoulderCoords
jp nc, CheckFightingMapTrainers
ldh a, [hSpriteIndex]
cp PIKACHU_SPRITE_INDEX
jp z, CheckFightingMapTrainers
EventFlagAddress hl, EVENT_VICTORY_ROAD_2_BOULDER_ON_SWITCH1
ld a, [wCoordIndex]
cp $2
jr z, .second_switch
CheckEventReuseHL EVENT_VICTORY_ROAD_2_BOULDER_ON_SWITCH1
SetEventReuseHL EVENT_VICTORY_ROAD_2_BOULDER_ON_SWITCH1
ret nz
jr .set_script_flag
.second_switch
CheckEventAfterBranchReuseHL EVENT_VICTORY_ROAD_2_BOULDER_ON_SWITCH2, EVENT_VICTORY_ROAD_2_BOULDER_ON_SWITCH1
SetEventReuseHL EVENT_VICTORY_ROAD_2_BOULDER_ON_SWITCH2
ret nz
.set_script_flag
ld hl, wCurrentMapScriptFlags
set BIT_CUR_MAP_LOADED_1, [hl]
ret
.SwitchCoords:
dbmapcoord 1, 16
dbmapcoord 9, 16
db -1 ; end
VictoryRoad2F_TextPointers:
def_text_pointers
dw_const VictoryRoad2FHikerText, TEXT_VICTORYROAD2F_HIKER
dw_const VictoryRoad2FSuperNerd1Text, TEXT_VICTORYROAD2F_SUPER_NERD1
dw_const VictoryRoad2FCooltrainerMText, TEXT_VICTORYROAD2F_COOLTRAINER_M
dw_const VictoryRoad2FSuperNerd2Text, TEXT_VICTORYROAD2F_SUPER_NERD2
dw_const VictoryRoad2FSuperNerd3Text, TEXT_VICTORYROAD2F_SUPER_NERD3
dw_const VictoryRoad2FMoltresText, TEXT_VICTORYROAD2F_MOLTRES
dw_const PickUpItemText, TEXT_VICTORYROAD2F_TM_SUBMISSION
dw_const PickUpItemText, TEXT_VICTORYROAD2F_FULL_HEAL
dw_const PickUpItemText, TEXT_VICTORYROAD2F_TM_MEGA_KICK
dw_const PickUpItemText, TEXT_VICTORYROAD2F_GUARD_SPEC
dw_const BoulderText, TEXT_VICTORYROAD2F_BOULDER1
dw_const BoulderText, TEXT_VICTORYROAD2F_BOULDER2
dw_const BoulderText, TEXT_VICTORYROAD2F_BOULDER3
VictoryRoad2TrainerHeaders:
def_trainers
VictoryRoad2TrainerHeader0:
trainer EVENT_BEAT_VICTORY_ROAD_2_TRAINER_0, 4, VictoryRoad2FHikerBattleText, VictoryRoad2FHikerEndBattleText, VictoryRoad2FHikerAfterBattleText
VictoryRoad2TrainerHeader1:
trainer EVENT_BEAT_VICTORY_ROAD_2_TRAINER_1, 3, VictoryRoad2FSuperNerd1BattleText, VictoryRoad2FSuperNerd1EndBattleText, VictoryRoad2FSuperNerd1AfterBattleText
VictoryRoad2TrainerHeader2:
trainer EVENT_BEAT_VICTORY_ROAD_2_TRAINER_2, 3, VictoryRoad2FCooltrainerMBattleText, VictoryRoad2FCooltrainerMEndBattleText, VictoryRoad2FCooltrainerMAfterBattleText
VictoryRoad2TrainerHeader3:
trainer EVENT_BEAT_VICTORY_ROAD_2_TRAINER_3, 1, VictoryRoad2FSuperNerd2BattleText, VictoryRoad2FSuperNerd2EndBattleText, VictoryRoad2FSuperNerd2AfterBattleText
VictoryRoad2TrainerHeader4:
trainer EVENT_BEAT_VICTORY_ROAD_2_TRAINER_4, 3, VictoryRoad2FSuperNerd3BattleText, VictoryRoad2FSuperNerd3EndBattleText, VictoryRoad2FSuperNerd3AfterBattleText
MoltresTrainerHeader:
trainer EVENT_BEAT_MOLTRES, 0, VictoryRoad2FMoltresBattleText, VictoryRoad2FMoltresBattleText, VictoryRoad2FMoltresBattleText
db -1 ; end
VictoryRoad2FHikerText:
text_asm
ld hl, VictoryRoad2TrainerHeader0
call TalkToTrainer
jp TextScriptEnd
VictoryRoad2FSuperNerd1Text:
text_asm
ld hl, VictoryRoad2TrainerHeader1
call TalkToTrainer
jp TextScriptEnd
VictoryRoad2FCooltrainerMText:
text_asm
ld hl, VictoryRoad2TrainerHeader2
call TalkToTrainer
jp TextScriptEnd
VictoryRoad2FSuperNerd2Text:
text_asm
ld hl, VictoryRoad2TrainerHeader3
call TalkToTrainer
jp TextScriptEnd
VictoryRoad2FSuperNerd3Text:
text_asm
ld hl, VictoryRoad2TrainerHeader4
call TalkToTrainer
jp TextScriptEnd
VictoryRoad2FMoltresText:
text_asm
ld hl, MoltresTrainerHeader
call TalkToTrainer
jp TextScriptEnd
VictoryRoad2FMoltresBattleText:
text_far _VictoryRoad2FMoltresBattleText
text_asm
ld a, MOLTRES
call PlayCry
call WaitForSoundToFinish
jp TextScriptEnd
VictoryRoad2FHikerBattleText:
text_far _VictoryRoad2FHikerBattleText
text_end
VictoryRoad2FHikerEndBattleText:
text_far _VictoryRoad2FHikerEndBattleText
text_end
VictoryRoad2FHikerAfterBattleText:
text_far _VictoryRoad2FHikerAfterBattleText
text_end
VictoryRoad2FSuperNerd1BattleText:
text_far _VictoryRoad2FSuperNerd1BattleText
text_end
VictoryRoad2FSuperNerd1EndBattleText:
text_far _VictoryRoad2FSuperNerd1EndBattleText
text_end
VictoryRoad2FSuperNerd1AfterBattleText:
text_far _VictoryRoad2FSuperNerd1AfterBattleText
text_end
VictoryRoad2FCooltrainerMBattleText:
text_far _VictoryRoad2FCooltrainerMBattleText
text_end
VictoryRoad2FCooltrainerMEndBattleText:
text_far _VictoryRoad2FCooltrainerMEndBattleText
text_end
VictoryRoad2FCooltrainerMAfterBattleText:
text_far _VictoryRoad2FCooltrainerMAfterBattleText
text_end
VictoryRoad2FSuperNerd2BattleText:
text_far _VictoryRoad2FSuperNerd2BattleText
text_end
VictoryRoad2FSuperNerd2EndBattleText:
text_far _VictoryRoad2FSuperNerd2EndBattleText
text_end
VictoryRoad2FSuperNerd2AfterBattleText:
text_far _VictoryRoad2FSuperNerd2AfterBattleText
text_end
VictoryRoad2FSuperNerd3BattleText:
text_far _VictoryRoad2FSuperNerd3BattleText
text_end
VictoryRoad2FSuperNerd3EndBattleText:
text_far _VictoryRoad2FSuperNerd3EndBattleText
text_end
VictoryRoad2FSuperNerd3AfterBattleText:
text_far _VictoryRoad2FSuperNerd3AfterBattleText
text_end
|
