mirror of https://github.com/pret/pokecrystal.git
410 lines
7.5 KiB
NASM
410 lines
7.5 KiB
NASM
const_def 2 ; object constants
|
|
const PLAYERSHOUSE1F_MOM1
|
|
const PLAYERSHOUSE1F_MOM2
|
|
const PLAYERSHOUSE1F_MOM3
|
|
const PLAYERSHOUSE1F_MOM4
|
|
const PLAYERSHOUSE1F_POKEFAN_F
|
|
|
|
PlayersHouse1F_MapScripts:
|
|
db 2 ; scene scripts
|
|
scene_script .DummyScene0 ; SCENE_DEFAULT
|
|
scene_script .DummyScene1 ; SCENE_FINISHED
|
|
|
|
db 0 ; callbacks
|
|
|
|
.DummyScene0:
|
|
end
|
|
|
|
.DummyScene1:
|
|
end
|
|
|
|
MeetMomLeftScript:
|
|
setevent EVENT_TEMPORARY_UNTIL_MAP_RELOAD_1
|
|
|
|
MeetMomRightScript:
|
|
playmusic MUSIC_MOM
|
|
showemote EMOTE_SHOCK, PLAYERSHOUSE1F_MOM1, 15
|
|
turnobject PLAYER, LEFT
|
|
checkevent EVENT_TEMPORARY_UNTIL_MAP_RELOAD_1
|
|
iffalse .OnRight
|
|
applymovement PLAYERSHOUSE1F_MOM1, MomTurnsTowardPlayerMovement
|
|
jump MeetMomScript
|
|
|
|
.OnRight:
|
|
applymovement PLAYERSHOUSE1F_MOM1, MomWalksToPlayerMovement
|
|
MeetMomScript:
|
|
opentext
|
|
writetext ElmsLookingForYouText
|
|
buttonsound
|
|
stringtotext GearName, MEM_BUFFER_1
|
|
scall PlayersHouse1FReceiveItemStd
|
|
setflag ENGINE_POKEGEAR
|
|
setflag ENGINE_PHONE_CARD
|
|
addcellnum PHONE_MOM
|
|
setscene SCENE_FINISHED
|
|
setevent EVENT_PLAYERS_HOUSE_MOM_1
|
|
clearevent EVENT_PLAYERS_HOUSE_MOM_2
|
|
writetext MomGivesPokegearText
|
|
buttonsound
|
|
special SetDayOfWeek
|
|
.SetDayOfWeek:
|
|
writetext IsItDSTText
|
|
yesorno
|
|
iffalse .WrongDay
|
|
special InitialSetDSTFlag
|
|
yesorno
|
|
iffalse .SetDayOfWeek
|
|
jump .DayOfWeekDone
|
|
|
|
.WrongDay:
|
|
special InitialClearDSTFlag
|
|
yesorno
|
|
iffalse .SetDayOfWeek
|
|
.DayOfWeekDone:
|
|
writetext ComeHomeForDSTText
|
|
yesorno
|
|
iffalse .ExplainPhone
|
|
jump .KnowPhone
|
|
|
|
.KnowPhone:
|
|
writetext KnowTheInstructionsText
|
|
buttonsound
|
|
jump .FinishPhone
|
|
|
|
.ExplainPhone:
|
|
writetext DontKnowTheInstructionsText
|
|
buttonsound
|
|
jump .FinishPhone
|
|
|
|
.FinishPhone:
|
|
writetext InstructionsNextText
|
|
waitbutton
|
|
closetext
|
|
checkevent EVENT_TEMPORARY_UNTIL_MAP_RELOAD_1
|
|
iftrue .FromRight
|
|
checkevent EVENT_TEMPORARY_UNTIL_MAP_RELOAD_2
|
|
iffalse .FromLeft
|
|
jump .Finish
|
|
|
|
.FromRight:
|
|
applymovement PLAYERSHOUSE1F_MOM1, MomTurnsBackMovement
|
|
jump .Finish
|
|
|
|
.FromLeft:
|
|
applymovement PLAYERSHOUSE1F_MOM1, MomWalksBackMovement
|
|
jump .Finish
|
|
|
|
.Finish:
|
|
special RestartMapMusic
|
|
turnobject PLAYERSHOUSE1F_MOM1, LEFT
|
|
end
|
|
|
|
MeetMomTalkedScript:
|
|
playmusic MUSIC_MOM
|
|
jump MeetMomScript
|
|
|
|
GearName:
|
|
db "#GEAR@"
|
|
|
|
PlayersHouse1FReceiveItemStd:
|
|
jumpstd receiveitem
|
|
end
|
|
|
|
MomScript:
|
|
faceplayer
|
|
setevent EVENT_TEMPORARY_UNTIL_MAP_RELOAD_2
|
|
checkscene
|
|
iffalse MeetMomTalkedScript ; SCENE_DEFAULT
|
|
opentext
|
|
checkevent EVENT_FIRST_TIME_BANKING_WITH_MOM
|
|
iftrue .FirstTimeBanking
|
|
checkevent EVENT_TALKED_TO_MOM_AFTER_MYSTERY_EGG_QUEST
|
|
iftrue .BankOfMom
|
|
checkevent EVENT_GAVE_MYSTERY_EGG_TO_ELM
|
|
iftrue .GaveMysteryEgg
|
|
checkevent EVENT_GOT_A_POKEMON_FROM_ELM
|
|
iftrue .GotAPokemon
|
|
writetext HurryUpElmIsWaitingText
|
|
waitbutton
|
|
closetext
|
|
end
|
|
|
|
.GotAPokemon:
|
|
writetext SoWhatWasProfElmsErrandText
|
|
waitbutton
|
|
closetext
|
|
end
|
|
|
|
.FirstTimeBanking:
|
|
writetext ImBehindYouText
|
|
waitbutton
|
|
closetext
|
|
end
|
|
|
|
.GaveMysteryEgg:
|
|
setevent EVENT_FIRST_TIME_BANKING_WITH_MOM
|
|
.BankOfMom:
|
|
setevent EVENT_TALKED_TO_MOM_AFTER_MYSTERY_EGG_QUEST
|
|
special BankOfMom
|
|
waitbutton
|
|
closetext
|
|
end
|
|
|
|
NeighborScript:
|
|
faceplayer
|
|
opentext
|
|
checktime MORN
|
|
iftrue .MornScript
|
|
checktime DAY
|
|
iftrue .DayScript
|
|
checktime NITE
|
|
iftrue .NiteScript
|
|
|
|
.MornScript:
|
|
writetext NeighborMornIntroText
|
|
buttonsound
|
|
jump .Main
|
|
|
|
.DayScript:
|
|
writetext NeighborDayIntroText
|
|
buttonsound
|
|
jump .Main
|
|
|
|
.NiteScript:
|
|
writetext NeighborNiteIntroText
|
|
buttonsound
|
|
jump .Main
|
|
|
|
.Main:
|
|
writetext NeighborText
|
|
waitbutton
|
|
closetext
|
|
turnobject PLAYERSHOUSE1F_POKEFAN_F, RIGHT
|
|
end
|
|
|
|
TVScript:
|
|
jumptext TVText
|
|
|
|
StoveScript:
|
|
jumptext StoveText
|
|
|
|
SinkScript:
|
|
jumptext SinkText
|
|
|
|
FridgeScript:
|
|
jumptext FridgeText
|
|
|
|
MomTurnsTowardPlayerMovement:
|
|
turn_head RIGHT
|
|
step_end
|
|
|
|
MomWalksToPlayerMovement:
|
|
slow_step RIGHT
|
|
step_end
|
|
|
|
MomTurnsBackMovement:
|
|
turn_head LEFT
|
|
step_end
|
|
|
|
MomWalksBackMovement:
|
|
slow_step LEFT
|
|
step_end
|
|
|
|
ElmsLookingForYouText:
|
|
text "Oh, <PLAYER>…! Our"
|
|
line "neighbor, PROF."
|
|
|
|
para "ELM, was looking"
|
|
line "for you."
|
|
|
|
para "He said he wanted"
|
|
line "you to do some-"
|
|
cont "thing for him."
|
|
|
|
para "Oh! I almost for-"
|
|
line "got! Your #MON"
|
|
|
|
para "GEAR is back from"
|
|
line "the repair shop."
|
|
|
|
para "Here you go!"
|
|
done
|
|
|
|
MomGivesPokegearText:
|
|
text "#MON GEAR, or"
|
|
line "just #GEAR."
|
|
|
|
para "It's essential if"
|
|
line "you want to be a"
|
|
cont "good trainer."
|
|
|
|
para "Oh, the day of the"
|
|
line "week isn't set."
|
|
|
|
para "You mustn't forget"
|
|
line "that!"
|
|
done
|
|
|
|
IsItDSTText:
|
|
text "Is it Daylight"
|
|
line "Saving Time now?"
|
|
done
|
|
|
|
ComeHomeForDSTText:
|
|
text "Come home to"
|
|
line "adjust your clock"
|
|
|
|
para "for Daylight"
|
|
line "Saving Time."
|
|
|
|
para "By the way, do you"
|
|
line "know how to use"
|
|
cont "the PHONE?"
|
|
done
|
|
|
|
KnowTheInstructionsText:
|
|
text "Don't you just"
|
|
line "turn the #GEAR"
|
|
|
|
para "on and select the"
|
|
line "PHONE icon?"
|
|
done
|
|
|
|
DontKnowTheInstructionsText:
|
|
text "I'll read the"
|
|
line "instructions."
|
|
|
|
para "Turn the #GEAR"
|
|
line "on and select the"
|
|
cont "PHONE icon."
|
|
done
|
|
|
|
InstructionsNextText:
|
|
text "Phone numbers are"
|
|
line "stored in memory."
|
|
|
|
para "Just choose a name"
|
|
line "you want to call."
|
|
|
|
para "Gee, isn't that"
|
|
line "convenient?"
|
|
done
|
|
|
|
HurryUpElmIsWaitingText:
|
|
text "PROF.ELM is wait-"
|
|
line "ing for you."
|
|
|
|
para "Hurry up, baby!"
|
|
done
|
|
|
|
SoWhatWasProfElmsErrandText:
|
|
text "So, what was PROF."
|
|
line "ELM's errand?"
|
|
|
|
para "…"
|
|
|
|
para "That does sound"
|
|
line "challenging."
|
|
|
|
para "But, you should be"
|
|
line "proud that people"
|
|
cont "rely on you."
|
|
done
|
|
|
|
ImBehindYouText:
|
|
text "<PLAYER>, do it!"
|
|
|
|
para "I'm behind you all"
|
|
line "the way!"
|
|
done
|
|
|
|
NeighborMornIntroText:
|
|
text "Good morning,"
|
|
line "<PLAY_G>!"
|
|
|
|
para "I'm visiting!"
|
|
done
|
|
|
|
NeighborDayIntroText:
|
|
text "Hello, <PLAY_G>!"
|
|
line "I'm visiting!"
|
|
done
|
|
|
|
NeighborNiteIntroText:
|
|
text "Good evening,"
|
|
line "<PLAY_G>!"
|
|
|
|
para "I'm visiting!"
|
|
done
|
|
|
|
NeighborText:
|
|
text "<PLAY_G>, have you"
|
|
line "heard?"
|
|
|
|
para "My daughter is"
|
|
line "adamant about"
|
|
|
|
para "becoming PROF."
|
|
line "ELM's assistant."
|
|
|
|
para "She really loves"
|
|
line "#MON!"
|
|
done
|
|
|
|
StoveText:
|
|
text "Mom's specialty!"
|
|
|
|
para "CINNABAR VOLCANO"
|
|
line "BURGER!"
|
|
done
|
|
|
|
SinkText:
|
|
text "The sink is spot-"
|
|
line "less. Mom likes it"
|
|
cont "clean."
|
|
done
|
|
|
|
FridgeText:
|
|
text "Let's see what's"
|
|
line "in the fridge…"
|
|
|
|
para "FRESH WATER and"
|
|
line "tasty LEMONADE!"
|
|
done
|
|
|
|
TVText:
|
|
text "There's a movie on"
|
|
line "TV: Stars dot the"
|
|
|
|
para "sky as two boys"
|
|
line "ride on a train…"
|
|
|
|
para "I'd better get"
|
|
line "rolling too!"
|
|
done
|
|
|
|
PlayersHouse1F_MapEvents:
|
|
db 0, 0 ; filler
|
|
|
|
db 3 ; warp events
|
|
warp_event 6, 7, NEW_BARK_TOWN, 2
|
|
warp_event 7, 7, NEW_BARK_TOWN, 2
|
|
warp_event 9, 0, PLAYERS_HOUSE_2F, 1
|
|
|
|
db 2 ; coord events
|
|
coord_event 8, 4, SCENE_DEFAULT, MeetMomLeftScript
|
|
coord_event 9, 4, SCENE_DEFAULT, MeetMomRightScript
|
|
|
|
db 4 ; bg events
|
|
bg_event 0, 1, BGEVENT_READ, StoveScript
|
|
bg_event 1, 1, BGEVENT_READ, SinkScript
|
|
bg_event 2, 1, BGEVENT_READ, FridgeScript
|
|
bg_event 4, 1, BGEVENT_READ, TVScript
|
|
|
|
db 5 ; object events
|
|
object_event 7, 4, SPRITE_MOM, SPRITEMOVEDATA_STANDING_LEFT, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, MomScript, EVENT_PLAYERS_HOUSE_MOM_1
|
|
object_event 2, 2, SPRITE_MOM, SPRITEMOVEDATA_STANDING_UP, 0, 0, -1, MORN, 0, OBJECTTYPE_SCRIPT, 0, MomScript, EVENT_PLAYERS_HOUSE_MOM_2
|
|
object_event 7, 4, SPRITE_MOM, SPRITEMOVEDATA_STANDING_LEFT, 0, 0, -1, DAY, 0, OBJECTTYPE_SCRIPT, 0, MomScript, EVENT_PLAYERS_HOUSE_MOM_2
|
|
object_event 0, 2, SPRITE_MOM, SPRITEMOVEDATA_STANDING_UP, 0, 0, -1, NITE, 0, OBJECTTYPE_SCRIPT, 0, MomScript, EVENT_PLAYERS_HOUSE_MOM_2
|
|
object_event 4, 4, SPRITE_POKEFAN_F, SPRITEMOVEDATA_STANDING_RIGHT, 0, 0, -1, -1, PAL_NPC_RED, OBJECTTYPE_SCRIPT, 0, NeighborScript, EVENT_PLAYERS_HOUSE_1F_NEIGHBOR
|