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
|
Route12Script:
call EnableAutoTextBoxDrawing
ld hl, Route12TrainerHeader0
ld de, Route12ScriptPointers
ld a, [wRoute12CurScript]
call ExecuteCurMapScriptInTable
ld [wRoute12CurScript], a
ret
Route12Script_59606:
xor a
ld [wJoyIgnore], a
ld [wRoute12CurScript], a
ld [wCurMapScript], a
ret
Route12ScriptPointers:
dw Route12Script0
dw DisplayEnemyTrainerTextAndStartBattle
dw EndTrainerBattle
dw Route12Script3
Route12Script0:
CheckEventHL EVENT_BEAT_ROUTE12_SNORLAX
jp nz, CheckFightingMapTrainers
CheckEventReuseHL EVENT_FIGHT_ROUTE12_SNORLAX
ResetEventReuseHL EVENT_FIGHT_ROUTE12_SNORLAX
jp z, CheckFightingMapTrainers
ld a, $d
ld [hSpriteIndexOrTextID], a
call DisplayTextID
ld a, SNORLAX
ld [wCurOpponent], a
ld a, 30
ld [wCurEnemyLVL], a
ld a, HS_ROUTE_12_SNORLAX
ld [wMissableObjectIndex], a
predef HideObject
ld a, $3
ld [wRoute12CurScript], a
ld [wCurMapScript], a
ret
Route12Script3:
ld a, [wIsInBattle]
cp $ff
jr z, Route12Script_59606
call UpdateSprites
ld a, [wBattleResult]
cp $2
jr z, .asm_59664
ld a, $e
ld [hSpriteIndexOrTextID], a
call DisplayTextID
.asm_59664
SetEvent EVENT_BEAT_ROUTE12_SNORLAX
call Delay3
ld a, $0
ld [wRoute12CurScript], a
ld [wCurMapScript], a
ret
Route12TextPointers:
dw Route12Text1
dw Route12Text2
dw Route12Text3
dw Route12Text4
dw Route12Text5
dw Route12Text6
dw Route12Text7
dw Route12Text8
dw PickUpItemText
dw PickUpItemText
dw Route12Text11
dw Route12Text12
dw Route12Text13
dw Route12Text14
Route12TrainerHeader0:
dbEventFlagBit EVENT_BEAT_ROUTE_12_TRAINER_0
db ($4 << 4) ; trainer's view range
dwEventFlagAddress EVENT_BEAT_ROUTE_12_TRAINER_0
dw Route12BattleText1 ; TextBeforeBattle
dw Route12AfterBattleText1 ; TextAfterBattle
dw Route12EndBattleText1 ; TextEndBattle
dw Route12EndBattleText1 ; TextEndBattle
Route12TrainerHeader1:
dbEventFlagBit EVENT_BEAT_ROUTE_12_TRAINER_1
db ($4 << 4) ; trainer's view range
dwEventFlagAddress EVENT_BEAT_ROUTE_12_TRAINER_1
dw Route12BattleText2 ; TextBeforeBattle
dw Route12AfterBattleText2 ; TextAfterBattle
dw Route12EndBattleText2 ; TextEndBattle
dw Route12EndBattleText2 ; TextEndBattle
Route12TrainerHeader2:
dbEventFlagBit EVENT_BEAT_ROUTE_12_TRAINER_2
db ($4 << 4) ; trainer's view range
dwEventFlagAddress EVENT_BEAT_ROUTE_12_TRAINER_2
dw Route12BattleText3 ; TextBeforeBattle
dw Route12AfterBattleText3 ; TextAfterBattle
dw Route12EndBattleText3 ; TextEndBattle
dw Route12EndBattleText3 ; TextEndBattle
Route12TrainerHeader3:
dbEventFlagBit EVENT_BEAT_ROUTE_12_TRAINER_3
db ($4 << 4) ; trainer's view range
dwEventFlagAddress EVENT_BEAT_ROUTE_12_TRAINER_3
dw Route12BattleText4 ; TextBeforeBattle
dw Route12AfterBattleText4 ; TextAfterBattle
dw Route12EndBattleText4 ; TextEndBattle
dw Route12EndBattleText4 ; TextEndBattle
Route12TrainerHeader4:
dbEventFlagBit EVENT_BEAT_ROUTE_12_TRAINER_4
db ($4 << 4) ; trainer's view range
dwEventFlagAddress EVENT_BEAT_ROUTE_12_TRAINER_4
dw Route12BattleText5 ; TextBeforeBattle
dw Route12AfterBattleText5 ; TextAfterBattle
dw Route12EndBattleText5 ; TextEndBattle
dw Route12EndBattleText5 ; TextEndBattle
Route12TrainerHeader5:
dbEventFlagBit EVENT_BEAT_ROUTE_12_TRAINER_5
db ($4 << 4) ; trainer's view range
dwEventFlagAddress EVENT_BEAT_ROUTE_12_TRAINER_5
dw Route12BattleText6 ; TextBeforeBattle
dw Route12AfterBattleText6 ; TextAfterBattle
dw Route12EndBattleText6 ; TextEndBattle
dw Route12EndBattleText6 ; TextEndBattle
Route12TrainerHeader6:
dbEventFlagBit EVENT_BEAT_ROUTE_12_TRAINER_6, 1
db ($1 << 4) ; trainer's view range
dwEventFlagAddress EVENT_BEAT_ROUTE_12_TRAINER_6, 1
dw Route12BattleText7 ; TextBeforeBattle
dw Route12AfterBattleText7 ; TextAfterBattle
dw Route12EndBattleText7 ; TextEndBattle
dw Route12EndBattleText7 ; TextEndBattle
db $ff
Route12Text1:
TX_FAR _Route12Text1
db "@"
Route12Text13:
TX_FAR _Route12Text13
db "@"
Route12Text14:
TX_FAR _Route12Text14
db "@"
Route12Text2:
TX_ASM
ld hl, Route12TrainerHeader0
call TalkToTrainer
jp TextScriptEnd
Route12BattleText1:
TX_FAR _Route12BattleText1
db "@"
Route12EndBattleText1:
TX_FAR _Route12EndBattleText1
db "@"
Route12AfterBattleText1:
TX_FAR _Route12AfterBattleText1
db "@"
Route12Text3:
TX_ASM
ld hl, Route12TrainerHeader1
call TalkToTrainer
jp TextScriptEnd
Route12BattleText2:
TX_FAR _Route12BattleText2
db "@"
Route12EndBattleText2:
TX_FAR _Route12EndBattleText2
db "@"
Route12AfterBattleText2:
TX_FAR _Route12AfterBattleText2
db "@"
Route12Text4:
TX_ASM
ld hl, Route12TrainerHeader2
call TalkToTrainer
jp TextScriptEnd
Route12BattleText3:
TX_FAR _Route12BattleText3
db "@"
Route12EndBattleText3:
TX_FAR _Route12EndBattleText3
db "@"
Route12AfterBattleText3:
TX_FAR _Route12AfterBattleText3
db "@"
Route12Text5:
TX_ASM
ld hl, Route12TrainerHeader3
call TalkToTrainer
jp TextScriptEnd
Route12BattleText4:
TX_FAR _Route12BattleText4
db "@"
Route12EndBattleText4:
TX_FAR _Route12EndBattleText4
db "@"
Route12AfterBattleText4:
TX_FAR _Route12AfterBattleText4
db "@"
Route12Text6:
TX_ASM
ld hl, Route12TrainerHeader4
call TalkToTrainer
jp TextScriptEnd
Route12BattleText5:
TX_FAR _Route12BattleText5
db "@"
Route12EndBattleText5:
TX_FAR _Route12EndBattleText5
db "@"
Route12AfterBattleText5:
TX_FAR _Route12AfterBattleText5
db "@"
Route12Text7:
TX_ASM
ld hl, Route12TrainerHeader5
call TalkToTrainer
jp TextScriptEnd
Route12BattleText6:
TX_FAR _Route12BattleText6
db "@"
Route12EndBattleText6:
TX_FAR _Route12EndBattleText6
db "@"
Route12AfterBattleText6:
TX_FAR _Route12AfterBattleText6
db "@"
Route12Text8:
TX_ASM
ld hl, Route12TrainerHeader6
call TalkToTrainer
jp TextScriptEnd
Route12BattleText7:
TX_FAR _Route12BattleText7
db "@"
Route12EndBattleText7:
TX_FAR _Route12EndBattleText7
db "@"
Route12AfterBattleText7:
TX_FAR _Route12AfterBattleText7
db "@"
Route12Text11:
TX_FAR _Route12Text11
db "@"
Route12Text12:
TX_FAR _Route12Text12
db "@"
|
