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
311
312
313
314
315
316
317
318
319
320
321
|
CinnabarIsland_PokemonLab_ExperimentRoom_MapScripts:: @ 816E400
.byte 0
CinnabarIsland_PokemonLab_ExperimentRoom_EventScript_16E401:: @ 816E401
lock
faceplayer
setvar VAR_0x8008, 8
call EventScript_1A8CAD
checkflag FLAG_DID_SEELOR_TRADE
goto_if TRUE, EventScript_16E473
msgbox gUnknown_81A597B, MSGBOX_YESNO
compare_var_to_value VAR_RESULT, 0
goto_if eq, EventScript_16E45B
call EventScript_1A8CBD
compare_var_to_value VAR_0x8004, 6
goto_if ge, EventScript_16E45B
call EventScript_1A8CC9
compare_var_to_var VAR_RESULT, VAR_0x8009
goto_if ne, EventScript_16E465
call EventScript_1A8CD9
msgbox gUnknown_81A59DA
setflag FLAG_DID_SEELOR_TRADE
release
end
EventScript_16E45B:: @ 816E45B
msgbox gUnknown_81A59B6
release
end
EventScript_16E465:: @ 816E465
getspeciesname 0, VAR_0x8009
msgbox gUnknown_81A59C6
release
end
EventScript_16E473:: @ 816E473
msgbox gUnknown_81A59E7
release
end
CinnabarIsland_PokemonLab_ExperimentRoom_EventScript_16E47D:: @ 816E47D
lock
faceplayer
setvar VAR_RESULT, 0
checkflag FLAG_REVIVED_AMBER
call_if TRUE, EventScript_16E8A1
compare_var_to_value VAR_RESULT, 1
goto_if eq, EventScript_16E897
compare_var_to_value VAR_MAP_SCENE_CINNABAR_ISLAND_POKEMON_LAB_EXPERIMENT_ROOM_REVIVE_STATE, 2
goto_if eq, EventScript_16E736
compare_var_to_value VAR_MAP_SCENE_CINNABAR_ISLAND_POKEMON_LAB_EXPERIMENT_ROOM_REVIVE_STATE, 1
goto_if eq, EventScript_16E72C
call EventScript_16E4EC
compare_var_to_value VAR_RESULT, 1
goto_if eq, EventScript_16E544
call EventScript_16E504
compare_var_to_value VAR_RESULT, 1
goto_if eq, EventScript_16E586
call EventScript_16E51C
compare_var_to_value VAR_RESULT, 1
goto_if eq, EventScript_16E5C8
msgbox gUnknown_819A282
goto EventScript_16E53A
end
EventScript_16E4EC:: @ 816E4EC
checkflag FLAG_GOT_HELIX_FOSSIL
goto_if FALSE, EventScript_16E534
checkflag FLAG_REVIVED_HELIX
goto_if TRUE, EventScript_16E534
setvar VAR_RESULT, 1
return
EventScript_16E504:: @ 816E504
checkflag FLAG_GOT_DOME_FOSSIL
goto_if FALSE, EventScript_16E534
checkflag FLAG_REVIVED_DOME
goto_if TRUE, EventScript_16E534
setvar VAR_RESULT, 1
return
EventScript_16E51C:: @ 816E51C
checkflag FLAG_GOT_OLD_AMBER
goto_if FALSE, EventScript_16E534
checkflag FLAG_REVIVED_AMBER
goto_if TRUE, EventScript_16E534
setvar VAR_RESULT, 1
return
EventScript_16E534:: @ 816E534
setvar VAR_RESULT, 0
return
EventScript_16E53A:: @ 816E53A
msgbox gUnknown_819A314
release
end
EventScript_16E544:: @ 816E544
message Text_19A282
waitmessage
call EventScript_16E51C
compare_var_to_value VAR_RESULT, 1
goto_if eq, EventScript_16E5FA
multichoice 0, 0, MULTICHOICE_HELIX, FALSE
switch VAR_RESULT
case 0, EventScript_16E668
case 1, EventScript_16E53A
case 127, EventScript_16E53A
end
EventScript_16E586:: @ 816E586
message Text_19A282
waitmessage
call EventScript_16E51C
compare_var_to_value VAR_RESULT, 1
goto_if eq, EventScript_16E631
multichoice 0, 0, MULTICHOICE_DOME, FALSE
switch VAR_RESULT
case 0, EventScript_16E6A6
case 1, EventScript_16E53A
case 127, EventScript_16E53A
end
EventScript_16E5C8:: @ 816E5C8
message Text_19A282
waitmessage
multichoice 0, 0, MULTICHOICE_AMBER, FALSE
switch VAR_RESULT
case 0, EventScript_16E6E4
case 1, EventScript_16E53A
case 127, EventScript_16E53A
end
EventScript_16E5FA:: @ 816E5FA
multichoice 0, 0, MULTICHOICE_HELIX_AMBER, FALSE
switch VAR_RESULT
case 0, EventScript_16E668
case 1, EventScript_16E6E4
case 2, EventScript_16E53A
case 127, EventScript_16E53A
end
EventScript_16E631:: @ 816E631
multichoice 0, 0, MULTICHOICE_DOME_AMBER, FALSE
switch VAR_RESULT
case 0, EventScript_16E6A6
case 1, EventScript_16E6E4
case 2, EventScript_16E53A
case 127, EventScript_16E53A
end
EventScript_16E668:: @ 816E668
getspeciesname 0, SPECIES_OMANYTE
getitemname 1, ITEM_HELIX_FOSSIL
msgbox gUnknown_819A3D4, MSGBOX_YESNO
compare_var_to_value VAR_RESULT, 0
goto_if eq, EventScript_16E722
msgbox gUnknown_819A45D
textcolor 0
removeitem ITEM_HELIX_FOSSIL, 1
msgbox gUnknown_819A4AB
setvar VAR_MAP_SCENE_CINNABAR_ISLAND_POKEMON_LAB_EXPERIMENT_ROOM_REVIVE_STATE, 1
setvar VAR_MAP_SCENE_CINNABAR_ISLAND_POKEMON_LAB_EXPERIMENT_ROOM_WHICH_FOSSIL, 1
release
end
EventScript_16E6A6:: @ 816E6A6
getspeciesname 0, SPECIES_KABUTO
getitemname 1, ITEM_DOME_FOSSIL
msgbox gUnknown_819A3D4, MSGBOX_YESNO
compare_var_to_value VAR_RESULT, 0
goto_if eq, EventScript_16E722
msgbox gUnknown_819A45D
textcolor 0
removeitem ITEM_DOME_FOSSIL, 1
msgbox gUnknown_819A4AB
setvar VAR_MAP_SCENE_CINNABAR_ISLAND_POKEMON_LAB_EXPERIMENT_ROOM_REVIVE_STATE, 1
setvar VAR_MAP_SCENE_CINNABAR_ISLAND_POKEMON_LAB_EXPERIMENT_ROOM_WHICH_FOSSIL, 2
release
end
EventScript_16E6E4:: @ 816E6E4
getspeciesname 0, SPECIES_AERODACTYL
getitemname 1, ITEM_OLD_AMBER
msgbox gUnknown_819A3D4, MSGBOX_YESNO
compare_var_to_value VAR_RESULT, 0
goto_if eq, EventScript_16E722
msgbox gUnknown_819A45D
textcolor 0
removeitem ITEM_OLD_AMBER, 1
msgbox gUnknown_819A4AB
setvar VAR_MAP_SCENE_CINNABAR_ISLAND_POKEMON_LAB_EXPERIMENT_ROOM_REVIVE_STATE, 1
setvar VAR_MAP_SCENE_CINNABAR_ISLAND_POKEMON_LAB_EXPERIMENT_ROOM_WHICH_FOSSIL, 3
release
end
EventScript_16E722:: @ 816E722
msgbox gUnknown_819A4E1
release
end
EventScript_16E72C:: @ 816E72C
msgbox gUnknown_819A4AB
release
end
EventScript_16E736:: @ 816E736
compare_var_to_value VAR_MAP_SCENE_CINNABAR_ISLAND_POKEMON_LAB_EXPERIMENT_ROOM_WHICH_FOSSIL, 1
goto_if eq, EventScript_16E758
compare_var_to_value VAR_MAP_SCENE_CINNABAR_ISLAND_POKEMON_LAB_EXPERIMENT_ROOM_WHICH_FOSSIL, 2
goto_if eq, EventScript_16E79D
compare_var_to_value VAR_MAP_SCENE_CINNABAR_ISLAND_POKEMON_LAB_EXPERIMENT_ROOM_WHICH_FOSSIL, 3
goto_if eq, EventScript_16E7E2
end
EventScript_16E758:: @ 816E758
setvar VAR_0x4001, SPECIES_OMANYTE
getspeciesname 0, SPECIES_OMANYTE
msgbox gUnknown_819A34F
givemon SPECIES_OMANYTE, 5, ITEM_NONE, 0, 0, 0
compare_var_to_value VAR_RESULT, 2
goto_if eq, EventScript_1A927C
setflag FLAG_REVIVED_HELIX
compare_var_to_value VAR_RESULT, 0
goto_if eq, EventScript_16E827
compare_var_to_value VAR_RESULT, 1
goto_if eq, EventScript_16E85B
end
EventScript_16E79D:: @ 816E79D
setvar VAR_0x4001, SPECIES_KABUTO
getspeciesname 0, SPECIES_KABUTO
msgbox gUnknown_819A34F
givemon SPECIES_KABUTO, 5, ITEM_NONE, 0, 0, 0
compare_var_to_value VAR_RESULT, 2
goto_if eq, EventScript_1A927C
setflag FLAG_REVIVED_DOME
compare_var_to_value VAR_RESULT, 0
goto_if eq, EventScript_16E827
compare_var_to_value VAR_RESULT, 1
goto_if eq, EventScript_16E85B
end
EventScript_16E7E2:: @ 816E7E2
setvar VAR_0x4001, SPECIES_AERODACTYL
getspeciesname 0, SPECIES_AERODACTYL
msgbox gUnknown_819A34F
givemon SPECIES_AERODACTYL, 5, ITEM_NONE, 0, 0, 0
compare_var_to_value VAR_RESULT, 2
goto_if eq, EventScript_1A927C
setflag FLAG_REVIVED_AMBER
compare_var_to_value VAR_RESULT, 0
goto_if eq, EventScript_16E827
compare_var_to_value VAR_RESULT, 1
goto_if eq, EventScript_16E85B
end
EventScript_16E827:: @ 816E827
textcolor 3
playfanfare MUS_FANFA1
message Text_19A39E
waitmessage
waitfanfare
setvar VAR_MAP_SCENE_CINNABAR_ISLAND_POKEMON_LAB_EXPERIMENT_ROOM_REVIVE_STATE, 0
msgbox gUnknown_81A56A7, MSGBOX_YESNO
compare_var_to_value VAR_RESULT, 0
goto_if eq, EventScript_16E895
call EventScript_1A8C27
call EventScript_1A74EB
goto EventScript_16E895
end
EventScript_16E85B:: @ 816E85B
textcolor 3
playfanfare MUS_FANFA1
message Text_19A39E
waitmessage
waitfanfare
setvar VAR_MAP_SCENE_CINNABAR_ISLAND_POKEMON_LAB_EXPERIMENT_ROOM_REVIVE_STATE, 0
msgbox gUnknown_81A56A7, MSGBOX_YESNO
compare_var_to_value VAR_RESULT, 0
goto_if eq, EventScript_16E88A
call EventScript_1A8C33
goto EventScript_16E88A
end
EventScript_16E88A:: @ 816E88A
call EventScript_1A8C3C
goto EventScript_16E895
end
EventScript_16E895:: @ 816E895
release
end
EventScript_16E897:: @ 816E897
msgbox gUnknown_819A4E1
release
end
EventScript_16E8A1:: @ 816E8A1
checkflag FLAG_GOT_HELIX_FOSSIL
goto_if TRUE, EventScript_16E8B9
checkflag FLAG_GOT_DOME_FOSSIL
goto_if TRUE, EventScript_16E8C8
goto EventScript_16E534
end
EventScript_16E8B9:: @ 816E8B9
checkflag FLAG_REVIVED_HELIX
goto_if FALSE, EventScript_16E534
setvar VAR_RESULT, 1
return
EventScript_16E8C8:: @ 816E8C8
checkflag FLAG_REVIVED_DOME
goto_if FALSE, EventScript_16E534
setvar VAR_RESULT, 1
return
|
