2015-11-27 05:22:14 +00:00
|
|
|
const_value set 2
|
|
|
|
const CELADONGAMECORNERPRIZEROOM_GENTLEMAN
|
|
|
|
const CELADONGAMECORNERPRIZEROOM_PHARMACIST
|
|
|
|
|
2018-01-17 03:57:19 +00:00
|
|
|
CeladonGameCornerPrizeRoom_MapScripts:
|
2017-12-24 18:46:34 +00:00
|
|
|
.SceneScripts:
|
2013-02-17 06:54:07 +00:00
|
|
|
db 0
|
|
|
|
|
2015-07-21 04:02:21 +00:00
|
|
|
.MapCallbacks:
|
2013-02-17 06:54:07 +00:00
|
|
|
db 0
|
|
|
|
|
2015-12-25 03:58:42 +00:00
|
|
|
CeladonGameCornerPrizeRoomGentlemanScript:
|
|
|
|
jumptextfaceplayer CeladonGameCornerPrizeRoomGentlemanText
|
2013-02-17 06:54:07 +00:00
|
|
|
|
2015-12-25 03:58:42 +00:00
|
|
|
CeladonGameCornerPrizeRoomPharmacistScript:
|
|
|
|
jumptextfaceplayer CeladonGameCornerPrizeRoomPharmacistText
|
2013-02-17 06:54:07 +00:00
|
|
|
|
2018-01-12 22:09:32 +00:00
|
|
|
CeladonGameCornerPrizeRoomTMVendor:
|
2013-02-17 06:54:07 +00:00
|
|
|
faceplayer
|
2015-12-09 23:25:44 +00:00
|
|
|
opentext
|
2015-12-25 03:58:42 +00:00
|
|
|
writetext CeladonPrizeRoom_PrizeVendorIntroText
|
2015-11-25 15:16:29 +00:00
|
|
|
waitbutton
|
2013-02-17 06:54:07 +00:00
|
|
|
checkitem COIN_CASE
|
2015-10-16 17:35:43 +00:00
|
|
|
iffalse CeladonPrizeRoom_NoCoinCase
|
2015-12-25 03:58:42 +00:00
|
|
|
writetext CeladonPrizeRoom_AskWhichPrizeText
|
2015-10-16 17:35:43 +00:00
|
|
|
CeladonPrizeRoom_tmcounterloop:
|
|
|
|
special Special_DisplayCoinCaseBalance
|
2015-12-25 03:58:42 +00:00
|
|
|
loadmenudata CeladonPrizeRoom_TMMenuDataHeader
|
2015-12-15 23:59:49 +00:00
|
|
|
verticalmenu
|
2015-12-25 03:58:42 +00:00
|
|
|
closewindow
|
2018-01-12 06:40:20 +00:00
|
|
|
if_equal 1, .doubleteam
|
|
|
|
if_equal 2, .psychic
|
|
|
|
if_equal 3, .hyperbeam
|
2015-10-16 17:35:43 +00:00
|
|
|
jump CeladonPrizeRoom_cancel
|
2013-02-17 06:54:07 +00:00
|
|
|
|
2016-04-10 19:01:49 +00:00
|
|
|
.doubleteam
|
2013-02-17 06:54:07 +00:00
|
|
|
checkcoins 1500
|
2018-01-12 06:40:20 +00:00
|
|
|
if_equal HAVE_LESS, CeladonPrizeRoom_notenoughcoins
|
|
|
|
itemtotext TM_DOUBLE_TEAM, MEM_BUFFER_0
|
2015-10-16 17:35:43 +00:00
|
|
|
scall CeladonPrizeRoom_askbuy
|
|
|
|
iffalse CeladonPrizeRoom_cancel
|
2015-11-05 01:20:14 +00:00
|
|
|
giveitem TM_DOUBLE_TEAM
|
2015-10-16 17:35:43 +00:00
|
|
|
iffalse CeladonPrizeRoom_notenoughroom
|
2013-02-17 06:54:07 +00:00
|
|
|
takecoins 1500
|
2015-10-16 17:35:43 +00:00
|
|
|
jump CeladonPrizeRoom_purchased
|
2013-02-17 06:54:07 +00:00
|
|
|
|
2016-04-10 19:01:49 +00:00
|
|
|
.psychic
|
2013-02-17 06:54:07 +00:00
|
|
|
checkcoins 3500
|
2018-01-12 06:40:20 +00:00
|
|
|
if_equal HAVE_LESS, CeladonPrizeRoom_notenoughcoins
|
|
|
|
itemtotext TM_PSYCHIC_M, MEM_BUFFER_0
|
2015-10-16 17:35:43 +00:00
|
|
|
scall CeladonPrizeRoom_askbuy
|
|
|
|
iffalse CeladonPrizeRoom_cancel
|
2017-12-24 22:54:24 +00:00
|
|
|
giveitem TM_PSYCHIC_M
|
2015-10-16 17:35:43 +00:00
|
|
|
iffalse CeladonPrizeRoom_notenoughroom
|
2013-02-17 06:54:07 +00:00
|
|
|
takecoins 3500
|
2015-10-16 17:35:43 +00:00
|
|
|
jump CeladonPrizeRoom_purchased
|
2013-02-17 06:54:07 +00:00
|
|
|
|
2016-04-10 19:01:49 +00:00
|
|
|
.hyperbeam
|
2013-02-17 06:54:07 +00:00
|
|
|
checkcoins 7500
|
2018-01-12 06:40:20 +00:00
|
|
|
if_equal HAVE_LESS, CeladonPrizeRoom_notenoughcoins
|
|
|
|
itemtotext TM_HYPER_BEAM, MEM_BUFFER_0
|
2015-10-16 17:35:43 +00:00
|
|
|
scall CeladonPrizeRoom_askbuy
|
|
|
|
iffalse CeladonPrizeRoom_cancel
|
2015-11-05 01:20:14 +00:00
|
|
|
giveitem TM_HYPER_BEAM
|
2015-10-16 17:35:43 +00:00
|
|
|
iffalse CeladonPrizeRoom_notenoughroom
|
2013-02-17 06:54:07 +00:00
|
|
|
takecoins 7500
|
2015-10-16 17:35:43 +00:00
|
|
|
jump CeladonPrizeRoom_purchased
|
2013-02-17 06:54:07 +00:00
|
|
|
|
2015-10-16 17:35:43 +00:00
|
|
|
CeladonPrizeRoom_askbuy:
|
2015-12-25 03:58:42 +00:00
|
|
|
writetext CeladonPrizeRoom_ConfirmPurchaseText
|
2013-02-17 06:54:07 +00:00
|
|
|
yesorno
|
|
|
|
end
|
|
|
|
|
2015-10-16 17:35:43 +00:00
|
|
|
CeladonPrizeRoom_purchased:
|
2015-11-25 15:16:29 +00:00
|
|
|
waitsfx
|
2014-04-30 10:04:35 +00:00
|
|
|
playsound SFX_TRANSACTION
|
2015-12-25 03:58:42 +00:00
|
|
|
writetext CeladonPrizeRoom_HereYouGoText
|
2015-11-25 15:16:29 +00:00
|
|
|
waitbutton
|
2015-10-16 17:35:43 +00:00
|
|
|
jump CeladonPrizeRoom_tmcounterloop
|
2013-02-17 06:54:07 +00:00
|
|
|
|
2015-10-16 17:35:43 +00:00
|
|
|
CeladonPrizeRoom_notenoughcoins:
|
2015-12-25 03:58:42 +00:00
|
|
|
writetext CeladonPrizeRoom_NotEnoughCoinsText
|
2015-11-25 15:16:29 +00:00
|
|
|
waitbutton
|
2013-02-17 06:54:07 +00:00
|
|
|
closetext
|
|
|
|
end
|
|
|
|
|
2015-10-16 17:35:43 +00:00
|
|
|
CeladonPrizeRoom_notenoughroom:
|
2015-12-25 03:58:42 +00:00
|
|
|
writetext CeladonPrizeRoom_NotEnoughRoomText
|
2015-11-25 15:16:29 +00:00
|
|
|
waitbutton
|
2013-02-17 06:54:07 +00:00
|
|
|
closetext
|
|
|
|
end
|
|
|
|
|
2015-10-16 17:35:43 +00:00
|
|
|
CeladonPrizeRoom_cancel:
|
2015-12-25 03:58:42 +00:00
|
|
|
writetext CeladonPrizeRoom_ComeAgainText
|
2015-11-25 15:16:29 +00:00
|
|
|
waitbutton
|
2013-02-17 06:54:07 +00:00
|
|
|
closetext
|
|
|
|
end
|
|
|
|
|
2015-10-16 17:35:43 +00:00
|
|
|
CeladonPrizeRoom_NoCoinCase:
|
2015-12-25 03:58:42 +00:00
|
|
|
writetext CeladonPrizeRoom_NoCoinCaseText
|
2015-11-25 15:16:29 +00:00
|
|
|
waitbutton
|
2013-02-17 06:54:07 +00:00
|
|
|
closetext
|
|
|
|
end
|
|
|
|
|
2015-12-25 03:58:42 +00:00
|
|
|
CeladonPrizeRoom_TMMenuDataHeader:
|
2018-01-14 10:59:56 +00:00
|
|
|
db MENU_BACKUP_TILES ; flags
|
2018-01-13 21:38:14 +00:00
|
|
|
menu_coords 0, 2, 15, TEXTBOX_Y - 1
|
2015-12-25 03:58:42 +00:00
|
|
|
dw .MenuData2
|
2013-05-01 06:53:33 +00:00
|
|
|
db 1 ; default option
|
|
|
|
|
2015-12-25 03:58:42 +00:00
|
|
|
.MenuData2:
|
2018-01-14 10:59:56 +00:00
|
|
|
db STATICMENU_CURSOR ; flags
|
2013-05-01 06:53:33 +00:00
|
|
|
db 4 ; items
|
|
|
|
db "TM32 1500@"
|
|
|
|
db "TM29 3500@"
|
|
|
|
db "TM15 7500@"
|
|
|
|
db "CANCEL@"
|
|
|
|
|
2018-01-12 22:09:32 +00:00
|
|
|
CeladonGameCornerPrizeRoomPokemonVendor:
|
2013-02-17 06:54:07 +00:00
|
|
|
faceplayer
|
2015-12-09 23:25:44 +00:00
|
|
|
opentext
|
2015-12-25 03:58:42 +00:00
|
|
|
writetext CeladonPrizeRoom_PrizeVendorIntroText
|
2015-11-25 15:16:29 +00:00
|
|
|
waitbutton
|
2013-02-17 06:54:07 +00:00
|
|
|
checkitem COIN_CASE
|
2015-10-16 17:35:43 +00:00
|
|
|
iffalse CeladonPrizeRoom_NoCoinCase
|
2016-04-10 19:01:49 +00:00
|
|
|
.loop
|
2015-12-25 03:58:42 +00:00
|
|
|
writetext CeladonPrizeRoom_AskWhichPrizeText
|
2015-10-16 17:35:43 +00:00
|
|
|
special Special_DisplayCoinCaseBalance
|
2015-12-25 03:58:42 +00:00
|
|
|
loadmenudata .MenuDataHeader
|
2015-12-15 23:59:49 +00:00
|
|
|
verticalmenu
|
2015-12-25 03:58:42 +00:00
|
|
|
closewindow
|
2018-01-12 06:40:20 +00:00
|
|
|
if_equal 1, .pikachu
|
|
|
|
if_equal 2, .porygon
|
|
|
|
if_equal 3, .larvitar
|
2015-10-16 17:35:43 +00:00
|
|
|
jump CeladonPrizeRoom_cancel
|
2013-02-17 06:54:07 +00:00
|
|
|
|
2016-04-10 19:01:49 +00:00
|
|
|
.pikachu
|
2013-02-17 06:54:07 +00:00
|
|
|
checkcoins 2222
|
2018-01-12 06:40:20 +00:00
|
|
|
if_equal HAVE_LESS, CeladonPrizeRoom_notenoughcoins
|
2015-07-10 02:08:03 +00:00
|
|
|
checkcode VAR_PARTYCOUNT
|
2018-01-12 06:40:20 +00:00
|
|
|
if_equal PARTY_LENGTH, CeladonPrizeRoom_notenoughroom
|
|
|
|
pokenamemem PIKACHU, MEM_BUFFER_0
|
2015-10-16 17:35:43 +00:00
|
|
|
scall CeladonPrizeRoom_askbuy
|
|
|
|
iffalse CeladonPrizeRoom_cancel
|
2015-11-25 15:16:29 +00:00
|
|
|
waitsfx
|
2014-04-30 10:04:35 +00:00
|
|
|
playsound SFX_TRANSACTION
|
2015-12-25 03:58:42 +00:00
|
|
|
writetext CeladonPrizeRoom_HereYouGoText
|
2015-11-25 15:16:29 +00:00
|
|
|
waitbutton
|
2013-02-17 06:54:07 +00:00
|
|
|
writebyte PIKACHU
|
2015-07-20 22:59:26 +00:00
|
|
|
special Special_GameCornerPrizeMonCheckDex
|
2015-10-04 18:14:51 +00:00
|
|
|
givepoke PIKACHU, 25
|
2013-02-17 06:54:07 +00:00
|
|
|
takecoins 2222
|
2015-10-16 17:35:43 +00:00
|
|
|
jump .loop
|
2013-02-17 06:54:07 +00:00
|
|
|
|
2016-04-10 19:01:49 +00:00
|
|
|
.porygon
|
2013-02-17 06:54:07 +00:00
|
|
|
checkcoins 5555
|
2018-01-12 06:40:20 +00:00
|
|
|
if_equal HAVE_LESS, CeladonPrizeRoom_notenoughcoins
|
2015-07-10 02:08:03 +00:00
|
|
|
checkcode VAR_PARTYCOUNT
|
2018-01-12 06:40:20 +00:00
|
|
|
if_equal PARTY_LENGTH, CeladonPrizeRoom_notenoughroom
|
|
|
|
pokenamemem PORYGON, MEM_BUFFER_0
|
2015-10-16 17:35:43 +00:00
|
|
|
scall CeladonPrizeRoom_askbuy
|
|
|
|
iffalse CeladonPrizeRoom_cancel
|
2015-11-25 15:16:29 +00:00
|
|
|
waitsfx
|
2014-04-30 10:04:35 +00:00
|
|
|
playsound SFX_TRANSACTION
|
2015-12-25 03:58:42 +00:00
|
|
|
writetext CeladonPrizeRoom_HereYouGoText
|
2015-11-25 15:16:29 +00:00
|
|
|
waitbutton
|
2013-02-17 06:54:07 +00:00
|
|
|
writebyte PORYGON
|
2015-07-20 22:59:26 +00:00
|
|
|
special Special_GameCornerPrizeMonCheckDex
|
2015-10-04 18:14:51 +00:00
|
|
|
givepoke PORYGON, 15
|
2013-02-17 06:54:07 +00:00
|
|
|
takecoins 5555
|
2015-10-16 17:35:43 +00:00
|
|
|
jump .loop
|
2013-02-17 06:54:07 +00:00
|
|
|
|
2016-04-10 19:01:49 +00:00
|
|
|
.larvitar
|
2013-02-17 06:54:07 +00:00
|
|
|
checkcoins 8888
|
2018-01-12 06:40:20 +00:00
|
|
|
if_equal HAVE_LESS, CeladonPrizeRoom_notenoughcoins
|
2015-07-10 02:08:03 +00:00
|
|
|
checkcode VAR_PARTYCOUNT
|
2018-01-12 06:40:20 +00:00
|
|
|
if_equal PARTY_LENGTH, CeladonPrizeRoom_notenoughroom
|
|
|
|
pokenamemem LARVITAR, MEM_BUFFER_0
|
2015-10-16 17:35:43 +00:00
|
|
|
scall CeladonPrizeRoom_askbuy
|
|
|
|
iffalse CeladonPrizeRoom_cancel
|
2015-11-25 15:16:29 +00:00
|
|
|
waitsfx
|
2014-04-30 10:04:35 +00:00
|
|
|
playsound SFX_TRANSACTION
|
2015-12-25 03:58:42 +00:00
|
|
|
writetext CeladonPrizeRoom_HereYouGoText
|
2015-11-25 15:16:29 +00:00
|
|
|
waitbutton
|
2013-02-17 06:54:07 +00:00
|
|
|
writebyte LARVITAR
|
2015-07-20 22:59:26 +00:00
|
|
|
special Special_GameCornerPrizeMonCheckDex
|
2015-10-04 18:14:51 +00:00
|
|
|
givepoke LARVITAR, 40
|
2013-02-17 06:54:07 +00:00
|
|
|
takecoins 8888
|
2015-10-16 17:35:43 +00:00
|
|
|
jump .loop
|
2013-02-17 06:54:07 +00:00
|
|
|
|
2015-12-25 03:58:42 +00:00
|
|
|
.MenuDataHeader:
|
2018-01-14 10:59:56 +00:00
|
|
|
db MENU_BACKUP_TILES ; flags
|
2018-01-13 21:38:14 +00:00
|
|
|
menu_coords 0, 2, 17, TEXTBOX_Y - 1
|
2015-12-25 03:58:42 +00:00
|
|
|
dw .MenuData2
|
2013-05-01 06:53:33 +00:00
|
|
|
db 1 ; default option
|
|
|
|
|
2015-12-25 03:58:42 +00:00
|
|
|
.MenuData2:
|
2018-01-14 10:59:56 +00:00
|
|
|
db STATICMENU_CURSOR ; flags
|
2013-05-01 06:53:33 +00:00
|
|
|
db 4 ; items
|
|
|
|
db "PIKACHU 2222@"
|
|
|
|
db "PORYGON 5555@"
|
|
|
|
db "LARVITAR 8888@"
|
|
|
|
db "CANCEL@"
|
|
|
|
|
2015-12-25 03:58:42 +00:00
|
|
|
CeladonGameCornerPrizeRoomGentlemanText:
|
2014-03-06 05:29:44 +00:00
|
|
|
text "I wanted PORYGON,"
|
|
|
|
line "but I was short by"
|
|
|
|
cont "100 coins…"
|
|
|
|
done
|
2013-02-17 06:54:07 +00:00
|
|
|
|
2015-12-25 03:58:42 +00:00
|
|
|
CeladonGameCornerPrizeRoomPharmacistText:
|
2014-03-06 05:29:44 +00:00
|
|
|
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
|
2013-02-17 06:54:07 +00:00
|
|
|
|
2015-12-25 03:58:42 +00:00
|
|
|
CeladonPrizeRoom_PrizeVendorIntroText:
|
2014-03-06 05:29:44 +00:00
|
|
|
text "Welcome!"
|
|
|
|
|
|
|
|
para "We exchange your"
|
|
|
|
line "coins for fabulous"
|
|
|
|
cont "prizes!"
|
|
|
|
done
|
2013-02-17 06:54:07 +00:00
|
|
|
|
2015-12-25 03:58:42 +00:00
|
|
|
CeladonPrizeRoom_AskWhichPrizeText:
|
2014-03-06 05:29:44 +00:00
|
|
|
text "Which prize would"
|
|
|
|
line "you like?"
|
|
|
|
done
|
2013-02-17 06:54:07 +00:00
|
|
|
|
2015-12-25 03:58:42 +00:00
|
|
|
CeladonPrizeRoom_ConfirmPurchaseText:
|
2014-03-06 05:29:44 +00:00
|
|
|
text "OK, so you wanted"
|
|
|
|
line "a @"
|
2015-02-10 23:37:24 +00:00
|
|
|
text_from_ram StringBuffer3
|
2014-03-06 05:29:44 +00:00
|
|
|
text "?"
|
|
|
|
done
|
2013-02-17 06:54:07 +00:00
|
|
|
|
2015-12-25 03:58:42 +00:00
|
|
|
CeladonPrizeRoom_HereYouGoText:
|
2014-03-06 05:29:44 +00:00
|
|
|
text "Here you go!"
|
|
|
|
done
|
2013-02-17 06:54:07 +00:00
|
|
|
|
2015-12-25 03:58:42 +00:00
|
|
|
CeladonPrizeRoom_NotEnoughCoinsText:
|
2014-03-06 05:29:44 +00:00
|
|
|
text "You don't have"
|
|
|
|
line "enough coins."
|
|
|
|
done
|
2013-02-17 06:54:07 +00:00
|
|
|
|
2015-12-25 03:58:42 +00:00
|
|
|
CeladonPrizeRoom_NotEnoughRoomText:
|
2014-03-06 05:29:44 +00:00
|
|
|
text "You have no room"
|
|
|
|
line "for it."
|
|
|
|
done
|
2013-02-17 06:54:07 +00:00
|
|
|
|
2015-12-25 03:58:42 +00:00
|
|
|
CeladonPrizeRoom_ComeAgainText:
|
2014-03-06 05:29:44 +00:00
|
|
|
text "Oh. Please come"
|
|
|
|
line "back with coins!"
|
|
|
|
done
|
2013-02-17 06:54:07 +00:00
|
|
|
|
2015-12-25 03:58:42 +00:00
|
|
|
CeladonPrizeRoom_NoCoinCaseText:
|
2014-03-06 05:29:44 +00:00
|
|
|
text "Oh? You don't have"
|
|
|
|
line "a COIN CASE."
|
|
|
|
done
|
2013-02-17 06:54:07 +00:00
|
|
|
|
2018-01-17 03:57:19 +00:00
|
|
|
CeladonGameCornerPrizeRoom_MapEvents:
|
2013-02-17 06:54:07 +00:00
|
|
|
; filler
|
|
|
|
db 0, 0
|
|
|
|
|
2015-07-21 04:02:21 +00:00
|
|
|
.Warps:
|
2013-02-17 06:54:07 +00:00
|
|
|
db 2
|
2017-12-28 19:31:25 +00:00
|
|
|
warp_def 2, 5, 7, CELADON_CITY
|
|
|
|
warp_def 3, 5, 7, CELADON_CITY
|
2013-02-17 06:54:07 +00:00
|
|
|
|
2017-12-24 18:46:34 +00:00
|
|
|
.CoordEvents:
|
2013-02-17 06:54:07 +00:00
|
|
|
db 0
|
|
|
|
|
2017-12-24 18:46:34 +00:00
|
|
|
.BGEvents:
|
2013-02-17 06:54:07 +00:00
|
|
|
db 2
|
2018-01-12 22:09:32 +00:00
|
|
|
bg_event 2, 1, BGEVENT_READ, CeladonGameCornerPrizeRoomTMVendor
|
|
|
|
bg_event 4, 1, BGEVENT_READ, CeladonGameCornerPrizeRoomPokemonVendor
|
2013-02-17 06:54:07 +00:00
|
|
|
|
2017-12-24 18:46:34 +00:00
|
|
|
.ObjectEvents:
|
2013-02-17 06:54:07 +00:00
|
|
|
db 2
|
2017-12-28 19:31:25 +00:00
|
|
|
object_event 0, 2, SPRITE_GENTLEMAN, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, PAL_NPC_RED, OBJECTTYPE_SCRIPT, 0, CeladonGameCornerPrizeRoomGentlemanScript, -1
|
|
|
|
object_event 4, 4, SPRITE_PHARMACIST, SPRITEMOVEDATA_WALK_UP_DOWN, 0, 1, -1, -1, PAL_NPC_GREEN, OBJECTTYPE_SCRIPT, 0, CeladonGameCornerPrizeRoomPharmacistScript, -1
|