pokecrystal/maps/VictoryRoad.asm

278 lines
5.8 KiB
NASM

const_value set 2
const VICTORYROAD_SILVER
const VICTORYROAD_POKE_BALL1
const VICTORYROAD_POKE_BALL2
const VICTORYROAD_POKE_BALL3
const VICTORYROAD_POKE_BALL4
const VICTORYROAD_POKE_BALL5
VictoryRoad_MapScriptHeader:
.SceneScripts:
db 2
scene_script .DummyScene0
scene_script .DummyScene1
.MapCallbacks:
db 0
.DummyScene0:
end
.DummyScene1:
end
UnknownScript_0x74492:
moveobject VICTORYROAD_SILVER, $12, $b
spriteface PLAYER, DOWN
showemote EMOTE_SHOCK, PLAYER, 15
special Special_FadeOutMusic
pause 15
appear VICTORYROAD_SILVER
applymovement VICTORYROAD_SILVER, MovementData_0x74539
scall UnknownScript_0x744d4
applymovement VICTORYROAD_SILVER, MovementData_0x7454c
disappear VICTORYROAD_SILVER
setscene $1
playmapmusic
end
UnknownScript_0x744b5:
spriteface PLAYER, DOWN
showemote EMOTE_SHOCK, PLAYER, 15
special Special_FadeOutMusic
pause 15
appear VICTORYROAD_SILVER
applymovement VICTORYROAD_SILVER, MovementData_0x74542
scall UnknownScript_0x744d4
applymovement VICTORYROAD_SILVER, MovementData_0x74555
disappear VICTORYROAD_SILVER
setscene $1
playmapmusic
end
UnknownScript_0x744d4:
spriteface PLAYER, DOWN
playmusic MUSIC_RIVAL_ENCOUNTER
opentext
writetext UnknownText_0x7455f
waitbutton
closetext
setevent EVENT_RIVAL_VICTORY_ROAD
checkevent EVENT_GOT_TOTODILE_FROM_ELM
iftrue UnknownScript_0x744ff
checkevent EVENT_GOT_CHIKORITA_FROM_ELM
iftrue UnknownScript_0x7450f
winlosstext UnknownText_0x7463d, UnknownText_0x747aa
setlasttalked VICTORYROAD_SILVER
loadtrainer RIVAL1, RIVAL1_5_TOTODILE
startbattle
dontrestartmapmusic
reloadmapafterbattle
jump UnknownScript_0x7451f
UnknownScript_0x744ff:
winlosstext UnknownText_0x7463d, UnknownText_0x747aa
setlasttalked VICTORYROAD_SILVER
loadtrainer RIVAL1, RIVAL1_5_CHIKORITA
startbattle
dontrestartmapmusic
reloadmapafterbattle
jump UnknownScript_0x7451f
UnknownScript_0x7450f:
winlosstext UnknownText_0x7463d, UnknownText_0x747aa
setlasttalked VICTORYROAD_SILVER
loadtrainer RIVAL1, RIVAL1_5_CYNDAQUIL
startbattle
dontrestartmapmusic
reloadmapafterbattle
jump UnknownScript_0x7451f
UnknownScript_0x7451f:
playmusic MUSIC_RIVAL_AFTER
opentext
writetext UnknownText_0x746ce
waitbutton
closetext
end
VictoryRoadTMEarthquake:
itemball TM_EARTHQUAKE
VictoryRoadMaxRevive:
itemball MAX_REVIVE
VictoryRoadFullRestore:
itemball FULL_RESTORE
VictoryRoadFullHeal:
itemball FULL_HEAL
VictoryRoadHPUp:
itemball HP_UP
VictoryRoadHiddenMaxPotion:
dwb EVENT_VICTORY_ROAD_HIDDEN_MAX_POTION, MAX_POTION
VictoryRoadHiddenFullHeal:
dwb EVENT_VICTORY_ROAD_HIDDEN_FULL_HEAL, FULL_HEAL
MovementData_0x74539:
step LEFT
step LEFT
step LEFT
step LEFT
step LEFT
step LEFT
step UP
step UP
step_end
MovementData_0x74542:
step UP
step UP
step LEFT
step LEFT
step LEFT
step LEFT
step LEFT
step UP
step UP
step_end
MovementData_0x7454c:
step DOWN
step DOWN
step RIGHT
step RIGHT
step RIGHT
step RIGHT
step RIGHT
step RIGHT
step_end
MovementData_0x74555:
step DOWN
step DOWN
step RIGHT
step RIGHT
step RIGHT
step RIGHT
step RIGHT
step DOWN
step DOWN
step_end
UnknownText_0x7455f:
text "Hold it."
para "…Are you going to"
line "take the #MON"
cont "LEAGUE challenge?"
para "…Don't make me"
line "laugh."
para "You're so much"
line "weaker than I am."
para "I'm not like I was"
line "before."
para "I now have the"
line "best and strongest"
para "#MON with me."
line "I'm invincible!"
para "<PLAYER>!"
line "I challenge you!"
done
UnknownText_0x7463d:
text "…I couldn't win…"
para "I gave it every-"
line "thing I had…"
para "What you possess,"
line "and what I lack…"
para "I'm beginning to"
line "understand what"
para "that dragon master"
line "said to me…"
done
UnknownText_0x746ce:
text "…I haven't given up"
line "on becoming the"
cont "greatest trainer…"
para "I'm going to find"
line "out why I can't"
para "win and become"
line "stronger…"
para "When I do, I will"
line "challenge you."
para "And I'll beat you"
line "down with all my"
cont "power."
para "…Humph! You keep"
line "at it until then."
done
UnknownText_0x747aa:
text "…Humph!"
para "When it comes down"
line "to it, nothing can"
cont "beat power."
para "I don't need any-"
line "thing else."
done
VictoryRoad_MapEventHeader:
; filler
db 0, 0
.Warps:
db 10
warp_def $43, $9, 5, VICTORY_ROAD_GATE
warp_def $31, $1, 3, VICTORY_ROAD
warp_def $23, $1, 2, VICTORY_ROAD
warp_def $1f, $d, 5, VICTORY_ROAD
warp_def $11, $d, 4, VICTORY_ROAD
warp_def $21, $11, 7, VICTORY_ROAD
warp_def $13, $11, 6, VICTORY_ROAD
warp_def $b, $0, 9, VICTORY_ROAD
warp_def $1b, $0, 8, VICTORY_ROAD
warp_def $5, $d, 3, ROUTE_23
.CoordEvents:
db 2
coord_event 0, $8, $c, UnknownScript_0x74492
coord_event 0, $8, $d, UnknownScript_0x744b5
.BGEvents:
db 2
bg_event 29, 3, BGEVENT_ITEM, VictoryRoadHiddenMaxPotion
bg_event 65, 3, BGEVENT_ITEM, VictoryRoadHiddenFullHeal
.ObjectEvents:
db 6
object_event SPRITE_SILVER, 13, 18, SPRITEMOVEDATA_STANDING_UP, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, ObjectEvent, EVENT_RIVAL_VICTORY_ROAD
object_event SPRITE_POKE_BALL, 28, 3, SPRITEMOVEDATA_ITEM_TREE, 0, 0, -1, -1, 0, OBJECTTYPE_ITEMBALL, 0, VictoryRoadTMEarthquake, EVENT_VICTORY_ROAD_TM_EARTHQUAKE
object_event SPRITE_POKE_BALL, 48, 12, SPRITEMOVEDATA_ITEM_TREE, 0, 0, -1, -1, 0, OBJECTTYPE_ITEMBALL, 0, VictoryRoadMaxRevive, EVENT_VICTORY_ROAD_MAX_REVIVE
object_event SPRITE_POKE_BALL, 29, 18, SPRITEMOVEDATA_ITEM_TREE, 0, 0, -1, -1, 0, OBJECTTYPE_ITEMBALL, 0, VictoryRoadFullRestore, EVENT_VICTORY_ROAD_FULL_RESTORE
object_event SPRITE_POKE_BALL, 48, 15, SPRITEMOVEDATA_ITEM_TREE, 0, 0, -1, -1, 0, OBJECTTYPE_ITEMBALL, 0, VictoryRoadFullHeal, EVENT_VICTORY_ROAD_FULL_HEAL
object_event SPRITE_POKE_BALL, 38, 7, SPRITEMOVEDATA_ITEM_TREE, 0, 0, -1, -1, 0, OBJECTTYPE_ITEMBALL, 0, VictoryRoadHPUp, EVENT_VICTORY_ROAD_HP_UP