ref: 83ef3b9a36bf4b11239713df229165e40694421f
dir: /maps/CeladonGameCorner.asm/
const_value set 2 const CELADONGAMECORNER_CLERK const CELADONGAMECORNER_RECEPTIONIST const CELADONGAMECORNER_POKEFAN_M const CELADONGAMECORNER_TEACHER const CELADONGAMECORNER_FISHING_GURU const CELADONGAMECORNER_FISHER1 const CELADONGAMECORNER_FISHER2 const CELADONGAMECORNER_GYM_GUY const CELADONGAMECORNER_GRAMPS CeladonGameCorner_MapScriptHeader: .SceneScripts: db 0 .MapCallbacks: db 0 CeladonGameCornerClerkScript: jumpstd gamecornercoinvendor CeladonGameCornerReceptionistScript: jumptextfaceplayer CeladonGameCornerReceptionistText CeladonGameCornerPokefanMScript: faceplayer opentext writetext CeladonGameCornerPokefanMText waitbutton closetext spriteface CELADONGAMECORNER_POKEFAN_M, LEFT end CeladonGameCornerTeacherScript: faceplayer opentext writetext CeladonGameCornerTeacherText waitbutton closetext spriteface CELADONGAMECORNER_TEACHER, RIGHT end CeladonGameCornerFishingGuruScript: faceplayer opentext writetext CeladonGameCornerFishingGuruText waitbutton closetext spriteface CELADONGAMECORNER_FISHING_GURU, RIGHT end CeladonGameCornerFisherScript: faceplayer opentext checkevent EVENT_GOT_COINS_FROM_GAMBLER_AT_CELADON iftrue .GotCoins writetext CeladonGameCornerFisherText1 buttonsound checkitem COIN_CASE iffalse .NoCoinCase checkcoins MAX_COINS - 1 if_equal $0, .FullCoinCase stringtotext .coinname, $1 scall .GiveCoins givecoins 18 setevent EVENT_GOT_COINS_FROM_GAMBLER_AT_CELADON .GotCoins: writetext CeladonGameCornerFisherText2 waitbutton closetext spriteface LAST_TALKED, LEFT end .GiveCoins: jumpstd receiveitem end .coinname db "COIN@" .NoCoinCase: writetext CeladonGameCornerFisherNoCoinCaseText waitbutton closetext spriteface LAST_TALKED, LEFT end .FullCoinCase: writetext CeladonGameCornerFisherFullCoinCaseText waitbutton closetext spriteface LAST_TALKED, LEFT end CeladonGymGuyScript: jumptextfaceplayer CeladonGymGuyText CeladonGameCornerGrampsScript: faceplayer opentext writetext CeladonGameCornerGrampsText waitbutton closetext spriteface CELADONGAMECORNER_GRAMPS, LEFT end CeladonGameCornerPoster1Script: jumptext CeladonGameCornerPoster1Text CeladonGameCornerPoster2Script: jumptext CeladonGameCornerPoster2Text CeladonGameCornerLuckySlotMachineScript: random $6 if_equal $0, CeladonGameCornerSlotMachineScript refreshscreen $0 writebyte $0 special Special_SlotMachine closetext end CeladonGameCornerSlotMachineScript: refreshscreen $0 writebyte $1 special Special_SlotMachine closetext end CeladonGameCornerCardFlipScript: refreshscreen $0 special Special_CardFlip closetext end CeladonGameCornerLighterScript: jumptext CeladonGameCornerLighterText MapCeladonGameCornerSignpost9Script: opentext writetext UnknownText_0x72567 waitbutton special Special_CardFlip closetext end MovementData_0x721cd: ; Unreferenced. step RIGHT turn_head LEFT step_end CeladonGameCornerReceptionistText: text "Welcome!" para "You may exchange" line "your coins for" para "fabulous prizes" line "next door." done CeladonGameCornerPokefanMText: text "The slot machines" line "are all state of" cont "the art." done CeladonGameCornerTeacherText: text "It's this machine" line "I want." para "It cleaned me out" line "yesterday, so it" para "should pay out" line "today." done CeladonGameCornerFishingGuruText: text "I think this slot" line "machine will pay" cont "out…" para "The odds vary" line "among machines." done CeladonGameCornerFisherText1: text "Gahahaha!" para "The coins just" line "keep popping out!" para "Hm? What, kid? You" line "want to play?" para "I'll share my luck" line "with you!" done CeladonGameCornerFisherText2: text "Gahahaha!" para "It makes me feel" line "good to do nice" para "things for other" line "people!" done CeladonGameCornerFisherNoCoinCaseText: text "Hey, you don't" line "have a COIN CASE." para "How am I supposed" line "to give you any" cont "coins, kid?" done CeladonGameCornerFisherFullCoinCaseText: text "Hey, your COIN" line "CASE is full, kid." para "You must be riding" line "a winning streak" cont "too." done CeladonGymGuyText: text "Hey! CHAMP in" line "making!" para "Are you playing" line "the slots too?" para "I'm trying to get" line "enough coins for a" cont "prize #MON." para "But I don't have" line "enough coins yet…" done CeladonGameCornerGrampsText: text "Hmmm… The odds are" line "surely better for" para "PIKACHU's line," line "but… What to do?" done CeladonGameCornerPoster1Text: text "Hey!" para "Underneath this" line "poster…" para "There's nothing!" done CeladonGameCornerPoster2Text: text "Hey!" para "Underneath this" line "poster…" para "There's nothing!" done CeladonGameCornerLighterText: text "There's a lighter" line "here." done UnknownText_0x72567: text "A can of soda…" para "Someone must be" line "coming back…" para "Huh? It's empty!" done CeladonGameCorner_MapEventHeader: ; filler db 0, 0 .Warps: db 2 warp_def $d, $e, 6, CELADON_CITY warp_def $d, $f, 6, CELADON_CITY .CoordEvents: db 0 .BGEvents: db 38 bg_event 6, 1, BGEVENT_READ, CeladonGameCornerCardFlipScript bg_event 7, 1, BGEVENT_READ, CeladonGameCornerCardFlipScript bg_event 8, 1, BGEVENT_READ, CeladonGameCornerCardFlipScript bg_event 9, 1, BGEVENT_READ, CeladonGameCornerCardFlipScript bg_event 10, 1, BGEVENT_READ, CeladonGameCornerCardFlipScript bg_event 11, 1, BGEVENT_LEFT, CeladonGameCornerCardFlipScript bg_event 6, 6, BGEVENT_READ, CeladonGameCornerCardFlipScript bg_event 7, 6, BGEVENT_READ, CeladonGameCornerCardFlipScript bg_event 8, 6, BGEVENT_READ, CeladonGameCornerCardFlipScript bg_event 9, 6, BGEVENT_READ, MapCeladonGameCornerSignpost9Script bg_event 10, 6, BGEVENT_READ, CeladonGameCornerCardFlipScript bg_event 11, 6, BGEVENT_RIGHT, CeladonGameCornerCardFlipScript bg_event 6, 7, BGEVENT_READ, CeladonGameCornerLuckySlotMachineScript bg_event 7, 7, BGEVENT_READ, CeladonGameCornerLuckySlotMachineScript bg_event 8, 7, BGEVENT_READ, CeladonGameCornerLuckySlotMachineScript bg_event 9, 7, BGEVENT_READ, CeladonGameCornerLuckySlotMachineScript bg_event 10, 7, BGEVENT_READ, CeladonGameCornerSlotMachineScript bg_event 11, 7, BGEVENT_LEFT, CeladonGameCornerLuckySlotMachineScript bg_event 6, 12, BGEVENT_READ, CeladonGameCornerLuckySlotMachineScript bg_event 7, 12, BGEVENT_READ, CeladonGameCornerLuckySlotMachineScript bg_event 8, 12, BGEVENT_READ, CeladonGameCornerLuckySlotMachineScript bg_event 9, 12, BGEVENT_READ, CeladonGameCornerLuckySlotMachineScript bg_event 10, 12, BGEVENT_READ, CeladonGameCornerLuckySlotMachineScript bg_event 11, 12, BGEVENT_RIGHT, CeladonGameCornerLuckySlotMachineScript bg_event 6, 13, BGEVENT_READ, CeladonGameCornerLuckySlotMachineScript bg_event 7, 13, BGEVENT_READ, CeladonGameCornerLuckySlotMachineScript bg_event 8, 13, BGEVENT_READ, CeladonGameCornerLuckySlotMachineScript bg_event 9, 13, BGEVENT_READ, CeladonGameCornerLuckySlotMachineScript bg_event 10, 13, BGEVENT_READ, CeladonGameCornerLuckySlotMachineScript bg_event 11, 13, BGEVENT_LEFT, CeladonGameCornerLuckySlotMachineScript bg_event 6, 18, BGEVENT_READ, CeladonGameCornerLuckySlotMachineScript bg_event 7, 18, BGEVENT_READ, CeladonGameCornerLuckySlotMachineScript bg_event 8, 18, BGEVENT_READ, CeladonGameCornerLighterScript bg_event 9, 18, BGEVENT_READ, CeladonGameCornerLuckySlotMachineScript bg_event 10, 18, BGEVENT_READ, CeladonGameCornerLuckySlotMachineScript bg_event 11, 18, BGEVENT_RIGHT, CeladonGameCornerLuckySlotMachineScript bg_event 0, 15, BGEVENT_READ, CeladonGameCornerPoster1Script bg_event 0, 9, BGEVENT_READ, CeladonGameCornerPoster2Script .ObjectEvents: db 9 object_event SPRITE_CLERK, 2, 5, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, PAL_NPC_GREEN, OBJECTTYPE_SCRIPT, 0, CeladonGameCornerClerkScript, -1 object_event SPRITE_RECEPTIONIST, 2, 3, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, PAL_NPC_GREEN, OBJECTTYPE_SCRIPT, 0, CeladonGameCornerReceptionistScript, -1 object_event SPRITE_POKEFAN_M, 10, 14, SPRITEMOVEDATA_STANDING_LEFT, 0, 0, -1, -1, PAL_NPC_RED, OBJECTTYPE_SCRIPT, 0, CeladonGameCornerPokefanMScript, -1 object_event SPRITE_TEACHER, 7, 17, SPRITEMOVEDATA_STANDING_RIGHT, 0, 0, -1, -1, PAL_NPC_BLUE, OBJECTTYPE_SCRIPT, 0, CeladonGameCornerTeacherScript, -1 object_event SPRITE_FISHING_GURU, 7, 11, SPRITEMOVEDATA_STANDING_RIGHT, 0, 0, -1, -1, PAL_NPC_GREEN, OBJECTTYPE_SCRIPT, 0, CeladonGameCornerFishingGuruScript, -1 object_event SPRITE_FISHER, 10, 8, SPRITEMOVEDATA_STANDING_LEFT, 0, 0, -1, DAY, PAL_NPC_RED, OBJECTTYPE_SCRIPT, 0, CeladonGameCornerFisherScript, -1 object_event SPRITE_FISHER, 10, 8, SPRITEMOVEDATA_STANDING_LEFT, 0, 0, -1, NITE, PAL_NPC_RED, OBJECTTYPE_SCRIPT, 0, CeladonGameCornerFisherScript, -1 object_event SPRITE_GYM_GUY, 3, 11, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, PAL_NPC_RED, OBJECTTYPE_SCRIPT, 0, CeladonGymGuyScript, -1 object_event SPRITE_GRAMPS, 8, 2, SPRITEMOVEDATA_STANDING_LEFT, 0, 0, -1, -1, PAL_NPC_GREEN, OBJECTTYPE_SCRIPT, 0, CeladonGameCornerGrampsScript, -1