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: .MapTriggers: 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 9998 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 .XYTriggers: db 0 .Signposts: db 38 signpost 6, 1, SIGNPOST_READ, CeladonGameCornerCardFlipScript signpost 7, 1, SIGNPOST_READ, CeladonGameCornerCardFlipScript signpost 8, 1, SIGNPOST_READ, CeladonGameCornerCardFlipScript signpost 9, 1, SIGNPOST_READ, CeladonGameCornerCardFlipScript signpost 10, 1, SIGNPOST_READ, CeladonGameCornerCardFlipScript signpost 11, 1, SIGNPOST_LEFT, CeladonGameCornerCardFlipScript signpost 6, 6, SIGNPOST_READ, CeladonGameCornerCardFlipScript signpost 7, 6, SIGNPOST_READ, CeladonGameCornerCardFlipScript signpost 8, 6, SIGNPOST_READ, CeladonGameCornerCardFlipScript signpost 9, 6, SIGNPOST_READ, MapCeladonGameCornerSignpost9Script signpost 10, 6, SIGNPOST_READ, CeladonGameCornerCardFlipScript signpost 11, 6, SIGNPOST_RIGHT, CeladonGameCornerCardFlipScript signpost 6, 7, SIGNPOST_READ, CeladonGameCornerLuckySlotMachineScript signpost 7, 7, SIGNPOST_READ, CeladonGameCornerLuckySlotMachineScript signpost 8, 7, SIGNPOST_READ, CeladonGameCornerLuckySlotMachineScript signpost 9, 7, SIGNPOST_READ, CeladonGameCornerLuckySlotMachineScript signpost 10, 7, SIGNPOST_READ, CeladonGameCornerSlotMachineScript signpost 11, 7, SIGNPOST_LEFT, CeladonGameCornerLuckySlotMachineScript signpost 6, 12, SIGNPOST_READ, CeladonGameCornerLuckySlotMachineScript signpost 7, 12, SIGNPOST_READ, CeladonGameCornerLuckySlotMachineScript signpost 8, 12, SIGNPOST_READ, CeladonGameCornerLuckySlotMachineScript signpost 9, 12, SIGNPOST_READ, CeladonGameCornerLuckySlotMachineScript signpost 10, 12, SIGNPOST_READ, CeladonGameCornerLuckySlotMachineScript signpost 11, 12, SIGNPOST_RIGHT, CeladonGameCornerLuckySlotMachineScript signpost 6, 13, SIGNPOST_READ, CeladonGameCornerLuckySlotMachineScript signpost 7, 13, SIGNPOST_READ, CeladonGameCornerLuckySlotMachineScript signpost 8, 13, SIGNPOST_READ, CeladonGameCornerLuckySlotMachineScript signpost 9, 13, SIGNPOST_READ, CeladonGameCornerLuckySlotMachineScript signpost 10, 13, SIGNPOST_READ, CeladonGameCornerLuckySlotMachineScript signpost 11, 13, SIGNPOST_LEFT, CeladonGameCornerLuckySlotMachineScript signpost 6, 18, SIGNPOST_READ, CeladonGameCornerLuckySlotMachineScript signpost 7, 18, SIGNPOST_READ, CeladonGameCornerLuckySlotMachineScript signpost 8, 18, SIGNPOST_READ, CeladonGameCornerLighterScript signpost 9, 18, SIGNPOST_READ, CeladonGameCornerLuckySlotMachineScript signpost 10, 18, SIGNPOST_READ, CeladonGameCornerLuckySlotMachineScript signpost 11, 18, SIGNPOST_RIGHT, CeladonGameCornerLuckySlotMachineScript signpost 0, 15, SIGNPOST_READ, CeladonGameCornerPoster1Script signpost 0, 9, SIGNPOST_READ, CeladonGameCornerPoster2Script .PersonEvents: db 9 person_event SPRITE_CLERK, 2, 5, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, PAL_NPC_GREEN, PERSONTYPE_SCRIPT, 0, CeladonGameCornerClerkScript, -1 person_event SPRITE_RECEPTIONIST, 2, 3, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, PAL_NPC_GREEN, PERSONTYPE_SCRIPT, 0, CeladonGameCornerReceptionistScript, -1 person_event SPRITE_POKEFAN_M, 10, 14, SPRITEMOVEDATA_STANDING_LEFT, 0, 0, -1, -1, PAL_NPC_RED, PERSONTYPE_SCRIPT, 0, CeladonGameCornerPokefanMScript, -1 person_event SPRITE_TEACHER, 7, 17, SPRITEMOVEDATA_STANDING_RIGHT, 0, 0, -1, -1, PAL_NPC_BLUE, PERSONTYPE_SCRIPT, 0, CeladonGameCornerTeacherScript, -1 person_event SPRITE_FISHING_GURU, 7, 11, SPRITEMOVEDATA_STANDING_RIGHT, 0, 0, -1, -1, PAL_NPC_GREEN, PERSONTYPE_SCRIPT, 0, CeladonGameCornerFishingGuruScript, -1 person_event SPRITE_FISHER, 10, 8, SPRITEMOVEDATA_STANDING_LEFT, 0, 0, -1, DAY, PAL_NPC_RED, PERSONTYPE_SCRIPT, 0, CeladonGameCornerFisherScript, -1 person_event SPRITE_FISHER, 10, 8, SPRITEMOVEDATA_STANDING_LEFT, 0, 0, -1, NITE, PAL_NPC_RED, PERSONTYPE_SCRIPT, 0, CeladonGameCornerFisherScript, -1 person_event SPRITE_GYM_GUY, 3, 11, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, PAL_NPC_RED, PERSONTYPE_SCRIPT, 0, CeladonGymGuyScript, -1 person_event SPRITE_GRAMPS, 8, 2, SPRITEMOVEDATA_STANDING_LEFT, 0, 0, -1, -1, PAL_NPC_GREEN, PERSONTYPE_SCRIPT, 0, CeladonGameCornerGrampsScript, -1