ref: 4125138da725b412fabdbb555caf3852a2fecb32
dir: /maps/RuinsOfAlphKabutoChamber.asm/
object_const_def const RUINSOFALPHKABUTOCHAMBER_RECEPTIONIST const RUINSOFALPHKABUTOCHAMBER_SCIENTIST RuinsOfAlphKabutoChamber_MapScripts: def_scene_scripts scene_script .CheckWall ; SCENE_DEFAULT scene_script .DummyScene ; SCENE_FINISHED def_callbacks callback MAPCALLBACK_TILES, .HiddenDoors .CheckWall: checkevent EVENT_WALL_OPENED_IN_KABUTO_CHAMBER iftrue .OpenWall end .OpenWall: sdefer .WallOpenScript end .DummyScene: end .HiddenDoors: checkevent EVENT_WALL_OPENED_IN_KABUTO_CHAMBER iftrue .WallOpen changeblock 4, 0, $2e ; closed wall .WallOpen: checkevent EVENT_SOLVED_KABUTO_PUZZLE iffalse .FloorClosed endcallback .FloorClosed: changeblock 2, 2, $01 ; left floor changeblock 4, 2, $02 ; right floor endcallback .WallOpenScript: pause 30 earthquake 30 showemote EMOTE_SHOCK, PLAYER, 20 pause 30 playsound SFX_STRENGTH changeblock 4, 0, $30 ; open wall reloadmappart earthquake 50 setscene SCENE_FINISHED closetext end RuinsOfAlphKabutoChamberReceptionistScript: jumptextfaceplayer RuinsOfAlphKabutoChamberReceptionistText RuinsOfAlphKabutoChamberPuzzle: refreshscreen setval UNOWNPUZZLE_KABUTO special UnownPuzzle closetext iftrue .PuzzleComplete end .PuzzleComplete: setevent EVENT_RUINS_OF_ALPH_INNER_CHAMBER_TOURISTS setevent EVENT_SOLVED_KABUTO_PUZZLE setflag ENGINE_UNLOCKED_UNOWNS_A_TO_K setevent EVENT_RUINS_OF_ALPH_KABUTO_CHAMBER_RECEPTIONIST setmapscene RUINS_OF_ALPH_INNER_CHAMBER, SCENE_RUINSOFALPHINNERCHAMBER_STRANGE_PRESENCE earthquake 30 showemote EMOTE_SHOCK, PLAYER, 15 changeblock 2, 2, $18 ; left hole changeblock 4, 2, $19 ; right hole reloadmappart playsound SFX_STRENGTH earthquake 80 applymovement PLAYER, RuinsOfAlphKabutoChamberSkyfallTopMovement playsound SFX_KINESIS waitsfx pause 20 warpcheck end RuinsOfAlphKabutoChamberScientistScript: faceplayer opentext readvar VAR_UNOWNCOUNT ifequal NUM_UNOWN, .AllUnownCaught checkevent EVENT_WALL_OPENED_IN_KABUTO_CHAMBER iftrue .WallOpen checkevent EVENT_SOLVED_KABUTO_PUZZLE iffalse .PuzzleIncomplete writetext RuinsOfAlphKabutoChamberScientistTremorText promptbutton .PuzzleIncomplete: writetext RuinsOfAlphKabutoChamberScientistCrypticText waitbutton closetext turnobject RUINSOFALPHKABUTOCHAMBER_SCIENTIST, UP end .WallOpen: writetext RuinsOfAlphKabutoChamberScientistHoleText waitbutton closetext end .AllUnownCaught: writetext RuinsOfAlphResearchCenterScientist1Text_GotAllUnown waitbutton closetext end RuinsOfAlphKabutoChamberAncientReplica: jumptext RuinsOfAlphKabutoChamberAncientReplicaText RuinsOfAlphKabutoChamberDescriptionSign: jumptext RuinsOfAlphKabutoChamberDescriptionText RuinsOfAlphKabutoChamberWallPatternLeft: opentext writetext RuinsOfAlphKabutoChamberWallPatternLeftText setval UNOWNWORDS_ESCAPE special DisplayUnownWords closetext end RuinsOfAlphKabutoChamberWallPatternRight: checkevent EVENT_WALL_OPENED_IN_KABUTO_CHAMBER iftrue .WallOpen opentext writetext RuinsOfAlphKabutoChamberWallPatternRightText setval UNOWNWORDS_ESCAPE special DisplayUnownWords closetext end .WallOpen: opentext writetext RuinsOfAlphKabutoChamberWallHoleText waitbutton closetext end RuinsOfAlphKabutoChamberSkyfallTopMovement: skyfall_top step_end RuinsOfAlphKabutoChamberReceptionistText: text "Welcome to this" line "chamber." para "There are sliding" line "panels that depict" para "a #MON drawn by" line "the ancients." para "Slide the panels" line "around to form the" cont "picture." para "To the right is a" line "description of the" cont "#MON." para "Scientists in the" line "back are examining" para "some newly found" line "patterns." done RuinsOfAlphKabutoChamberScientistCrypticText: text "Recently, strange," line "cryptic patterns" cont "have appeared." para "It's odd. They" line "weren't here a" cont "little while ago…" para "You should take a" line "look at the walls." done RuinsOfAlphKabutoChamberScientistHoleText: text "Ah! Here's another" line "huge hole!" para "It's big enough to" line "go through!" done RuinsOfAlphKabutoChamberScientistTremorText: text "That tremor was" line "pretty scary!" para "But I'm more" line "concerned about" cont "this wall here…" done RuinsOfAlphKabutoChamberUnusedText: ; unreferenced text "The patterns on" line "the wall appear to" cont "be words!" para "And those sliding" line "stone panels seem" para "to be signals of" line "some kind." para "I think they make" line "#MON appear," para "but it's not clear" line "yet…" done RuinsOfAlphKabutoChamberWallPatternLeftText: text "Patterns appeared" line "on the walls…" done RuinsOfAlphKabutoChamberUnownText: ; unreferenced text "It's UNOWN text!" done RuinsOfAlphKabutoChamberWallPatternRightText: text "Patterns appeared" line "on the walls…" done RuinsOfAlphKabutoChamberWallHoleText: text "There's a big hole" line "in the wall!" done RuinsOfAlphKabutoChamberAncientReplicaText: text "It's a replica of" line "an ancient #-" cont "MON." done RuinsOfAlphKabutoChamberDescriptionText: text "A #MON that hid" line "on the sea floor." para "Eyes on its back" line "scanned the area." done RuinsOfAlphKabutoChamber_MapEvents: db 0, 0 ; filler def_warp_events warp_event 3, 9, RUINS_OF_ALPH_OUTSIDE, 2 warp_event 4, 9, RUINS_OF_ALPH_OUTSIDE, 2 warp_event 3, 3, RUINS_OF_ALPH_INNER_CHAMBER, 4 warp_event 4, 3, RUINS_OF_ALPH_INNER_CHAMBER, 5 warp_event 4, 0, RUINS_OF_ALPH_KABUTO_ITEM_ROOM, 1 def_coord_events def_bg_events bg_event 2, 3, BGEVENT_READ, RuinsOfAlphKabutoChamberAncientReplica bg_event 5, 3, BGEVENT_READ, RuinsOfAlphKabutoChamberAncientReplica bg_event 3, 2, BGEVENT_UP, RuinsOfAlphKabutoChamberPuzzle bg_event 4, 2, BGEVENT_UP, RuinsOfAlphKabutoChamberDescriptionSign bg_event 3, 0, BGEVENT_UP, RuinsOfAlphKabutoChamberWallPatternLeft bg_event 4, 0, BGEVENT_UP, RuinsOfAlphKabutoChamberWallPatternRight def_object_events object_event 5, 5, SPRITE_RECEPTIONIST, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, RuinsOfAlphKabutoChamberReceptionistScript, EVENT_RUINS_OF_ALPH_KABUTO_CHAMBER_RECEPTIONIST object_event 3, 1, SPRITE_SCIENTIST, SPRITEMOVEDATA_STANDING_UP, 0, 0, -1, -1, PAL_NPC_BLUE, OBJECTTYPE_SCRIPT, 0, RuinsOfAlphKabutoChamberScientistScript, -1