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
|
CinnabarIsland_PokemonLab_ExperimentRoom_MapScripts:: @ 816E400
.byte 0
CinnabarIsland_PokemonLab_ExperimentRoom_EventScript_16E401:: @ 816E401
lock
faceplayer
setvar VAR_0x8008, INGAME_TRADE_SEEL
call EventScript_GetInGameTradeSpeciesInfo
goto_if_set FLAG_DID_SEELOR_TRADE, EventScript_16E473
msgbox gUnknown_81A597B, MSGBOX_YESNO
compare VAR_RESULT, NO
goto_if_eq EventScript_16E45B
call EventScript_ChooseMonForInGameTrade
compare VAR_0x8004, PARTY_SIZE
goto_if_ge EventScript_16E45B
call EventScript_GetInGameTradeSpecies
compare VAR_RESULT, VAR_0x8009
goto_if_ne EventScript_16E465
call EventScript_DoInGameTrade
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
call_if_set FLAG_REVIVED_AMBER, EventScript_16E8A1
compare VAR_RESULT, 1
goto_if_eq EventScript_16E897
compare VAR_MAP_SCENE_CINNABAR_ISLAND_POKEMON_LAB_EXPERIMENT_ROOM_REVIVE_STATE, 2
goto_if_eq EventScript_16E736
compare VAR_MAP_SCENE_CINNABAR_ISLAND_POKEMON_LAB_EXPERIMENT_ROOM_REVIVE_STATE, 1
goto_if_eq EventScript_16E72C
call EventScript_16E4EC
compare VAR_RESULT, 1
goto_if_eq EventScript_16E544
call EventScript_16E504
compare VAR_RESULT, 1
goto_if_eq EventScript_16E586
call EventScript_16E51C
compare VAR_RESULT, 1
goto_if_eq EventScript_16E5C8
msgbox gUnknown_819A282
goto EventScript_16E53A
end
EventScript_16E4EC:: @ 816E4EC
goto_if_unset FLAG_GOT_HELIX_FOSSIL, EventScript_16E534
goto_if_set FLAG_REVIVED_HELIX, EventScript_16E534
setvar VAR_RESULT, 1
return
EventScript_16E504:: @ 816E504
goto_if_unset FLAG_GOT_DOME_FOSSIL, EventScript_16E534
goto_if_set FLAG_REVIVED_DOME, EventScript_16E534
setvar VAR_RESULT, 1
return
EventScript_16E51C:: @ 816E51C
goto_if_unset FLAG_GOT_OLD_AMBER, EventScript_16E534
goto_if_set FLAG_REVIVED_AMBER, 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_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_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_RESULT, NO
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_RESULT, NO
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_RESULT, NO
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_MAP_SCENE_CINNABAR_ISLAND_POKEMON_LAB_EXPERIMENT_ROOM_WHICH_FOSSIL, 1
goto_if_eq EventScript_16E758
compare VAR_MAP_SCENE_CINNABAR_ISLAND_POKEMON_LAB_EXPERIMENT_ROOM_WHICH_FOSSIL, 2
goto_if_eq EventScript_16E79D
compare VAR_MAP_SCENE_CINNABAR_ISLAND_POKEMON_LAB_EXPERIMENT_ROOM_WHICH_FOSSIL, 3
goto_if_eq EventScript_16E7E2
end
EventScript_16E758:: @ 816E758
setvar VAR_TEMP_1, SPECIES_OMANYTE
getspeciesname 0, SPECIES_OMANYTE
msgbox gUnknown_819A34F
givemon SPECIES_OMANYTE, 5, ITEM_NONE
compare VAR_RESULT, 2
goto_if_eq EventScript_1A927C
setflag FLAG_REVIVED_HELIX
compare VAR_RESULT, 0
goto_if_eq EventScript_16E827
compare VAR_RESULT, 1
goto_if_eq EventScript_16E85B
end
EventScript_16E79D:: @ 816E79D
setvar VAR_TEMP_1, SPECIES_KABUTO
getspeciesname 0, SPECIES_KABUTO
msgbox gUnknown_819A34F
givemon SPECIES_KABUTO, 5, ITEM_NONE
compare VAR_RESULT, 2
goto_if_eq EventScript_1A927C
setflag FLAG_REVIVED_DOME
compare VAR_RESULT, 0
goto_if_eq EventScript_16E827
compare VAR_RESULT, 1
goto_if_eq EventScript_16E85B
end
EventScript_16E7E2:: @ 816E7E2
setvar VAR_TEMP_1, SPECIES_AERODACTYL
getspeciesname 0, SPECIES_AERODACTYL
msgbox gUnknown_819A34F
givemon SPECIES_AERODACTYL, 5, ITEM_NONE
compare VAR_RESULT, 2
goto_if_eq EventScript_1A927C
setflag FLAG_REVIVED_AMBER
compare VAR_RESULT, 0
goto_if_eq EventScript_16E827
compare 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_RESULT, NO
goto_if_eq EventScript_16E895
call EventScript_1A8C27
call EventScript_ChangePokemonNickname
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_RESULT, NO
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
goto_if_set FLAG_GOT_HELIX_FOSSIL, EventScript_16E8B9
goto_if_set FLAG_GOT_DOME_FOSSIL, EventScript_16E8C8
goto EventScript_16E534
end
EventScript_16E8B9:: @ 816E8B9
goto_if_unset FLAG_REVIVED_HELIX, EventScript_16E534
setvar VAR_RESULT, 1
return
EventScript_16E8C8:: @ 816E8C8
goto_if_unset FLAG_REVIVED_DOME, EventScript_16E534
setvar VAR_RESULT, 1
return
|
