ref: d08199c79d8168368aeac0381427d533e09f073d
dir: /maps/CeladonGameCornerPrizeRoom.asm/
const_value set 2 const CELADONGAMECORNERPRIZEROOM_GENTLEMAN const CELADONGAMECORNERPRIZEROOM_PHARMACIST CeladonGameCornerPrizeRoom_MapScriptHeader: .MapTriggers: db 0 .MapCallbacks: db 0 GentlemanScript_0x726e9: jumptextfaceplayer UnknownText_0x728b8 PharmacistScript_0x726ec: jumptextfaceplayer UnknownText_0x728e9 MapCeladonGameCornerPrizeRoomSignpost0Script: faceplayer opentext writetext UnknownText_0x7293e waitbutton checkitem COIN_CASE iffalse CeladonPrizeRoom_NoCoinCase writetext UnknownText_0x72974 CeladonPrizeRoom_tmcounterloop: special Special_DisplayCoinCaseBalance loadmenudata MenuDataHeader_0x72790 verticalmenu writebackup if_equal $1, .doubleteam if_equal $2, .psychic if_equal $3, .hyperbeam jump CeladonPrizeRoom_cancel .doubleteam: checkcoins 1500 if_equal $2, CeladonPrizeRoom_notenoughcoins itemtotext TM_DOUBLE_TEAM, $0 scall CeladonPrizeRoom_askbuy iffalse CeladonPrizeRoom_cancel giveitem TM_DOUBLE_TEAM iffalse CeladonPrizeRoom_notenoughroom takecoins 1500 jump CeladonPrizeRoom_purchased .psychic: checkcoins 3500 if_equal $2, CeladonPrizeRoom_notenoughcoins itemtotext TM_PSYCHIC, $0 scall CeladonPrizeRoom_askbuy iffalse CeladonPrizeRoom_cancel giveitem TM_PSYCHIC iffalse CeladonPrizeRoom_notenoughroom takecoins 3500 jump CeladonPrizeRoom_purchased .hyperbeam: checkcoins 7500 if_equal $2, CeladonPrizeRoom_notenoughcoins itemtotext TM_HYPER_BEAM, $0 scall CeladonPrizeRoom_askbuy iffalse CeladonPrizeRoom_cancel giveitem TM_HYPER_BEAM iffalse CeladonPrizeRoom_notenoughroom takecoins 7500 jump CeladonPrizeRoom_purchased CeladonPrizeRoom_askbuy: writetext UnknownText_0x72991 yesorno end CeladonPrizeRoom_purchased: waitsfx playsound SFX_TRANSACTION writetext UnknownText_0x729ad waitbutton jump CeladonPrizeRoom_tmcounterloop CeladonPrizeRoom_notenoughcoins: writetext UnknownText_0x729bb waitbutton closetext end CeladonPrizeRoom_notenoughroom: writetext UnknownText_0x729d8 waitbutton closetext end CeladonPrizeRoom_cancel: writetext UnknownText_0x729f2 waitbutton closetext end CeladonPrizeRoom_NoCoinCase: writetext UnknownText_0x72a14 waitbutton closetext end MenuDataHeader_0x72790: db $40 ; flags db 02, 00 ; start coords db 11, 15 ; end coords dw MenuData2_0x72798 db 1 ; default option MenuData2_0x72798: db $80 ; flags db 4 ; items db "TM32 1500@" db "TM29 3500@" db "TM15 7500@" db "CANCEL@" MapCeladonGameCornerPrizeRoomSignpost1Script: faceplayer opentext writetext UnknownText_0x7293e waitbutton checkitem COIN_CASE iffalse CeladonPrizeRoom_NoCoinCase .loop: writetext UnknownText_0x72974 special Special_DisplayCoinCaseBalance loadmenudata MenuDataHeader_0x72877 verticalmenu writebackup if_equal $1, .pikachu if_equal $2, .porygon if_equal $3, .larvitar jump CeladonPrizeRoom_cancel .pikachu: checkcoins 2222 if_equal $2, CeladonPrizeRoom_notenoughcoins checkcode VAR_PARTYCOUNT if_equal $6, CeladonPrizeRoom_notenoughroom pokenamemem PIKACHU, $0 scall CeladonPrizeRoom_askbuy iffalse CeladonPrizeRoom_cancel waitsfx playsound SFX_TRANSACTION writetext UnknownText_0x729ad waitbutton writebyte PIKACHU special Special_GameCornerPrizeMonCheckDex givepoke PIKACHU, 25 takecoins 2222 jump .loop .porygon: checkcoins 5555 if_equal $2, CeladonPrizeRoom_notenoughcoins checkcode VAR_PARTYCOUNT if_equal $6, CeladonPrizeRoom_notenoughroom pokenamemem PORYGON, $0 scall CeladonPrizeRoom_askbuy iffalse CeladonPrizeRoom_cancel waitsfx playsound SFX_TRANSACTION writetext UnknownText_0x729ad waitbutton writebyte PORYGON special Special_GameCornerPrizeMonCheckDex givepoke PORYGON, 15 takecoins 5555 jump .loop .larvitar: checkcoins 8888 if_equal $2, CeladonPrizeRoom_notenoughcoins checkcode VAR_PARTYCOUNT if_equal $6, CeladonPrizeRoom_notenoughroom pokenamemem LARVITAR, $0 scall CeladonPrizeRoom_askbuy iffalse CeladonPrizeRoom_cancel waitsfx playsound SFX_TRANSACTION writetext UnknownText_0x729ad waitbutton writebyte LARVITAR special Special_GameCornerPrizeMonCheckDex givepoke LARVITAR, 40 takecoins 8888 jump .loop MenuDataHeader_0x72877: db $40 ; flags db 02, 00 ; start coords db 11, 17 ; end coords dw MenuData2_0x7287f db 1 ; default option MenuData2_0x7287f: db $80 ; flags db 4 ; items db "PIKACHU 2222@" db "PORYGON 5555@" db "LARVITAR 8888@" db "CANCEL@" UnknownText_0x728b8: text "I wanted PORYGON," line "but I was short by" cont "100 coins…" done 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 UnknownText_0x7293e: text "Welcome!" para "We exchange your" line "coins for fabulous" cont "prizes!" done UnknownText_0x72974: text "Which prize would" line "you like?" done UnknownText_0x72991: text "OK, so you wanted" line "a @" text_from_ram StringBuffer3 text "?" done UnknownText_0x729ad: text "Here you go!" done UnknownText_0x729bb: text "You don't have" line "enough coins." done UnknownText_0x729d8: text "You have no room" line "for it." done UnknownText_0x729f2: text "Oh. Please come" line "back with coins!" done UnknownText_0x72a14: text "Oh? You don't have" line "a COIN CASE." done 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 person_event SPRITE_GENTLEMAN, 2, 0, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, (1 << 3) | PAL_OW_RED, PERSONTYPE_SCRIPT, 0, GentlemanScript_0x726e9, -1 person_event SPRITE_PHARMACIST, 4, 4, SPRITEMOVEDATA_WALK_UP_DOWN, 1, 0, -1, -1, (1 << 3) | PAL_OW_GREEN, PERSONTYPE_SCRIPT, 0, PharmacistScript_0x726ec, -1