pokecrystal-board/maps/VermilionPort.asm

316 lines
6.6 KiB
NASM

const_def 2 ; object constants
const VERMILIONPORT_SAILOR1
const VERMILIONPORT_SAILOR2
const VERMILIONPORT_SUPER_NERD
VermilionPort_MapScripts:
db 2 ; scene scripts
scene_script .DummyScene0 ; SCENE_DEFAULT
scene_script .LeaveFastShip ; SCENE_VERMILIONPORT_LEAVE_SHIP
db 1 ; callbacks
callback MAPCALLBACK_NEWMAP, .FlyPoint
.DummyScene0:
end
.LeaveFastShip:
prioritysjump .LeaveFastShipScript
end
.FlyPoint:
setflag ENGINE_FLYPOINT_VERMILION
return
.LeaveFastShipScript:
applymovement PLAYER, MovementData_0x74ef3
appear VERMILIONPORT_SAILOR1
setscene SCENE_DEFAULT
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 UnknownText_0x74f06
waitbutton
closetext
turnobject VERMILIONPORT_SAILOR1, DOWN
pause 10
playsound SFX_EXIT_BUILDING
disappear VERMILIONPORT_SAILOR1
waitsfx
applymovement PLAYER, MovementData_0x74ef1
playsound SFX_EXIT_BUILDING
special FadeOutPalettes
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 UnknownText_0x74f31
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 UnknownText_0x74f4d
yesorno
iffalse VermilionPortNotRidingMoveAwayScript
writetext UnknownText_0x74f8b
buttonsound
checkitem S_S_TICKET
iffalse .NoTicket
writetext VermilionPortSSTicketText
waitbutton
closetext
setevent EVENT_TEMPORARY_UNTIL_MAP_RELOAD_2
applymovement PLAYER, MovementData_0x74ef8
sjump VermilionPortSailorAtGangwayScript
.NoTicket:
writetext UnknownText_0x74ff2
waitbutton
closetext
applymovement PLAYER, MovementData_0x74ef5
end
.NextShipWednesday:
writetext UnknownText_0x75059
waitbutton
closetext
applymovement PLAYER, MovementData_0x74ef5
end
.NextShipSunday:
writetext UnknownText_0x75080
waitbutton
closetext
applymovement PLAYER, MovementData_0x74ef5
end
.skip:
end
VermilionPortNotRidingScript:
writetext UnknownText_0x74fa7
waitbutton
closetext
end
VermilionPortNotRidingMoveAwayScript:
writetext UnknownText_0x74fa7
waitbutton
closetext
applymovement PLAYER, MovementData_0x74ef5
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 UnknownText_0x74f4d
yesorno
iffalse VermilionPortNotRidingScript
writetext UnknownText_0x74f8b
buttonsound
checkitem S_S_TICKET
iffalse .NoTicket
writetext VermilionPortSSTicketText
waitbutton
closetext
setevent EVENT_TEMPORARY_UNTIL_MAP_RELOAD_2
applymovement PLAYER, MovementData_0x74efe
sjump VermilionPortSailorAtGangwayScript
.NoTicket:
writetext UnknownText_0x74ff2
waitbutton
closetext
end
.NextShipWednesday:
writetext UnknownText_0x75059
waitbutton
closetext
end
.NextShipSunday:
writetext UnknownText_0x75080
waitbutton
closetext
end
VermilionPortSuperNerdScript:
faceplayer
opentext
writetext UnknownText_0x750a6
waitbutton
closetext
end
VermilionPortHiddenIron:
hiddenitem IRON, EVENT_VERMILION_PORT_HIDDEN_IRON
MovementData_0x74ef1:
step DOWN
step_end
MovementData_0x74ef3:
step UP
step_end
MovementData_0x74ef5:
step RIGHT
turn_head LEFT
step_end
MovementData_0x74ef8:
step DOWN
step DOWN
step DOWN
step DOWN
step DOWN
step_end
MovementData_0x74efe:
step RIGHT
step DOWN
step DOWN
step DOWN
step DOWN
step DOWN
step DOWN
step_end
UnknownText_0x74f06:
text "We're departing"
line "soon. Please get"
cont "on board."
done
UnknownText_0x74f31:
text "Sorry. You can't"
line "board now."
done
UnknownText_0x74f4d:
text "Welcome to FAST"
line "SHIP S.S.AQUA."
para "Will you be board-"
line "ing today?"
done
UnknownText_0x74f8b:
text "May I see your"
line "S.S.TICKET?"
done
UnknownText_0x74fa7:
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
UnknownText_0x74ff2:
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
UnknownText_0x75059:
text "The FAST SHIP will"
line "sail on Wednesday."
done
UnknownText_0x75080:
text "The FAST SHIP will"
line "sail next Sunday."
done
UnknownText_0x750a6:
text "You came from"
line "JOHTO?"
para "I hear many rare"
line "#MON live over"
cont "there."
done
VermilionPort_MapEvents:
db 0, 0 ; filler
db 2 ; warp events
warp_event 9, 5, VERMILION_PORT_PASSAGE, 5
warp_event 7, 17, FAST_SHIP_1F, 1
db 1 ; coord events
coord_event 7, 11, SCENE_DEFAULT, VermilionPortWalkUpToShipScript
db 1 ; bg events
bg_event 16, 13, BGEVENT_ITEM, VermilionPortHiddenIron
db 3 ; 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