mirror of https://github.com/pret/pokecrystal.git
316 lines
7.1 KiB
NASM
316 lines
7.1 KiB
NASM
object_const_def
|
|
const VERMILIONPORT_SAILOR1
|
|
const VERMILIONPORT_SAILOR2
|
|
const VERMILIONPORT_SUPER_NERD
|
|
|
|
VermilionPort_MapScripts:
|
|
def_scene_scripts
|
|
scene_script VermilionPortNoopScene, SCENE_VERMILIONPORT_ASK_ENTER_SHIP
|
|
scene_script VermilionPortLeaveShipScene, SCENE_VERMILIONPORT_LEAVE_SHIP
|
|
|
|
def_callbacks
|
|
callback MAPCALLBACK_NEWMAP, VermilionPortFlypointCallback
|
|
|
|
VermilionPortNoopScene:
|
|
end
|
|
|
|
VermilionPortLeaveShipScene:
|
|
sdefer VermilionPortLeaveShipScript
|
|
end
|
|
|
|
VermilionPortFlypointCallback:
|
|
setflag ENGINE_FLYPOINT_VERMILION
|
|
endcallback
|
|
|
|
VermilionPortLeaveShipScript:
|
|
applymovement PLAYER, VermilionPortLeaveFastShipMovement
|
|
appear VERMILIONPORT_SAILOR1
|
|
setscene SCENE_VERMILIONPORT_ASK_ENTER_SHIP
|
|
setevent EVENT_FAST_SHIP_CABINS_SE_SSE_CAPTAINS_CABIN_TWIN_1
|
|
setevent EVENT_FAST_SHIP_CABINS_SE_SSE_GENTLEMAN
|
|
setevent EVENT_FAST_SHIP_PASSENGERS_FIRST_TRIP
|
|
clearevent EVENT_OLIVINE_PORT_PASSAGE_POKEFAN_M
|
|
setevent EVENT_FAST_SHIP_FIRST_TIME
|
|
setevent EVENT_TEMPORARY_UNTIL_MAP_RELOAD_1
|
|
blackoutmod VERMILION_CITY
|
|
end
|
|
|
|
VermilionPortSailorAtGangwayScript:
|
|
faceplayer
|
|
opentext
|
|
checkevent EVENT_TEMPORARY_UNTIL_MAP_RELOAD_1
|
|
iftrue VermilionPortAlreadyRodeScript
|
|
writetext VermilionPortDepartingText
|
|
waitbutton
|
|
closetext
|
|
turnobject VERMILIONPORT_SAILOR1, DOWN
|
|
pause 10
|
|
playsound SFX_EXIT_BUILDING
|
|
disappear VERMILIONPORT_SAILOR1
|
|
waitsfx
|
|
applymovement PLAYER, VermilionPortEnterFastShipMovement
|
|
playsound SFX_EXIT_BUILDING
|
|
special FadeOutToWhite
|
|
waitsfx
|
|
setevent EVENT_FAST_SHIP_PASSENGERS_EASTBOUND
|
|
clearevent EVENT_FAST_SHIP_PASSENGERS_WESTBOUND
|
|
clearevent EVENT_BEAT_POKEMANIAC_ETHAN
|
|
clearevent EVENT_BEAT_BURGLAR_COREY
|
|
clearevent EVENT_BEAT_BUG_CATCHER_KEN
|
|
clearevent EVENT_BEAT_GUITARIST_CLYDE
|
|
clearevent EVENT_BEAT_POKEFANM_JEREMY
|
|
clearevent EVENT_BEAT_POKEFANF_GEORGIA
|
|
clearevent EVENT_BEAT_SAILOR_KENNETH
|
|
clearevent EVENT_BEAT_TEACHER_SHIRLEY
|
|
clearevent EVENT_BEAT_SCHOOLBOY_NATE
|
|
clearevent EVENT_BEAT_SCHOOLBOY_RICKY
|
|
setevent EVENT_FAST_SHIP_DESTINATION_OLIVINE
|
|
appear VERMILIONPORT_SAILOR1
|
|
setmapscene FAST_SHIP_1F, SCENE_FASTSHIP1F_ENTER_SHIP
|
|
warp FAST_SHIP_1F, 25, 1
|
|
end
|
|
|
|
VermilionPortAlreadyRodeScript:
|
|
writetext VermilionPortCantBoardText
|
|
waitbutton
|
|
closetext
|
|
end
|
|
|
|
VermilionPortWalkUpToShipScript:
|
|
turnobject VERMILIONPORT_SAILOR2, RIGHT
|
|
checkevent EVENT_TEMPORARY_UNTIL_MAP_RELOAD_1
|
|
iftrue .skip
|
|
checkevent EVENT_TEMPORARY_UNTIL_MAP_RELOAD_2
|
|
iftrue .skip
|
|
turnobject PLAYER, LEFT
|
|
opentext
|
|
readvar VAR_WEEKDAY
|
|
ifequal MONDAY, .NextShipWednesday
|
|
ifequal TUESDAY, .NextShipWednesday
|
|
ifequal THURSDAY, .NextShipSunday
|
|
ifequal FRIDAY, .NextShipSunday
|
|
ifequal SATURDAY, .NextShipSunday
|
|
writetext VermilionPortAskBoardingText
|
|
yesorno
|
|
iffalse VermilionPortNotRidingMoveAwayScript
|
|
writetext VermilionPortAskTicketText
|
|
promptbutton
|
|
checkitem S_S_TICKET
|
|
iffalse .NoTicket
|
|
writetext VermilionPortSSTicketText
|
|
waitbutton
|
|
closetext
|
|
setevent EVENT_TEMPORARY_UNTIL_MAP_RELOAD_2
|
|
applymovement PLAYER, VermilionPortApproachFastShipMovement
|
|
sjump VermilionPortSailorAtGangwayScript
|
|
|
|
.NoTicket:
|
|
writetext VermilionPortNoTicketText
|
|
waitbutton
|
|
closetext
|
|
applymovement PLAYER, VermilionPortCannotEnterFastShipMovement
|
|
end
|
|
|
|
.NextShipWednesday:
|
|
writetext VermilionPortSailMondayText
|
|
waitbutton
|
|
closetext
|
|
applymovement PLAYER, VermilionPortCannotEnterFastShipMovement
|
|
end
|
|
|
|
.NextShipSunday:
|
|
writetext VermilionPortSailSundayText
|
|
waitbutton
|
|
closetext
|
|
applymovement PLAYER, VermilionPortCannotEnterFastShipMovement
|
|
end
|
|
|
|
.skip:
|
|
end
|
|
|
|
VermilionPortNotRidingScript:
|
|
writetext VermilionPortComeAgainText
|
|
waitbutton
|
|
closetext
|
|
end
|
|
|
|
VermilionPortNotRidingMoveAwayScript:
|
|
writetext VermilionPortComeAgainText
|
|
waitbutton
|
|
closetext
|
|
applymovement PLAYER, VermilionPortCannotEnterFastShipMovement
|
|
end
|
|
|
|
VermilionPortSailorScript:
|
|
faceplayer
|
|
opentext
|
|
checkevent EVENT_TEMPORARY_UNTIL_MAP_RELOAD_1
|
|
iftrue VermilionPortAlreadyRodeScript
|
|
readvar VAR_WEEKDAY
|
|
ifequal MONDAY, .NextShipWednesday
|
|
ifequal TUESDAY, .NextShipWednesday
|
|
ifequal THURSDAY, .NextShipSunday
|
|
ifequal FRIDAY, .NextShipSunday
|
|
ifequal SATURDAY, .NextShipSunday
|
|
writetext VermilionPortAskBoardingText
|
|
yesorno
|
|
iffalse VermilionPortNotRidingScript
|
|
writetext VermilionPortAskTicketText
|
|
promptbutton
|
|
checkitem S_S_TICKET
|
|
iffalse .NoTicket
|
|
writetext VermilionPortSSTicketText
|
|
waitbutton
|
|
closetext
|
|
setevent EVENT_TEMPORARY_UNTIL_MAP_RELOAD_2
|
|
applymovement PLAYER, VermilionPortApproachFastShipRightMovement
|
|
sjump VermilionPortSailorAtGangwayScript
|
|
|
|
.NoTicket:
|
|
writetext VermilionPortNoTicketText
|
|
waitbutton
|
|
closetext
|
|
end
|
|
|
|
.NextShipWednesday:
|
|
writetext VermilionPortSailMondayText
|
|
waitbutton
|
|
closetext
|
|
end
|
|
|
|
.NextShipSunday:
|
|
writetext VermilionPortSailSundayText
|
|
waitbutton
|
|
closetext
|
|
end
|
|
|
|
VermilionPortSuperNerdScript:
|
|
faceplayer
|
|
opentext
|
|
writetext VermilionPortSuperNerdText
|
|
waitbutton
|
|
closetext
|
|
end
|
|
|
|
VermilionPortHiddenIron:
|
|
hiddenitem IRON, EVENT_VERMILION_PORT_HIDDEN_IRON
|
|
|
|
VermilionPortEnterFastShipMovement:
|
|
step DOWN
|
|
step_end
|
|
|
|
VermilionPortLeaveFastShipMovement:
|
|
step UP
|
|
step_end
|
|
|
|
VermilionPortCannotEnterFastShipMovement:
|
|
step RIGHT
|
|
turn_head LEFT
|
|
step_end
|
|
|
|
VermilionPortApproachFastShipMovement:
|
|
step DOWN
|
|
step DOWN
|
|
step DOWN
|
|
step DOWN
|
|
step DOWN
|
|
step_end
|
|
|
|
VermilionPortApproachFastShipRightMovement:
|
|
step RIGHT
|
|
step DOWN
|
|
step DOWN
|
|
step DOWN
|
|
step DOWN
|
|
step DOWN
|
|
step DOWN
|
|
step_end
|
|
|
|
VermilionPortDepartingText:
|
|
text "We're departing"
|
|
line "soon. Please get"
|
|
cont "on board."
|
|
done
|
|
|
|
VermilionPortCantBoardText:
|
|
text "Sorry. You can't"
|
|
line "board now."
|
|
done
|
|
|
|
VermilionPortAskBoardingText:
|
|
text "Welcome to FAST"
|
|
line "SHIP S.S.AQUA."
|
|
|
|
para "Will you be board-"
|
|
line "ing today?"
|
|
done
|
|
|
|
VermilionPortAskTicketText:
|
|
text "May I see your"
|
|
line "S.S.TICKET?"
|
|
done
|
|
|
|
VermilionPortComeAgainText:
|
|
text "We hope to see you"
|
|
line "again!"
|
|
done
|
|
|
|
VermilionPortSSTicketText:
|
|
text "<PLAYER> flashed"
|
|
line "the S.S.TICKET."
|
|
|
|
para "That's it."
|
|
line "Thank you!"
|
|
done
|
|
|
|
VermilionPortNoTicketText:
|
|
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
|
|
|
|
VermilionPortSailMondayText:
|
|
text "The FAST SHIP will"
|
|
line "sail on Wednesday."
|
|
done
|
|
|
|
VermilionPortSailSundayText:
|
|
text "The FAST SHIP will"
|
|
line "sail next Sunday."
|
|
done
|
|
|
|
VermilionPortSuperNerdText:
|
|
text "You came from"
|
|
line "JOHTO?"
|
|
|
|
para "I hear many rare"
|
|
line "#MON live over"
|
|
cont "there."
|
|
done
|
|
|
|
VermilionPort_MapEvents:
|
|
db 0, 0 ; filler
|
|
|
|
def_warp_events
|
|
warp_event 9, 5, VERMILION_PORT_PASSAGE, 5
|
|
warp_event 7, 17, FAST_SHIP_1F, 1
|
|
|
|
def_coord_events
|
|
coord_event 7, 11, SCENE_VERMILIONPORT_ASK_ENTER_SHIP, VermilionPortWalkUpToShipScript
|
|
|
|
def_bg_events
|
|
bg_event 16, 13, BGEVENT_ITEM, VermilionPortHiddenIron
|
|
|
|
def_object_events
|
|
object_event 7, 17, SPRITE_SAILOR, SPRITEMOVEDATA_STANDING_UP, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, VermilionPortSailorAtGangwayScript, EVENT_VERMILION_PORT_SAILOR_AT_GANGWAY
|
|
object_event 6, 11, SPRITE_SAILOR, SPRITEMOVEDATA_STANDING_RIGHT, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, VermilionPortSailorScript, -1
|
|
object_event 11, 11, SPRITE_SUPER_NERD, SPRITEMOVEDATA_WALK_LEFT_RIGHT, 2, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, VermilionPortSuperNerdScript, -1
|