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
|
object_const_def
const LAVRADIOTOWER1F_RECEPTIONIST
const LAVRADIOTOWER1F_OFFICER
const LAVRADIOTOWER1F_SUPER_NERD1
const LAVRADIOTOWER1F_GENTLEMAN
const LAVRADIOTOWER1F_SUPER_NERD2
LavRadioTower1F_MapScripts:
def_scene_scripts
def_callbacks
LavRadioTower1FReceptionistScript:
jumptextfaceplayer LavRadioTower1FReceptionistText
LavRadioTower1FOfficerScript:
jumptextfaceplayer LavRadioTower1FOfficerText
LavRadioTower1FSuperNerd1Script:
jumptextfaceplayer LavRadioTower1FSuperNerd1Text
LavRadioTower1FGentlemanScript:
faceplayer
opentext
checkflag ENGINE_EXPN_CARD
iftrue .GotExpnCard
checkevent EVENT_RETURNED_MACHINE_PART
iftrue .ReturnedMachinePart
writetext LavRadioTower1FGentlemanText
waitbutton
closetext
end
.ReturnedMachinePart:
writetext LavRadioTower1FGentlemanText_ReturnedMachinePart
promptbutton
getstring STRING_BUFFER_4, .expncardname
scall .receiveitem
setflag ENGINE_EXPN_CARD
.GotExpnCard:
writetext LavRadioTower1FGentlemanText_GotExpnCard
waitbutton
closetext
end
.receiveitem:
jumpstd ReceiveItemScript
end
.expncardname
db "EXPN CARD@"
LavRadioTower1FSuperNerd2Script:
faceplayer
opentext
checkflag ENGINE_EXPN_CARD
iftrue .GotExpnCard
writetext LavRadioTower1FSuperNerd2Text
waitbutton
closetext
end
.GotExpnCard:
writetext LavRadioTower1FSuperNerd2Text_GotExpnCard
waitbutton
closetext
end
LavRadioTower1FDirectory:
jumptext LavRadioTower1FDirectoryText
LavRadioTower1FPokeFluteSign:
jumptext LavRadioTower1FPokeFluteSignText
LavRadioTower1FReferenceLibrary: ; unreferenced
jumptext LavRadioTower1FReferenceLibraryText
LavRadioTower1FReceptionistText:
text "Welcome!"
line "Feel free to look"
para "around anywhere on"
line "this floor."
done
LavRadioTower1FOfficerText:
text "Sorry, but you can"
line "only tour the"
cont "ground floor."
para "Ever since JOHTO's"
line "RADIO TOWER was"
para "taken over by a"
line "criminal gang, we"
para "have had to step"
line "up our security."
done
LavRadioTower1FSuperNerd1Text:
text "Many people are"
line "hard at work here"
para "in the RADIO"
line "TOWER."
para "They must be doing"
line "their best to put"
cont "on good shows."
done
LavRadioTower1FGentlemanText:
text "Oh, no, no, no!"
para "We've been off the"
line "air ever since the"
para "POWER PLANT shut"
line "down."
para "All my efforts to"
line "start this station"
para "would be wasted if"
line "I can't broadcast."
para "I'll be ruined!"
done
LavRadioTower1FGentlemanText_ReturnedMachinePart:
text "Ah! So you're the"
line "<PLAYER> who solved"
para "the POWER PLANT's"
line "problem?"
para "Thanks to you, I"
line "never lost my job."
para "I tell you, you're"
line "a real lifesaver!"
para "Please take this"
line "as my thanks."
done
LavRadioTower1FGentlemanText_GotExpnCard:
text "With that thing,"
line "you can tune into"
para "the radio programs"
line "here in KANTO."
para "Gahahahaha!"
done
LavRadioTower1FSuperNerd2Text:
text "Hey there, fellow!"
para "I am the super"
line "MUSIC DIRECTOR!"
para "Huh? Your #GEAR"
line "can't tune into my"
para "music programs."
line "How unfortunate!"
para "If you get an EXPN"
line "CARD upgrade, you"
para "can tune in. You'd"
line "better get one!"
done
LavRadioTower1FSuperNerd2Text_GotExpnCard:
text "Hey there, fellow!"
para "I am the super"
line "MUSIC DIRECTOR!"
para "I'm responsible"
line "for the gorgeous"
para "melodies that go"
line "out over the air."
para "Don't be square."
line "Grab your music"
cont "off the air!"
done
LavRadioTower1FDirectoryText:
text "1F RECEPTION"
line "2F SALES"
cont "3F PERSONNEL"
cont "4F PRODUCTION"
cont "5F DIRECTOR'S"
cont " OFFICE"
done
LavRadioTower1FPokeFluteSignText:
text "Perk Up #MON"
line "with Mellow Sounds"
para "of the # FLUTE"
line "on CHANNEL 20"
done
LavRadioTower1FReferenceLibraryText:
text "Wow! A full rack"
line "of #MON CDs and"
cont "videos."
para "This must be the"
line "reference library."
done
LavRadioTower1F_MapEvents:
db 0, 0 ; filler
def_warp_events
warp_event 2, 7, LAVENDER_TOWN, 7
warp_event 3, 7, LAVENDER_TOWN, 7
def_coord_events
def_bg_events
bg_event 11, 0, BGEVENT_READ, LavRadioTower1FDirectory
bg_event 5, 0, BGEVENT_READ, LavRadioTower1FPokeFluteSign
def_object_events
object_event 6, 6, SPRITE_RECEPTIONIST, SPRITEMOVEDATA_STANDING_UP, 0, 0, -1, -1, PAL_NPC_GREEN, OBJECTTYPE_SCRIPT, 0, LavRadioTower1FReceptionistScript, -1
object_event 15, 1, SPRITE_OFFICER, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, PAL_NPC_GREEN, OBJECTTYPE_SCRIPT, 0, LavRadioTower1FOfficerScript, -1
object_event 1, 3, SPRITE_SUPER_NERD, SPRITEMOVEDATA_WANDER, 1, 1, -1, -1, PAL_NPC_RED, OBJECTTYPE_SCRIPT, 0, LavRadioTower1FSuperNerd1Script, -1
object_event 9, 1, SPRITE_GENTLEMAN, SPRITEMOVEDATA_STANDING_UP, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, LavRadioTower1FGentlemanScript, -1
object_event 14, 6, SPRITE_SUPER_NERD, SPRITEMOVEDATA_STANDING_RIGHT, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, LavRadioTower1FSuperNerd2Script, -1
|
