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
|
.set LOCALID_STEVEN, 1
.set LOCALID_BELDUM_BALL, 2
MossdeepCity_StevensHouse_MapScripts:: @ 8222784
map_script MAP_SCRIPT_ON_LOAD, MossdeepCity_StevensHouse_OnLoad
map_script MAP_SCRIPT_ON_TRANSITION, MossdeepCity_StevensHouse_OnTransition
map_script MAP_SCRIPT_ON_FRAME_TABLE, MossdeepCity_StevensHouse_OnFrame
.byte 0
MossdeepCity_StevensHouse_OnLoad: @ 8222794
call_if_unset FLAG_SYS_GAME_CLEAR, MossdeepCity_StevensHouse_EventScript_HideStevensNote
end
MossdeepCity_StevensHouse_EventScript_HideStevensNote:: @ 822279E
setmetatile 6, 4, METATILE_GenericBuilding_TableEdge, 1
return
MossdeepCity_StevensHouse_OnTransition: @ 82227A8
compare VAR_STEVENS_HOUSE_STATE, 2
call_if_eq MossdeepCity_StevensHouse_EventScript_SetStevenPos
end
MossdeepCity_StevensHouse_EventScript_SetStevenPos:: @ 82227B4
setobjectxyperm LOCALID_STEVEN, 6, 5
setobjectmovementtype LOCALID_STEVEN, MOVEMENT_TYPE_FACE_UP
return
MossdeepCity_StevensHouse_OnFrame: @ 82227C0
map_script_2 VAR_STEVENS_HOUSE_STATE, 1, MossdeepCity_StevensHouse_EventScript_StevenGivesDive
.2byte 0
MossdeepCity_StevensHouse_EventScript_StevenGivesDive:: @ 82227CA
lockall
applymovement LOCALID_STEVEN, Common_Movement_WalkInPlaceFastestLeft
waitmovement 0
playse SE_PIN
applymovement LOCALID_STEVEN, Common_Movement_ExclamationMark
waitmovement 0
applymovement LOCALID_STEVEN, Common_Movement_Delay48
waitmovement 0
applymovement LOCALID_STEVEN, MossdeepCity_StevensHouse_Movement_StevenApproachPlayer
waitmovement 0
msgbox MossdeepCity_StevensHouse_Text_YouveEarnedHMDive, MSGBOX_DEFAULT
giveitem ITEM_HM08
setflag FLAG_RECEIVED_HM08
setflag FLAG_OMIT_DIVE_FROM_STEVEN_LETTER
msgbox MossdeepCity_StevensHouse_Text_ExplainDive, MSGBOX_DEFAULT
closemessage
delay 20
applymovement LOCALID_STEVEN, MossdeepCity_StevensHouse_Movement_StevenReturn
waitmovement 0
setflag FLAG_HIDE_MOSSDEEP_CITY_SCOTT
setflag FLAG_HIDE_SEAFLOOR_CAVERN_ENTRANCE_AQUA_GRUNT
setvar VAR_STEVENS_HOUSE_STATE, 2
releaseall
end
MossdeepCity_StevensHouse_Movement_StevenApproachPlayer: @ 8222833
walk_left
walk_left
walk_left
walk_left
walk_left
walk_left
walk_in_place_fastest_down
step_end
MossdeepCity_StevensHouse_Movement_StevenReturn: @ 822283B
walk_up
walk_right
walk_right
walk_right
walk_in_place_fastest_up
step_end
MossdeepCity_StevensHouse_EventScript_BeldumPokeball:: @ 8222841
lockall
msgbox MossdeepCity_StevensHouse_Text_TakeBallContainingBeldum, MSGBOX_YESNO
compare VAR_RESULT, NO
goto_if_eq MossdeepCity_StevensHouse_EventScript_LeaveBeldum
goto MossdeepCity_StevensHouse_EventScript_GiveBeldum
end
MossdeepCity_StevensHouse_EventScript_LeaveBeldum:: @ 822285B
msgbox MossdeepCity_StevensHouse_Text_LeftPokeBallWhereItWas, MSGBOX_DEFAULT
releaseall
end
MossdeepCity_StevensHouse_EventScript_GiveBeldum:: @ 8222865
setvar VAR_TEMP_1, SPECIES_BELDUM
givemon SPECIES_BELDUM, 5, ITEM_NONE
compare VAR_RESULT, 0
goto_if_eq MossdeepCity_StevensHouse_EventScript_SendBeldumParty
compare VAR_RESULT, 1
goto_if_eq MossdeepCity_StevensHouse_EventScript_SendBeldumPC
goto Common_EventScript_NoMoreRoomForPokemon
end
MossdeepCity_StevensHouse_EventScript_SendBeldumParty:: @ 8222895
call MossdeepCity_StevensHouse_EventScript_ReceivedBeldumFanfare
msgbox gText_NicknameThisPokemon, MSGBOX_YESNO
compare VAR_RESULT, NO
goto_if_eq MossdeepCity_StevensHouse_EventScript_ReceivedBeldum
call Common_EventScript_GetGiftMonPartySlot
call Common_EventScript_NameReceivedPartyMon
goto MossdeepCity_StevensHouse_EventScript_ReceivedBeldum
end
MossdeepCity_StevensHouse_EventScript_SendBeldumPC:: @ 82228BD
call MossdeepCity_StevensHouse_EventScript_ReceivedBeldumFanfare
msgbox gText_NicknameThisPokemon, MSGBOX_YESNO
compare VAR_RESULT, NO
goto_if_eq MossdeepCity_StevensHouse_EventScript_BeldumTransferredToPC
call Common_EventScript_NameReceivedBoxMon
goto MossdeepCity_StevensHouse_EventScript_BeldumTransferredToPC
end
MossdeepCity_StevensHouse_EventScript_BeldumTransferredToPC:: @ 82228E0
call Common_EventScript_TransferredToPC
goto MossdeepCity_StevensHouse_EventScript_ReceivedBeldum
end
MossdeepCity_StevensHouse_EventScript_ReceivedBeldumFanfare:: @ 82228EB
bufferspeciesname 1, SPECIES_BELDUM
removeobject LOCALID_BELDUM_BALL
playfanfare MUS_OBTAIN_ITEM
message MossdeepCity_StevensHouse_Text_ObtainedBeldum
waitmessage
waitfanfare
bufferspeciesname 0, SPECIES_BELDUM
return
MossdeepCity_StevensHouse_EventScript_ReceivedBeldum:: @ 8222901
setflag FLAG_HIDE_MOSSDEEP_CITY_STEVENS_HOUSE_BELDUM_POKEBALL
setflag FLAG_RECEIVED_BELDUM
releaseall
end
MossdeepCity_StevensHouse_EventScript_RockDisplay:: @ 8222909
msgbox MossdeepCity_StevensHouse_Text_CollectionOfRareRocks, MSGBOX_SIGN
end
MossdeepCity_StevensHouse_EventScript_Steven:: @ 8222912
msgbox MossdeepCity_StevensHouse_Text_UnderwateCavernBetweenMossdeepSootopolis, MSGBOX_NPC
end
MossdeepCity_StevensHouse_EventScript_Letter:: @ 822291B
lockall
msgbox MossdeepCity_StevensHouse_Text_LetterFromSteven, MSGBOX_DEFAULT
releaseall
end
@ Unused, leftover from RS
MossdeepCity_StevensHouse_EventScript_DiveItemBall:: @ 8222926
finditem ITEM_HM08
setflag FLAG_RECEIVED_HM08
end
MossdeepCity_StevensHouse_Text_YouveEarnedHMDive: @ 8222936
.string "STEVEN: {PLAYER}{KUN}…\p"
.string "As you can see, there's not much here,\n"
.string "but this is my home.\p"
.string "Thank you for all that you've done.\p"
.string "This is my token of appreciation.\n"
.string "It's the HIDDEN MACHINE DIVE.\p"
.string "No need to be shy--you've earned\n"
.string "this HM.$"
MossdeepCity_StevensHouse_Text_ExplainDive: @ 8222A0E
.string "STEVEN: While you're using SURF, you\n"
.string "should notice dark patches of water.\p"
.string "Use DIVE if you come to deep water\n"
.string "like it. You'll drop to the seafloor.\p"
.string "When you want to come back up, use\n"
.string "DIVE again.\p"
.string "In some places, it won't be possible\n"
.string "for you to surface, though.$"
MossdeepCity_StevensHouse_Text_UnderwateCavernBetweenMossdeepSootopolis: @ 8222B11
.string "STEVEN: Apparently, there's an\n"
.string "underwater cavern between\l"
.string "MOSSDEEP and SOOTOPOLIS.\p"
.string "You know, the one that CAPT. STERN\n"
.string "found in his submarine.$"
MossdeepCity_StevensHouse_Text_TakeBallContainingBeldum: @ 8222B9E
.string "{PLAYER} checked the POKé BALL.\p"
.string "It contained the POKéMON\n"
.string "BELDUM.\p"
.string "Take the POKé BALL?$"
MossdeepCity_StevensHouse_Text_ObtainedBeldum: @ 8222BED
.string "{PLAYER} obtained a BELDUM.$"
@ Unused
MossdeepCity_StevensHouse_Text_NoSpaceForAnotherMon: @ 8222C03
.string "There is no space for another POKéMON.$"
MossdeepCity_StevensHouse_Text_LeftPokeBallWhereItWas: @ 8222C2A
.string "{PLAYER} left the POKé BALL where\n"
.string "it was.$"
MossdeepCity_StevensHouse_Text_LetterFromSteven: @ 8222C4E
.string "It's a letter.\p"
.string "… … … … … …\p"
.string "To {PLAYER}{KUN}…\p"
.string "I've decided to do a little soul-\n"
.string "searching and train on the road.\p"
.string "I don't plan to return home for some\n"
.string "time.\p"
.string "I have a favor to ask of you.\p"
.string "I want you to take the POKé BALL on\n"
.string "the desk.\p"
.string "Inside it is a BELDUM, my favorite\n"
.string "POKéMON.\p"
.string "I'm counting on you.\p"
.string "May our paths cross someday.\p"
.string "STEVEN STONE$"
MossdeepCity_StevensHouse_Text_CollectionOfRareRocks: @ 8222D97
.string "It's a collection of rare rocks and\n"
.string "stones assembled by STEVEN.$"
|
