ref: 38ede6d7f04414d995c13198efb9485d34f17004
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 stringtotext .coinname, MEM_BUFFER_1 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 writebyte FALSE special SlotMachine closetext end CeladonGameCornerSlotMachineScript: refreshscreen writebyte 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: 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 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