pokecrystal/maps/CeladonGameCornerPrizeRoom.asm

289 lines
5.7 KiB
NASM
Raw Normal View History

2015-07-10 08:45:35 +00:00
CeladonGameCornerPrizeRoom_MapScriptHeader:
.MapTriggers:
db 0
.MapCallbacks:
db 0
2015-07-10 08:45:35 +00:00
GentlemanScript_0x726e9:
jumptextfaceplayer UnknownText_0x728b8
2015-07-10 08:45:35 +00:00
PharmacistScript_0x726ec:
jumptextfaceplayer UnknownText_0x728e9
2015-07-10 08:45:35 +00:00
MapCeladonGameCornerPrizeRoomSignpost0Script:
faceplayer
loadfont
2015-01-20 08:01:23 +00:00
writetext UnknownText_0x7293e
closetext
checkitem COIN_CASE
2015-10-16 17:35:43 +00:00
iffalse CeladonPrizeRoom_NoCoinCase
2015-01-20 08:01:23 +00:00
writetext UnknownText_0x72974
2015-10-16 17:35:43 +00:00
CeladonPrizeRoom_tmcounterloop:
special Special_DisplayCoinCaseBalance
loadmenudata MenuDataHeader_0x72790
interpretmenu2
writebackup
2015-10-16 17:35:43 +00:00
if_equal $1, .doubleteam
if_equal $2, .psychic
if_equal $3, .hyperbeam
jump CeladonPrizeRoom_cancel
2015-10-16 17:35:43 +00:00
.doubleteam:
checkcoins 1500
2015-10-16 17:35:43 +00:00
if_equal $2, CeladonPrizeRoom_notenoughcoins
itemtotext TM_DOUBLE_TEAM, $0
2015-10-16 17:35:43 +00:00
scall CeladonPrizeRoom_askbuy
iffalse CeladonPrizeRoom_cancel
giveitem TM_DOUBLE_TEAM, 1
iffalse CeladonPrizeRoom_notenoughroom
takecoins 1500
2015-10-16 17:35:43 +00:00
jump CeladonPrizeRoom_purchased
2015-10-16 17:35:43 +00:00
.psychic:
checkcoins 3500
2015-10-16 17:35:43 +00:00
if_equal $2, CeladonPrizeRoom_notenoughcoins
itemtotext TM_PSYCHIC, $0
2015-10-16 17:35:43 +00:00
scall CeladonPrizeRoom_askbuy
iffalse CeladonPrizeRoom_cancel
giveitem TM_PSYCHIC, 1
iffalse CeladonPrizeRoom_notenoughroom
takecoins 3500
2015-10-16 17:35:43 +00:00
jump CeladonPrizeRoom_purchased
2015-10-16 17:35:43 +00:00
.hyperbeam:
checkcoins 7500
2015-10-16 17:35:43 +00:00
if_equal $2, CeladonPrizeRoom_notenoughcoins
itemtotext TM_HYPER_BEAM, $0
2015-10-16 17:35:43 +00:00
scall CeladonPrizeRoom_askbuy
iffalse CeladonPrizeRoom_cancel
giveitem TM_HYPER_BEAM, 1
iffalse CeladonPrizeRoom_notenoughroom
takecoins 7500
2015-10-16 17:35:43 +00:00
jump CeladonPrizeRoom_purchased
2015-10-16 17:35:43 +00:00
CeladonPrizeRoom_askbuy:
2015-01-20 08:01:23 +00:00
writetext UnknownText_0x72991
yesorno
end
2015-10-16 17:35:43 +00:00
CeladonPrizeRoom_purchased:
waitbutton
playsound SFX_TRANSACTION
2015-01-20 08:01:23 +00:00
writetext UnknownText_0x729ad
closetext
2015-10-16 17:35:43 +00:00
jump CeladonPrizeRoom_tmcounterloop
2015-10-16 17:35:43 +00:00
CeladonPrizeRoom_notenoughcoins:
2015-01-20 08:01:23 +00:00
writetext UnknownText_0x729bb
closetext
loadmovesprites
end
2015-10-16 17:35:43 +00:00
CeladonPrizeRoom_notenoughroom:
2015-01-20 08:01:23 +00:00
writetext UnknownText_0x729d8
closetext
loadmovesprites
end
2015-10-16 17:35:43 +00:00
CeladonPrizeRoom_cancel:
2015-01-20 08:01:23 +00:00
writetext UnknownText_0x729f2
closetext
loadmovesprites
end
2015-10-16 17:35:43 +00:00
CeladonPrizeRoom_NoCoinCase:
2015-01-20 08:01:23 +00:00
writetext UnknownText_0x72a14
closetext
loadmovesprites
end
2015-07-10 08:45:35 +00:00
MenuDataHeader_0x72790:
db $40 ; flags
db 02, 00 ; start coords
db 11, 15 ; end coords
dw MenuData2_0x72798
db 1 ; default option
2015-07-10 08:45:35 +00:00
MenuData2_0x72798:
db $80 ; flags
db 4 ; items
db "TM32 1500@"
db "TM29 3500@"
db "TM15 7500@"
db "CANCEL@"
2015-07-10 08:45:35 +00:00
MapCeladonGameCornerPrizeRoomSignpost1Script:
faceplayer
loadfont
2015-01-20 08:01:23 +00:00
writetext UnknownText_0x7293e
closetext
checkitem COIN_CASE
2015-10-16 17:35:43 +00:00
iffalse CeladonPrizeRoom_NoCoinCase
.loop:
2015-01-20 08:01:23 +00:00
writetext UnknownText_0x72974
2015-10-16 17:35:43 +00:00
special Special_DisplayCoinCaseBalance
loadmenudata MenuDataHeader_0x72877
interpretmenu2
writebackup
2015-10-16 17:35:43 +00:00
if_equal $1, .pikachu
if_equal $2, .porygon
if_equal $3, .larvitar
jump CeladonPrizeRoom_cancel
2015-10-16 17:35:43 +00:00
.pikachu:
checkcoins 2222
2015-10-16 17:35:43 +00:00
if_equal $2, CeladonPrizeRoom_notenoughcoins
checkcode VAR_PARTYCOUNT
2015-10-16 17:35:43 +00:00
if_equal $6, CeladonPrizeRoom_notenoughroom
pokenamemem PIKACHU, $0
2015-10-16 17:35:43 +00:00
scall CeladonPrizeRoom_askbuy
iffalse CeladonPrizeRoom_cancel
waitbutton
playsound SFX_TRANSACTION
2015-01-20 08:01:23 +00:00
writetext UnknownText_0x729ad
closetext
writebyte PIKACHU
special Special_GameCornerPrizeMonCheckDex
2015-10-04 18:14:51 +00:00
givepoke PIKACHU, 25
takecoins 2222
2015-10-16 17:35:43 +00:00
jump .loop
2015-10-16 17:35:43 +00:00
.porygon:
checkcoins 5555
2015-10-16 17:35:43 +00:00
if_equal $2, CeladonPrizeRoom_notenoughcoins
checkcode VAR_PARTYCOUNT
2015-10-16 17:35:43 +00:00
if_equal $6, CeladonPrizeRoom_notenoughroom
pokenamemem PORYGON, $0
2015-10-16 17:35:43 +00:00
scall CeladonPrizeRoom_askbuy
iffalse CeladonPrizeRoom_cancel
waitbutton
playsound SFX_TRANSACTION
2015-01-20 08:01:23 +00:00
writetext UnknownText_0x729ad
closetext
writebyte PORYGON
special Special_GameCornerPrizeMonCheckDex
2015-10-04 18:14:51 +00:00
givepoke PORYGON, 15
takecoins 5555
2015-10-16 17:35:43 +00:00
jump .loop
2015-10-16 17:35:43 +00:00
.larvitar:
checkcoins 8888
2015-10-16 17:35:43 +00:00
if_equal $2, CeladonPrizeRoom_notenoughcoins
checkcode VAR_PARTYCOUNT
2015-10-16 17:35:43 +00:00
if_equal $6, CeladonPrizeRoom_notenoughroom
pokenamemem LARVITAR, $0
2015-10-16 17:35:43 +00:00
scall CeladonPrizeRoom_askbuy
iffalse CeladonPrizeRoom_cancel
waitbutton
playsound SFX_TRANSACTION
2015-01-20 08:01:23 +00:00
writetext UnknownText_0x729ad
closetext
writebyte LARVITAR
special Special_GameCornerPrizeMonCheckDex
2015-10-04 18:14:51 +00:00
givepoke LARVITAR, 40
takecoins 8888
2015-10-16 17:35:43 +00:00
jump .loop
2015-07-10 08:45:35 +00:00
MenuDataHeader_0x72877:
db $40 ; flags
db 02, 00 ; start coords
db 11, 17 ; end coords
dw MenuData2_0x7287f
db 1 ; default option
2015-07-10 08:45:35 +00:00
MenuData2_0x7287f:
db $80 ; flags
db 4 ; items
db "PIKACHU 2222@"
db "PORYGON 5555@"
db "LARVITAR 8888@"
db "CANCEL@"
2015-07-10 08:45:35 +00:00
UnknownText_0x728b8:
text "I wanted PORYGON,"
line "but I was short by"
cont "100 coins…"
done
2015-07-10 08:45:35 +00:00
UnknownText_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
2015-07-10 08:45:35 +00:00
UnknownText_0x7293e:
text "Welcome!"
para "We exchange your"
line "coins for fabulous"
cont "prizes!"
done
2015-07-10 08:45:35 +00:00
UnknownText_0x72974:
text "Which prize would"
line "you like?"
done
2015-07-10 08:45:35 +00:00
UnknownText_0x72991:
text "OK, so you wanted"
line "a @"
2015-02-10 23:37:24 +00:00
text_from_ram StringBuffer3
text "?"
done
2015-07-10 08:45:35 +00:00
UnknownText_0x729ad:
text "Here you go!"
done
2015-07-10 08:45:35 +00:00
UnknownText_0x729bb:
text "You don't have"
line "enough coins."
done
2015-07-10 08:45:35 +00:00
UnknownText_0x729d8:
text "You have no room"
line "for it."
done
2015-07-10 08:45:35 +00:00
UnknownText_0x729f2:
text "Oh. Please come"
line "back with coins!"
done
2015-07-10 08:45:35 +00:00
UnknownText_0x72a14:
text "Oh? You don't have"
line "a COIN CASE."
done
2015-07-10 08:45:35 +00:00
CeladonGameCornerPrizeRoom_MapEventHeader:
; filler
db 0, 0
.Warps:
db 2
warp_def $5, $2, 7, CELADON_CITY
warp_def $5, $3, 7, CELADON_CITY
.XYTriggers:
db 0
.Signposts:
db 2
signpost 1, 2, SIGNPOST_READ, MapCeladonGameCornerPrizeRoomSignpost0Script
signpost 1, 4, SIGNPOST_READ, MapCeladonGameCornerPrizeRoomSignpost1Script
.PersonEvents:
db 2
2015-10-24 14:34:19 +00:00
person_event SPRITE_GENTLEMAN, 2, 0, $6, 0, 0, -1, -1, (1 << 3) | PAL_OW_RED, 0, 0, GentlemanScript_0x726e9, -1
person_event SPRITE_PHARMACIST, 4, 4, $4, 1, 0, -1, -1, (1 << 3) | PAL_OW_GREEN, 0, 0, PharmacistScript_0x726ec, -1