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
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
|
CeladonCity_GameCorner_PrizeRoom_MapScripts:: @ 816CB75
.byte 0
CeladonCity_GameCorner_PrizeRoom_EventScript_BaldingMan:: @ 816CB76
msgbox CeladonCity_GameCorner_PrizeRoom_Text_FancyThatPorygon, MSGBOX_NPC
end
CeladonCity_GameCorner_PrizeRoom_EventScript_OldMan:: @ 816CB7F
msgbox CeladonCity_GameCorner_PrizeRoom_Text_RakedItInToday, MSGBOX_NPC
end
CeladonCity_GameCorner_PrizeRoom_EventScript_PrizeClerkMons:: @ 816CB88
lock
faceplayer
goto_if_unset FLAG_GOT_COIN_CASE, CeladonCity_GameCorner_PrizeRoom_EventScript_NeedCoinCase
goto_if_questlog EventScript_ReleaseEnd
showcoinsbox 0, 0
msgbox CeladonCity_GameCorner_PrizeRoom_Text_WeExchangeCoinsForPrizes
goto CeladonCity_GameCorner_PrizeRoom_EventScript_ChoosePrizeMon
end
CeladonCity_GameCorner_PrizeRoom_EventScript_ChoosePrizeMon:: @ 816CBB2
message CeladonCity_GameCorner_PrizeRoom_Text_WhichPrize
waitmessage
multichoice 11, 0, MULTICHOICE_GAME_CORNER_POKEMON_PRIZES, FALSE
switch VAR_RESULT
case 0, CeladonCity_GameCorner_PrizeRoom_EventScript_Abra
case 1, CeladonCity_GameCorner_PrizeRoom_EventScript_Clefairy
case 2, CeladonCity_GameCorner_PrizeRoom_EventScript_DratiniPinsir
case 3, CeladonCity_GameCorner_PrizeRoom_EventScript_ScytherDratini
case 4, CeladonCity_GameCorner_PrizeRoom_EventScript_Porygon
case 5, CeladonCity_GameCorner_PrizeRoom_EventScript_EndPrizeExchange
case 127, CeladonCity_GameCorner_PrizeRoom_EventScript_EndPrizeExchange
end
CeladonCity_GameCorner_PrizeRoom_EventScript_EndPrizeExchange:: @ 816CC10
hidecoinsbox 0, 0
release
end
CeladonCity_GameCorner_PrizeRoom_EventScript_Abra:: @ 816CC15
.ifdef FIRERED
setvar VAR_TEMP_1, SPECIES_ABRA
setvar VAR_TEMP_2, 180
.else
.ifdef LEAFGREEN
setvar VAR_TEMP_1, SPECIES_ABRA
setvar VAR_TEMP_2, 120
.endif
.endif
goto CeladonCity_GameCorner_PrizeRoom_EventScript_ConfirmPrizeMon
end
CeladonCity_GameCorner_PrizeRoom_EventScript_Clefairy:: @ 816CC25
.ifdef FIRERED
setvar VAR_TEMP_1, SPECIES_CLEFAIRY
setvar VAR_TEMP_2, 500
.else
.ifdef LEAFGREEN
setvar VAR_TEMP_1, SPECIES_CLEFAIRY
setvar VAR_TEMP_2, 750
.endif
.endif
goto CeladonCity_GameCorner_PrizeRoom_EventScript_ConfirmPrizeMon
end
CeladonCity_GameCorner_PrizeRoom_EventScript_DratiniPinsir:: @ 816CC35
.ifdef FIRERED
setvar VAR_TEMP_1, SPECIES_DRATINI
setvar VAR_TEMP_2, 2800
.else
.ifdef LEAFGREEN
setvar VAR_TEMP_1, SPECIES_PINSIR
setvar VAR_TEMP_2, 2500
.endif
.endif
goto CeladonCity_GameCorner_PrizeRoom_EventScript_ConfirmPrizeMon
end
CeladonCity_GameCorner_PrizeRoom_EventScript_ScytherDratini:: @ 816CC45
.ifdef FIRERED
setvar VAR_TEMP_1, SPECIES_SCYTHER
setvar VAR_TEMP_2, 5500
.else
.ifdef LEAFGREEN
setvar VAR_TEMP_1, SPECIES_DRATINI
setvar VAR_TEMP_2, 4600
.endif
.endif
goto CeladonCity_GameCorner_PrizeRoom_EventScript_ConfirmPrizeMon
end
CeladonCity_GameCorner_PrizeRoom_EventScript_Porygon:: @ 816CC55
.ifdef FIRERED
setvar VAR_TEMP_1, SPECIES_PORYGON
setvar VAR_TEMP_2, 9999
.else
.ifdef LEAFGREEN
setvar VAR_TEMP_1, SPECIES_PORYGON
setvar VAR_TEMP_2, 6500
.endif
.endif
goto CeladonCity_GameCorner_PrizeRoom_EventScript_ConfirmPrizeMon
end
CeladonCity_GameCorner_PrizeRoom_EventScript_ConfirmPrizeMon:: @ 816CC65
getspeciesname 0, VAR_TEMP_1
msgbox CeladonCity_GameCorner_PrizeRoom_Text_YouWantPrize, MSGBOX_YESNO
compare VAR_RESULT, NO
goto_if_eq CeladonCity_GameCorner_PrizeRoom_EventScript_EndPrizeExchange
checkcoins VAR_RESULT
compare VAR_RESULT, VAR_TEMP_2
goto_if_lt CeladonCity_GameCorner_PrizeRoom_EventScript_NotEnoughCoins
textcolor 3
switch VAR_TEMP_1
case SPECIES_ABRA, CeladonCity_GameCorner_PrizeRoom_EventScript_GiveAbra
case SPECIES_CLEFAIRY, CeladonCity_GameCorner_PrizeRoom_EventScript_GiveClefairy
case SPECIES_DRATINI, CeladonCity_GameCorner_PrizeRoom_EventScript_GiveDratini
case SPECIES_SCYTHER, CeladonCity_GameCorner_PrizeRoom_EventScript_GiveScyther
case SPECIES_PORYGON, CeladonCity_GameCorner_PrizeRoom_EventScript_GivePorygon
case SPECIES_PINSIR, CeladonCity_GameCorner_PrizeRoom_EventScript_GivePinsir
end
CeladonCity_GameCorner_PrizeRoom_EventScript_GiveAbra:: @ 816CCD4
.ifdef FIRERED
givemon VAR_TEMP_1, 9, ITEM_NONE
.else
.ifdef LEAFGREEN
givemon VAR_TEMP_1, 7, ITEM_NONE
.endif
.endif
goto CeladonCity_GameCorner_PrizeRoom_EventScript_CheckReceivedMon
end
CeladonCity_GameCorner_PrizeRoom_EventScript_GiveClefairy:: @ 816CCE9
.ifdef FIRERED
givemon VAR_TEMP_1, 8, ITEM_NONE
.else
.ifdef LEAFGREEN
givemon VAR_TEMP_1, 12, ITEM_NONE
.endif
.endif
goto CeladonCity_GameCorner_PrizeRoom_EventScript_CheckReceivedMon
end
CeladonCity_GameCorner_PrizeRoom_EventScript_GiveDratini:: @ 816CCFE
.ifdef FIRERED
givemon VAR_TEMP_1, 18, ITEM_NONE
.else
.ifdef LEAFGREEN
givemon VAR_TEMP_1, 24, ITEM_NONE
.endif
.endif
goto CeladonCity_GameCorner_PrizeRoom_EventScript_CheckReceivedMon
end
CeladonCity_GameCorner_PrizeRoom_EventScript_GiveScyther:: @ 816CD13
givemon VAR_TEMP_1, 25, ITEM_NONE
goto CeladonCity_GameCorner_PrizeRoom_EventScript_CheckReceivedMon
end
CeladonCity_GameCorner_PrizeRoom_EventScript_GivePorygon:: @ 816CD28
.ifdef FIRERED
givemon VAR_TEMP_1, 26, ITEM_NONE
.else
.ifdef LEAFGREEN
givemon VAR_TEMP_1, 18, ITEM_NONE
.endif
.endif
goto CeladonCity_GameCorner_PrizeRoom_EventScript_CheckReceivedMon
end
CeladonCity_GameCorner_PrizeRoom_EventScript_GivePinsir:: @ 816CD3D
givemon VAR_TEMP_1, 18, ITEM_NONE
goto CeladonCity_GameCorner_PrizeRoom_EventScript_CheckReceivedMon
end
CeladonCity_GameCorner_PrizeRoom_EventScript_CheckReceivedMon:: @ 816CD52
compare VAR_RESULT, 0
goto_if_eq CeladonCity_GameCorner_PrizeRoom_EventScript_ReceivedMonParty
compare VAR_RESULT, 1
goto_if_eq CeladonCity_GameCorner_PrizeRoom_EventScript_ReceivedMonPC
compare VAR_RESULT, 2
goto_if_eq CeladonCity_GameCorner_PrizeRoom_EventScript_PartyFull
end
CeladonCity_GameCorner_PrizeRoom_EventScript_PartyFull:: @ 816CD74
textcolor 3
msgbox Text_NoMoreRoomForPokemon
hidecoinsbox 0, 0
release
end
CeladonCity_GameCorner_PrizeRoom_EventScript_NicknamePartyMon:: @ 816CD83
getpartysize
subvar VAR_RESULT, 1
copyvar VAR_0x8004, VAR_RESULT
call EventScript_ChangePokemonNickname
goto CeladonCity_GameCorner_PrizeRoom_EventScript_EndPrizeExchange
end
CeladonCity_GameCorner_PrizeRoom_EventScript_NeedCoinCase:: @ 816CD99
textcolor 3
msgbox CeladonCity_GameCorner_PrizeRoom_Text_CoinCaseRequired
release
end
CeladonCity_GameCorner_PrizeRoom_EventScript_NotEnoughCoins:: @ 816CDA5
msgbox CeladonCity_GameCorner_PrizeRoom_Text_NeedMoreCoins
goto CeladonCity_GameCorner_PrizeRoom_EventScript_EndPrizeExchange
end
CeladonCity_GameCorner_PrizeRoom_EventScript_ReceivedMonParty:: @ 816CDB3
removecoins VAR_TEMP_2
updatecoinsbox 0, 5
getspeciesname 0, VAR_TEMP_1
playfanfare MUS_LEVEL_UP
message Text_PlayerObtainedTheMon
waitmessage
waitfanfare
msgbox Text_GiveNicknameToThisMon, MSGBOX_YESNO
compare VAR_RESULT, YES
goto_if_eq CeladonCity_GameCorner_PrizeRoom_EventScript_NicknamePartyMon
goto CeladonCity_GameCorner_PrizeRoom_EventScript_EndPrizeExchange
end
CeladonCity_GameCorner_PrizeRoom_EventScript_ReceivedMonPC:: @ 816CDE0
removecoins VAR_TEMP_2
updatecoinsbox 0, 5
getspeciesname 0, VAR_TEMP_1
playfanfare MUS_LEVEL_UP
message Text_PlayerObtainedTheMon
waitmessage
waitfanfare
msgbox Text_GiveNicknameToThisMon, MSGBOX_YESNO
compare VAR_RESULT, NO
goto_if_eq CeladonCity_GameCorner_PrizeRoom_EventScript_TransferredToPC
call EventScript_NameReceivedBoxMon
goto CeladonCity_GameCorner_PrizeRoom_EventScript_TransferredToPC
end
CeladonCity_GameCorner_PrizeRoom_EventScript_TransferredToPC:: @ 816CE12
call EventScript_TransferredToPC
goto CeladonCity_GameCorner_PrizeRoom_EventScript_EndPrizeExchange
end
CeladonCity_GameCorner_PrizeRoom_EventScript_PrizeClerkTMs:: @ 816CE1D
lock
faceplayer
goto_if_unset FLAG_GOT_COIN_CASE, CeladonCity_GameCorner_PrizeRoom_EventScript_NeedCoinCase
goto_if_questlog EventScript_ReleaseEnd
showcoinsbox 0, 0
msgbox CeladonCity_GameCorner_PrizeRoom_Text_WeExchangeCoinsForPrizes
goto CeladonCity_GameCorner_PrizeRoom_EventScript_ChoosePrizeTM
end
CeladonCity_GameCorner_PrizeRoom_EventScript_ChoosePrizeTM:: @ 816CE47
message CeladonCity_GameCorner_PrizeRoom_Text_WhichPrize
waitmessage
multichoice 11, 0, MULTICHOICE_GAME_CORNER_TMPRIZES, FALSE
switch VAR_RESULT
case 0, CeladonCity_GameCorner_PrizeRoom_EventScript_TM13
case 1, CeladonCity_GameCorner_PrizeRoom_EventScript_TM23
case 2, CeladonCity_GameCorner_PrizeRoom_EventScript_TM24
case 3, CeladonCity_GameCorner_PrizeRoom_EventScript_TM30
case 4, CeladonCity_GameCorner_PrizeRoom_EventScript_TM35
case 5, CeladonCity_GameCorner_PrizeRoom_EventScript_EndPrizeExchange
case 127, CeladonCity_GameCorner_PrizeRoom_EventScript_EndPrizeExchange
end
CeladonCity_GameCorner_PrizeRoom_EventScript_TM13:: @ 816CEA5
setvar VAR_TEMP_1, ITEM_TM13
setvar VAR_TEMP_2, 4000
getmovename 1, MOVE_ICE_BEAM
goto CeladonCity_GameCorner_PrizeRoom_EventScript_ConfirmPrizeTM
end
CeladonCity_GameCorner_PrizeRoom_EventScript_TM23:: @ 816CEB9
setvar VAR_TEMP_1, ITEM_TM23
setvar VAR_TEMP_2, 3500
getmovename 1, MOVE_IRON_TAIL
goto CeladonCity_GameCorner_PrizeRoom_EventScript_ConfirmPrizeTM
end
CeladonCity_GameCorner_PrizeRoom_EventScript_TM24:: @ 816CECD
setvar VAR_TEMP_1, ITEM_TM24
setvar VAR_TEMP_2, 4000
getmovename 1, MOVE_THUNDERBOLT
goto CeladonCity_GameCorner_PrizeRoom_EventScript_ConfirmPrizeTM
end
CeladonCity_GameCorner_PrizeRoom_EventScript_TM30:: @ 816CEE1
setvar VAR_TEMP_1, ITEM_TM30
setvar VAR_TEMP_2, 4500
getmovename 1, MOVE_SHADOW_BALL
goto CeladonCity_GameCorner_PrizeRoom_EventScript_ConfirmPrizeTM
end
CeladonCity_GameCorner_PrizeRoom_EventScript_TM35:: @ 816CEF5
setvar VAR_TEMP_1, ITEM_TM35
setvar VAR_TEMP_2, 4000
getmovename 1, MOVE_FLAMETHROWER
goto CeladonCity_GameCorner_PrizeRoom_EventScript_ConfirmPrizeTM
end
CeladonCity_GameCorner_PrizeRoom_EventScript_ConfirmPrizeTM:: @ 816CF09
msgbox CeladonCity_GameCorner_PrizeRoom_Text_YouWantTM, MSGBOX_YESNO
compare VAR_RESULT, NO
goto_if_eq CeladonCity_GameCorner_PrizeRoom_EventScript_EndPrizeExchange
goto CeladonCity_GameCorner_PrizeRoom_EventScript_TryGivePrize
end
CeladonCity_GameCorner_PrizeRoom_EventScript_ConfirmPrizeItem:: @ 816CF22
getitemname 0, VAR_TEMP_1
msgbox CeladonCity_GameCorner_PrizeRoom_Text_YouWantPrize, MSGBOX_YESNO
compare VAR_RESULT, NO
goto_if_eq CeladonCity_GameCorner_PrizeRoom_EventScript_EndPrizeExchange
goto CeladonCity_GameCorner_PrizeRoom_EventScript_TryGivePrize
end
CeladonCity_GameCorner_PrizeRoom_EventScript_TryGivePrize:: @ 816CF3F
getitemname 0, VAR_TEMP_1
checkcoins VAR_RESULT
compare VAR_RESULT, VAR_TEMP_2
goto_if_lt CeladonCity_GameCorner_PrizeRoom_EventScript_NotEnoughCoins
checkitemspace VAR_TEMP_1, 1
compare VAR_RESULT, FALSE
goto_if_eq CeladonCity_GameCorner_PrizeRoom_EventScript_BagFull
removecoins VAR_TEMP_2
updatecoinsbox 0, 5
giveitem VAR_TEMP_1
goto CeladonCity_GameCorner_PrizeRoom_EventScript_EndPrizeExchange
end
CeladonCity_GameCorner_PrizeRoom_EventScript_BagFull:: @ 816CF79
textcolor 3
msgbox Text_TooBadBagFull
hidecoinsbox 0, 0
release
end
CeladonCity_GameCorner_PrizeRoom_EventScript_PrizeClerkItems:: @ 816CF88
lock
faceplayer
goto_if_unset FLAG_GOT_COIN_CASE, CeladonCity_GameCorner_PrizeRoom_EventScript_NeedCoinCase
goto_if_questlog EventScript_ReleaseEnd
showcoinsbox 0, 0
msgbox CeladonCity_GameCorner_PrizeRoom_Text_WeExchangeCoinsForPrizes
goto CeladonCity_GameCorner_PrizeRoom_EventScript_ChoosePrizeItem
end
CeladonCity_GameCorner_PrizeRoom_EventScript_ChoosePrizeItem:: @ 816CFB2
message CeladonCity_GameCorner_PrizeRoom_Text_WhichPrize
waitmessage
multichoice 10, 0, MULTICHOICE_GAME_CORNER_BATTLE_ITEM_PRIZES, FALSE
switch VAR_RESULT
case 0, CeladonCity_GameCorner_PrizeRoom_EventScript_SmokeBall
case 1, CeladonCity_GameCorner_PrizeRoom_EventScript_MiracleSeed
case 2, CeladonCity_GameCorner_PrizeRoom_EventScript_Charcoal
case 3, CeladonCity_GameCorner_PrizeRoom_EventScript_MysticWater
case 4, CeladonCity_GameCorner_PrizeRoom_EventScript_YellowFlute
case 5, CeladonCity_GameCorner_PrizeRoom_EventScript_EndPrizeExchange
case 127, CeladonCity_GameCorner_PrizeRoom_EventScript_EndPrizeExchange
end
CeladonCity_GameCorner_PrizeRoom_EventScript_SmokeBall:: @ 816D010
setvar VAR_TEMP_1, ITEM_SMOKE_BALL
setvar VAR_TEMP_2, 800
goto CeladonCity_GameCorner_PrizeRoom_EventScript_ConfirmPrizeItem
end
CeladonCity_GameCorner_PrizeRoom_EventScript_MiracleSeed:: @ 816D020
setvar VAR_TEMP_1, ITEM_MIRACLE_SEED
setvar VAR_TEMP_2, 1000
goto CeladonCity_GameCorner_PrizeRoom_EventScript_ConfirmPrizeItem
end
CeladonCity_GameCorner_PrizeRoom_EventScript_Charcoal:: @ 816D030
setvar VAR_TEMP_1, ITEM_CHARCOAL
setvar VAR_TEMP_2, 1000
goto CeladonCity_GameCorner_PrizeRoom_EventScript_ConfirmPrizeItem
end
CeladonCity_GameCorner_PrizeRoom_EventScript_MysticWater:: @ 816D040
setvar VAR_TEMP_1, ITEM_MYSTIC_WATER
setvar VAR_TEMP_2, 1000
goto CeladonCity_GameCorner_PrizeRoom_EventScript_ConfirmPrizeItem
end
CeladonCity_GameCorner_PrizeRoom_EventScript_YellowFlute:: @ 816D050
setvar VAR_TEMP_1, ITEM_YELLOW_FLUTE
setvar VAR_TEMP_2, 1600
goto CeladonCity_GameCorner_PrizeRoom_EventScript_ConfirmPrizeItem
end
|
