pokecrystal-board/maps/Route45.asm
2018-01-16 23:25:00 -05:00

565 lines
12 KiB
NASM

const_value set 2
const ROUTE45_POKEFAN_M1
const ROUTE45_POKEFAN_M2
const ROUTE45_POKEFAN_M3
const ROUTE45_POKEFAN_M4
const ROUTE45_BLACK_BELT
const ROUTE45_COOLTRAINER_M
const ROUTE45_COOLTRAINER_F
const ROUTE45_FRUIT_TREE
const ROUTE45_POKE_BALL1
const ROUTE45_POKE_BALL2
const ROUTE45_POKE_BALL3
const ROUTE45_POKE_BALL4
const ROUTE45_YOUNGSTER
Route45_MapScripts:
.SceneScripts:
db 0
.MapCallbacks:
db 0
TrainerBlackbeltKenji:
trainer EVENT_BEAT_BLACKBELT_KENJI, BLACKBELT_T, KENJI3, BlackbeltKenji3SeenText, BlackbeltKenji3BeatenText, 0, .Script
.Script:
writecode VAR_CALLERID, PHONE_BLACKBELT_KENJI
end_if_just_battled
opentext
checkcellnum PHONE_BLACKBELT_KENJI
iftrue UnknownScript_0x19e0e4
checkevent EVENT_KENJI_ASKED_FOR_PHONE_NUMBER
iftrue UnknownScript_0x19e0cd
special Special_SampleKenjiBreakCountdown
writetext UnknownText_0x19e5e2
waitbutton
setevent EVENT_KENJI_ASKED_FOR_PHONE_NUMBER
scall UnknownScript_0x19e11b
jump UnknownScript_0x19e0d0
UnknownScript_0x19e0cd:
scall UnknownScript_0x19e11f
UnknownScript_0x19e0d0:
askforphonenumber PHONE_BLACKBELT_KENJI
if_equal PHONE_CONTACTS_FULL, UnknownScript_0x19e12f
if_equal PHONE_CONTACT_REFUSED, UnknownScript_0x19e12b
trainertotext BLACKBELT_T, KENJI3, MEM_BUFFER_0
scall UnknownScript_0x19e123
jump UnknownScript_0x19e127
UnknownScript_0x19e0e4:
checkcode VAR_KENJI_BREAK
if_not_equal 1, UnknownScript_0x19e127
checkmorn
iftrue UnknownScript_0x19e10c
checknite
iftrue UnknownScript_0x19e112
checkevent EVENT_KENJI_ON_BREAK
iffalse UnknownScript_0x19e127
scall UnknownScript_0x19e137
verbosegiveitem PP_UP
iffalse UnknownScript_0x19e118
clearevent EVENT_KENJI_ON_BREAK
special Special_SampleKenjiBreakCountdown
jump UnknownScript_0x19e127
UnknownScript_0x19e10c:
writetext UnknownText_0x19e634
waitbutton
closetext
end
UnknownScript_0x19e112:
writetext UnknownText_0x19e66c
waitbutton
closetext
end
UnknownScript_0x19e118:
jump UnknownScript_0x19e13b
UnknownScript_0x19e11b:
jumpstd asknumber1m
end
UnknownScript_0x19e11f:
jumpstd asknumber2m
end
UnknownScript_0x19e123:
jumpstd registerednumberm
end
UnknownScript_0x19e127:
jumpstd numberacceptedm
end
UnknownScript_0x19e12b:
jumpstd numberdeclinedm
end
UnknownScript_0x19e12f:
jumpstd phonefullm
end
UnknownScript_0x19e133:
jumpstd rematchm
end
UnknownScript_0x19e137:
jumpstd giftm
end
UnknownScript_0x19e13b:
jumpstd packfullm
end
UnknownScript_0x19e13f:
setevent EVENT_PARRY_IRON
jumpstd packfullm
end
UnknownScript_0x19e146:
jumpstd rematchgiftm
end
TrainerHikerErik:
trainer EVENT_BEAT_HIKER_ERIK, HIKER, ERIK, HikerErikSeenText, HikerErikBeatenText, 0, .Script
.Script:
end_if_just_battled
opentext
writetext HikerErikAfterBattleText
waitbutton
closetext
end
TrainerHikerMichael:
trainer EVENT_BEAT_HIKER_MICHAEL, HIKER, MICHAEL, HikerMichaelSeenText, HikerMichaelBeatenText, 0, .Script
.Script:
end_if_just_battled
opentext
writetext HikerMichaelAfterBattleText
waitbutton
closetext
end
TrainerHikerParry:
trainer EVENT_BEAT_HIKER_PARRY, HIKER, PARRY3, HikerParry3SeenText, HikerParry3BeatenText, 0, .Script
.Script:
writecode VAR_CALLERID, PHONE_HIKER_PARRY
end_if_just_battled
opentext
checkflag ENGINE_PARRY
iftrue UnknownScript_0x19e1b8
checkcellnum PHONE_HIKER_PARRY
iftrue UnknownScript_0x19e127
checkevent EVENT_PARRY_ASKED_FOR_PHONE_NUMBER
iftrue UnknownScript_0x19e1a1
writetext UnknownText_0x19e434
buttonsound
setevent EVENT_PARRY_ASKED_FOR_PHONE_NUMBER
scall UnknownScript_0x19e11b
jump UnknownScript_0x19e1a4
UnknownScript_0x19e1a1:
scall UnknownScript_0x19e11f
UnknownScript_0x19e1a4:
askforphonenumber PHONE_HIKER_PARRY
if_equal PHONE_CONTACTS_FULL, UnknownScript_0x19e12f
if_equal PHONE_CONTACT_REFUSED, UnknownScript_0x19e12b
trainertotext HIKER, PARRY1, MEM_BUFFER_0
scall UnknownScript_0x19e123
jump UnknownScript_0x19e127
UnknownScript_0x19e1b8:
scall UnknownScript_0x19e133
winlosstext HikerParry3BeatenText, 0
copybytetovar wParryFightCount
if_equal 2, .Fight2
if_equal 1, .Fight1
if_equal 0, .LoadFight0
.Fight2:
checkevent EVENT_RESTORED_POWER_TO_KANTO
iftrue .LoadFight2
.Fight1:
checkevent EVENT_BEAT_ELITE_FOUR
iftrue .LoadFight1
.LoadFight0:
loadtrainer HIKER, PARRY3
startbattle
reloadmapafterbattle
loadvar wParryFightCount, 1
clearflag ENGINE_PARRY
end
.LoadFight1:
loadtrainer HIKER, PARRY1
startbattle
reloadmapafterbattle
loadvar wParryFightCount, 2
clearflag ENGINE_PARRY
end
.LoadFight2:
loadtrainer HIKER, PARRY2
startbattle
reloadmapafterbattle
clearflag ENGINE_PARRY
checkevent EVENT_PARRY_IRON
iftrue UnknownScript_0x19e219
checkevent EVENT_GOT_IRON_FROM_PARRY
iftrue UnknownScript_0x19e218
scall UnknownScript_0x19e146
verbosegiveitem IRON
iffalse UnknownScript_0x19e13f
setevent EVENT_GOT_IRON_FROM_PARRY
jump UnknownScript_0x19e127
UnknownScript_0x19e218:
end
UnknownScript_0x19e219:
opentext
writetext UnknownText_0x19e52c
waitbutton
verbosegiveitem IRON
iffalse UnknownScript_0x19e13f
clearevent EVENT_PARRY_IRON
setevent EVENT_GOT_IRON_FROM_PARRY
jump UnknownScript_0x19e127
TrainerHikerTimothy:
trainer EVENT_BEAT_HIKER_TIMOTHY, HIKER, TIMOTHY, HikerTimothySeenText, HikerTimothyBeatenText, 0, .Script
.Script:
end_if_just_battled
opentext
writetext HikerTimothyAfterBattleText
waitbutton
closetext
end
TrainerCooltrainermRyan:
trainer EVENT_BEAT_COOLTRAINERM_RYAN, COOLTRAINERM, RYAN, CooltrainermRyanSeenText, CooltrainermRyanBeatenText, 0, .Script
.Script:
end_if_just_battled
opentext
writetext CooltrainermRyanAfterBattleText
waitbutton
closetext
end
TrainerCooltrainerfKelly:
trainer EVENT_BEAT_COOLTRAINERF_KELLY, COOLTRAINERF, KELLY, CooltrainerfKellySeenText, CooltrainerfKellyBeatenText, 0, .Script
.Script:
end_if_just_battled
opentext
writetext CooltrainerfKellyAfterBattleText
waitbutton
closetext
end
YoungsterScript_0x19e269:
faceplayer
opentext
checkevent EVENT_BEAT_CAMPER_QUENTIN
iftrue UnknownScript_0x19e285
writetext UnknownText_0x19e87f
waitbutton
closetext
winlosstext UnknownText_0x19e899, 0
loadtrainer CAMPER, QUENTIN
startbattle
reloadmapafterbattle
setevent EVENT_BEAT_CAMPER_QUENTIN
closetext
end
UnknownScript_0x19e285:
writetext UnknownText_0x19e8bb
waitbutton
closetext
end
UnknownScript_0x19e28b:
writetext UnknownText_0x19e830
waitbutton
closetext
end
Route45Sign:
jumptext Route45SignText
FruitTreeScript_0x19e294:
fruittree FRUITTREE_ROUTE_45
Route45Nugget:
itemball NUGGET
Route45Revive:
itemball REVIVE
Route45Elixer:
itemball ELIXER
Route45MaxPotion:
itemball MAX_POTION
Route45HiddenPpUp:
hiddenitem EVENT_ROUTE_45_HIDDEN_PP_UP, PP_UP
HikerErikSeenText:
text "Be prepared for"
line "anything!"
para "Let me see if your"
line "#MON have been"
cont "raised properly!"
done
HikerErikBeatenText:
text "Oh, I lost that!"
done
HikerErikAfterBattleText:
text "I'll head back to"
line "BLACKTHORN's ICE"
para "PATH and train"
line "some more."
done
HikerMichaelSeenText:
text "Yo! You're spunky!"
line "But you know what?"
para "When it comes to"
line "sheer spunkiness,"
cont "I'm the man!"
done
HikerMichaelBeatenText:
text "My #MON weren't"
line "spunky enough!"
done
HikerMichaelAfterBattleText:
text "Boy, do I love"
line "HP UP! Mmmm, yum!"
para "I keep drinking my"
line "#MON's!"
para "I can't help it!"
done
HikerParry3SeenText:
text "My #MON are"
line "power packed!"
done
HikerParry3BeatenText:
text "Wahahah! I'm the"
line "big loser!"
done
UnknownText_0x19e434:
text "I'm not much good"
line "at thinking, see?"
para "So, I just plow"
line "ahead with power!"
done
HikerTimothySeenText:
text "Why do I climb"
line "mountains?"
para "Because they're"
line "there."
para "Why do I train"
line "#MON?"
para "Because they're"
line "there!"
done
HikerTimothyBeatenText:
text "Losses…"
line "They're there too!"
done
HikerTimothyAfterBattleText:
text "The best thing to"
line "ever happen to me"
para "was discovering"
line "#MON."
done
UnknownText_0x19e52c:
text "I just can't find"
line "a way to win!"
para "Keep it up!"
para "Oh, and take this"
line "--it's the gift"
para "you couldn't take"
line "when we last met."
done
BlackbeltKenji3SeenText:
text "I was training"
line "here alone."
para "Behold the fruits"
line "of my labor!"
done
BlackbeltKenji3BeatenText:
text "Waaaargh!"
done
UnknownText_0x19e5e2:
text "This calls for"
line "extreme measures."
para "I must take to the"
line "hills and train in"
cont "solitude."
done
UnknownText_0x19e634:
text "I'm going to train"
line "a bit more before"
cont "I break for lunch."
done
UnknownText_0x19e66c:
text "We had plenty of"
line "rest at lunch, so"
para "now we're all"
line "ready to go again!"
para "We're going to"
line "train again!"
done
CooltrainermRyanSeenText:
text "What are your"
line "thoughts on rais-"
cont "ing #MON?"
done
CooltrainermRyanBeatenText:
text "You've won my"
line "respect."
done
CooltrainermRyanAfterBattleText:
text "I see you're rais-"
line "ing your #MON"
cont "with care."
para "The bond you build"
line "will save you in"
cont "tough situations."
done
CooltrainerfKellySeenText:
text "What is your"
line "battle strategy?"
para "It is foolish to"
line "use strong moves"
cont "indiscriminately."
done
CooltrainerfKellyBeatenText:
text "Fine. I lost."
done
CooltrainerfKellyAfterBattleText:
text "I'm not in favor"
line "of overly power-"
cont "ful moves."
para "I want to win, but"
line "I also don't want"
cont "to harm #MON."
done
UnknownText_0x19e830:
text "I'm really, really"
line "tough!"
para "Is there anywhere"
line "I can prove how"
cont "tough I really am?"
done
UnknownText_0x19e87f:
text "I'm really, really"
line "tough!"
done
UnknownText_0x19e899:
text "I was tough at the"
line "BATTLE TOWER…"
done
UnknownText_0x19e8bb:
text "Have you been to"
line "the BATTLE TOWER?"
para "I never, ever lose"
line "there, but…"
done
Route45SignText:
text "ROUTE 45"
line "MOUNTAIN RD. AHEAD"
done
Route45_MapEvents:
; filler
db 0, 0
.Warps:
db 1
warp_def 2, 5, 1, DARK_CAVE_BLACKTHORN_ENTRANCE
.CoordEvents:
db 0
.BGEvents:
db 2
bg_event 10, 4, BGEVENT_READ, Route45Sign
bg_event 13, 80, BGEVENT_ITEM, Route45HiddenPpUp
.ObjectEvents:
db 13
object_event 10, 16, SPRITE_POKEFAN_M, SPRITEMOVEDATA_STANDING_RIGHT, 0, 0, -1, -1, PAL_NPC_BROWN, OBJECTTYPE_TRAINER, 1, TrainerHikerErik, -1
object_event 15, 65, SPRITE_POKEFAN_M, SPRITEMOVEDATA_STANDING_RIGHT, 0, 0, -1, -1, PAL_NPC_BROWN, OBJECTTYPE_TRAINER, 2, TrainerHikerMichael, -1
object_event 5, 28, SPRITE_POKEFAN_M, SPRITEMOVEDATA_STANDING_UP, 0, 0, -1, -1, PAL_NPC_BROWN, OBJECTTYPE_TRAINER, 2, TrainerHikerParry, -1
object_event 9, 65, SPRITE_POKEFAN_M, SPRITEMOVEDATA_STANDING_LEFT, 0, 0, -1, -1, PAL_NPC_BROWN, OBJECTTYPE_TRAINER, 1, TrainerHikerTimothy, -1
object_event 11, 50, SPRITE_BLACK_BELT, SPRITEMOVEDATA_SPINRANDOM_FAST, 0, 0, -1, -1, PAL_NPC_BROWN, OBJECTTYPE_TRAINER, 2, TrainerBlackbeltKenji, -1
object_event 17, 18, SPRITE_COOLTRAINER_M, SPRITEMOVEDATA_STANDING_LEFT, 0, 0, -1, -1, PAL_NPC_RED, OBJECTTYPE_TRAINER, 1, TrainerCooltrainermRyan, -1
object_event 5, 36, SPRITE_COOLTRAINER_F, SPRITEMOVEDATA_SPINRANDOM_FAST, 0, 0, -1, -1, PAL_NPC_RED, OBJECTTYPE_TRAINER, 3, TrainerCooltrainerfKelly, -1
object_event 16, 82, SPRITE_FRUIT_TREE, SPRITEMOVEDATA_ITEM_TREE, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, FruitTreeScript_0x19e294, -1
object_event 6, 51, SPRITE_POKE_BALL, SPRITEMOVEDATA_ITEM_TREE, 0, 0, -1, -1, 0, OBJECTTYPE_ITEMBALL, 0, Route45Nugget, EVENT_ROUTE_45_NUGGET
object_event 5, 66, SPRITE_POKE_BALL, SPRITEMOVEDATA_ITEM_TREE, 0, 0, -1, -1, 0, OBJECTTYPE_ITEMBALL, 0, Route45Revive, EVENT_ROUTE_45_REVIVE
object_event 6, 20, SPRITE_POKE_BALL, SPRITEMOVEDATA_ITEM_TREE, 0, 0, -1, -1, 0, OBJECTTYPE_ITEMBALL, 0, Route45Elixer, EVENT_ROUTE_45_ELIXER
object_event 7, 33, SPRITE_POKE_BALL, SPRITEMOVEDATA_ITEM_TREE, 0, 0, -1, -1, 0, OBJECTTYPE_ITEMBALL, 0, Route45MaxPotion, EVENT_ROUTE_45_MAX_POTION
object_event 4, 70, SPRITE_YOUNGSTER, SPRITEMOVEDATA_SPINRANDOM_SLOW, 0, 0, -1, -1, PAL_NPC_GREEN, OBJECTTYPE_SCRIPT, 0, YoungsterScript_0x19e269, -1