pokecrystal-board/maps/FastShipB1F.asm
Rangi 8826d97ee4
Define scene constants alongside scene_scripts (#979)
Generic SCENE_DEFAULT and SCENE_FINISHED are legacy values
2022-07-29 17:43:10 -04:00

476 lines
11 KiB
NASM

object_const_def
const FASTSHIPB1F_SAILOR1
const FASTSHIPB1F_SAILOR2
const FASTSHIPB1F_SAILOR3
const FASTSHIPB1F_LASS
const FASTSHIPB1F_SUPER_NERD
const FASTSHIPB1F_SAILOR4
const FASTSHIPB1F_FISHER
const FASTSHIPB1F_BLACK_BELT
const FASTSHIPB1F_SAILOR5
const FASTSHIPB1F_TEACHER
const FASTSHIPB1F_YOUNGSTER1
const FASTSHIPB1F_YOUNGSTER2
FastShipB1F_MapScripts:
def_scene_scripts
scene_script .DummyScene0, SCENE_FASTSHIPB1F_SAILOR_BLOCKS
scene_script .DummyScene1, SCENE_FASTSHIPB1F_NOOP
def_callbacks
.DummyScene0:
end
.DummyScene1:
end
FastShipB1FSailorBlocksLeft:
checkevent EVENT_FAST_SHIP_B1F_SAILOR_RIGHT
iftrue FastShipB1FAlreadyBlocked
applymovement FASTSHIPB1F_SAILOR2, FastShipB1FSailorBlocksLeftMovement
moveobject FASTSHIPB1F_SAILOR1, 30, 6
appear FASTSHIPB1F_SAILOR1
pause 5
disappear FASTSHIPB1F_SAILOR2
end
FastShipB1FSailorBlocksRight:
checkevent EVENT_FAST_SHIP_B1F_SAILOR_LEFT
iftrue FastShipB1FAlreadyBlocked
applymovement FASTSHIPB1F_SAILOR1, FastShipB1FSailorBlocksRightMovement
moveobject FASTSHIPB1F_SAILOR2, 31, 6
appear FASTSHIPB1F_SAILOR2
pause 5
disappear FASTSHIPB1F_SAILOR1
end
FastShipB1FAlreadyBlocked:
end
FastShipB1FSailorScript:
faceplayer
opentext
checkevent EVENT_FAST_SHIP_FIRST_TIME
iftrue .FirstTime
checkevent EVENT_FAST_SHIP_LAZY_SAILOR
iftrue .LazySailor
checkevent EVENT_FAST_SHIP_INFORMED_ABOUT_LAZY_SAILOR
iftrue .AlreadyInformed
writetext FastShipB1FOnDutySailorText
waitbutton
closetext
setevent EVENT_FAST_SHIP_INFORMED_ABOUT_LAZY_SAILOR
clearevent EVENT_FAST_SHIP_CABINS_NNW_NNE_NE_SAILOR
end
.AlreadyInformed:
writetext FastShipB1FOnDutySailorRefusedText
waitbutton
closetext
end
.LazySailor:
writetext FastShipB1FOnDutySailorThanksText
checkevent EVENT_FAST_SHIP_FOUND_GIRL
iffalse .NotFoundGirl
waitbutton
closetext
end
.NotFoundGirl:
promptbutton
writetext FastShipB1FOnDutySailorSawLittleGirlText
waitbutton
closetext
end
.FirstTime:
writetext FastShipB1FOnDutySailorDirectionsText
waitbutton
closetext
end
TrainerSailorJeff:
trainer SAILOR, JEFF, EVENT_BEAT_SAILOR_JEFF, SailorJeffSeenText, SailorJeffBeatenText, 0, .Script
.Script:
endifjustbattled
opentext
writetext SailorJeffAfterBattleText
waitbutton
closetext
end
TrainerPicnickerDebra:
trainer PICNICKER, DEBRA, EVENT_BEAT_PICNICKER_DEBRA, PicnickerDebraSeenText, PicnickerDebraBeatenText, 0, .Script
.Script:
endifjustbattled
opentext
writetext PicnickerDebraAfterBattleText
waitbutton
closetext
end
TrainerJugglerFritz:
trainer JUGGLER, FRITZ, EVENT_BEAT_JUGGLER_FRITZ, JugglerFritzSeenText, JugglerFritzBeatenText, 0, .Script
.Script:
endifjustbattled
opentext
writetext JugglerFritzAfterBattleText
waitbutton
closetext
end
TrainerSailorGarrett:
trainer SAILOR, GARRETT, EVENT_BEAT_SAILOR_GARRETT, SailorGarrettSeenText, SailorGarrettBeatenText, 0, .Script
.Script:
endifjustbattled
opentext
writetext SailorGarrettAfterBattleText
waitbutton
closetext
end
TrainerFisherJonah:
trainer FISHER, JONAH, EVENT_BEAT_FISHER_JONAH, FisherJonahSeenText, FisherJonahBeatenText, 0, .Script
.Script:
endifjustbattled
opentext
writetext FisherJonahAfterBattleText
waitbutton
closetext
end
TrainerBlackbeltWai:
trainer BLACKBELT_T, WAI, EVENT_BEAT_BLACKBELT_WAI, BlackbeltWaiSeenText, BlackbeltWaiBeatenText, 0, .Script
.Script:
endifjustbattled
opentext
writetext BlackbeltWaiAfterBattleText
waitbutton
closetext
end
TrainerSailorKenneth:
trainer SAILOR, KENNETH, EVENT_BEAT_SAILOR_KENNETH, SailorKennethSeenText, SailorKennethBeatenText, 0, .Script
.Script:
endifjustbattled
opentext
writetext SailorKennethAfterBattleText
waitbutton
closetext
end
TrainerTeacherShirley:
trainer TEACHER, SHIRLEY, EVENT_BEAT_TEACHER_SHIRLEY, TeacherShirleySeenText, TeacherShirleyBeatenText, 0, .Script
.Script:
endifjustbattled
opentext
writetext TeacherShirleyAfterBattleText
waitbutton
closetext
end
TrainerSchoolboyNate:
trainer SCHOOLBOY, NATE, EVENT_BEAT_SCHOOLBOY_NATE, SchoolboyNateSeenText, SchoolboyNateBeatenText, 0, .Script
.Script:
endifjustbattled
opentext
writetext SchoolboyNateAfterBattleText
waitbutton
closetext
end
TrainerSchoolboyRicky:
trainer SCHOOLBOY, RICKY, EVENT_BEAT_SCHOOLBOY_RICKY, SchoolboyRickySeenText, SchoolboyRickyBeatenText, 0, .Script
.Script:
endifjustbattled
opentext
writetext SchoolboyRickyAfterBattleText
waitbutton
closetext
end
FastShipB1FTrashcan:
jumpstd TrashCanScript
FastShipB1FSailorBlocksRightMovement:
fix_facing
big_step RIGHT
remove_fixed_facing
turn_head DOWN
step_end
FastShipB1FSailorBlocksLeftMovement:
fix_facing
big_step LEFT
remove_fixed_facing
turn_head DOWN
step_end
FastShipB1FOnDutySailorText:
text "Hey, kid. Could I"
line "get you to look"
cont "for my buddy?"
para "He's goofing off"
line "somewhere, that"
cont "lazy bum!"
para "I want to go find"
line "him, but I'm on"
cont "duty right now."
done
FastShipB1FOnDutySailorRefusedText:
text "Oh, gee…"
para "The CAPTAIN will"
line "be furious…"
done
FastShipB1FOnDutySailorThanksText:
text "Thanks, kid!"
line "I chewed him out"
para "good so he'll quit"
line "slacking off!"
done
FastShipB1FOnDutySailorSawLittleGirlText:
text "A little girl?"
para "I may have seen"
line "her go by here."
done
FastShipB1FOnDutySailorDirectionsText:
text "The dining room is"
line "up ahead."
para "The stairs at the"
line "end lead to the"
cont "CAPTAIN's cabin."
done
SailorJeffSeenText:
text "Nothing beats a"
line "battle when I'm"
cont "on my break."
done
SailorJeffBeatenText:
text "Win or lose, my"
line "break's over!"
done
SailorJeffAfterBattleText:
text "I guess I can't"
line "win if I don't get"
cont "serious."
done
PicnickerDebraSeenText:
text "I'm so bored."
line "Want to battle?"
done
PicnickerDebraBeatenText:
text "Yow! You're too"
line "strong!"
done
PicnickerDebraAfterBattleText:
text "SAFFRON, CELADON…"
line "I hear there are"
para "many big cities"
line "in KANTO."
done
JugglerFritzSeenText:
text "Urrf…"
line "I'm seasick!"
done
JugglerFritzBeatenText:
text "I can't move any-"
line "more…"
done
JugglerFritzAfterBattleText:
text "No more ships for"
line "me. Next time,"
para "I'm taking the"
line "MAGNET TRAIN."
done
SailorGarrettSeenText:
text "This is where we"
line "sailors work!"
done
SailorGarrettBeatenText:
text "I lost on my home"
line "field…"
done
SailorGarrettAfterBattleText:
text "We get different"
line "passengers from"
para "VERMILION CITY to"
line "OLIVINE CITY."
done
FisherJonahSeenText:
text "Even though we're"
line "out on the sea, I"
cont "can't fish!"
para "This is boring!"
line "Let's battle!"
done
FisherJonahBeatenText:
text "I… I'm not bored"
line "anymore…"
done
FisherJonahAfterBattleText:
text "I plan to fish off"
line "VERMILION's pier."
done
BlackbeltWaiSeenText:
text "I'm building up my"
line "legs by bracing"
para "against the ship's"
line "rocking!"
done
BlackbeltWaiBeatenText:
text "Rocked and rolled"
line "over!"
done
BlackbeltWaiAfterBattleText:
text "I couldn't find"
line "the KARATE KING in"
cont "JOHTO."
para "He's supposed to"
line "be training in a"
cont "cave somewhere."
done
SailorKennethSeenText:
text "I'm a sailor man!"
para "But I'm training"
line "#MON, so I can"
cont "become the CHAMP!"
done
SailorKennethBeatenText:
text "My lack of train-"
line "ing is obvious…"
done
SailorKennethAfterBattleText:
text "Eight BADGES!"
line "They must prove"
para "that you've beaten"
line "GYM LEADERS."
para "No wonder you're"
line "so good!"
done
TeacherShirleySeenText:
text "Don't lay a finger"
line "on my students!"
done
TeacherShirleyBeatenText:
text "Aaack!"
done
TeacherShirleyAfterBattleText:
text "We're on a field"
line "trip to the RUINS"
cont "outside VIOLET."
done
SchoolboyNateSeenText:
text "Do you know the"
line "RUINS OF ALPH?"
done
SchoolboyNateBeatenText:
text "Yaargh!"
done
SchoolboyNateAfterBattleText:
text "Radios pick up"
line "strange signals"
cont "inside the RUINS."
done
SchoolboyRickySeenText:
text "There are some odd"
line "stone panels in"
cont "the RUINS OF ALPH."
done
SchoolboyRickyBeatenText:
text "I was done in!"
done
SchoolboyRickyAfterBattleText:
text "I read that there"
line "are four of those"
cont "stone panels."
done
FastShipB1F_MapEvents:
db 0, 0 ; filler
def_warp_events
warp_event 5, 11, FAST_SHIP_1F, 11
warp_event 31, 13, FAST_SHIP_1F, 12
def_coord_events
coord_event 30, 7, SCENE_FASTSHIPB1F_SAILOR_BLOCKS, FastShipB1FSailorBlocksLeft
coord_event 31, 7, SCENE_FASTSHIPB1F_SAILOR_BLOCKS, FastShipB1FSailorBlocksRight
def_bg_events
bg_event 27, 9, BGEVENT_READ, FastShipB1FTrashcan
def_object_events
object_event 30, 6, SPRITE_SAILOR, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, PAL_NPC_BLUE, OBJECTTYPE_SCRIPT, 0, FastShipB1FSailorScript, EVENT_FAST_SHIP_B1F_SAILOR_LEFT
object_event 31, 6, SPRITE_SAILOR, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, PAL_NPC_BLUE, OBJECTTYPE_SCRIPT, 0, FastShipB1FSailorScript, EVENT_FAST_SHIP_B1F_SAILOR_RIGHT
object_event 9, 11, SPRITE_SAILOR, SPRITEMOVEDATA_STANDING_UP, 0, 0, -1, -1, PAL_NPC_BLUE, OBJECTTYPE_TRAINER, 3, TrainerSailorJeff, EVENT_FAST_SHIP_PASSENGERS_FIRST_TRIP
object_event 6, 4, SPRITE_LASS, SPRITEMOVEDATA_STANDING_UP, 0, 0, -1, -1, PAL_NPC_GREEN, OBJECTTYPE_TRAINER, 1, TrainerPicnickerDebra, EVENT_FAST_SHIP_PASSENGERS_FIRST_TRIP
object_event 26, 9, SPRITE_SUPER_NERD, SPRITEMOVEDATA_STANDING_RIGHT, 0, 0, -1, -1, PAL_NPC_BLUE, OBJECTTYPE_TRAINER, 1, TrainerJugglerFritz, EVENT_FAST_SHIP_PASSENGERS_FIRST_TRIP
object_event 17, 4, SPRITE_SAILOR, SPRITEMOVEDATA_STANDING_RIGHT, 0, 0, -1, -1, PAL_NPC_BLUE, OBJECTTYPE_TRAINER, 4, TrainerSailorGarrett, EVENT_FAST_SHIP_PASSENGERS_EASTBOUND
object_event 25, 8, SPRITE_FISHER, SPRITEMOVEDATA_STANDING_UP, 0, 0, -1, -1, PAL_NPC_GREEN, OBJECTTYPE_TRAINER, 3, TrainerFisherJonah, EVENT_FAST_SHIP_PASSENGERS_EASTBOUND
object_event 15, 11, SPRITE_BLACK_BELT, SPRITEMOVEDATA_SPINCLOCKWISE, 0, 0, -1, -1, PAL_NPC_BROWN, OBJECTTYPE_TRAINER, 3, TrainerBlackbeltWai, EVENT_FAST_SHIP_PASSENGERS_EASTBOUND
object_event 23, 4, SPRITE_SAILOR, SPRITEMOVEDATA_STANDING_RIGHT, 0, 0, -1, -1, PAL_NPC_BLUE, OBJECTTYPE_TRAINER, 4, TrainerSailorKenneth, EVENT_FAST_SHIP_PASSENGERS_WESTBOUND
object_event 9, 11, SPRITE_TEACHER, SPRITEMOVEDATA_STANDING_UP, 0, 0, -1, -1, PAL_NPC_RED, OBJECTTYPE_TRAINER, 3, TrainerTeacherShirley, EVENT_FAST_SHIP_PASSENGERS_WESTBOUND
object_event 14, 9, SPRITE_YOUNGSTER, SPRITEMOVEDATA_SPINRANDOM_SLOW, 0, 0, -1, -1, PAL_NPC_BLUE, OBJECTTYPE_TRAINER, 1, TrainerSchoolboyNate, EVENT_FAST_SHIP_PASSENGERS_WESTBOUND
object_event 14, 11, SPRITE_YOUNGSTER, SPRITEMOVEDATA_SPINRANDOM_FAST, 0, 0, -1, -1, PAL_NPC_BLUE, OBJECTTYPE_TRAINER, 1, TrainerSchoolboyRicky, EVENT_FAST_SHIP_PASSENGERS_WESTBOUND