mirror of https://github.com/pret/pokecrystal.git
191 lines
3.5 KiB
NASM
191 lines
3.5 KiB
NASM
const_value set 2
|
|
const TRAINERHOUSEB1F_RECEPTIONIST
|
|
const TRAINERHOUSEB1F_CHRIS
|
|
|
|
TrainerHouseB1F_MapScriptHeader:
|
|
.SceneScripts:
|
|
db 1
|
|
scene_script .DummyScene
|
|
|
|
.MapCallbacks:
|
|
db 0
|
|
|
|
.DummyScene:
|
|
end
|
|
|
|
TrainerHouseReceptionistScript:
|
|
spriteface PLAYER, UP
|
|
opentext
|
|
checkflag ENGINE_FOUGHT_IN_TRAINER_HALL_TODAY
|
|
iftrue .FoughtTooManyTimes
|
|
writetext TrainerHouseB1FIntroText
|
|
buttonsound
|
|
special SpecialTrainerHouse
|
|
iffalse .GetCal3Name
|
|
trainertotext CAL, CAL2, $0
|
|
jump .GotName
|
|
|
|
.GetCal3Name:
|
|
trainertotext CAL, CAL3, $0
|
|
.GotName:
|
|
writetext TrainerHouseB1FYourOpponentIsText
|
|
buttonsound
|
|
writetext TrainerHouseB1FAskWantToBattleText
|
|
yesorno
|
|
iffalse .Declined
|
|
setflag ENGINE_FOUGHT_IN_TRAINER_HALL_TODAY
|
|
writetext TrainerHouseB1FGoRightInText
|
|
waitbutton
|
|
closetext
|
|
applymovement PLAYER, Movement_EnterTrainerHouseBattleRoom
|
|
opentext
|
|
writetext TrainerHouseB1FCalBeforeText
|
|
waitbutton
|
|
closetext
|
|
special SpecialTrainerHouse
|
|
iffalse .NoSpecialBattle
|
|
winlosstext TrainerHouseB1FCalBeatenText, 0
|
|
setlasttalked TRAINERHOUSEB1F_CHRIS
|
|
loadtrainer CAL, CAL2
|
|
startbattle
|
|
reloadmapafterbattle
|
|
iffalse .End
|
|
.NoSpecialBattle:
|
|
winlosstext TrainerHouseB1FCalBeatenText, 0
|
|
setlasttalked TRAINERHOUSEB1F_CHRIS
|
|
loadtrainer CAL, CAL3
|
|
startbattle
|
|
reloadmapafterbattle
|
|
.End:
|
|
applymovement PLAYER, Movement_ExitTrainerHouseBattleRoom
|
|
end
|
|
|
|
.Declined:
|
|
writetext TrainerHouseB1FPleaseComeAgainText
|
|
waitbutton
|
|
closetext
|
|
applymovement PLAYER, Movement_TrainerHouseTurnBack
|
|
end
|
|
|
|
.FoughtTooManyTimes:
|
|
writetext TrainerHouseB1FSecondChallengeDeniedText
|
|
waitbutton
|
|
closetext
|
|
applymovement PLAYER, Movement_TrainerHouseTurnBack
|
|
end
|
|
|
|
Movement_EnterTrainerHouseBattleRoom:
|
|
step LEFT
|
|
step LEFT
|
|
step LEFT
|
|
step DOWN
|
|
step DOWN
|
|
step DOWN
|
|
step DOWN
|
|
step DOWN
|
|
step DOWN
|
|
step DOWN
|
|
step DOWN
|
|
step LEFT
|
|
turn_head RIGHT
|
|
step_end
|
|
|
|
Movement_ExitTrainerHouseBattleRoom:
|
|
step UP
|
|
step UP
|
|
step UP
|
|
step RIGHT
|
|
step UP
|
|
step UP
|
|
step UP
|
|
step UP
|
|
step UP
|
|
step RIGHT
|
|
step RIGHT
|
|
step RIGHT
|
|
step RIGHT
|
|
step_end
|
|
|
|
Movement_TrainerHouseTurnBack:
|
|
step RIGHT
|
|
turn_head LEFT
|
|
step_end
|
|
|
|
TrainerHouseB1FIntroText:
|
|
text "Hi. Welcome to our"
|
|
line "TRAINING HALL."
|
|
|
|
para "You may battle a"
|
|
line "trainer once per"
|
|
cont "day."
|
|
done
|
|
|
|
TrainerHouseB1FYourOpponentIsText:
|
|
text_from_ram StringBuffer3
|
|
text " is your"
|
|
line "opponent today."
|
|
done
|
|
|
|
TrainerHouseB1FAskWantToBattleText:
|
|
text "Would you like to"
|
|
line "battle?"
|
|
done
|
|
|
|
TrainerHouseB1FGoRightInText:
|
|
text "Please go right"
|
|
line "through."
|
|
|
|
para "You may begin"
|
|
line "right away."
|
|
done
|
|
|
|
TrainerHouseB1FPleaseComeAgainText:
|
|
text "Sorry. Only those"
|
|
line "trainers who will"
|
|
|
|
para "be battling are"
|
|
line "allowed to go in."
|
|
done
|
|
|
|
TrainerHouseB1FSecondChallengeDeniedText:
|
|
text "I'm sorry."
|
|
line "This would be your"
|
|
|
|
para "second time today."
|
|
line "You're permitted"
|
|
|
|
para "to enter just once"
|
|
line "a day."
|
|
done
|
|
|
|
TrainerHouseB1FCalBeatenText:
|
|
text "I lost…"
|
|
line "Darn…"
|
|
done
|
|
|
|
TrainerHouseB1FCalBeforeText:
|
|
text "I traveled out"
|
|
line "here just so I"
|
|
cont "could battle you."
|
|
done
|
|
|
|
TrainerHouseB1F_MapEventHeader:
|
|
; filler
|
|
db 0, 0
|
|
|
|
.Warps:
|
|
db 1
|
|
warp_def $4, $9, 3, TRAINER_HOUSE_1F
|
|
|
|
.CoordEvents:
|
|
db 1
|
|
coord_event 0, $3, $7, TrainerHouseReceptionistScript
|
|
|
|
.BGEvents:
|
|
db 0
|
|
|
|
.ObjectEvents:
|
|
db 2
|
|
object_event SPRITE_RECEPTIONIST, 1, 7, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, PAL_NPC_GREEN, OBJECTTYPE_SCRIPT, 0, ObjectEvent, -1
|
|
object_event SPRITE_CHRIS, 11, 6, SPRITEMOVEDATA_STANDING_LEFT, 0, 0, -1, -1, PAL_NPC_RED, OBJECTTYPE_SCRIPT, 0, ObjectEvent, -1
|