pokecrystal-board/maps/FastShip1F.asm
2021-06-08 20:35:04 -04:00

314 lines
6.9 KiB
NASM

object_const_def
const FASTSHIP1F_SAILOR1
const FASTSHIP1F_SAILOR2
const FASTSHIP1F_SAILOR3
const FASTSHIP1F_GENTLEMAN
FastShip1F_MapScripts:
def_scene_scripts
scene_script .DummyScene0 ; SCENE_DEFAULT
scene_script .EnterFastShip ; SCENE_FASTSHIP1F_ENTER_SHIP
scene_script .DummyScene2 ; SCENE_FASTSHIP1F_MEET_GRANDPA
def_callbacks
.DummyScene0:
end
.EnterFastShip:
sdefer .EnterFastShipScript
end
.DummyScene2:
end
.EnterFastShipScript:
applymovement FASTSHIP1F_SAILOR1, FastShip1F_SailorStepAsideMovement
applymovement PLAYER, FastShip1F_PlayerEntersShipMovement
applymovement FASTSHIP1F_SAILOR1, FastShip1F_SailorBlocksDoorMovement
pause 30
playsound SFX_BOAT
earthquake 30
blackoutmod FAST_SHIP_CABINS_SW_SSW_NW
clearevent EVENT_FAST_SHIP_HAS_ARRIVED
checkevent EVENT_FAST_SHIP_FIRST_TIME
iftrue .SkipGrandpa
setscene SCENE_FASTSHIP1F_MEET_GRANDPA
end
.SkipGrandpa:
setscene SCENE_DEFAULT
end
FastShip1FSailor1Script:
faceplayer
opentext
checkevent EVENT_FAST_SHIP_HAS_ARRIVED
iftrue .Arrived
checkevent EVENT_FAST_SHIP_DESTINATION_OLIVINE
iftrue .Olivine
writetext FastShip1FSailor1Text_ToVermilion
waitbutton
closetext
end
.Olivine:
writetext FastShip1FSailor1Text_ToOlivine
waitbutton
closetext
end
.Arrived:
checkevent EVENT_FAST_SHIP_DESTINATION_OLIVINE
iftrue ._Olivine
writetext FastShip1FSailor1Text_InVermilion
waitbutton
closetext
scall .LetThePlayerOut
playsound SFX_EXIT_BUILDING
special FadeOutPalettes
waitsfx
setevent EVENT_VERMILION_PORT_SAILOR_AT_GANGWAY
setmapscene VERMILION_PORT, SCENE_VERMILIONPORT_LEAVE_SHIP
warp VERMILION_PORT, 7, 17
end
._Olivine:
writetext FastShip1FSailor1Text_InOlivine
waitbutton
closetext
scall .LetThePlayerOut
playsound SFX_EXIT_BUILDING
special FadeOutPalettes
waitsfx
setevent EVENT_OLIVINE_PORT_SAILOR_AT_GANGWAY
setmapscene OLIVINE_PORT, SCENE_OLIVINEPORT_LEAVE_SHIP
warp OLIVINE_PORT, 7, 23
end
.LetThePlayerOut:
readvar VAR_FACING
ifequal RIGHT, .YouAreFacingRight
applymovement FASTSHIP1F_SAILOR1, FastShip1F_SailorStepAsideMovement
applymovement PLAYER, FastShip1F_PlayerLeavesShipMovement
end
.YouAreFacingRight:
applymovement FASTSHIP1F_SAILOR1, FastShip1F_SailorStepAsideDownMovement
applymovement PLAYER, FastShip1F_PlayerLeavesShipRightMovement
end
FastShip1FSailor2Script:
faceplayer
opentext
checkevent EVENT_FAST_SHIP_FIRST_TIME
iftrue .Vermilion
writetext FastShip1FSailor2Text_FirstTime
waitbutton
closetext
end
.Vermilion:
writetext FastShip1FSailor2Text
waitbutton
closetext
end
FastShip1FSailor3Script:
jumptextfaceplayer FastShip1FSailor3Text
WorriedGrandpaSceneRight:
moveobject FASTSHIP1F_GENTLEMAN, 20, 6
WorriedGrandpaSceneLeft:
appear FASTSHIP1F_GENTLEMAN
applymovement FASTSHIP1F_GENTLEMAN, FastShip1F_GrandpaRunsInMovement
playsound SFX_TACKLE
applymovement PLAYER, FastShip1F_PlayerHitByGrandpaMovement
applymovement FASTSHIP1F_GENTLEMAN, FastShip1F_GrandpaApproachesPlayerMovement
opentext
writetext FastShip1FGrandpaText
waitbutton
closetext
turnobject PLAYER, RIGHT
applymovement FASTSHIP1F_GENTLEMAN, FastShip1F_GrandpaRunsOutMovement
disappear FASTSHIP1F_GENTLEMAN
setscene SCENE_DEFAULT
end
FastShip1F_SailorStepAsideMovement:
slow_step LEFT
turn_head RIGHT
step_end
FastShip1F_SailorBlocksDoorMovement:
slow_step RIGHT
turn_head DOWN
step_end
FastShip1F_SailorStepAsideDownMovement:
slow_step DOWN
turn_head UP
step_end
FastShip1F_PlayerEntersShipMovement:
step DOWN
step DOWN
turn_head DOWN
step_end
FastShip1F_GrandpaRunsInMovement:
big_step RIGHT
big_step RIGHT
big_step RIGHT
big_step RIGHT
step_end
FastShip1F_GrandpaApproachesPlayerMovement:
step RIGHT
step_end
FastShip1F_GrandpaRunsOutMovement:
big_step DOWN
big_step RIGHT
big_step RIGHT
big_step RIGHT
big_step RIGHT
big_step RIGHT
big_step RIGHT
big_step DOWN
big_step DOWN
big_step DOWN
big_step DOWN
step_end
FastShip1F_PlayerHitByGrandpaMovement:
big_step RIGHT
turn_head LEFT
step_end
FastShip1F_StepUpMovement: ; unreferenced
step UP
step_end
FastShip1F_StepDownMovement: ; unreferenced
step DOWN
step_end
FastShip1F_PlayerLeavesShipMovement:
step UP
step UP
step_end
FastShip1F_PlayerLeavesShipRightMovement:
step RIGHT
step UP
step_end
FastShip1FSailor1Text_ToVermilion:
text "FAST SHIP S.S.AQUA"
line "is en route to"
cont "VERMILION CITY."
para "We will make an"
line "announcement when"
cont "we arrive."
done
FastShip1FSailor1Text_ToOlivine:
text "FAST SHIP S.S.AQUA"
line "is en route to"
cont "OLIVINE CITY."
para "We will make an"
line "announcement when"
cont "we arrive."
done
FastShip1FSailor2Text_FirstTime:
text "Here's your cabin."
para "If your #MON"
line "are hurt, take a"
cont "nap in the bed."
para "That will heal"
line "them."
done
FastShip1FSailor2Text:
text "Here's your cabin."
para "You can heal your"
line "#MON by taking"
cont "a nap in the bed."
para "The ship will"
line "arrive while"
cont "you're sleeping."
done
FastShip1FSailor3Text:
text "The passengers are"
line "all trainers."
para "They're all itch-"
line "ing to battle in"
cont "their cabins."
done
FastShip1FGrandpaText:
text "Whoa! Excuse me."
line "I was in a hurry!"
para "My granddaughter"
line "is missing!"
para "She's just a wee"
line "girl. If you see"
para "her, please let me"
line "know!"
done
FastShip1FSailor1Text_InOlivine:
text "FAST SHIP S.S.AQUA"
line "has arrived in"
cont "OLIVINE CITY."
done
FastShip1FSailor1Text_InVermilion:
text "FAST SHIP S.S.AQUA"
line "has arrived in"
cont "VERMILION CITY."
done
FastShip1F_MapEvents:
db 0, 0 ; filler
def_warp_events
warp_event 25, 1, FAST_SHIP_1F, -1
warp_event 27, 8, FAST_SHIP_CABINS_NNW_NNE_NE, 1
warp_event 23, 8, FAST_SHIP_CABINS_NNW_NNE_NE, 2
warp_event 19, 8, FAST_SHIP_CABINS_NNW_NNE_NE, 3
warp_event 15, 8, FAST_SHIP_CABINS_SW_SSW_NW, 1
warp_event 15, 15, FAST_SHIP_CABINS_SW_SSW_NW, 2
warp_event 19, 15, FAST_SHIP_CABINS_SW_SSW_NW, 4
warp_event 23, 15, FAST_SHIP_CABINS_SE_SSE_CAPTAINS_CABIN, 1
warp_event 27, 15, FAST_SHIP_CABINS_SE_SSE_CAPTAINS_CABIN, 3
warp_event 3, 13, FAST_SHIP_CABINS_SE_SSE_CAPTAINS_CABIN, 5
warp_event 6, 12, FAST_SHIP_B1F, 1
warp_event 30, 14, FAST_SHIP_B1F, 2
def_coord_events
coord_event 24, 6, SCENE_FASTSHIP1F_MEET_GRANDPA, WorriedGrandpaSceneLeft
coord_event 25, 6, SCENE_FASTSHIP1F_MEET_GRANDPA, WorriedGrandpaSceneRight
def_bg_events
def_object_events
object_event 25, 2, SPRITE_SAILOR, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, FastShip1FSailor1Script, -1
object_event 14, 7, SPRITE_SAILOR, SPRITEMOVEDATA_STANDING_RIGHT, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, FastShip1FSailor2Script, -1
object_event 22, 17, SPRITE_SAILOR, SPRITEMOVEDATA_WALK_LEFT_RIGHT, 2, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, FastShip1FSailor3Script, -1
object_event 19, 6, SPRITE_GENTLEMAN, SPRITEMOVEDATA_STANDING_RIGHT, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, ObjectEvent, EVENT_FAST_SHIP_1F_GENTLEMAN