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
|
.set LOCALID_STEVEN, 1
.set LOCALID_BELDUM_BALL, 2
MossdeepCity_StevensHouse_MapScripts::
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:
call_if_unset FLAG_SYS_GAME_CLEAR, MossdeepCity_StevensHouse_EventScript_HideStevensNote
end
MossdeepCity_StevensHouse_EventScript_HideStevensNote::
setmetatile 6, 4, METATILE_GenericBuilding_TableEdge, TRUE
return
MossdeepCity_StevensHouse_OnTransition:
call_if_eq VAR_STEVENS_HOUSE_STATE, 2, MossdeepCity_StevensHouse_EventScript_SetStevenPos
end
MossdeepCity_StevensHouse_EventScript_SetStevenPos::
setobjectxyperm LOCALID_STEVEN, 6, 5
setobjectmovementtype LOCALID_STEVEN, MOVEMENT_TYPE_FACE_UP
return
MossdeepCity_StevensHouse_OnFrame:
map_script_2 VAR_STEVENS_HOUSE_STATE, 1, MossdeepCity_StevensHouse_EventScript_StevenGivesDive
.2byte 0
MossdeepCity_StevensHouse_EventScript_StevenGivesDive::
lockall
applymovement LOCALID_STEVEN, Common_Movement_WalkInPlaceFasterLeft
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:
walk_left
walk_left
walk_left
walk_left
walk_left
walk_left
walk_in_place_faster_down
step_end
MossdeepCity_StevensHouse_Movement_StevenReturn:
walk_up
walk_right
walk_right
walk_right
walk_in_place_faster_up
step_end
MossdeepCity_StevensHouse_EventScript_BeldumPokeball::
lockall
msgbox MossdeepCity_StevensHouse_Text_TakeBallContainingBeldum, MSGBOX_YESNO
goto_if_eq VAR_RESULT, NO, MossdeepCity_StevensHouse_EventScript_LeaveBeldum
goto MossdeepCity_StevensHouse_EventScript_GiveBeldum
end
MossdeepCity_StevensHouse_EventScript_LeaveBeldum::
msgbox MossdeepCity_StevensHouse_Text_LeftPokeBallWhereItWas, MSGBOX_DEFAULT
releaseall
end
MossdeepCity_StevensHouse_EventScript_GiveBeldum::
setvar VAR_TEMP_1, SPECIES_BELDUM
givemon SPECIES_BELDUM, 5
goto_if_eq VAR_RESULT, MON_GIVEN_TO_PARTY, MossdeepCity_StevensHouse_EventScript_SendBeldumParty
goto_if_eq VAR_RESULT, MON_GIVEN_TO_PC, MossdeepCity_StevensHouse_EventScript_SendBeldumPC
goto Common_EventScript_NoMoreRoomForPokemon
end
MossdeepCity_StevensHouse_EventScript_SendBeldumParty::
call MossdeepCity_StevensHouse_EventScript_ReceivedBeldumFanfare
msgbox gText_NicknameThisPokemon, MSGBOX_YESNO
goto_if_eq VAR_RESULT, NO, MossdeepCity_StevensHouse_EventScript_ReceivedBeldum
call Common_EventScript_GetGiftMonPartySlot
call Common_EventScript_NameReceivedPartyMon
goto MossdeepCity_StevensHouse_EventScript_ReceivedBeldum
end
MossdeepCity_StevensHouse_EventScript_SendBeldumPC::
call MossdeepCity_StevensHouse_EventScript_ReceivedBeldumFanfare
msgbox gText_NicknameThisPokemon, MSGBOX_YESNO
goto_if_eq VAR_RESULT, NO, MossdeepCity_StevensHouse_EventScript_BeldumTransferredToPC
call Common_EventScript_NameReceivedBoxMon
goto MossdeepCity_StevensHouse_EventScript_BeldumTransferredToPC
end
MossdeepCity_StevensHouse_EventScript_BeldumTransferredToPC::
call Common_EventScript_TransferredToPC
goto MossdeepCity_StevensHouse_EventScript_ReceivedBeldum
end
MossdeepCity_StevensHouse_EventScript_ReceivedBeldumFanfare::
bufferspeciesname STR_VAR_2, SPECIES_BELDUM
removeobject LOCALID_BELDUM_BALL
playfanfare MUS_OBTAIN_ITEM
message MossdeepCity_StevensHouse_Text_ObtainedBeldum
waitmessage
waitfanfare
bufferspeciesname STR_VAR_1, SPECIES_BELDUM
return
MossdeepCity_StevensHouse_EventScript_ReceivedBeldum::
setflag FLAG_HIDE_MOSSDEEP_CITY_STEVENS_HOUSE_BELDUM_POKEBALL
setflag FLAG_RECEIVED_BELDUM
releaseall
end
MossdeepCity_StevensHouse_EventScript_RockDisplay::
msgbox MossdeepCity_StevensHouse_Text_CollectionOfRareRocks, MSGBOX_SIGN
end
MossdeepCity_StevensHouse_EventScript_Steven::
msgbox MossdeepCity_StevensHouse_Text_UnderwateCavernBetweenMossdeepSootopolis, MSGBOX_NPC
end
MossdeepCity_StevensHouse_EventScript_Letter::
lockall
msgbox MossdeepCity_StevensHouse_Text_LetterFromSteven, MSGBOX_DEFAULT
releaseall
end
@ Unused, leftover from RS
MossdeepCity_StevensHouse_EventScript_DiveItemBall::
finditem ITEM_HM08
setflag FLAG_RECEIVED_HM08
end
MossdeepCity_StevensHouse_Text_YouveEarnedHMDive:
.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:
.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:
.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:
.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:
.string "{PLAYER} obtained a BELDUM.$"
@ Unused
MossdeepCity_StevensHouse_Text_NoSpaceForAnotherMon:
.string "There is no space for another POKéMON.$"
MossdeepCity_StevensHouse_Text_LeftPokeBallWhereItWas:
.string "{PLAYER} left the POKé BALL where\n"
.string "it was.$"
MossdeepCity_StevensHouse_Text_LetterFromSteven:
.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:
.string "It's a collection of rare rocks and\n"
.string "stones assembled by STEVEN.$"
|
