pokecrystal-board/maps/RuinsOfAlphOmanyteChamber.asm

166 lines
3.7 KiB
NASM
Raw Normal View History

RuinsOfAlphOmanyteChamber_MapScripts:
db 2 ; scene scripts
scene_script .CheckWall ; SCENE_DEFAULT
scene_script .DummyScene ; SCENE_FINISHED
db 1 ; callbacks
callback MAPCALLBACK_TILES, .HiddenDoors
.CheckWall:
special OmanyteChamber
2013-09-24 00:48:58 -07:00
checkevent EVENT_WALL_OPENED_IN_OMANYTE_CHAMBER
iftrue .OpenWall
end
.OpenWall:
prioritysjump .WallOpenScript
end
.DummyScene:
end
.HiddenDoors:
2013-09-24 00:48:58 -07:00
checkevent EVENT_WALL_OPENED_IN_OMANYTE_CHAMBER
iftrue .WallOpen
2018-01-17 10:23:43 -08:00
changeblock 4, 0, $2e ; closed wall
.WallOpen:
checkevent EVENT_SOLVED_OMANYTE_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
RuinsOfAlphOmanyteChamberPuzzle:
2018-01-11 22:40:20 -08:00
refreshscreen
setval UNOWNPUZZLE_OMANYTE
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_OMANYTE_PUZZLE
setflag ENGINE_UNLOCKED_UNOWNS_L_TO_R
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, RuinsOfAlphOmanyteChamberSkyfallTopMovement
playsound SFX_KINESIS
2015-11-25 07:16:29 -08:00
waitsfx
pause 20
warpcheck
end
RuinsOfAlphOmanyteChamberAncientReplica:
jumptext RuinsOfAlphOmanyteChamberAncientReplicaText
RuinsOfAlphOmanyteChamberDescriptionSign:
jumptext RuinsOfAlphOmanyteChamberDescriptionText
RuinsOfAlphOmanyteChamberWallPatternLeft:
2015-12-09 15:25:44 -08:00
opentext
writetext RuinsOfAlphOmanyteChamberWallPatternLeftText
setval UNOWNWORDS_WATER
special DisplayUnownWords
2015-11-25 07:16:29 -08:00
closetext
end
RuinsOfAlphOmanyteChamberWallPatternRight:
2013-09-24 00:48:58 -07:00
checkevent EVENT_WALL_OPENED_IN_OMANYTE_CHAMBER
2018-02-02 08:31:43 -08:00
iftrue .WallOpen
2015-12-09 15:25:44 -08:00
opentext
writetext RuinsOfAlphOmanyteChamberWallPatternRightText
setval UNOWNWORDS_WATER
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 RuinsOfAlphOmanyteChamberWallHoleText
2015-11-25 07:16:29 -08:00
waitbutton
closetext
end
2018-02-28 13:50:43 -08:00
RuinsOfAlphOmanyteChamberSkyfallTopMovement:
skyfall_top
step_end
RuinsOfAlphOmanyteChamberWallPatternLeftText:
text "Patterns appeared"
line "on the walls…"
done
RuinsOfAlphOmanyteChamberUnownText:
; unused
text "It's UNOWN text!"
done
RuinsOfAlphOmanyteChamberWallPatternRightText:
text "Patterns appeared"
line "on the walls…"
done
RuinsOfAlphOmanyteChamberWallHoleText:
text "There's a big hole"
line "in the wall!"
done
RuinsOfAlphOmanyteChamberAncientReplicaText:
text "It's a replica of"
line "an ancient #-"
cont "MON."
done
RuinsOfAlphOmanyteChamberDescriptionText:
text "This #MON"
line "drifted in the"
para "sea by twisting"
line "its ten tentacles."
done
RuinsOfAlphOmanyteChamber_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, 3
warp_event 4, 9, RUINS_OF_ALPH_OUTSIDE, 3
warp_event 3, 3, RUINS_OF_ALPH_INNER_CHAMBER, 6
warp_event 4, 3, RUINS_OF_ALPH_INNER_CHAMBER, 7
warp_event 4, 0, RUINS_OF_ALPH_OMANYTE_ITEM_ROOM, 1
db 0 ; coord events
db 6 ; bg events
bg_event 2, 3, BGEVENT_READ, RuinsOfAlphOmanyteChamberAncientReplica
bg_event 5, 3, BGEVENT_READ, RuinsOfAlphOmanyteChamberAncientReplica
bg_event 3, 2, BGEVENT_UP, RuinsOfAlphOmanyteChamberPuzzle
bg_event 4, 2, BGEVENT_UP, RuinsOfAlphOmanyteChamberDescriptionSign
bg_event 3, 0, BGEVENT_UP, RuinsOfAlphOmanyteChamberWallPatternLeft
bg_event 4, 0, BGEVENT_UP, RuinsOfAlphOmanyteChamberWallPatternRight
db 0 ; object events