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
|
object_const_def
const GOLDENRODDEPTSTOREROOF_CLERK
const GOLDENRODDEPTSTOREROOF_POKEFAN_F
const GOLDENRODDEPTSTOREROOF_FISHER
const GOLDENRODDEPTSTOREROOF_TWIN
const GOLDENRODDEPTSTOREROOF_SUPER_NERD
const GOLDENRODDEPTSTOREROOF_POKEFAN_M
const GOLDENRODDEPTSTOREROOF_TEACHER
const GOLDENRODDEPTSTOREROOF_BUG_CATCHER
GoldenrodDeptStoreRoof_MapScripts:
def_scene_scripts
def_callbacks
callback MAPCALLBACK_TILES, .CheckSaleChangeBlock
callback MAPCALLBACK_OBJECTS, .CheckSaleChangeClerk
.CheckSaleChangeBlock:
checkflag ENGINE_GOLDENROD_DEPT_STORE_SALE_IS_ON
iftrue .SaleIsOn
endcallback
.SaleIsOn:
changeblock 0, 2, $3f ; cardboard boxes
changeblock 0, 4, $0f ; vendor booth
endcallback
.CheckSaleChangeClerk:
checkflag ENGINE_GOLDENROD_DEPT_STORE_SALE_IS_ON
iftrue .ChangeClerk
setevent EVENT_GOLDENROD_SALE_OFF
clearevent EVENT_GOLDENROD_SALE_ON
endcallback
.ChangeClerk:
clearevent EVENT_GOLDENROD_SALE_OFF
setevent EVENT_GOLDENROD_SALE_ON
endcallback
GoldenrodDeptStoreRoofClerkScript:
opentext
pokemart MARTTYPE_ROOFTOP, 0
closetext
end
GoldenrodDeptStoreRoofPokefanFScript:
jumptextfaceplayer GoldenrodDeptStoreRoofPokefanFText
GoldenrodDeptStoreRoofFisherScript:
faceplayer
opentext
writetext GoldenrodDeptStoreRoofFisherText
waitbutton
closetext
turnobject GOLDENRODDEPTSTOREROOF_FISHER, UP
end
GoldenrodDeptStoreRoofTwinScript:
jumptextfaceplayer GoldenrodDeptStoreRoofTwinText
GoldenrodDeptStoreRoofSuperNerdScript:
opentext
writetext GoldenrodDeptStoreRoofSuperNerdOhWowText
waitbutton
closetext
turnobject GOLDENRODDEPTSTOREROOF_SUPER_NERD, UP
opentext
writetext GoldenrodDeptStoreRoofSuperNerdQuitBotheringMeText
waitbutton
closetext
turnobject GOLDENRODDEPTSTOREROOF_SUPER_NERD, RIGHT
end
GoldenrodDeptStoreRoofPokefanMScript:
jumptextfaceplayer GoldenrodDeptStoreRoofPokefanMText
GoldenrodDeptStoreRoofTeacherScript:
jumptextfaceplayer GoldenrodDeptStoreRoofTeacherText
GoldenrodDeptStoreRoofBugCatcherScript:
jumptextfaceplayer GoldenrodDeptStoreRoofBugCatcherText
Binoculars1:
jumptext Binoculars1Text
Binoculars2:
jumptext Binoculars2Text
Binoculars3:
jumptext Binoculars3Text
PokeDollVendingMachine:
jumptext PokeDollVendingMachineText
GoldenrodDeptStoreRoofPokefanFText:
text "Whew, I'm tired."
para "I sometimes come"
line "up to the rooftop"
para "to take a break"
line "from shopping."
done
GoldenrodDeptStoreRoofFisherText:
text "Pardon? Who says"
line "an adult can't get"
cont "into this?"
para "I'm going to be"
line "back every day to"
para "collect all the"
line "dolls!"
done
GoldenrodDeptStoreRoofTwinText:
text "They have bargain"
line "sales here every"
cont "so often."
done
GoldenrodDeptStoreRoofSuperNerdOhWowText:
text "Oh, wow!"
done
GoldenrodDeptStoreRoofSuperNerdQuitBotheringMeText:
text "Will you quit"
line "bothering me?"
done
GoldenrodDeptStoreRoofPokefanMText:
text "There's something"
line "I really want, but"
para "I don't have the"
line "necessary cash…"
para "Maybe I'll sell"
line "off the BERRIES"
cont "I've collected…"
done
GoldenrodDeptStoreRoofTeacherText:
text "Oh, everything is"
line "so cheap!"
para "I bought so much,"
line "my PACK's crammed!"
done
GoldenrodDeptStoreRoofBugCatcherText:
text "My #MON always"
line "get paralyzed or"
para "poisoned when the"
line "chips are down…"
para "So I came to buy"
line "some FULL HEAL."
para "I wonder if"
line "there's any left?"
done
Binoculars1Text:
text "These binoculars"
line "let me see far"
para "away. Maybe I can"
line "see my own house."
para "Is it the one with"
line "the green roof?"
done
Binoculars2Text:
text "Hey! Some trainers"
line "are battling on"
cont "the road!"
para "A #MON fired a"
line "flurry of leaves!"
para "That makes me feel"
line "like battling"
cont "right now!"
done
Binoculars3Text:
text "A FISHER caught a"
line "lot of MAGIKARP…"
para "They're SPLASHing"
line "at the same time!"
para "Look at the water"
line "going everywhere!"
done
PokeDollVendingMachineText:
text "A vending machine"
line "for #MON dolls?"
para "Insert money, then"
line "turn the crank…"
para "But it's almost"
line "empty…"
done
GoldenrodDeptStoreRoof_MapEvents:
db 0, 0 ; filler
def_warp_events
warp_event 13, 1, GOLDENROD_DEPT_STORE_6F, 3
def_coord_events
def_bg_events
bg_event 15, 3, BGEVENT_RIGHT, Binoculars1
bg_event 15, 5, BGEVENT_RIGHT, Binoculars2
bg_event 15, 6, BGEVENT_RIGHT, Binoculars3
bg_event 3, 0, BGEVENT_UP, PokeDollVendingMachine
def_object_events
object_event 1, 4, SPRITE_CLERK, SPRITEMOVEDATA_STANDING_RIGHT, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, GoldenrodDeptStoreRoofClerkScript, EVENT_GOLDENROD_SALE_OFF
object_event 10, 3, SPRITE_POKEFAN_F, SPRITEMOVEDATA_WALK_LEFT_RIGHT, 1, 0, -1, -1, PAL_NPC_RED, OBJECTTYPE_SCRIPT, 0, GoldenrodDeptStoreRoofPokefanFScript, -1
object_event 2, 1, SPRITE_FISHER, SPRITEMOVEDATA_STANDING_UP, 0, 0, -1, -1, PAL_NPC_BLUE, OBJECTTYPE_SCRIPT, 0, GoldenrodDeptStoreRoofFisherScript, -1
object_event 3, 4, SPRITE_TWIN, SPRITEMOVEDATA_WANDER, 1, 1, -1, -1, PAL_NPC_GREEN, OBJECTTYPE_SCRIPT, 0, GoldenrodDeptStoreRoofTwinScript, EVENT_GOLDENROD_SALE_ON
object_event 14, 6, SPRITE_SUPER_NERD, SPRITEMOVEDATA_STANDING_RIGHT, 0, 0, -1, -1, PAL_NPC_GREEN, OBJECTTYPE_SCRIPT, 0, GoldenrodDeptStoreRoofSuperNerdScript, EVENT_GOLDENROD_SALE_ON
object_event 7, 0, SPRITE_POKEFAN_M, SPRITEMOVEDATA_WALK_LEFT_RIGHT, 1, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, GoldenrodDeptStoreRoofPokefanMScript, EVENT_GOLDENROD_SALE_OFF
object_event 5, 3, SPRITE_TEACHER, SPRITEMOVEDATA_WANDER, 1, 1, -1, -1, PAL_NPC_GREEN, OBJECTTYPE_SCRIPT, 0, GoldenrodDeptStoreRoofTeacherScript, EVENT_GOLDENROD_SALE_OFF
object_event 1, 6, SPRITE_BUG_CATCHER, SPRITEMOVEDATA_STANDING_UP, 0, 0, -1, -1, PAL_NPC_RED, OBJECTTYPE_SCRIPT, 0, GoldenrodDeptStoreRoofBugCatcherScript, EVENT_GOLDENROD_SALE_OFF
|
