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
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
|
CeladonGameCornerPrizeRoom_MapScriptHeader: ; 0x726e7
; trigger count
db 0
; callback count
db 0
; 0x726e9
GentlemanScript_0x726e9: ; 0x726e9
jumptextfaceplayer UnknownText_0x728b8
; 0x726ec
PharmacistScript_0x726ec: ; 0x726ec
jumptextfaceplayer UnknownText_0x728e9
; 0x726ef
MapCeladonGameCornerPrizeRoomSignpost0Script: ; 0x726ef
faceplayer
loadfont
2writetext UnknownText_0x7293e
closetext
checkitem COIN_CASE
iffalse UnknownScript_0x7278a
2writetext UnknownText_0x72974
UnknownScript_0x726fd: ; 0x726fd
special $004f
loadmenudata MenuDataHeader_0x72790
interpretmenu2
writebackup
if_equal $1, UnknownScript_0x72714
if_equal $2, UnknownScript_0x72730
if_equal $3, UnknownScript_0x7274c
2jump UnknownScript_0x72784
; 0x72714
UnknownScript_0x72714: ; 0x72714
checkcoins 1500
if_equal $2, UnknownScript_0x72778
itemtotext TM_32, $0
2call UnknownScript_0x72768
iffalse UnknownScript_0x72784
giveitem TM_32, $1
iffalse UnknownScript_0x7277e
takecoins 1500
2jump UnknownScript_0x7276d
; 0x72730
UnknownScript_0x72730: ; 0x72730
checkcoins 3500
if_equal $2, UnknownScript_0x72778
itemtotext TM_29, $0
2call UnknownScript_0x72768
iffalse UnknownScript_0x72784
giveitem TM_29, $1
iffalse UnknownScript_0x7277e
takecoins 3500
2jump UnknownScript_0x7276d
; 0x7274c
UnknownScript_0x7274c: ; 0x7274c
checkcoins 7500
if_equal $2, UnknownScript_0x72778
itemtotext TM_15, $0
2call UnknownScript_0x72768
iffalse UnknownScript_0x72784
giveitem TM_15, $1
iffalse UnknownScript_0x7277e
takecoins 7500
2jump UnknownScript_0x7276d
; 0x72768
UnknownScript_0x72768: ; 0x72768
2writetext UnknownText_0x72991
yesorno
end
; 0x7276d
UnknownScript_0x7276d: ; 0x7276d
waitbutton
playsound $0022
2writetext UnknownText_0x729ad
closetext
2jump UnknownScript_0x726fd
; 0x72778
UnknownScript_0x72778: ; 0x72778
2writetext UnknownText_0x729bb
closetext
loadmovesprites
end
; 0x7277e
UnknownScript_0x7277e: ; 0x7277e
2writetext UnknownText_0x729d8
closetext
loadmovesprites
end
; 0x72784
UnknownScript_0x72784: ; 0x72784
2writetext UnknownText_0x729f2
closetext
loadmovesprites
end
; 0x7278a
UnknownScript_0x7278a: ; 0x7278a
2writetext UnknownText_0x72a14
closetext
loadmovesprites
end
; 0x72790
MenuDataHeader_0x72790: ; 0x72790
db $40 ; flags
db 02, 00 ; start coords
db 11, 15 ; end coords
dw MenuData2_0x72798
db 1 ; default option
; 0x72798
MenuData2_0x72798: ; 0x72798
db $80 ; flags
db 4 ; items
db "TM32 1500@"
db "TM29 3500@"
db "TM15 7500@"
db "CANCEL@"
; 0x727c8
MapCeladonGameCornerPrizeRoomSignpost1Script: ; 0x727c8
faceplayer
loadfont
2writetext UnknownText_0x7293e
closetext
checkitem COIN_CASE
iffalse UnknownScript_0x7278a
UnknownScript_0x727d3: ; 0x727d3
2writetext UnknownText_0x72974
special $004f
loadmenudata MenuDataHeader_0x72877
interpretmenu2
writebackup
if_equal $1, UnknownScript_0x727ed
if_equal $2, UnknownScript_0x7281b
if_equal $3, UnknownScript_0x72849
2jump UnknownScript_0x72784
; 0x727ed
UnknownScript_0x727ed: ; 0x727ed
checkcoins 2222
if_equal $2, UnknownScript_0x72778
checkcode $1
if_equal $6, UnknownScript_0x7277e
pokenamemem PIKACHU, $0
2call UnknownScript_0x72768
iffalse UnknownScript_0x72784
waitbutton
playsound $0022
2writetext UnknownText_0x729ad
closetext
writebyte PIKACHU
special $0039
givepoke PIKACHU, 25, 0, 0
takecoins 2222
2jump UnknownScript_0x727d3
; 0x7281b
UnknownScript_0x7281b: ; 0x7281b
checkcoins 5555
if_equal $2, UnknownScript_0x72778
checkcode $1
if_equal $6, UnknownScript_0x7277e
pokenamemem PORYGON, $0
2call UnknownScript_0x72768
iffalse UnknownScript_0x72784
waitbutton
playsound $0022
2writetext UnknownText_0x729ad
closetext
writebyte PORYGON
special $0039
givepoke PORYGON, 15, 0, 0
takecoins 5555
2jump UnknownScript_0x727d3
; 0x72849
UnknownScript_0x72849: ; 0x72849
checkcoins 8888
if_equal $2, UnknownScript_0x72778
checkcode $1
if_equal $6, UnknownScript_0x7277e
pokenamemem LARVITAR, $0
2call UnknownScript_0x72768
iffalse UnknownScript_0x72784
waitbutton
playsound $0022
2writetext UnknownText_0x729ad
closetext
writebyte LARVITAR
special $0039
givepoke LARVITAR, 40, 0, 0
takecoins 8888
2jump UnknownScript_0x727d3
; 0x72877
MenuDataHeader_0x72877: ; 0x72877
db $40 ; flags
db 02, 00 ; start coords
db 11, 17 ; end coords
dw MenuData2_0x7287f
db 1 ; default option
; 0x7287f
MenuData2_0x7287f: ; 0x7287f
db $80 ; flags
db 4 ; items
db "PIKACHU 2222@"
db "PORYGON 5555@"
db "LARVITAR 8888@"
db "CANCEL@"
; 0x728b8
UnknownText_0x728b8: ; 0x728b8
text "I wanted PORYGON,"
line "but I was short by"
cont "100 coins…"
done
; 0x728e9
UnknownText_0x728e9: ; 0x728e9
text "Whew…"
para "I've got to stay"
line "calm and cool…"
para "I can't lose my"
line "cool, or I'll lose"
cont "all my money…"
done
; 0x7293e
UnknownText_0x7293e: ; 0x7293e
text "Welcome!"
para "We exchange your"
line "coins for fabulous"
cont "prizes!"
done
; 0x72974
UnknownText_0x72974: ; 0x72974
text "Which prize would"
line "you like?"
done
; 0x72991
UnknownText_0x72991: ; 0x72991
text "OK, so you wanted"
line "a @"
text_from_ram $d099
text "?"
done
; 0x729ad
UnknownText_0x729ad: ; 0x729ad
text "Here you go!"
done
; 0x729bb
UnknownText_0x729bb: ; 0x729bb
text "You don't have"
line "enough coins."
done
; 0x729d8
UnknownText_0x729d8: ; 0x729d8
text "You have no room"
line "for it."
done
; 0x729f2
UnknownText_0x729f2: ; 0x729f2
text "Oh. Please come"
line "back with coins!"
done
; 0x72a14
UnknownText_0x72a14: ; 0x72a14
text "Oh? You don't have"
line "a COIN CASE."
done
; 0x72a34
CeladonGameCornerPrizeRoom_MapEventHeader: ; 0x72a34
; filler
db 0, 0
; warps
db 2
warp_def $5, $2, 7, GROUP_CELADON_CITY, MAP_CELADON_CITY
warp_def $5, $3, 7, GROUP_CELADON_CITY, MAP_CELADON_CITY
; xy triggers
db 0
; signposts
db 2
signpost 1, 2, $0, MapCeladonGameCornerPrizeRoomSignpost0Script
signpost 1, 4, $0, MapCeladonGameCornerPrizeRoomSignpost1Script
; people-events
db 2
person_event SPRITE_GENTLEMAN, 6, 4, $6, $0, 255, 255, $80, 0, GentlemanScript_0x726e9, $ffff
person_event SPRITE_PHARMACIST, 8, 8, $4, $10, 255, 255, $a0, 0, PharmacistScript_0x726ec, $ffff
; 0x72a68
|