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
|
.equ LOCALID_GRUNT1, 5
.equ LOCALID_GRUNT2, 1
.equ LOCALID_GRUNT3, 2
.equ LOCALID_ADMIN1, 3
.equ LOCALID_ADMIN2, 4
.equ PLAYER_X_POS, VAR_0x8004
.equ PLAYER_Y_POS, VAR_0x8005
FiveIsland_RocketWarehouse_MapScripts:: @ 8163F2E
map_script MAP_SCRIPT_ON_LOAD, FiveIsland_RocketWarehouse_OnLoad
map_script MAP_SCRIPT_ON_TRANSITION, FiveIsland_RocketWarehouse_OnTransition
.byte 0
FiveIsland_RocketWarehouse_OnTransition:: @ 8163F39
setworldmapflag FLAG_WORLD_MAP_FIVE_ISLAND_ROCKET_WAREHOUSE
end
FiveIsland_RocketWarehouse_OnLoad:: @ 8163F3D
call_if_defeated TRAINER_TEAM_ROCKET_ADMIN, FiveIsland_RocketWarehouse_EventScript_SetArrowsForReEntry
end
FiveIsland_RocketWarehouse_EventScript_SetArrowsForReEntry:: @ 8163F47
setmetatile 26, 20, METATILE_SilphCo_Arrow_Up, 0
setmetatile 27, 20, METATILE_SilphCo_Arrow_Up, 0
return
FiveIsland_RocketWarehouse_EventScript_Cage:: @ 8163F5A
lockall
goto_if_set FLAG_DEFEATED_ROCKETS_IN_WAREHOUSE, FiveIsland_RocketWarehouse_EventScript_CageUnlocked
msgbox FiveIsland_RocketWarehouse_Text_ManyMonsLockedInPen
releaseall
end
FiveIsland_RocketWarehouse_EventScript_CageUnlocked:: @ 8163F6E
msgbox FiveIsland_RocketWarehouse_Text_PenUnlockedMonsFled
releaseall
end
FiveIsland_RocketWarehouse_EventScript_Computer:: @ 8163F78
msgbox FiveIsland_RocketWarehouse_Text_ReportWithGraphsAndText, MSGBOX_SIGN
end
FiveIsland_RocketWarehouse_EventScript_Admin2Trigger:: @ 8163F81
lockall
applymovement LOCALID_ADMIN2, Movement_WalkInPlaceFastestLeft
waitmovement 0
setvar VAR_MAP_SCENE_ROCKET_WAREHOUSE, 1
releaseall
end
FiveIsland_RocketWarehouse_EventScript_Gideon:: @ 8163F93
trainerbattle_single TRAINER_SCIENTIST_GIDEON, FiveIsland_RocketWarehouse_Text_GideonIntro, FiveIsland_RocketWarehouse_Text_GideonDefeat, FiveIsland_RocketWarehouse_EventScript_DefeatedGideon
goto_if_set FLAG_SYS_CAN_LINK_WITH_RS, FiveIsland_RocketWarehouse_EventScript_MentionGiovannisKid
msgbox FiveIsland_RocketWarehouse_Text_GetLostLeaveMeBe, MSGBOX_AUTOCLOSE
end
FiveIsland_RocketWarehouse_EventScript_MentionGiovannisKid:: @ 8163FB7
famechecker FAMECHECKER_GIOVANNI, 5
msgbox FiveIsland_RocketWarehouse_Text_GiovannisKidHasRedHair, MSGBOX_AUTOCLOSE
end
FiveIsland_RocketWarehouse_EventScript_DefeatedGideon:: @ 8163FCD
msgbox FiveIsland_RocketWarehouse_Text_GideonPostBattle
setflag FLAG_RECOVERED_SAPPHIRE
giveitem ITEM_SAPPHIRE
release
end
FiveIsland_RocketWarehouse_EventScript_Grunt2:: @ 8163FE6
trainerbattle_single TRAINER_TEAM_ROCKET_GRUNT_47, FiveIsland_RocketWarehouse_Text_Grunt2Intro, FiveIsland_RocketWarehouse_Text_Grunt2Defeat
msgbox FiveIsland_RocketWarehouse_Text_Grunt2PostBattle, MSGBOX_AUTOCLOSE
end
FiveIsland_RocketWarehouse_EventScript_Grunt3:: @ 8163FFD
trainerbattle_single TRAINER_TEAM_ROCKET_GRUNT_48, FiveIsland_RocketWarehouse_Text_Grunt3Intro, FiveIsland_RocketWarehouse_Text_Grunt3Defeat
msgbox FiveIsland_RocketWarehouse_Text_Grunt3PostBattle, MSGBOX_AUTOCLOSE
end
FiveIsland_RocketWarehouse_EventScript_Admin2:: @ 8164014
trainerbattle_single TRAINER_TEAM_ROCKET_ADMIN_2, FiveIsland_RocketWarehouse_Text_Admin2Intro, FiveIsland_RocketWarehouse_Text_Admin2Defeat, FiveIsland_RocketWarehouse_EventScript_DefeatedAdmin2
msgbox FiveIsland_RocketWarehouse_Text_Admin2PostBattle, MSGBOX_AUTOCLOSE
end
FiveIsland_RocketWarehouse_EventScript_DefeatedAdmin2:: @ 816402F
getplayerxy PLAYER_X_POS, PLAYER_Y_POS
compare PLAYER_X_POS, 24
call_if_le FiveIsland_RocketWarehouse_EventScript_PlayerFaceAdmin2
msgbox FiveIsland_RocketWarehouse_Text_Admin2PostBattle
closemessage
fadescreen FADE_TO_BLACK
removeobject LOCALID_GRUNT2
removeobject LOCALID_GRUNT3
removeobject LOCALID_ADMIN2
removeobject LOCALID_ADMIN1
setflag FLAG_HIDE_FIVE_ISLAND_ROCKETS
fadescreen FADE_FROM_BLACK
setvar VAR_MAP_SCENE_ROCKET_WAREHOUSE, 1
setflag FLAG_DEFEATED_ROCKETS_IN_WAREHOUSE
release
end
FiveIsland_RocketWarehouse_EventScript_PlayerFaceAdmin2:: @ 8164065
applymovement OBJ_EVENT_ID_PLAYER, Movement_WalkInPlaceFastestRight
waitmovement 0
return
FiveIsland_RocketWarehouse_EventScript_Grunt1:: @ 8164070
trainerbattle_single TRAINER_TEAM_ROCKET_GRUNT_42, FiveIsland_RocketWarehouse_Text_Grunt1Intro, FiveIsland_RocketWarehouse_Text_Grunt1Defeat
msgbox FiveIsland_RocketWarehouse_Text_Grunt1PostBattle, MSGBOX_AUTOCLOSE
end
FiveIsland_RocketWarehouse_EventScript_Admin1:: @ 8164087
trainerbattle_single TRAINER_TEAM_ROCKET_ADMIN, FiveIsland_RocketWarehouse_Text_Admin1Intro, FiveIsland_RocketWarehouse_Text_Admin1Defeat, FiveIsland_RocketWarehouse_EventScript_DefeatedAdmin1
msgbox FiveIsland_RocketWarehouse_Text_MadeItSoYouCanComeBackThrough, MSGBOX_AUTOCLOSE
end
FiveIsland_RocketWarehouse_EventScript_DefeatedAdmin1:: @ 81640A2
getplayerxy PLAYER_X_POS, PLAYER_Y_POS
specialvar VAR_RESULT, GetPlayerFacingDirection
compare VAR_RESULT, DIR_NORTH
call_if_eq FiveIsland_RocketWarehouse_EventScript_PlayerFaceAdmin1
msgbox FiveIsland_RocketWarehouse_Text_Admin1PostBattle
closemessage
compare PLAYER_X_POS, 24
call_if_le FiveIsland_RocketWarehouse_EventScript_AdminWalkToSwitchFar
compare PLAYER_X_POS, 25
call_if_eq FiveIsland_RocketWarehouse_EventScript_AdminWalkToSwitch
compare PLAYER_X_POS, 26
call_if_eq FiveIsland_RocketWarehouse_EventScript_AdminFaceSwitch
compare PLAYER_X_POS, 27
call_if_eq FiveIsland_RocketWarehouse_EventScript_AdminFaceSwitch
playse SE_PIN
call FiveIsland_RocketWarehouse_EventScript_SetArrowsForReEntry
special DrawWholeMapView
waitse
compare PLAYER_X_POS, 24
call_if_le FiveIsland_RocketWarehouse_EventScript_AdminFacePlayerLeft
compare PLAYER_X_POS, 25
call_if_eq FiveIsland_RocketWarehouse_EventScript_AdminFacePlayerLeft
compare PLAYER_X_POS, 26
call_if_eq FiveIsland_RocketWarehouse_EventScript_AdminFacePlayerLeft
compare PLAYER_X_POS, 27
call_if_eq FiveIsland_RocketWarehouse_EventScript_AdminFacePlayerDown
msgbox FiveIsland_RocketWarehouse_Text_MadeItSoYouCanComeBackThrough
release
end
FiveIsland_RocketWarehouse_EventScript_PlayerFaceAdmin1:: @ 816412E
compare PLAYER_X_POS, 27
goto_if_eq EventScript_Return
applymovement OBJ_EVENT_ID_PLAYER, Movement_WalkInPlaceFastestRight
waitmovement 0
return
FiveIsland_RocketWarehouse_EventScript_AdminWalkToSwitchFar:: @ 8164144
applymovement LOCALID_ADMIN1, FiveIsland_RocketWarehouse_Movement_AdminWalkToSwitchFar
waitmovement 0
return
FiveIsland_RocketWarehouse_EventScript_AdminWalkToSwitch:: @ 816414F
applymovement LOCALID_ADMIN1, FiveIsland_RocketWarehouse_Movement_AdminWalkToSwitch
waitmovement 0
return
FiveIsland_RocketWarehouse_EventScript_AdminFaceSwitch:: @ 816415A
applymovement LOCALID_ADMIN1, Movement_WalkInPlaceFastestUp
waitmovement 0
return
FiveIsland_RocketWarehouse_EventScript_AdminFacePlayerLeft:: @ 8164165
applymovement LOCALID_ADMIN1, Movement_WalkInPlaceFastestLeft
waitmovement 0
return
FiveIsland_RocketWarehouse_EventScript_AdminFacePlayerDown:: @ 8164170
applymovement LOCALID_ADMIN1, Movement_WalkInPlaceFastestDown
waitmovement 0
return
FiveIsland_RocketWarehouse_Movement_AdminWalkToSwitchFar:: @ 816417B
walk_right
walk_right
walk_in_place_fastest_up
step_end
FiveIsland_RocketWarehouse_Movement_AdminWalkToSwitch:: @ 816417F
walk_right
walk_in_place_fastest_up
step_end
|
