ref: 9f7d30439e110715e603bddfd412d849f4e78eca
dir: /maps/CeladonGameCorner.asm/
const_def 2 ; object constants 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_MapScripts: db 0 ; scene scripts db 0 ; callbacks CeladonGameCornerClerkScript: jumpstd gamecornercoinvendor CeladonGameCornerReceptionistScript: jumptextfaceplayer CeladonGameCornerReceptionistText CeladonGameCornerPokefanMScript: faceplayer opentext writetext CeladonGameCornerPokefanMText waitbutton closetext turnobject CELADONGAMECORNER_POKEFAN_M, LEFT end CeladonGameCornerTeacherScript: faceplayer opentext writetext CeladonGameCornerTeacherText waitbutton closetext turnobject CELADONGAMECORNER_TEACHER, RIGHT end CeladonGameCornerFishingGuruScript: faceplayer opentext writetext CeladonGameCornerFishingGuruText waitbutton closetext turnobject 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 ifequal HAVE_MORE, .FullCoinCase getstring STRING_BUFFER_4, .coinname scall .GiveCoins givecoins 18 setevent EVENT_GOT_COINS_FROM_GAMBLER_AT_CELADON .GotCoins: writetext CeladonGameCornerFisherText2 waitbutton closetext turnobject LAST_TALKED, LEFT end .GiveCoins: jumpstd receiveitem end .coinname db "COIN@" .NoCoinCase: writetext CeladonGameCornerFisherNoCoinCaseText waitbutton closetext turnobject LAST_TALKED, LEFT end .FullCoinCase: writetext CeladonGameCornerFisherFullCoinCaseText waitbutton closetext turnobject LAST_TALKED, LEFT end CeladonGymGuyScript: jumptextfaceplayer CeladonGymGuyText CeladonGameCornerGrampsScript: faceplayer opentext writetext CeladonGameCornerGrampsText waitbutton closetext turnobject CELADONGAMECORNER_GRAMPS, LEFT end CeladonGameCornerPoster1Script: jumptext CeladonGameCornerPoster1Text CeladonGameCornerPoster2Script: jumptext CeladonGameCornerPoster2Text CeladonGameCornerLuckySlotMachineScript: random 6 ifequal 0, CeladonGameCornerSlotMachineScript refreshscreen setval FALSE special SlotMachine closetext end CeladonGameCornerSlotMachineScript: refreshscreen setval TRUE special SlotMachine closetext end CeladonGameCornerCardFlipScript: refreshscreen special CardFlip closetext end CeladonGameCornerLighterScript: jumptext CeladonGameCornerLighterText CeladonGameCornerSodaCanScript: opentext writetext CeladonGameCornerSodaCanText waitbutton special CardFlip closetext end CeladonGameCornerUnusedMovementData: ; 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: if DEF(_CRYSTAL_AU) text "The weather" line "outside is very" cont "nice." done else text "It's this machine" line "I want." para "It cleaned me out" line "yesterday, so it" para "should pay out" line "today." done endc CeladonGameCornerFishingGuruText: if DEF(_CRYSTAL_AU) text "This machine looks" line "the same as the" cont "others." done else text "I think this slot" line "machine will pay" cont "out…" para "The odds vary" line "among machines." done endc CeladonGameCornerFisherText1: if DEF(_CRYSTAL_AU) text "Whoa!" para "What? You want to" line "play this machine?" para "Here, take my" line "coins." done else 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 endc 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: if DEF(_CRYSTAL_AU) text "Your COIN CASE is" line "full." done else text "Hey, your COIN" line "CASE is full, kid." para "You must be riding" line "a winning streak" cont "too." done endc CeladonGymGuyText: text "Hey! CHAMP in" line "making!" para "Are you playing" if DEF(_CRYSTAL_AU) line "too?" else line "the slots too?" endc 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: if DEF(_CRYSTAL_AU) text "Is there any" line "difference between" cont "these lines?" done else text "Hmmm… The odds are" line "surely better for" para "PIKACHU's line," line "but… What to do?" done endc 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 CeladonGameCornerSodaCanText: text "A can of soda…" para "Someone must be" line "coming back…" para "Huh? It's empty!" done CeladonGameCorner_MapEvents: db 0, 0 ; filler db 2 ; warp events warp_event 14, 13, CELADON_CITY, 6 warp_event 15, 13, CELADON_CITY, 6 db 0 ; coord events db 38 ; bg events bg_event 1, 6, BGEVENT_READ, CeladonGameCornerCardFlipScript bg_event 1, 7, BGEVENT_READ, CeladonGameCornerCardFlipScript bg_event 1, 8, BGEVENT_READ, CeladonGameCornerCardFlipScript bg_event 1, 9, BGEVENT_READ, CeladonGameCornerCardFlipScript bg_event 1, 10, BGEVENT_READ, CeladonGameCornerCardFlipScript bg_event 1, 11, BGEVENT_LEFT, CeladonGameCornerCardFlipScript bg_event 6, 6, BGEVENT_READ, CeladonGameCornerCardFlipScript bg_event 6, 7, BGEVENT_READ, CeladonGameCornerCardFlipScript bg_event 6, 8, BGEVENT_READ, CeladonGameCornerCardFlipScript bg_event 6, 9, BGEVENT_READ, CeladonGameCornerSodaCanScript bg_event 6, 10, BGEVENT_READ, CeladonGameCornerCardFlipScript bg_event 6, 11, BGEVENT_RIGHT, CeladonGameCornerCardFlipScript bg_event 7, 6, BGEVENT_READ, CeladonGameCornerLuckySlotMachineScript bg_event 7, 7, BGEVENT_READ, CeladonGameCornerLuckySlotMachineScript bg_event 7, 8, BGEVENT_READ, CeladonGameCornerLuckySlotMachineScript bg_event 7, 9, BGEVENT_READ, CeladonGameCornerLuckySlotMachineScript bg_event 7, 10, BGEVENT_READ, CeladonGameCornerSlotMachineScript bg_event 7, 11, BGEVENT_LEFT, CeladonGameCornerLuckySlotMachineScript bg_event 12, 6, BGEVENT_READ, CeladonGameCornerLuckySlotMachineScript bg_event 12, 7, BGEVENT_READ, CeladonGameCornerLuckySlotMachineScript bg_event 12, 8, BGEVENT_READ, CeladonGameCornerLuckySlotMachineScript bg_event 12, 9, BGEVENT_READ, CeladonGameCornerLuckySlotMachineScript bg_event 12, 10, BGEVENT_READ, CeladonGameCornerLuckySlotMachineScript bg_event 12, 11, BGEVENT_RIGHT, CeladonGameCornerLuckySlotMachineScript bg_event 13, 6, BGEVENT_READ, CeladonGameCornerLuckySlotMachineScript bg_event 13, 7, BGEVENT_READ, CeladonGameCornerLuckySlotMachineScript bg_event 13, 8, BGEVENT_READ, CeladonGameCornerLuckySlotMachineScript bg_event 13, 9, BGEVENT_READ, CeladonGameCornerLuckySlotMachineScript bg_event 13, 10, BGEVENT_READ, CeladonGameCornerLuckySlotMachineScript bg_event 13, 11, BGEVENT_LEFT, CeladonGameCornerLuckySlotMachineScript bg_event 18, 6, BGEVENT_READ, CeladonGameCornerLuckySlotMachineScript bg_event 18, 7, BGEVENT_READ, CeladonGameCornerLuckySlotMachineScript bg_event 18, 8, BGEVENT_READ, CeladonGameCornerLighterScript bg_event 18, 9, BGEVENT_READ, CeladonGameCornerLuckySlotMachineScript bg_event 18, 10, BGEVENT_READ, CeladonGameCornerLuckySlotMachineScript bg_event 18, 11, BGEVENT_RIGHT, CeladonGameCornerLuckySlotMachineScript bg_event 15, 0, BGEVENT_READ, CeladonGameCornerPoster1Script bg_event 9, 0, BGEVENT_READ, CeladonGameCornerPoster2Script db 9 ; object events object_event 5, 2, SPRITE_CLERK, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, PAL_NPC_GREEN, OBJECTTYPE_SCRIPT, 0, CeladonGameCornerClerkScript, -1 object_event 3, 2, SPRITE_RECEPTIONIST, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, PAL_NPC_GREEN, OBJECTTYPE_SCRIPT, 0, CeladonGameCornerReceptionistScript, -1 object_event 14, 10, SPRITE_POKEFAN_M, SPRITEMOVEDATA_STANDING_LEFT, 0, 0, -1, -1, PAL_NPC_RED, OBJECTTYPE_SCRIPT, 0, CeladonGameCornerPokefanMScript, -1 object_event 17, 7, SPRITE_TEACHER, SPRITEMOVEDATA_STANDING_RIGHT, 0, 0, -1, -1, PAL_NPC_BLUE, OBJECTTYPE_SCRIPT, 0, CeladonGameCornerTeacherScript, -1 object_event 11, 7, SPRITE_FISHING_GURU, SPRITEMOVEDATA_STANDING_RIGHT, 0, 0, -1, -1, PAL_NPC_GREEN, OBJECTTYPE_SCRIPT, 0, CeladonGameCornerFishingGuruScript, -1 object_event 8, 10, SPRITE_FISHER, SPRITEMOVEDATA_STANDING_LEFT, 0, 0, -1, DAY, PAL_NPC_RED, OBJECTTYPE_SCRIPT, 0, CeladonGameCornerFisherScript, -1 object_event 8, 10, SPRITE_FISHER, SPRITEMOVEDATA_STANDING_LEFT, 0, 0, -1, NITE, PAL_NPC_RED, OBJECTTYPE_SCRIPT, 0, CeladonGameCornerFisherScript, -1 object_event 11, 3, SPRITE_GYM_GUY, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, PAL_NPC_RED, OBJECTTYPE_SCRIPT, 0, CeladonGymGuyScript, -1 object_event 2, 8, SPRITE_GRAMPS, SPRITEMOVEDATA_STANDING_LEFT, 0, 0, -1, -1, PAL_NPC_GREEN, OBJECTTYPE_SCRIPT, 0, CeladonGameCornerGrampsScript, -1