pokecrystal-board/maps/GoldenrodMagnetTrainStation.asm
2020-07-24 09:57:16 -04:00

182 lines
4.2 KiB
NASM

object_const_def
const GOLDENRODMAGNETTRAINSTATION_OFFICER
const GOLDENRODMAGNETTRAINSTATION_GENTLEMAN
GoldenrodMagnetTrainStation_MapScripts:
def_scene_scripts
scene_script .DummyScene ; SCENE_DEFAULT
def_callbacks
.DummyScene:
end
GoldenrodMagnetTrainStationOfficerScript:
faceplayer
opentext
checkevent EVENT_RESTORED_POWER_TO_KANTO
iftrue .MagnetTrainToSaffron
writetext GoldenrodMagnetTrainStationOfficerTheTrainHasntComeInText
waitbutton
closetext
end
.MagnetTrainToSaffron:
writetext GoldenrodMagnetTrainStationOfficerAreYouComingAboardText
yesorno
iffalse .DecidedNotToRide
checkitem PASS
iffalse .PassNotInBag
writetext GoldenrodMagnetTrainStationOfficerRightThisWayText
waitbutton
closetext
applymovement GOLDENRODMAGNETTRAINSTATION_OFFICER, GoldenrodMagnetTrainStationOfficerApproachTrainDoorMovement
applymovement PLAYER, GoldenrodMagnetTrainStationPlayerApproachAndEnterTrainMovement
setval FALSE
special MagnetTrain
warpcheck
newloadmap MAPSETUP_TRAIN
applymovement PLAYER, .MovementBoardTheTrain
wait 20
end
.MovementBoardTheTrain:
turn_head DOWN
step_end
.PassNotInBag:
writetext GoldenrodMagnetTrainStationOfficerYouDontHaveARailPassText
waitbutton
closetext
end
.DecidedNotToRide:
writetext GoldenrodMagnetTrainStationOfficerHopeToSeeYouAgainText
waitbutton
closetext
end
Script_ArriveFromSaffron:
applymovement GOLDENRODMAGNETTRAINSTATION_OFFICER, GoldenrodMagnetTrainStationOfficerApproachTrainDoorMovement
applymovement PLAYER, GoldenrodMagnetTrainStationPlayerLeaveTrainAndEnterStationMovement
applymovement GOLDENRODMAGNETTRAINSTATION_OFFICER, GoldenrodMagnetTrainStationOfficerReturnToBoardingGateMovement
opentext
writetext GoldenrodMagnetTrainStationOfficerArrivedInGoldenrodText
waitbutton
closetext
end
GoldenrodMagnetTrainStationGentlemanScript:
jumptextfaceplayer GoldenrodMagnetTrainStationGentlemanText
GoldenrodMagnetTrainStationOfficerApproachTrainDoorMovement:
step UP
step UP
step RIGHT
turn_head LEFT
step_end
GoldenrodMagnetTrainStationOfficerReturnToBoardingGateMovement:
step LEFT
step DOWN
step DOWN
step_end
GoldenrodMagnetTrainStationPlayerApproachAndEnterTrainMovement:
step UP
step UP
step UP
step LEFT
step LEFT
step LEFT
step UP
step UP
step_end
GoldenrodMagnetTrainStationPlayerLeaveTrainAndEnterStationMovement:
step LEFT
step LEFT
step DOWN
step DOWN
step DOWN
step DOWN
turn_head UP
step_end
GoldenrodMagnetTrainStationOfficerTheTrainHasntComeInText:
text "The train hasn't"
line "come in…"
para "I know! I'll carry"
line "the passengers on"
cont "my back!"
para "That won't work."
done
GoldenrodMagnetTrainStationOfficerAreYouComingAboardText:
text "We'll soon depart"
line "for SAFFRON."
para "Are you coming"
line "aboard?"
done
GoldenrodMagnetTrainStationOfficerRightThisWayText:
text "May I see your"
line "rail PASS, please?"
para "OK. Right this"
line "way, please."
done
GoldenrodMagnetTrainStationOfficerYouDontHaveARailPassText:
text "Sorry. You don't"
line "have a rail PASS."
done
GoldenrodMagnetTrainStationOfficerHopeToSeeYouAgainText:
text "We hope to see you"
line "again!"
done
GoldenrodMagnetTrainStationOfficerArrivedInGoldenrodText:
text "We have arrived in"
line "GOLDENROD."
para "We hope to see you"
line "again."
done
GoldenrodMagnetTrainStationGentlemanText:
text "I'm the PRESIDENT."
para "My dream was to"
line "build a train that"
para "is faster than any"
line "#MON."
para "It really brings"
line "JOHTO much closer"
cont "to KANTO."
done
GoldenrodMagnetTrainStation_MapEvents:
db 0, 0 ; filler
def_warp_events
warp_event 8, 17, GOLDENROD_CITY, 5
warp_event 9, 17, GOLDENROD_CITY, 5
warp_event 6, 5, SAFFRON_MAGNET_TRAIN_STATION, 4
warp_event 11, 5, SAFFRON_MAGNET_TRAIN_STATION, 3
def_coord_events
coord_event 11, 6, SCENE_DEFAULT, Script_ArriveFromSaffron
def_bg_events
def_object_events
object_event 9, 9, SPRITE_OFFICER, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, GoldenrodMagnetTrainStationOfficerScript, -1
object_event 11, 14, SPRITE_GENTLEMAN, SPRITEMOVEDATA_WANDER, 2, 2, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, GoldenrodMagnetTrainStationGentlemanScript, EVENT_GOLDENROD_TRAIN_STATION_GENTLEMAN