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

406 lines
9.1 KiB
NASM

object_const_def
const OLIVINEPORT_SAILOR1
const OLIVINEPORT_SAILOR2
const OLIVINEPORT_SAILOR3
const OLIVINEPORT_FISHING_GURU1
const OLIVINEPORT_FISHING_GURU2
const OLIVINEPORT_YOUNGSTER
const OLIVINEPORT_COOLTRAINER_F
OlivinePort_MapScripts:
def_scene_scripts
scene_script .DummyScene0 ; SCENE_DEFAULT
scene_script .LeaveFastShip ; SCENE_OLIVINEPORT_LEAVE_SHIP
def_callbacks
.DummyScene0:
end
.LeaveFastShip:
sdefer .LeaveFastShipScript
end
.LeaveFastShipScript:
applymovement PLAYER, OlivinePortLeaveFastShipMovement
appear OLIVINEPORT_SAILOR1
setscene SCENE_DEFAULT
setevent EVENT_TEMPORARY_UNTIL_MAP_RELOAD_1
blackoutmod OLIVINE_CITY
end
OlivinePortSailorAtGangwayScript:
faceplayer
opentext
checkevent EVENT_TEMPORARY_UNTIL_MAP_RELOAD_1
iftrue OlivinePortAlreadyRodeScript
writetext OlivinePortSailorGetOnBoardText
waitbutton
closetext
turnobject OLIVINEPORT_SAILOR1, DOWN
pause 10
playsound SFX_EXIT_BUILDING
disappear OLIVINEPORT_SAILOR1
waitsfx
applymovement PLAYER, OlivinePortEnterFastShipMovement
playsound SFX_EXIT_BUILDING
special FadeOutPalettes
waitsfx
checkevent EVENT_FAST_SHIP_FIRST_TIME
iffalse .FirstTime
clearevent EVENT_FAST_SHIP_PASSENGERS_EASTBOUND
setevent EVENT_FAST_SHIP_PASSENGERS_WESTBOUND
clearevent EVENT_BEAT_COOLTRAINERM_SEAN
clearevent EVENT_BEAT_COOLTRAINERF_CAROL
clearevent EVENT_BEAT_GENTLEMAN_EDWARD
clearevent EVENT_BEAT_BEAUTY_CASSIE
clearevent EVENT_BEAT_PSYCHIC_RODNEY
clearevent EVENT_BEAT_SUPER_NERD_SHAWN
clearevent EVENT_BEAT_SAILOR_GARRETT
clearevent EVENT_BEAT_FISHER_JONAH
clearevent EVENT_BEAT_BLACKBELT_WAI
.FirstTime:
clearevent EVENT_FAST_SHIP_DESTINATION_OLIVINE
appear OLIVINEPORT_SAILOR1
setmapscene FAST_SHIP_1F, SCENE_FASTSHIP1F_ENTER_SHIP
warp FAST_SHIP_1F, 25, 1
end
OlivinePortAlreadyRodeScript:
writetext OlivinePortCantBoardText
waitbutton
closetext
end
OlivinePortWalkUpToShipScript:
turnobject OLIVINEPORT_SAILOR3, RIGHT
checkevent EVENT_TEMPORARY_UNTIL_MAP_RELOAD_1
iftrue .skip
checkevent EVENT_TEMPORARY_UNTIL_MAP_RELOAD_2
iftrue .skip
turnobject PLAYER, LEFT
opentext
checkevent EVENT_FAST_SHIP_FIRST_TIME
iffalse .FirstTime
readvar VAR_WEEKDAY
ifequal SUNDAY, .NextShipMonday
ifequal SATURDAY, .NextShipMonday
ifequal TUESDAY, .NextShipFriday
ifequal WEDNESDAY, .NextShipFriday
ifequal THURSDAY, .NextShipFriday
.FirstTime:
writetext OlivinePortAskBoardText
yesorno
iffalse OlivinePortNotRidingMoveAwayScript
writetext OlivinePortAskTicketText
promptbutton
checkitem S_S_TICKET
iffalse .NoTicket
writetext OlivinePortFlashTicketText
waitbutton
closetext
setevent EVENT_TEMPORARY_UNTIL_MAP_RELOAD_2
applymovement PLAYER, OlivinePortApproachFastShipFirstTimeMovement
sjump OlivinePortSailorAtGangwayScript
.NoTicket:
writetext OlivinePortNoTicketText
waitbutton
closetext
applymovement PLAYER, OlivinePortCannotEnterFastShipMovement
end
.NextShipMonday:
writetext OlivinePortMondayShipText
waitbutton
closetext
applymovement PLAYER, OlivinePortCannotEnterFastShipMovement
end
.NextShipFriday:
writetext OlivinePortFridayShipText
waitbutton
closetext
applymovement PLAYER, OlivinePortCannotEnterFastShipMovement
end
.skip:
end
OlivinePortNotRidingScript:
writetext OlivinePortComeAgainText
waitbutton
closetext
end
OlivinePortNotRidingMoveAwayScript:
writetext OlivinePortComeAgainText
waitbutton
closetext
applymovement PLAYER, OlivinePortCannotEnterFastShipMovement
end
OlivinePortSailorAfterHOFScript:
faceplayer
opentext
checkevent EVENT_TEMPORARY_UNTIL_MAP_RELOAD_1
iftrue OlivinePortAlreadyRodeScript
checkevent EVENT_FAST_SHIP_FIRST_TIME
iffalse .FirstTime
readvar VAR_WEEKDAY
ifequal SUNDAY, .NextShipMonday
ifequal SATURDAY, .NextShipMonday
ifequal TUESDAY, .NextShipFriday
ifequal WEDNESDAY, .NextShipFriday
ifequal THURSDAY, .NextShipFriday
.FirstTime:
writetext OlivinePortAskBoardText
yesorno
iffalse OlivinePortNotRidingScript
writetext OlivinePortAskTicketText
promptbutton
checkitem S_S_TICKET
iffalse .NoTicket
writetext OlivinePortFlashTicketText
waitbutton
closetext
setevent EVENT_TEMPORARY_UNTIL_MAP_RELOAD_2
readvar VAR_FACING
ifequal RIGHT, .Right
applymovement PLAYER, OlivinePortApproachFastShipAfterHOFMovement
sjump OlivinePortSailorAtGangwayScript
.Right:
applymovement PLAYER, OlivinePortApproachFastShipAfterHOFRightMovement
sjump OlivinePortSailorAtGangwayScript
.NoTicket:
writetext OlivinePortNoTicketText
waitbutton
closetext
end
.NextShipMonday:
writetext OlivinePortMondayShipText
waitbutton
closetext
end
.NextShipFriday:
writetext OlivinePortFridayShipText
waitbutton
closetext
end
OlivinePortSailorBeforeHOFScript:
jumptextfaceplayer OlivinePortSailorBeforeHOFText
OlivinePortFishingGuru1Script:
faceplayer
opentext
writetext OlivinePortFishingGuru1Text
waitbutton
closetext
turnobject OLIVINEPORT_FISHING_GURU1, UP
end
OlivinePortFishingGuru2Script:
faceplayer
opentext
writetext OlivinePortFishingGuru2Text
waitbutton
closetext
turnobject OLIVINEPORT_FISHING_GURU2, UP
end
OlivinePortYoungsterScript:
faceplayer
opentext
writetext OlivinePortYoungsterText
waitbutton
closetext
turnobject OLIVINEPORT_YOUNGSTER, DOWN
end
OlivinePortCooltrainerFScript:
faceplayer
opentext
writetext OlivinePortCooltrainerFText
waitbutton
closetext
turnobject OLIVINEPORT_COOLTRAINER_F, DOWN
end
OlivinePortHiddenProtein:
hiddenitem PROTEIN, EVENT_OLIVINE_PORT_HIDDEN_PROTEIN
OlivinePortEnterFastShipMovement:
step DOWN
step_end
OlivinePortLeaveFastShipMovement:
step UP
step_end
OlivinePortCannotEnterFastShipMovement:
step RIGHT
turn_head LEFT
step_end
OlivinePortApproachFastShipFirstTimeMovement:
step DOWN
step DOWN
step DOWN
step DOWN
step DOWN
step DOWN
step DOWN
step_end
OlivinePortApproachFastShipAfterHOFMovement:
step RIGHT
step DOWN
step DOWN
step DOWN
step DOWN
step DOWN
step DOWN
step DOWN
step DOWN
step_end
OlivinePortApproachFastShipAfterHOFRightMovement:
step UP
step RIGHT
step RIGHT
step DOWN
step DOWN
step DOWN
step DOWN
step DOWN
step DOWN
step DOWN
step DOWN
step_end
OlivinePortSailorGetOnBoardText:
text "We're departing"
line "soon. Please get"
cont "on board."
done
OlivinePortCantBoardText:
text "Sorry. You can't"
line "board now."
done
OlivinePortAskBoardText:
text "Welcome to FAST"
line "SHIP S.S.AQUA."
para "Will you be board-"
line "ing today?"
done
OlivinePortAskTicketText:
text "May I see your"
line "S.S.TICKET?"
done
OlivinePortComeAgainText:
text "We hope to see you"
line "again!"
done
OlivinePortFlashTicketText:
text "<PLAYER> flashed"
line "the S.S.TICKET."
para "That's it."
line "Thank you!"
done
OlivinePortNoTicketText:
text "<PLAYER> tried to"
line "show the S.S."
cont "TICKET…"
para "…But no TICKET!"
para "Sorry!"
line "You may board only"
para "if you have an"
line "S.S.TICKET."
done
OlivinePortMondayShipText:
text "The FAST SHIP will"
line "sail next Monday."
done
OlivinePortFridayShipText:
text "The FAST SHIP will"
line "sail next Friday."
done
OlivinePortFishingGuru1Text:
text "SHELLDER are easy"
line "to catch here."
para "They're kind of"
line "rare elsewhere."
done
OlivinePortFishingGuru2Text:
text "How many RODS do"
line "you have?"
para "Different RODS"
line "catch different"
cont "#MON."
done
OlivinePortYoungsterText:
text "S.S.AQUA uses jets"
line "to skim over the"
cont "waves!"
done
OlivinePortCooltrainerFText:
text "There are lots of"
line "#MON in KANTO."
para "I wish I could go…"
done
OlivinePortSailorBeforeHOFText:
text "We don't want you"
line "to fall into the"
para "sea, so you're not"
line "allowed in."
done
OlivinePort_MapEvents:
db 0, 0 ; filler
def_warp_events
warp_event 11, 7, OLIVINE_PORT_PASSAGE, 5
warp_event 7, 23, FAST_SHIP_1F, 1
def_coord_events
coord_event 7, 15, SCENE_DEFAULT, OlivinePortWalkUpToShipScript
def_bg_events
bg_event 1, 22, BGEVENT_ITEM, OlivinePortHiddenProtein
def_object_events
object_event 7, 23, SPRITE_SAILOR, SPRITEMOVEDATA_STANDING_UP, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, OlivinePortSailorAtGangwayScript, EVENT_OLIVINE_PORT_SAILOR_AT_GANGWAY
object_event 7, 15, SPRITE_SAILOR, SPRITEMOVEDATA_STANDING_UP, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, OlivinePortSailorBeforeHOFScript, EVENT_OLIVINE_PORT_SPRITES_BEFORE_HALL_OF_FAME
object_event 6, 15, SPRITE_SAILOR, SPRITEMOVEDATA_STANDING_RIGHT, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, OlivinePortSailorAfterHOFScript, EVENT_OLIVINE_PORT_SPRITES_AFTER_HALL_OF_FAME
object_event 4, 14, SPRITE_FISHING_GURU, SPRITEMOVEDATA_STANDING_UP, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, OlivinePortFishingGuru1Script, EVENT_OLIVINE_PORT_SPRITES_BEFORE_HALL_OF_FAME
object_event 13, 14, SPRITE_FISHING_GURU, SPRITEMOVEDATA_STANDING_UP, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, OlivinePortFishingGuru2Script, EVENT_OLIVINE_PORT_SPRITES_BEFORE_HALL_OF_FAME
object_event 4, 15, SPRITE_YOUNGSTER, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, OlivinePortYoungsterScript, EVENT_OLIVINE_PORT_SPRITES_AFTER_HALL_OF_FAME
object_event 11, 15, SPRITE_COOLTRAINER_F, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, OlivinePortCooltrainerFScript, EVENT_OLIVINE_PORT_SPRITES_AFTER_HALL_OF_FAME