pokecrystal-board/maps/LancesRoom.asm

357 lines
7.3 KiB
NASM

const_def 2 ; object constants
const LANCESROOM_LANCE
const LANCESROOM_MARY
const LANCESROOM_OAK
LancesRoom_MapScripts:
db 2 ; scene scripts
scene_script .LockDoor ; SCENE_DEFAULT
scene_script .DummyScene ; SCENE_LANCESROOM_APPROACH_LANCE
db 1 ; callbacks
callback MAPCALLBACK_TILES, .LancesRoomDoors
.LockDoor:
priorityjump .LancesDoorLocksBehindYou
end
.DummyScene:
end
.LancesRoomDoors:
checkevent EVENT_LANCES_ROOM_ENTRANCE_CLOSED
iffalse .KeepEntranceOpen
changeblock 4, 22, $34 ; wall
.KeepEntranceOpen:
checkevent EVENT_LANCES_ROOM_EXIT_OPEN
iffalse .KeepExitClosed
changeblock 4, 0, $0b ; open door
.KeepExitClosed:
return
.LancesDoorLocksBehindYou:
applymovement PLAYER, LancesRoom_PlayerWalksInMovementData
refreshscreen $86
playsound SFX_STRENGTH
earthquake 80
changeblock 4, 22, $34 ; wall
reloadmappart
closetext
setscene SCENE_LANCESROOM_APPROACH_LANCE
setevent EVENT_LANCES_ROOM_ENTRANCE_CLOSED
end
Script_ApproachLanceFromLeft:
special FadeOutMusic
applymovement PLAYER, MovementData_ApproachLanceFromLeft
jump LanceScript_0x180e7b
Script_ApproachLanceFromRight:
special FadeOutMusic
applymovement PLAYER, MovementData_ApproachLanceFromRight
LanceScript_0x180e7b:
objectface LANCESROOM_LANCE, LEFT
opentext
writetext LanceBattleIntroText
waitbutton
closetext
winlosstext LanceBattleWinText, 0
setlasttalked LANCESROOM_LANCE
loadtrainer CHAMPION, LANCE
startbattle
dontrestartmapmusic
reloadmapafterbattle
setevent EVENT_BEAT_CHAMPION_LANCE
opentext
writetext LanceBattleAfterText
waitbutton
closetext
playsound SFX_ENTER_DOOR
changeblock 4, 0, $0b ; open door
reloadmappart
closetext
setevent EVENT_LANCES_ROOM_ENTRANCE_CLOSED
musicfadeout MUSIC_BEAUTY_ENCOUNTER, 16
pause 30
showemote EMOTE_SHOCK, LANCESROOM_LANCE, 15
objectface LANCESROOM_LANCE, DOWN
pause 10
objectface PLAYER, DOWN
appear LANCESROOM_MARY
applymovement LANCESROOM_MARY, LancesRoomMovementData_MaryRushesIn
opentext
writetext UnknownText_0x1811dd
waitbutton
closetext
appear LANCESROOM_OAK
applymovement LANCESROOM_OAK, LancesRoomMovementData_OakWalksIn
follow LANCESROOM_MARY, LANCESROOM_OAK
applymovement LANCESROOM_MARY, LancesRoomMovementData_MaryYieldsToOak
stopfollow
objectface LANCESROOM_OAK, UP
objectface LANCESROOM_LANCE, LEFT
opentext
writetext UnknownText_0x18121b
waitbutton
closetext
applymovement LANCESROOM_MARY, LancesRoomMovementData_MaryInterviewChampion
objectface PLAYER, LEFT
opentext
writetext UnknownText_0x18134b
waitbutton
closetext
applymovement LANCESROOM_LANCE, LancesRoomMovementData_LancePositionsSelfToGuidePlayerAway
objectface PLAYER, UP
opentext
writetext UnknownText_0x18137b
waitbutton
closetext
follow LANCESROOM_LANCE, PLAYER
objectface LANCESROOM_MARY, UP
objectface LANCESROOM_OAK, UP
applymovement LANCESROOM_LANCE, LancesRoomMovementData_LanceLeadsPlayerToHallOfFame
stopfollow
playsound SFX_EXIT_BUILDING
disappear LANCESROOM_LANCE
applymovement PLAYER, LancesRoomMovementData_PlayerExits
playsound SFX_EXIT_BUILDING
disappear PLAYER
applymovement LANCESROOM_MARY, LancesRoomMovementData_MaryTriesToFollow
showemote EMOTE_SHOCK, LANCESROOM_MARY, 15
opentext
writetext UnknownText_0x1813c5
pause 30
closetext
applymovement LANCESROOM_MARY, LancesRoomMovementData_MaryRunsBackAndForth
special FadeOutPalettes
pause 15
warpfacing UP, HALL_OF_FAME, 4, 13
end
LancesRoom_PlayerWalksInMovementData:
step UP
step UP
step UP
step UP
step_end
MovementData_ApproachLanceFromLeft:
step UP
step UP
turn_head RIGHT
step_end
MovementData_ApproachLanceFromRight:
step UP
step LEFT
step UP
turn_head RIGHT
step_end
LancesRoomMovementData_MaryRushesIn:
big_step UP
big_step UP
big_step UP
turn_head DOWN
step_end
LancesRoomMovementData_OakWalksIn:
step UP
step UP
step_end
LancesRoomMovementData_MaryYieldsToOak:
step LEFT
turn_head RIGHT
step_end
LancesRoomMovementData_MaryInterviewChampion:
big_step UP
turn_head RIGHT
step_end
LancesRoomMovementData_LancePositionsSelfToGuidePlayerAway:
step UP
step LEFT
turn_head DOWN
step_end
LancesRoomMovementData_LanceLeadsPlayerToHallOfFame:
step UP
step_end
LancesRoomMovementData_PlayerExits:
step UP
step_end
LancesRoomMovementData_MaryTriesToFollow:
step UP
step RIGHT
turn_head UP
step_end
LancesRoomMovementData_MaryRunsBackAndForth:
big_step RIGHT
big_step RIGHT
big_step LEFT
big_step LEFT
big_step LEFT
big_step RIGHT
big_step RIGHT
big_step RIGHT
big_step LEFT
big_step LEFT
turn_head UP
step_end
LanceBattleIntroText:
text "LANCE: I've been"
line "waiting for you."
para "<PLAY_G>!"
para "I knew that you,"
line "with your skills,"
para "would eventually"
line "reach me here."
para "There's no need"
line "for words now."
para "We will battle to"
line "determine who is"
para "the stronger of"
line "the two of us."
para "As the most power-"
line "ful trainer and as"
para "the #MON LEAGUE"
line "CHAMPION…"
para "I, LANCE the drag-"
line "on master, accept"
cont "your challenge!"
done
LanceBattleWinText:
text "…It's over."
para "But it's an odd"
line "feeling."
para "I'm not angry that"
line "I lost. In fact, I"
cont "feel happy."
para "Happy that I"
line "witnessed the rise"
para "of a great new"
line "CHAMPION!"
done
LanceBattleAfterText:
text "…Whew."
para "You have become"
line "truly powerful,"
cont "<PLAY_G>."
para "Your #MON have"
line "responded to your"
para "strong and up-"
line "standing nature."
para "As a trainer, you"
line "will continue to"
para "grow strong with"
line "your #MON."
done
UnknownText_0x1811dd:
text "MARY: Oh, no!"
line "It's all over!"
para "PROF.OAK, if you"
line "weren't so slow…"
done
UnknownText_0x18121b:
text "PROF.OAK: Ah,"
line "<PLAY_G>!"
para "It's been a long"
line "while."
para "You certainly look"
line "more impressive."
para "Your conquest of"
line "the LEAGUE is just"
cont "fantastic!"
para "Your dedication,"
line "trust and love for"
para "your #MON made"
line "this happen."
para "Your #MON were"
line "outstanding too."
para "Because they be-"
line "lieved in you as a"
para "trainer, they per-"
line "severed."
para "Congratulations,"
line "<PLAY_G>!"
done
UnknownText_0x18134b:
text "MARY: Let's inter-"
line "view the brand new"
cont "CHAMPION!"
done
UnknownText_0x18137b:
text "LANCE: This is"
line "getting to be a"
cont "bit too noisy…"
para "<PLAY_G>, could you"
line "come with me?"
done
UnknownText_0x1813c5:
text "MARY: Oh, wait!"
line "We haven't done"
cont "the interview!"
done
LancesRoom_MapEvents:
db 0, 0 ; filler
db 4 ; warp events
warp_event 4, 23, KARENS_ROOM, 3
warp_event 5, 23, KARENS_ROOM, 4
warp_event 4, 1, HALL_OF_FAME, 1
warp_event 5, 1, HALL_OF_FAME, 2
db 2 ; coord events
coord_event 4, 5, SCENE_LANCESROOM_APPROACH_LANCE, Script_ApproachLanceFromLeft
coord_event 5, 5, SCENE_LANCESROOM_APPROACH_LANCE, Script_ApproachLanceFromRight
db 0 ; bg events
db 3 ; object events
object_event 5, 3, SPRITE_LANCE, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, LanceScript_0x180e7b, -1
object_event 4, 7, SPRITE_TEACHER, SPRITEMOVEDATA_STANDING_UP, 0, 0, -1, -1, PAL_NPC_GREEN, OBJECTTYPE_SCRIPT, 0, ObjectEvent, EVENT_LANCES_ROOM_OAK_AND_MARY
object_event 4, 7, SPRITE_OAK, SPRITEMOVEDATA_STANDING_UP, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, ObjectEvent, EVENT_LANCES_ROOM_OAK_AND_MARY