mirror of https://github.com/pret/pokecrystal.git
124 lines
2.3 KiB
NASM
124 lines
2.3 KiB
NASM
const_value set 2
|
|
const HALLOFFAME_LANCE
|
|
|
|
HallOfFame_MapScripts:
|
|
db 2 ; scene scripts
|
|
scene_script .EnterHallOfFame
|
|
scene_script .DummyScene
|
|
|
|
db 0 ; callbacks
|
|
|
|
.EnterHallOfFame:
|
|
priorityjump .EnterHallOfFameScript
|
|
end
|
|
|
|
.DummyScene:
|
|
end
|
|
|
|
.EnterHallOfFameScript:
|
|
follow HALLOFFAME_LANCE, PLAYER
|
|
applymovement HALLOFFAME_LANCE, HallOfFame_WalkUpWithLance
|
|
stopfollow
|
|
spriteface PLAYER, RIGHT
|
|
opentext
|
|
writetext HallOfFame_LanceText
|
|
waitbutton
|
|
closetext
|
|
spriteface HALLOFFAME_LANCE, UP
|
|
applymovement PLAYER, HallOfFame_SlowlyApproachMachine
|
|
setscene 1
|
|
pause 15
|
|
writebyte HEALMACHINE_HALL_OF_FAME
|
|
special HealMachineAnim
|
|
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, 1
|
|
special HealParty
|
|
checkevent EVENT_GOT_SS_TICKET_FROM_ELM
|
|
iftrue .SkipPhoneCall
|
|
specialphonecall SPECIALCALL_SSTICKET
|
|
.SkipPhoneCall:
|
|
halloffame
|
|
end
|
|
|
|
HallOfFame_WalkUpWithLance:
|
|
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:
|
|
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
|
|
warp_event 4, 13, 3, LANCES_ROOM
|
|
warp_event 5, 13, 4, LANCES_ROOM
|
|
|
|
db 0 ; coord events
|
|
|
|
db 0 ; bg events
|
|
|
|
db 1 ; object events
|
|
object_event 4, 12, SPRITE_LANCE, SPRITEMOVEDATA_STANDING_UP, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, ObjectEvent, -1
|