pokecrystal-board/maps/TrainerHouseB1F.asm

184 lines
3.5 KiB
NASM
Raw Normal View History

2018-01-31 08:38:45 -08:00
const_def 2 ; object constants
2015-11-26 21:22:14 -08:00
const TRAINERHOUSEB1F_RECEPTIONIST
const TRAINERHOUSEB1F_CHRIS
TrainerHouseB1F_MapScripts:
db 1 ; scene scripts
scene_script .DummyScene ; SCENE_DEFAULT
db 0 ; callbacks
.DummyScene:
end
2015-12-09 08:38:40 -08:00
TrainerHouseReceptionistScript:
turnobject PLAYER, UP
2015-12-09 15:25:44 -08:00
opentext
2015-07-10 05:08:03 -07:00
checkflag ENGINE_FOUGHT_IN_TRAINER_HALL_TODAY
2015-12-09 08:38:40 -08:00
iftrue .FoughtTooManyTimes
writetext TrainerHouseB1FIntroText
2015-11-29 19:29:45 -08:00
buttonsound
special TrainerHouse
2015-12-09 08:38:40 -08:00
iffalse .GetCal3Name
2018-01-11 22:40:20 -08:00
trainertotext CAL, CAL2, MEM_BUFFER_0
2015-12-09 08:38:40 -08:00
jump .GotName
2015-12-09 08:38:40 -08:00
.GetCal3Name:
2018-01-11 22:40:20 -08:00
trainertotext CAL, CAL3, MEM_BUFFER_0
2015-12-09 08:38:40 -08:00
.GotName:
writetext TrainerHouseB1FYourOpponentIsText
2015-11-29 19:29:45 -08:00
buttonsound
2015-12-09 08:38:40 -08:00
writetext TrainerHouseB1FAskWantToBattleText
yesorno
2015-12-09 08:38:40 -08:00
iffalse .Declined
2015-07-10 05:08:03 -07:00
setflag ENGINE_FOUGHT_IN_TRAINER_HALL_TODAY
2015-12-09 08:38:40 -08:00
writetext TrainerHouseB1FGoRightInText
2015-11-25 07:16:29 -08:00
waitbutton
closetext
2015-12-09 08:38:40 -08:00
applymovement PLAYER, Movement_EnterTrainerHouseBattleRoom
2015-12-09 15:25:44 -08:00
opentext
2015-12-09 08:38:40 -08:00
writetext TrainerHouseB1FCalBeforeText
2015-11-25 07:16:29 -08:00
waitbutton
closetext
special TrainerHouse
2015-12-09 08:38:40 -08:00
iffalse .NoSpecialBattle
winlosstext TrainerHouseB1FCalBeatenText, 0
setlasttalked TRAINERHOUSEB1F_CHRIS
loadtrainer CAL, CAL2
startbattle
reloadmapafterbattle
2015-12-09 08:38:40 -08:00
iffalse .End
.NoSpecialBattle:
winlosstext TrainerHouseB1FCalBeatenText, 0
setlasttalked TRAINERHOUSEB1F_CHRIS
loadtrainer CAL, CAL3
startbattle
reloadmapafterbattle
2015-12-09 08:38:40 -08:00
.End:
applymovement PLAYER, Movement_ExitTrainerHouseBattleRoom
end
2015-12-09 08:38:40 -08:00
.Declined:
writetext TrainerHouseB1FPleaseComeAgainText
2015-11-25 07:16:29 -08:00
waitbutton
closetext
2015-12-09 08:38:40 -08:00
applymovement PLAYER, Movement_TrainerHouseTurnBack
end
2015-12-09 08:38:40 -08:00
.FoughtTooManyTimes:
writetext TrainerHouseB1FSecondChallengeDeniedText
2015-11-25 07:16:29 -08:00
waitbutton
closetext
2015-12-09 08:38:40 -08:00
applymovement PLAYER, Movement_TrainerHouseTurnBack
end
2015-12-09 08:38:40 -08:00
Movement_EnterTrainerHouseBattleRoom:
2016-05-14 10:46:14 -07:00
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
2015-12-09 08:38:40 -08:00
Movement_ExitTrainerHouseBattleRoom:
2016-05-14 10:46:14 -07:00
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
2015-12-09 08:38:40 -08:00
Movement_TrainerHouseTurnBack:
2016-05-14 10:46:14 -07:00
step RIGHT
turn_head LEFT
step_end
2015-12-09 08:38:40 -08:00
TrainerHouseB1FIntroText:
text "Hi. Welcome to our"
line "TRAINING HALL."
para "You may battle a"
line "trainer once per"
cont "day."
done
2015-12-09 08:38:40 -08:00
TrainerHouseB1FYourOpponentIsText:
2018-01-23 14:39:09 -08:00
text_from_ram wStringBuffer3
text " is your"
line "opponent today."
done
2015-12-09 08:38:40 -08:00
TrainerHouseB1FAskWantToBattleText:
text "Would you like to"
line "battle?"
done
2015-12-09 08:38:40 -08:00
TrainerHouseB1FGoRightInText:
text "Please go right"
line "through."
para "You may begin"
line "right away."
done
2015-12-09 08:38:40 -08:00
TrainerHouseB1FPleaseComeAgainText:
text "Sorry. Only those"
line "trainers who will"
para "be battling are"
line "allowed to go in."
done
2015-12-09 08:38:40 -08:00
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
2015-12-09 08:38:40 -08:00
TrainerHouseB1FCalBeatenText:
text "I lost…"
line "Darn…"
done
2015-12-09 08:38:40 -08:00
TrainerHouseB1FCalBeforeText:
text "I traveled out"
line "here just so I"
cont "could battle you."
done
TrainerHouseB1F_MapEvents:
db 0, 0 ; filler
db 1 ; warp events
2018-02-01 19:22:07 -08:00
warp_event 9, 4, TRAINER_HOUSE_1F, 3
db 1 ; coord events
2018-02-01 19:22:07 -08:00
coord_event 7, 3, SCENE_DEFAULT, TrainerHouseReceptionistScript
db 0 ; bg events
db 2 ; object events
2018-02-01 19:22:07 -08:00
object_event 7, 1, SPRITE_RECEPTIONIST, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, PAL_NPC_GREEN, OBJECTTYPE_SCRIPT, 0, ObjectEvent, -1
object_event 6, 11, SPRITE_CHRIS, SPRITEMOVEDATA_STANDING_LEFT, 0, 0, -1, -1, PAL_NPC_RED, OBJECTTYPE_SCRIPT, 0, ObjectEvent, -1