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
299
300
301
302
303
304
305
306
307
308
309
310
|
EventScript_InteractWithCutTreeObject:: @ 81BDF13
special sub_8110AB4
compare VAR_RESULT, 2
goto_if eq, EventScript_1A7AE0
lockall
checkflag FLAG_BADGE02_GET
goto_if FALSE, EventScript_1BDF87
checkpartymove MOVE_CUT
compare VAR_RESULT, PARTY_SIZE
goto_if eq, EventScript_1BDF87
setfieldeffectarg 0, VAR_RESULT
getpartymonname 0, VAR_RESULT
getmovename 1, MOVE_CUT
msgbox gUnknown_81BDF94, 5
compare VAR_RESULT, 0
goto_if eq, EventScript_1BDF91
msgbox gUnknown_81BDFD7
closemessage
dofieldeffect FLDEFF_USE_CUT_ON_TREE
waitstate
goto EventScript_1BDF76
end
gUnknown_81BDF6B:: @ 81BDF6B
lockall
dofieldeffect FLDEFF_USE_CUT_ON_TREE
waitstate
goto EventScript_1BDF76
end
EventScript_1BDF76:: @ 81BDF76
applymovement VAR_LAST_TALKED, Movement_1BDF85
waitmovement 0
removeobject VAR_LAST_TALKED
releaseall
end
Movement_1BDF85:: @ 81BDF85
step_69
step_end
EventScript_1BDF87:: @ 81BDF87
msgbox gUnknown_81BDFE3, 3
releaseall
end
EventScript_1BDF91:: @ 81BDF91
closemessage
releaseall
end
gUnknown_81BDF94:: @ 81BDF94
.string "This tree looks like it can be CUT\n"
.string "down!\p"
.string "Would you like to CUT it?$"
gUnknown_81BDFD7:: @ 81BDFD7
.string "{STR_VAR_1} used {STR_VAR_2}!$"
gUnknown_81BDFE3:: @ 81BDFE3
.string "This tree looks like it can be CUT\n"
.string "down!$"
EventScript_InteractWithRockSmashRockObject:: @ 81BE00C
special sub_8110AB4
compare VAR_RESULT, 2
goto_if eq, EventScript_1A7AE0
lockall
checkflag FLAG_BADGE06_GET
goto_if FALSE, EventScript_1BE091
checkpartymove MOVE_ROCK_SMASH
compare VAR_RESULT, PARTY_SIZE
goto_if eq, EventScript_1BE091
setfieldeffectarg 0, VAR_RESULT
getpartymonname 0, VAR_RESULT
getmovename 1, MOVE_ROCK_SMASH
msgbox Text_1BE09D, 5
compare VAR_RESULT, 0
goto_if eq, EventScript_1BE09A
msgbox gUnknown_81BDFD7
closemessage
dofieldeffect FLDEFF_USE_ROCK_SMASH
waitstate
goto EventScript_1BE06F
end
EventScript_FldEffRockSmash:: @ 81BE064
lockall
dofieldeffect FLDEFF_USE_ROCK_SMASH
waitstate
goto EventScript_1BE06F
end
EventScript_1BE06F:: @ 81BE06F
applymovement VAR_LAST_TALKED, Movement_1BE08F
waitmovement 0
removeobject VAR_LAST_TALKED
special ScrSpecial_RockSmashWildEncounter
compare VAR_RESULT, 0
goto_if eq, EventScript_1BE08D
waitstate
releaseall
end
EventScript_1BE08D:: @ 81BE08D
releaseall
end
Movement_1BE08F:: @ 81BE08F
step_68
step_end
EventScript_1BE091:: @ 81BE091
msgbox gUnknown_81BE0E2, 3
end
EventScript_1BE09A:: @ 81BE09A
closemessage
releaseall
end
Text_1BE09D:: @ 81BE09D
.string "This rock appears to be breakable.\n"
.string "Would you like to use ROCK SMASH?$"
gUnknown_81BE0E2:: @ 81BE0E2
.string "It's a rugged rock, but a POKéMON\n"
.string "may be able to smash it.$"
EventScript_InteractWithStrengthBoulderObject:: @ 81BE11D
special sub_8110AB4
compare VAR_RESULT, 2
goto_if eq, EventScript_1A7AE0
lockall
checkflag FLAG_BADGE04_GET
goto_if FALSE, EventScript_1BE185
checkflag FLAG_SYS_STRENGTH_ACTIVE
goto_if TRUE, EventScript_1BE18E
checkpartymove MOVE_STRENGTH
compare VAR_RESULT, PARTY_SIZE
goto_if eq, EventScript_1BE185
setfieldeffectarg 0, VAR_RESULT
msgbox gUnknown_81BE19A, 5
compare VAR_RESULT, 0
goto_if eq, EventScript_1BE197
closemessage
dofieldeffect FLDEFF_USE_STRENGTH
waitstate
goto EventScript_1BE179
end
EventScript_FldEffStrength:: @ 81BE16E
lockall
dofieldeffect FLDEFF_USE_STRENGTH
waitstate
goto EventScript_1BE179
end
EventScript_1BE179:: @ 81BE179
setflag FLAG_SYS_STRENGTH_ACTIVE
msgbox gUnknown_81BE1FA, 3
end
EventScript_1BE185:: @ 81BE185
msgbox gUnknown_81BE244, 3
end
EventScript_1BE18E:: @ 81BE18E
msgbox gUnknown_81BE284, 3
end
EventScript_1BE197:: @ 81BE197
closemessage
releaseall
end
gUnknown_81BE19A:: @ 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?$"
gUnknown_81BE1FA:: @ 81BE1FA
.string "{STR_VAR_1} used STRENGTH!\p"
.string "{STR_VAR_1}'s STRENGTH made it\n"
.string "possible to move boulders around!$"
gUnknown_81BE244:: @ 81BE244
.string "It's a big boulder, but a POKéMON\n"
.string "may be able to push it aside.$"
gUnknown_81BE284:: @ 81BE284
.string "STRENGTH made it possible to move\n"
.string "boulders around.$"
gUnknown_81BE2B7:: @ 81BE2B7
special sub_8110AB4
compare VAR_RESULT, 2
goto_if eq, EventScript_1A7AE0
lockall
checkpartymove MOVE_WATERFALL
compare VAR_RESULT, PARTY_SIZE
goto_if eq, EventScript_1BE300
getpartymonname 0, VAR_RESULT
setfieldeffectarg 0, VAR_RESULT
msgbox gUnknown_81BE33F, 5
compare VAR_RESULT, 0
goto_if eq, EventScript_1BE308
msgbox gUnknown_81BE378
dofieldeffect FLDEFF_USE_WATERFALL
goto EventScript_1BE308
EventScript_81BE2FF:: @ 81BE2FF
lockall
EventScript_1BE300:
msgbox gUnknown_81BE30A
EventScript_1BE308:
releaseall
end
gUnknown_81BE30A:: @ 81BE30A
.string "A wall of water is crashing down\n"
.string "with a mighty roar.$"
gUnknown_81BE33F:: @ 81BE33F
.string "It's a large waterfall.\n"
.string "Would you like to use WATERFALL?$"
gUnknown_81BE378:: @ 81BE378
.string "{STR_VAR_1} used WATERFALL.$"
@ Unused leftover from R/S
EventScript_1BE38B:: @ 81BE38B
lockall
checkpartymove MOVE_DIVE
compare VAR_RESULT, PARTY_SIZE
goto_if eq, EventScript_1BE3CA
getpartymonname 0, VAR_RESULT
setfieldeffectarg 0, VAR_RESULT
setfieldeffectarg 1, 1
msgbox gUnknown_81BE469, 5
compare VAR_RESULT, 0
goto_if eq, EventScript_1BE3D2
msgbox gUnknown_81BE49B
dofieldeffect FLDEFF_USE_DIVE
goto EventScript_1BE3D2
EventScript_1BE3C9:: @ 81BE3C9
lockall
EventScript_1BE3CA:
msgbox Text_1BE42B
EventScript_1BE3D2:
releaseall
end
EventScript_1BE3D4:: @ 81BE3D4
lockall
checkpartymove MOVE_DIVE
compare VAR_RESULT, PARTY_SIZE
goto_if eq, EventScript_1BE412
getpartymonname 0, VAR_RESULT
setfieldeffectarg 0, VAR_RESULT
setfieldeffectarg 1, 1
msgbox gUnknown_81BE4EF, 5
compare VAR_RESULT, 0
goto_if eq, EventScript_1BE429
msgbox gUnknown_81BE49B
dofieldeffect FLDEFF_USE_DIVE
goto EventScript_1BE429
EventScript_1BE412:: @ 81BE412
lockall
msgbox gUnknown_81BE4A9
goto EventScript_1BE429
EventScript_1BE420:: @ 81BE420
lockall
msgbox gUnknown_81BE52F
EventScript_1BE429:
releaseall
end
Text_1BE42B:: @ 81BE42B
.string "The sea is deep here. A POKéMON\n"
.string "may be able to go underwater.$"
gUnknown_81BE469:: @ 81BE469
.string "The sea is deep here.\n"
.string "Would you like to use DIVE?$"
gUnknown_81BE49B:: @ 81BE49B
.string "{STR_VAR_1} used DIVE.$"
gUnknown_81BE4A9:: @ 81BE4A9
.string "Light is filtering down from above.\n"
.string "A POKéMON may be able to surface.$"
gUnknown_81BE4EF:: @ 81BE4EF
.string "Light is filtering down from above.\n"
.string "Would you like to use DIVE?$"
gUnknown_81BE52F:: @ 81BE52F
.string "There is an obstacle above.\n"
.string "DIVE can't be used here.$"
EventScript_FailSweetScent:: @ 81BE564
msgbox Text_1BE56D, 3
end
Text_1BE56D:: @ 81BE56D
.string "Looks like there's nothing here…$"
|
