pokecrystal-board/maps/RuinsOfAlphKabutoChamber.asm

279 lines
6.1 KiB
NASM
Raw Normal View History

2018-01-31 08:38:45 -08:00
const_def 2 ; object constants
2015-11-26 21:22:14 -08:00
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:
2013-09-24 00:48:58 -07:00
checkevent EVENT_WALL_OPENED_IN_KABUTO_CHAMBER
iftrue .OpenWall
end
.OpenWall:
priorityjump .WallOpenScript
end
.DummyScene:
end
.HiddenDoors:
2013-09-24 00:48:58 -07:00
checkevent EVENT_WALL_OPENED_IN_KABUTO_CHAMBER
iftrue .WallOpen
2018-01-17 10:23:43 -08:00
changeblock 4, 0, $2e ; closed wall
.WallOpen:
checkevent EVENT_SOLVED_KABUTO_PUZZLE
iffalse .FloorClosed
return
.FloorClosed:
2018-01-17 10:23:43 -08:00
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
2018-01-17 10:23:43 -08:00
changeblock 4, 0, $30 ; open wall
reloadmappart
earthquake 50
setscene SCENE_FINISHED
2015-11-25 07:16:29 -08:00
closetext
end
2017-12-17 16:48:04 -08:00
RuinsOfAlphKabutoChamberReceptionistScript:
jumptextfaceplayer RuinsOfAlphKabutoChamberReceptionistText
RuinsOfAlphKabutoChamberPuzzle:
2018-01-11 22:40:20 -08:00
refreshscreen
writebyte UNOWNPUZZLE_KABUTO
special UnownPuzzle
2015-11-25 07:16:29 -08:00
closetext
2018-02-02 08:31:43 -08:00
iftrue .PuzzleComplete
end
2018-02-02 08:31:43 -08:00
.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
2018-01-17 10:23:43 -08:00
changeblock 2, 2, $18 ; left hole
changeblock 4, 2, $19 ; right hole
reloadmappart
playsound SFX_STRENGTH
earthquake 80
2018-02-28 13:50:43 -08:00
applymovement PLAYER, RuinsOfAlphKabutoChamberSkyfallTopMovement
playsound SFX_KINESIS
2015-11-25 07:16:29 -08:00
waitsfx
pause 20
warpcheck
end
2018-02-28 14:47:31 -08:00
RuinsOfAlphKabutoChamberScientistScript:
faceplayer
2015-12-09 15:25:44 -08:00
opentext
checkcode VAR_UNOWNCOUNT
ifequal NUM_UNOWN, .AllUnownCaught
2013-09-24 00:48:58 -07:00
checkevent EVENT_WALL_OPENED_IN_KABUTO_CHAMBER
2018-02-02 08:31:43 -08:00
iftrue .WallOpen
checkevent EVENT_SOLVED_KABUTO_PUZZLE
2018-02-02 08:31:43 -08:00
iffalse .PuzzleIncomplete
2015-01-20 00:01:23 -08:00
writetext UnknownText_0x589b8
2015-11-29 19:29:45 -08:00
buttonsound
2018-02-02 08:31:43 -08:00
.PuzzleIncomplete:
2015-01-20 00:01:23 -08:00
writetext UnknownText_0x588f5
2015-11-25 07:16:29 -08:00
waitbutton
closetext
turnobject RUINSOFALPHKABUTOCHAMBER_SCIENTIST, UP
end
2018-02-02 08:31:43 -08:00
.WallOpen:
2015-01-20 00:01:23 -08:00
writetext UnknownText_0x5897c
2015-11-25 07:16:29 -08:00
waitbutton
closetext
end
2018-02-02 08:31:43 -08:00
.AllUnownCaught:
writetext RuinsOfAlphResearchCenterScientist1Text_GotAllUnown
2015-11-25 07:16:29 -08:00
waitbutton
closetext
end
RuinsOfAlphKabutoChamberAncientReplica:
jumptext RuinsOfAlphKabutoChamberAncientReplicaText
RuinsOfAlphKabutoChamberDescriptionSign:
jumptext RuinsOfAlphKabutoChamberDescriptionText
RuinsOfAlphKabutoChamberWallPatternLeft:
2015-12-09 15:25:44 -08:00
opentext
writetext RuinsOfAlphKabutoChamberWallPatternLeftText
writebyte UNOWNWORDS_ESCAPE
special DisplayUnownWords
2015-11-25 07:16:29 -08:00
closetext
end
RuinsOfAlphKabutoChamberWallPatternRight:
2013-09-24 00:48:58 -07:00
checkevent EVENT_WALL_OPENED_IN_KABUTO_CHAMBER
2018-02-02 08:31:43 -08:00
iftrue .WallOpen
2015-12-09 15:25:44 -08:00
opentext
writetext RuinsOfAlphKabutoChamberWallPatternRightText
writebyte UNOWNWORDS_ESCAPE
special DisplayUnownWords
2015-11-25 07:16:29 -08:00
closetext
end
2018-02-02 08:31:43 -08:00
.WallOpen:
2015-12-09 15:25:44 -08:00
opentext
writetext RuinsOfAlphKabutoChamberWallHoleText
2015-11-25 07:16:29 -08:00
waitbutton
closetext
end
2018-02-28 13:50:43 -08:00
RuinsOfAlphKabutoChamberSkyfallTopMovement:
skyfall_top
step_end
2017-12-17 16:48:04 -08:00
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
2015-07-10 01:45:35 -07:00
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
2015-07-10 01:45:35 -07:00
UnknownText_0x5897c:
text "Ah! Here's another"
line "huge hole!"
para "It's big enough to"
line "go through!"
done
2015-07-10 01:45:35 -07:00
UnknownText_0x589b8:
text "That tremor was"
line "pretty scary!"
para "But I'm more"
line "concerned about"
cont "this wall here…"
done
2018-02-28 14:47:31 -08:00
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
2018-02-01 19:22:07 -08:00
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
2018-02-01 19:22:07 -08:00
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
2018-02-28 14:47:31 -08:00
object_event 3, 1, SPRITE_SCIENTIST, SPRITEMOVEDATA_STANDING_UP, 0, 0, -1, -1, PAL_NPC_BLUE, OBJECTTYPE_SCRIPT, 0, RuinsOfAlphKabutoChamberScientistScript, -1