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
|
CeladonGameCornerPrizeRoom_MapScriptHeader: ; 0x726e7
; trigger count
db 0
; callback count
db 0
; 0x726e9
UnknownScript_0x726e9: ; 0x726e9
jumptextfaceplayer UnknownText_0x728b8
; 0x726ec
UnknownScript_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 $6790
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
; menu data
INCBIN "baserom.gbc",$72790,$38
MapCeladonGameCornerPrizeRoomSignpost1Script: ; 0x727c8
faceplayer
loadfont
2writetext UnknownText_0x7293e
closetext
checkitem COIN_CASE
iffalse UnknownScript_0x7278a
UnknownScript_0x727d3: ; 0x727d3
2writetext UnknownText_0x72974
special $004f
loadmenudata $6877
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
; menu data
INCBIN "baserom.gbc",$72877,$41
UnknownText_0x728b8: ; 0x728b8
db $0, "I wanted PORYGON,", $4f
db "but I was short by", $55
db "100 coins…", $57
; 0x728e9
UnknownText_0x728e9: ; 0x728e9
db $0, "Whew…", $51
db "I've got to stay", $4f
db "calm and cool…", $51
db "I can't lose my", $4f
db "cool, or I'll lose", $55
db "all my money…", $57
; 0x7293e
UnknownText_0x7293e: ; 0x7293e
db $0, "Welcome!", $51
db "We exchange your", $4f
db "coins for fabulous", $55
db "prizes!", $57
; 0x72974
UnknownText_0x72974: ; 0x72974
db $0, "Which prize would", $4f
db "you like?", $57
; 0x72991
UnknownText_0x72991: ; 0x72991
db $0, "OK, so you wanted", $4f
db "a @"
text_from_ram $d099
db $0, "?", $57
; 0x729ad
UnknownText_0x729ad: ; 0x729ad
db $0, "Here you go!", $57
; 0x729bb
UnknownText_0x729bb: ; 0x729bb
db $0, "You don't have", $4f
db "enough coins.", $57
; 0x729d8
UnknownText_0x729d8: ; 0x729d8
db $0, "You have no room", $4f
db "for it.", $57
; 0x729f2
UnknownText_0x729f2: ; 0x729f2
db $0, "Oh. Please come", $4f
db "back with coins!", $57
; 0x72a14
UnknownText_0x72a14: ; 0x72a14
db $0, "Oh? You don't have", $4f
db "a COIN CASE.", $57
; 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 $40, 6, 4, $6, $0, 255, 255, $80, 0, UnknownScript_0x726e9, $ffff
person_event $4b, 8, 8, $4, $10, 255, 255, $a0, 0, UnknownScript_0x726ec, $ffff
; 0x72a68
|
