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
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
|
.equ LOCALID_BILL, 3
.equ LOCALID_SEAGALLOP, 4
CinnabarIsland_MapScripts:: @ 8166ED6
map_script MAP_SCRIPT_ON_TRANSITION, CinnabarIsland_OnTransition
map_script MAP_SCRIPT_ON_FRAME_TABLE, CinnabarIsland_OnFrame
.byte 0
CinnabarIsland_OnTransition:: @ 8166EE1
setworldmapflag FLAG_WORLD_MAP_CINNABAR_ISLAND
call CinnabarIsland_EventScript_CheckUnlockGym
compare VAR_MAP_SCENE_CINNABAR_ISLAND, 1
call_if_eq CinnabarIsland_EventScript_ReadyObjectsSailToOneIsland
compare VAR_MAP_SCENE_CINNABAR_ISLAND, 3
call_if_eq CinnabarIsland_EventScript_ReadyObjectsReturnFromSeviiIslands
compare VAR_MAP_SCENE_CINNABAR_ISLAND_2, 1
call_if_eq CinnabarIsland_EventScript_ReadyObjectsSailToOneIslandFromPokeCenter
end
CinnabarIsland_EventScript_ReadyObjectsSailToOneIslandFromPokeCenter:: @ 8166F0B
savebgm MUS_ANNAI
setflag FLAG_TEMP_2
setobjectxyperm LOCALID_BILL, 15, 12
setobjectmovementtype LOCALID_BILL, MOVEMENT_TYPE_FACE_LEFT
setobjectxyperm LOCALID_SEAGALLOP, 30, 12
return
CinnabarIsland_EventScript_ReadyObjectsSailToOneIsland:: @ 8166F24
getplayerxy VAR_0x8004, VAR_0x8005
compare VAR_0x8004, 18
goto_if_ge CinnabarIsland_EventScript_MoveSeagallopDown
setflag FLAG_TEMP_2
setobjectxyperm LOCALID_BILL, 18, 12
setobjectmovementtype LOCALID_BILL, MOVEMENT_TYPE_FACE_UP
setobjectxyperm LOCALID_SEAGALLOP, 30, 12
return
CinnabarIsland_EventScript_MoveSeagallopDown:: @ 8166F4A
setobjectxyperm LOCALID_SEAGALLOP, 30, 8
return
CinnabarIsland_EventScript_ReadyObjectsReturnFromSeviiIslands:: @ 8166F52
setobjectxyperm LOCALID_BILL, 21, 8
setobjectmovementtype LOCALID_BILL, MOVEMENT_TYPE_FACE_UP
return
CinnabarIsland_EventScript_CheckUnlockGym:: @ 8166F5E
goto_if_set FLAG_HIDE_POKEMON_MANSION_B1F_SECRET_KEY, CinnabarIsland_EventScript_UnlockGym
return
CinnabarIsland_EventScript_UnlockGym:: @ 8166F68
setvar VAR_TEMP_1, 1
return
CinnabarIsland_OnFrame:: @ 8166F6E
map_script_2 VAR_MAP_SCENE_CINNABAR_ISLAND_2, 1, CinnabarIsland_EventScript_ExitPokeCenterForOneIsland
map_script_2 VAR_MAP_SCENE_CINNABAR_ISLAND, 1, CinnabarIsland_EventScript_BillScene
map_script_2 VAR_MAP_SCENE_CINNABAR_ISLAND, 3, CinnabarIsland_EventScript_ReturnFromSeviiIslands
.2byte 0
CinnabarIsland_EventScript_ExitPokeCenterForOneIsland:: @ 8166F88
lockall
clearflag FLAG_SPECIAL_FLAG_0x4001
savebgm MUS_DUMMY
textcolor 0
setvar VAR_MAP_SCENE_CINNABAR_ISLAND_2, 2
delay 20
call CinnabarIsland_EventScript_SailToOneIsland
releaseall
end
CinnabarIsland_EventScript_ReturnFromSeviiIslands:: @ 8166FA0
lockall
textcolor 0
msgbox CinnabarIsland_Text_IfYouHaveTriPassYouCanGoAgain
closemessage
applymovement LOCALID_BILL, CinnabarIsland_Movement_BillExit
waitmovement 0
removeobject LOCALID_BILL
setvar VAR_MAP_SCENE_CINNABAR_ISLAND, 4
setflag FLAG_HIDE_TWO_ISLAND_GAME_CORNER_LOSTELLE
clearflag FLAG_HIDE_LOSTELLE_IN_HER_HOME
releaseall
end
CinnabarIsland_Movement_BillExit:: @ 8166FC6
walk_down
walk_down
walk_down
walk_down
walk_down
walk_down
step_end
CinnabarIsland_EventScript_BillScene:: @ 8166FCD
lockall
textcolor 0
call_if_unset FLAG_TEMP_2, CinnabarIsland_EventScript_BillFacePlayer1
call_if_set FLAG_TEMP_2, CinnabarIsland_EventScript_BillFacePlayer2
playse SE_PIN
applymovement LOCALID_BILL, Movement_ExclamationMark
waitmovement 0
applymovement LOCALID_BILL, Movement_Delay48
waitmovement 0
call_if_unset FLAG_TEMP_2, CinnabarIsland_EventScript_BillApproachPlayer1
call_if_set FLAG_TEMP_2, CinnabarIsland_EventScript_BillApproachPlayer2
msgbox CinnabarIsland_Text_HeyIfItIsntPlayer
msgbox CinnabarIsland_Text_ComeWithMeToOneIsland, MSGBOX_YESNO
compare VAR_RESULT, YES
goto_if_eq CinnabarIsland_EventScript_AgreeSailToOneIsland
compare VAR_RESULT, NO
goto_if_eq CinnabarIsland_EventScript_DeclineSailToOneIsland
end
CinnabarIsland_EventScript_BillFacePlayer1:: @ 8167032
applymovement LOCALID_BILL, Movement_WalkInPlaceFastestUp
waitmovement 0
return
CinnabarIsland_EventScript_BillFacePlayer2:: @ 816703D
applymovement LOCALID_BILL, Movement_WalkInPlaceFastestLeft
waitmovement 0
return
CinnabarIsland_EventScript_BillApproachPlayer1:: @ 8167048
applymovement LOCALID_BILL, CinnabarIsland_Movement_BillApproachPlayer1
waitmovement 0
return
CinnabarIsland_EventScript_BillApproachPlayer2:: @ 8167053
applymovement LOCALID_BILL, CinnabarIsland_Movement_BillApproachPlayer2
waitmovement 0
applymovement OBJ_EVENT_ID_PLAYER, Movement_WalkInPlaceFastestRight
waitmovement 0
return
CinnabarIsland_EventScript_AgreeSailToOneIsland:: @ 8167068
msgbox CinnabarIsland_Text_AllRightLetsGo
closemessage
call CinnabarIsland_EventScript_SailToOneIsland
releaseall
end
CinnabarIsland_EventScript_DeclineSailToOneIsland:: @ 8167078
msgbox CinnabarIsland_Text_IllBeWaitingInPokeCenter
closemessage
call_if_unset FLAG_TEMP_2, CinnabarIsland_EventScript_BillExitToPokeCenter
call_if_set FLAG_TEMP_2, CinnabarIsland_EventScript_BillReturnToPokeCenter
removeobject LOCALID_BILL
setvar VAR_MAP_SCENE_CINNABAR_ISLAND, 2
clearflag FLAG_HIDE_CINNABAR_POKECENTER_BILL
releaseall
end
CinnabarIsland_EventScript_BillExitToPokeCenter:: @ 81670A0
applymovement LOCALID_BILL, CinnabarIsland_Movement_BillExitToPokeCenter
waitmovement 0
return
CinnabarIsland_Movement_BillExitToPokeCenter:: @ 81670AB
walk_right
walk_down
walk_down
walk_down
walk_down
walk_down
walk_down
step_end
CinnabarIsland_EventScript_BillReturnToPokeCenter:: @ 81670B3
applymovement OBJ_EVENT_ID_PLAYER, CinnabarIsland_Movement_PlayerWatchBillExit
applymovement LOCALID_BILL, CinnabarIsland_Movement_BillApproachDoor
waitmovement 0
opendoor 14, 11
waitdooranim
applymovement LOCALID_BILL, CinnabarIsland_Movement_BillReEnterPokeCenter
waitmovement 0
closedoor 14, 11
waitdooranim
return
CinnabarIsland_Movement_PlayerWatchBillExit:: @ 81670DB
walk_left
walk_in_place_fastest_right
step_end
CinnabarIsland_Movement_BillApproachDoor:: @ 81670DE
delay_16
walk_left
walk_in_place_fastest_up
step_end
CinnabarIsland_Movement_BillReEnterPokeCenter:: @ 81670E2
walk_up
delay_4
set_invisible
step_end
@ Can be triggered outside, or after talking to Bill in the poke center
CinnabarIsland_EventScript_SailToOneIsland:: @ 81670E6
call_if_set FLAG_TEMP_2, CinnabarIsland_EventScript_ApproachShore
addobject LOCALID_SEAGALLOP
call_if_unset FLAG_TEMP_2, CinnabarIsland_EventScript_BoatArrive
call_if_set FLAG_TEMP_2, CinnabarIsland_EventScript_BoatArriveExitedPokeCenter
msgbox CinnabarIsland_Text_MyPalsBoatArrived
closemessage
call_if_unset FLAG_TEMP_2, CinnabarIsland_EventScript_BoardBoat
call_if_set FLAG_TEMP_2, CinnabarIsland_EventScript_BoardBoatExitedPokeCenter
setvar VAR_MAP_SCENE_CINNABAR_ISLAND, 2
removeobject LOCALID_BILL
delay 40
setflag FLAG_HIDE_CINNABAR_SEAGALLOP
setvar VAR_MAP_SCENE_ONE_ISLAND_HARBOR, 1
setvar VAR_0x8004, SEAGALLOP_CINNABAR_ISLAND
setvar VAR_0x8006, SEAGALLOP_ONE_ISLAND
goto EventScript_SetSail
end
CinnabarIsland_EventScript_ApproachShore:: @ 8167142
applymovement LOCALID_BILL, CinnabarIsland_Movement_ApproachShore
applymovement OBJ_EVENT_ID_PLAYER, CinnabarIsland_Movement_ApproachShore
waitmovement 0
return
CinnabarIsland_EventScript_BoatArrive:: @ 8167154
applymovement LOCALID_BILL, CinnabarIsland_Movement_BillFaceBoat
applymovement LOCALID_SEAGALLOP, CinnabarIsland_Movement_BoatArrive
waitmovement 0
return
CinnabarIsland_EventScript_BoatArriveExitedPokeCenter:: @ 8167166
applymovement LOCALID_SEAGALLOP, CinnabarIsland_Movement_BoatArrive
waitmovement 0
return
CinnabarIsland_EventScript_BoardBoat:: @ 8167171
applymovement LOCALID_BILL, CinnabarIsland_Movement_BillBoardBoat
applymovement OBJ_EVENT_ID_PLAYER, CinnabarIsland_Movement_PlayerBoardBoat
waitmovement 0
return
CinnabarIsland_EventScript_BoardBoatExitedPokeCenter:: @ 8167183
applymovement LOCALID_BILL, CinnabarIsland_Movement_BillBoardBoatFromShore
applymovement OBJ_EVENT_ID_PLAYER, CinnabarIsland_Movement_PlayerBoardBoatFromShore
waitmovement 0
return
CinnabarIsland_Movement_BoatArrive:: @ 8167195
delay_16
delay_16
walk_fast_left
walk_fast_left
walk_left
walk_slowest_left
walk_slowest_left
step_end
CinnabarIsland_Movement_BillBoardBoat:: @ 816719D
walk_right
walk_down
walk_down
walk_right
delay_4
set_invisible
step_end
CinnabarIsland_Movement_BillApproachPlayer1:: @ 81671A4
walk_up
step_end
CinnabarIsland_Movement_BillApproachPlayer2:: @ 81671A6
walk_left
walk_left
walk_left
step_end
CinnabarIsland_Movement_BillFaceBoat:: @ 81671AA
delay_16
delay_16
delay_8
walk_in_place_fastest_right
step_end
CinnabarIsland_Movement_ApproachShore:: @ 81671AF
walk_right
walk_right
walk_right
walk_right
walk_right
walk_right
step_end
CinnabarIsland_Movement_BillBoardBoatFromShore:: @ 81671B6
walk_right
delay_4
set_invisible
step_end
CinnabarIsland_Movement_PlayerBoardBoat:: @ 81671BA
walk_down
walk_right
walk_down
walk_down
walk_in_place_fastest_right
delay_4
walk_right
delay_4
set_invisible
step_end
CinnabarIsland_Movement_PlayerBoardBoatFromShore:: @ 81671C4
walk_right
delay_4
walk_right
delay_4
set_invisible
step_end
@ Triggered when VAR_TEMP_1 is 0
CinnabarIsland_EventScript_GymDoorLocked:: @ 81671CA
lockall
applymovement OBJ_EVENT_ID_PLAYER, Movement_WalkInPlaceFastestUp
waitmovement 0
delay 20
msgbox CinnabarIsland_Text_DoorIsLocked
closemessage
applymovement OBJ_EVENT_ID_PLAYER, CinnabarIsland_Movement_ForcePlayerFromDoor
waitmovement 0
releaseall
end
CinnabarIsland_Movement_ForcePlayerFromDoor:: @ 81671ED
walk_down
step_end
CinnabarIsland_EventScript_Woman:: @ 81671EF
lock
faceplayer
famechecker FAMECHECKER_BLAINE, 3
msgbox CinnabarIsland_Text_BlaineLivedHereSinceBeforeLab
release
end
CinnabarIsland_EventScript_OldMan:: @ 8167208
msgbox CinnabarIsland_Text_ScientistsExperimentInMansion, MSGBOX_NPC
end
CinnabarIsland_EventScript_IslandSign:: @ 8167211
msgbox CinnabarIsland_Text_IslandSign, MSGBOX_SIGN
end
CinnabarIsland_EventScript_PokemonLabSign:: @ 816721A
msgbox CinnabarIsland_Text_PokemonLab, MSGBOX_SIGN
end
CinnabarIsland_EventScript_GymSign:: @ 8167223
lockall
famechecker FAMECHECKER_BLAINE, 0
msgbox CinnabarIsland_Text_GymSign
releaseall
end
|
