ref: 14a2ea835edc0fdd52b04ecd010a0c123471e0c6
dir: /maps/RuinsOfAlphKabutoChamber.asm/
const_def 2 ; object constants const RUINSOFALPHKABUTOCHAMBER_RECEPTIONIST const RUINSOFALPHKABUTOCHAMBER_SCIENTIST RuinsOfAlphKabutoChamber_MapScripts: db 2 ; scene scripts scene_script .CheckWall ; SCENE_DEFAULT scene_script .DummyScene ; SCENE_FINISHED db 1 ; callbacks callback MAPCALLBACK_TILES, .HiddenDoors .CheckWall: checkevent EVENT_WALL_OPENED_IN_KABUTO_CHAMBER iftrue .OpenWall end .OpenWall: priorityjump .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 return .FloorClosed: changeblock 2, 2, $01 ; left floor changeblock 4, 2, $02 ; right floor return .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 writebyte 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 checkcode VAR_UNOWNCOUNT ifequal NUM_UNOWN, .AllUnownCaught checkevent EVENT_WALL_OPENED_IN_KABUTO_CHAMBER iftrue .WallOpen checkevent EVENT_SOLVED_KABUTO_PUZZLE iffalse .PuzzleIncomplete writetext UnknownText_0x589b8 buttonsound .PuzzleIncomplete: writetext UnknownText_0x588f5 waitbutton closetext turnobject RUINSOFALPHKABUTOCHAMBER_SCIENTIST, UP end .WallOpen: writetext UnknownText_0x5897c waitbutton closetext end .AllUnownCaught: writetext RuinsOfAlphResearchCenterScientist1Text_GotAllUnown waitbutton closetext end RuinsOfAlphKabutoChamberAncientReplica: jumptext RuinsOfAlphKabutoChamberAncientReplicaText RuinsOfAlphKabutoChamberDescriptionSign: jumptext RuinsOfAlphKabutoChamberDescriptionText RuinsOfAlphKabutoChamberWallPatternLeft: opentext writetext RuinsOfAlphKabutoChamberWallPatternLeftText writebyte UNOWNWORDS_ESCAPE special DisplayUnownWords closetext end RuinsOfAlphKabutoChamberWallPatternRight: checkevent EVENT_WALL_OPENED_IN_KABUTO_CHAMBER iftrue .WallOpen opentext writetext RuinsOfAlphKabutoChamberWallPatternRightText writebyte 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 UnknownText_0x588f5: 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 UnknownText_0x5897c: text "Ah! Here's another" line "huge hole!" para "It's big enough to" line "go through!" done UnknownText_0x589b8: text "That tremor was" line "pretty scary!" para "But I'm more" line "concerned about" cont "this wall here…" done RuinsOfAlphKabutoChamberUnusedText: ; unused 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: ; unused 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 db 5 ; 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 db 0 ; coord events db 6 ; 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 db 2 ; 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