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
|
EventScript_CutTree:: @ 81BDF13
goto_if_questlog EventScript_ReleaseEnd
lockall
goto_if_unset FLAG_BADGE02_GET, EventScript_CantCutTree
checkpartymove MOVE_CUT
compare VAR_RESULT, PARTY_SIZE
goto_if_eq EventScript_CantCutTree
setfieldeffectarg 0, VAR_RESULT
getpartymonname 0, VAR_RESULT
getmovename 1, MOVE_CUT
msgbox Text_CutTreeDown, MSGBOX_YESNO
compare VAR_RESULT, NO
goto_if_eq EventScript_DontCutTree
msgbox Text_MonUsedMove
closemessage
dofieldeffect FLDEFF_USE_CUT_ON_TREE
waitstate
goto EventScript_CutTreeDown
end
EventScript_FldEffCut:: @ 81BDF6B
lockall
dofieldeffect FLDEFF_USE_CUT_ON_TREE
waitstate
goto EventScript_CutTreeDown
end
EventScript_CutTreeDown:: @ 81BDF76
applymovement VAR_LAST_TALKED, Movement_CutTreeDown
waitmovement 0
removeobject VAR_LAST_TALKED
releaseall
end
Movement_CutTreeDown:: @ 81BDF85
cut_tree
step_end
EventScript_CantCutTree:: @ 81BDF87
msgbox Text_TreeCanBeCutDown, MSGBOX_SIGN
releaseall
end
EventScript_DontCutTree:: @ 81BDF91
closemessage
releaseall
end
Text_CutTreeDown:: @ 81BDF94
.string "This tree looks like it can be CUT\n"
.string "down!\p"
.string "Would you like to CUT it?$"
Text_MonUsedMove:: @ 81BDFD7
.string "{STR_VAR_1} used {STR_VAR_2}!$"
Text_TreeCanBeCutDown:: @ 81BDFE3
.string "This tree looks like it can be CUT\n"
.string "down!$"
EventScript_RockSmash:: @ 81BE00C
goto_if_questlog EventScript_ReleaseEnd
lockall
goto_if_unset FLAG_BADGE06_GET, EventScript_CantSmashRock
checkpartymove MOVE_ROCK_SMASH
compare VAR_RESULT, PARTY_SIZE
goto_if_eq EventScript_CantSmashRock
setfieldeffectarg 0, VAR_RESULT
getpartymonname 0, VAR_RESULT
getmovename 1, MOVE_ROCK_SMASH
msgbox Text_UseRockSmash, MSGBOX_YESNO
compare VAR_RESULT, NO
goto_if_eq EventScript_DontSmashRock
msgbox Text_MonUsedMove
closemessage
dofieldeffect FLDEFF_USE_ROCK_SMASH
waitstate
goto EventScript_UseRockSmash
end
EventScript_FldEffRockSmash:: @ 81BE064
lockall
dofieldeffect FLDEFF_USE_ROCK_SMASH
waitstate
goto EventScript_UseRockSmash
end
EventScript_UseRockSmash:: @ 81BE06F
applymovement VAR_LAST_TALKED, Movement_BreakRock
waitmovement 0
removeobject VAR_LAST_TALKED
special RockSmashWildEncounter
compare VAR_RESULT, FALSE
goto_if_eq EventScript_RockSmashNoEncounter
waitstate
releaseall
end
EventScript_RockSmashNoEncounter:: @ 81BE08D
releaseall
end
Movement_BreakRock:: @ 81BE08F
rock_smash_break
step_end
EventScript_CantSmashRock:: @ 81BE091
msgbox Text_MonMaySmashRock, MSGBOX_SIGN
end
EventScript_DontSmashRock:: @ 81BE09A
closemessage
releaseall
end
Text_UseRockSmash:: @ 81BE09D
.string "This rock appears to be breakable.\n"
.string "Would you like to use ROCK SMASH?$"
Text_MonMaySmashRock:: @ 81BE0E2
.string "It's a rugged rock, but a POKéMON\n"
.string "may be able to smash it.$"
EventScript_StrengthBoulder:: @ 81BE11D
goto_if_questlog EventScript_ReleaseEnd
lockall
goto_if_unset FLAG_BADGE04_GET, EventScript_CantMoveBoulder
goto_if_set FLAG_SYS_USE_STRENGTH, EventScript_AlreadyUsedStrength
checkpartymove MOVE_STRENGTH
compare VAR_RESULT, PARTY_SIZE
goto_if_eq EventScript_CantMoveBoulder
setfieldeffectarg 0, VAR_RESULT
msgbox Text_UseStrength, MSGBOX_YESNO
compare VAR_RESULT, NO
goto_if_eq EventScript_DontUseStrength
closemessage
dofieldeffect FLDEFF_USE_STRENGTH
waitstate
goto EventScript_UseStrength
end
EventScript_FldEffStrength:: @ 81BE16E
lockall
dofieldeffect FLDEFF_USE_STRENGTH
waitstate
goto EventScript_UseStrength
end
EventScript_UseStrength:: @ 81BE179
setflag FLAG_SYS_USE_STRENGTH
msgbox Text_MonUsedStrengthCanMoveBoulders, MSGBOX_SIGN
end
EventScript_CantMoveBoulder:: @ 81BE185
msgbox Text_MonMayPushBoulder, MSGBOX_SIGN
end
EventScript_AlreadyUsedStrength:: @ 81BE18E
msgbox Text_StrengthMadeMovingBouldersPossible, MSGBOX_SIGN
end
EventScript_DontUseStrength:: @ 81BE197
closemessage
releaseall
end
Text_UseStrength:: @ 81BE19A
.string "It's a big boulder, but a POKéMON\n"
.string "may be able to push it aside.\p"
.string "Would you like to use STRENGTH?$"
Text_MonUsedStrengthCanMoveBoulders:: @ 81BE1FA
.string "{STR_VAR_1} used STRENGTH!\p"
.string "{STR_VAR_1}'s STRENGTH made it\n"
.string "possible to move boulders around!$"
Text_MonMayPushBoulder:: @ 81BE244
.string "It's a big boulder, but a POKéMON\n"
.string "may be able to push it aside.$"
Text_StrengthMadeMovingBouldersPossible:: @ 81BE284
.string "STRENGTH made it possible to move\n"
.string "boulders around.$"
EventScript_Waterfall:: @ 81BE2B7
goto_if_questlog EventScript_ReleaseEnd
lockall
checkpartymove MOVE_WATERFALL
compare VAR_RESULT, PARTY_SIZE
goto_if_eq EventScript_WaterCrashingDown
getpartymonname 0, VAR_RESULT
setfieldeffectarg 0, VAR_RESULT
msgbox Text_UseWaterfall, MSGBOX_YESNO
compare VAR_RESULT, NO
goto_if_eq EventScript_EndWaterfall
msgbox Text_MonUsedWaterfall
dofieldeffect FLDEFF_USE_WATERFALL
goto EventScript_EndWaterfall
EventScript_CantUseWaterfall:: @ 81BE2FF
lockall
EventScript_WaterCrashingDown:
msgbox Text_WallOfWaterCrashingDown
EventScript_EndWaterfall:
releaseall
end
Text_WallOfWaterCrashingDown:: @ 81BE30A
.string "A wall of water is crashing down\n"
.string "with a mighty roar.$"
Text_UseWaterfall:: @ 81BE33F
.string "It's a large waterfall.\n"
.string "Would you like to use WATERFALL?$"
Text_MonUsedWaterfall:: @ 81BE378
.string "{STR_VAR_1} used WATERFALL.$"
@ Unused leftover from R/S
EventScript_DeepWater:: @ 81BE38B
lockall
checkpartymove MOVE_DIVE
compare VAR_RESULT, PARTY_SIZE
goto_if_eq EventScript_MayGoUnderwater
getpartymonname 0, VAR_RESULT
setfieldeffectarg 0, VAR_RESULT
setfieldeffectarg 1, 1
msgbox Text_SeaIsDeepUseDive, MSGBOX_YESNO
compare VAR_RESULT, NO
goto_if_eq EventScript_EndDive
msgbox Text_MonUsedDive
dofieldeffect FLDEFF_USE_DIVE
goto EventScript_EndDive
EventScript_CantDive:: @ 81BE3C9
lockall
EventScript_MayGoUnderwater:
msgbox Text_MonMayGoUnderwater
EventScript_EndDive:
releaseall
end
EventScript_TrySurface:: @ 81BE3D4
lockall
checkpartymove MOVE_DIVE
compare VAR_RESULT, PARTY_SIZE
goto_if_eq EventScript_CantSurface
getpartymonname 0, VAR_RESULT
setfieldeffectarg 0, VAR_RESULT
setfieldeffectarg 1, 1
msgbox Text_LightFilteringUseDive, MSGBOX_YESNO
compare VAR_RESULT, NO
goto_if_eq EventScript_EndSurface
msgbox Text_MonUsedDive
dofieldeffect FLDEFF_USE_DIVE
goto EventScript_EndSurface
EventScript_CantSurface:: @ 81BE412
lockall
msgbox Text_MonMaySurface
goto EventScript_EndSurface
EventScript_ObstacleCantSurface:: @ 81BE420
lockall
msgbox Text_DiveCantBeUsedHere
EventScript_EndSurface:
releaseall
end
Text_MonMayGoUnderwater:: @ 81BE42B
.string "The sea is deep here. A POKéMON\n"
.string "may be able to go underwater.$"
Text_SeaIsDeepUseDive:: @ 81BE469
.string "The sea is deep here.\n"
.string "Would you like to use DIVE?$"
Text_MonUsedDive:: @ 81BE49B
.string "{STR_VAR_1} used DIVE.$"
Text_MonMaySurface:: @ 81BE4A9
.string "Light is filtering down from above.\n"
.string "A POKéMON may be able to surface.$"
Text_LightFilteringUseDive:: @ 81BE4EF
.string "Light is filtering down from above.\n"
.string "Would you like to use DIVE?$"
Text_DiveCantBeUsedHere:: @ 81BE52F
.string "There is an obstacle above.\n"
.string "DIVE can't be used here.$"
EventScript_FailSweetScent:: @ 81BE564
msgbox Text_LooksLikeNothingHere, MSGBOX_SIGN
end
Text_LooksLikeNothingHere:: @ 81BE56D
.string "Looks like there's nothing here…$"
|
