pokecrystal-board/maps/HallOfFame.asm

124 lines
2.4 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 HALLOFFAME_LANCE
HallOfFame_MapScripts:
db 2 ; scene scripts
scene_script .EnterHallOfFame ; SCENE_DEFAULT
scene_script .DummyScene ; SCENE_FINISHED
db 0 ; callbacks
.EnterHallOfFame:
prioritysjump .EnterHallOfFameScript
end
.DummyScene:
end
.EnterHallOfFameScript:
2015-11-26 21:22:14 -08:00
follow HALLOFFAME_LANCE, PLAYER
applymovement HALLOFFAME_LANCE, HallOfFame_WalkUpWithLance
stopfollow
turnobject PLAYER, RIGHT
2015-12-09 15:25:44 -08:00
opentext
writetext HallOfFame_LanceText
2015-11-25 07:16:29 -08:00
waitbutton
closetext
turnobject HALLOFFAME_LANCE, UP
applymovement PLAYER, HallOfFame_SlowlyApproachMachine
setscene SCENE_FINISHED
pause 15
setval HEALMACHINE_HALL_OF_FAME
special HealMachineAnim
2015-06-24 20:20:04 -07:00
setevent EVENT_BEAT_ELITE_FOUR
setevent EVENT_TELEPORT_GUY
setevent EVENT_RIVAL_SPROUT_TOWER
clearevent EVENT_RED_IN_MT_SILVER
setevent EVENT_OLIVINE_PORT_SPRITES_BEFORE_HALL_OF_FAME
clearevent EVENT_OLIVINE_PORT_SPRITES_AFTER_HALL_OF_FAME
setmapscene SPROUT_TOWER_3F, SCENE_FINISHED
special HealParty
2013-09-24 00:48:58 -07:00
checkevent EVENT_GOT_SS_TICKET_FROM_ELM
iftrue .SkipPhoneCall
2015-10-24 07:34:19 -07:00
specialphonecall SPECIALCALL_SSTICKET
.SkipPhoneCall:
halloffame
end
HallOfFame_WalkUpWithLance:
2016-05-14 10:46:14 -07:00
step UP
step UP
step UP
step UP
step UP
step UP
step UP
step UP
step RIGHT
turn_head LEFT
step_end
HallOfFame_SlowlyApproachMachine:
2016-05-14 10:46:14 -07:00
slow_step UP
step_end
HallOfFame_LanceText:
text "LANCE: It's been a"
line "long time since I"
cont "last came here."
para "This is where we"
line "honor the LEAGUE"
para "CHAMPIONS for all"
line "eternity."
para "Their courageous"
line "#MON are also"
cont "inducted."
para "Here today, we"
line "witnessed the rise"
para "of a new LEAGUE"
line "CHAMPION--a"
para "trainer who feels"
line "compassion for,"
para "and trust toward,"
line "all #MON."
para "A trainer who"
line "succeeded through"
para "perseverance and"
line "determination."
para "The new LEAGUE"
line "CHAMPION who has"
para "all the makings"
line "of greatness!"
para "<PLAY_G>, allow me"
line "to register you"
para "and your partners"
line "as CHAMPIONS!"
done
HallOfFame_MapEvents:
db 0, 0 ; filler
db 2 ; warp events
2018-02-01 19:22:07 -08:00
warp_event 4, 13, LANCES_ROOM, 3
warp_event 5, 13, LANCES_ROOM, 4
db 0 ; coord events
db 0 ; bg events
db 1 ; object events
2018-02-01 19:22:07 -08:00
object_event 4, 12, SPRITE_LANCE, SPRITEMOVEDATA_STANDING_UP, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, ObjectEvent, -1