summaryrefslogtreecommitdiff
path: root/maps/CeladonGameCornerPrizeRoom.asm
blob: c7065e0c1d7479ee79e192c6b55c38f66b2a4c71 (plain)
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