pokecrystal-board/maps/Route44.asm

532 lines
12 KiB
NASM

object_const_def ; object_event constants
const ROUTE44_FISHER1
const ROUTE44_FISHER2
const ROUTE44_YOUNGSTER1
const ROUTE44_SUPER_NERD
const ROUTE44_YOUNGSTER2
const ROUTE44_COOLTRAINER_M
const ROUTE44_COOLTRAINER_F
const ROUTE44_FRUIT_TREE
const ROUTE44_POKE_BALL1
const ROUTE44_POKE_BALL2
const ROUTE44_POKE_BALL3
Route44_MapScripts:
db 0 ; scene scripts
db 0 ; callbacks
TrainerBirdKeeperVance1:
trainer BIRD_KEEPER, VANCE1, EVENT_BEAT_BIRD_KEEPER_VANCE, BirdKeeperVance1SeenText, BirdKeeperVance1BeatenText, 0, .Script
.Script:
loadvar VAR_CALLERID, PHONE_BIRDKEEPER_VANCE
endifjustbattled
opentext
checkflag ENGINE_VANCE_READY_FOR_REMATCH
iftrue .WantsBattle
checkcellnum PHONE_BIRDKEEPER_VANCE
iftrue Route44NumberAcceptedM
checkevent EVENT_VANCE_ASKED_FOR_PHONE_NUMBER
iftrue .AskedAlready
writetext BirdKeeperVanceLegendaryBirdsText
promptbutton
setevent EVENT_VANCE_ASKED_FOR_PHONE_NUMBER
scall Route44AskNumber1M
sjump .AskForNumber
.AskedAlready:
scall Route44AskNumber2M
.AskForNumber:
askforphonenumber PHONE_BIRDKEEPER_VANCE
ifequal PHONE_CONTACTS_FULL, Route44PhoneFullM
ifequal PHONE_CONTACT_REFUSED, Route44NumberDeclinedM
gettrainername STRING_BUFFER_3, BIRD_KEEPER, VANCE1
scall Route44RegisteredNumberM
sjump Route44NumberAcceptedM
.WantsBattle:
scall Route44RematchM
winlosstext BirdKeeperVance1BeatenText, 0
readmem wVanceFightCount
ifequal 2, .Fight2
ifequal 1, .Fight1
ifequal 0, .LoadFight0
.Fight2:
checkevent EVENT_RESTORED_POWER_TO_KANTO
iftrue .LoadFight2
.Fight1:
checkevent EVENT_BEAT_ELITE_FOUR
iftrue .LoadFight1
.LoadFight0:
loadtrainer BIRD_KEEPER, VANCE1
startbattle
reloadmapafterbattle
loadmem wVanceFightCount, 1
clearflag ENGINE_VANCE_READY_FOR_REMATCH
end
.LoadFight1:
loadtrainer BIRD_KEEPER, VANCE2
startbattle
reloadmapafterbattle
loadmem wVanceFightCount, 2
clearflag ENGINE_VANCE_READY_FOR_REMATCH
end
.LoadFight2:
loadtrainer BIRD_KEEPER, VANCE3
startbattle
reloadmapafterbattle
clearflag ENGINE_VANCE_READY_FOR_REMATCH
checkevent EVENT_VANCE_CARBOS
iftrue .Carbos
checkevent EVENT_GOT_CARBOS_FROM_VANCE
iftrue .ReceivedCarbosBefore
scall Route44RematchGiftM
verbosegiveitem CARBOS
iffalse VancePackFull
setevent EVENT_GOT_CARBOS_FROM_VANCE
sjump Route44NumberAcceptedM
.ReceivedCarbosBefore:
end
.Carbos:
opentext
writetext BirdKeeperVance2BeatenText
waitbutton
verbosegiveitem CARBOS
iffalse VancePackFull
clearevent EVENT_VANCE_CARBOS
setevent EVENT_GOT_CARBOS_FROM_VANCE
sjump Route44NumberAcceptedM
Route44AskNumber1M:
jumpstd AskNumber1MScript
end
Route44AskNumber2M:
jumpstd AskNumber2MScript
end
Route44RegisteredNumberM:
jumpstd RegisteredNumberMScript
end
Route44NumberAcceptedM:
jumpstd NumberAcceptedMScript
end
Route44NumberDeclinedM:
jumpstd NumberDeclinedMScript
end
Route44PhoneFullM:
jumpstd PhoneFullMScript
end
Route44RematchM:
jumpstd RematchMScript
end
Route44GiftM:
jumpstd GiftMScript
end
Route44PackFullM:
jumpstd PackFullMScript
end
VancePackFull:
setevent EVENT_VANCE_CARBOS
jumpstd PackFullMScript
end
Route44RematchGiftM:
jumpstd RematchGiftMScript
end
TrainerPsychicPhil:
trainer PSYCHIC_T, PHIL, EVENT_BEAT_PSYCHIC_PHIL, PsychicPhilSeenText, PsychicPhilBeatenText, 0, .Script
.Script:
endifjustbattled
opentext
writetext PsychicPhilAfterBattleText
waitbutton
closetext
end
TrainerFisherWilton1:
trainer FISHER, WILTON1, EVENT_BEAT_FISHER_WILTON, FisherWilton1SeenText, FisherWilton1BeatenText, 0, .Script
.Script:
loadvar VAR_CALLERID, PHONE_FISHER_WILTON
endifjustbattled
opentext
checkflag ENGINE_WILTON_READY_FOR_REMATCH
iftrue .WantsBattle
checkflag ENGINE_WILTON_HAS_ITEM
iftrue .HasItem
checkcellnum PHONE_FISHER_WILTON
iftrue Route44NumberAcceptedM
checkevent EVENT_WILTON_ASKED_FOR_PHONE_NUMBER
iftrue .AskedAlready
writetext FisherWiltonHugePoliwagText
promptbutton
setevent EVENT_WILTON_ASKED_FOR_PHONE_NUMBER
scall Route44AskNumber1M
sjump .AskForNumber
.AskedAlready:
scall Route44AskNumber2M
.AskForNumber:
askforphonenumber PHONE_FISHER_WILTON
ifequal PHONE_CONTACTS_FULL, Route44PhoneFullM
ifequal PHONE_CONTACT_REFUSED, Route44NumberDeclinedM
gettrainername STRING_BUFFER_3, FISHER, WILTON1
scall Route44RegisteredNumberM
sjump Route44NumberAcceptedM
.WantsBattle:
scall Route44RematchM
winlosstext FisherWilton1BeatenText, 0
readmem wWiltonFightCount
ifequal 2, .Fight2
ifequal 1, .Fight1
ifequal 0, .LoadFight0
.Fight2:
checkevent EVENT_RESTORED_POWER_TO_KANTO
iftrue .LoadFight2
.Fight1:
checkevent EVENT_BEAT_ELITE_FOUR
iftrue .LoadFight1
.LoadFight0:
loadtrainer FISHER, WILTON1
startbattle
reloadmapafterbattle
loadmem wWiltonFightCount, 1
clearflag ENGINE_WILTON_READY_FOR_REMATCH
end
.LoadFight1:
loadtrainer FISHER, WILTON2
startbattle
reloadmapafterbattle
loadmem wWiltonFightCount, 2
clearflag ENGINE_WILTON_READY_FOR_REMATCH
end
.LoadFight2:
loadtrainer FISHER, WILTON3
startbattle
reloadmapafterbattle
clearflag ENGINE_WILTON_READY_FOR_REMATCH
end
.HasItem:
scall Route44GiftM
checkevent EVENT_WILTON_HAS_ULTRA_BALL
iftrue .UltraBall
checkevent EVENT_WILTON_HAS_GREAT_BALL
iftrue .GreatBall
checkevent EVENT_WILTON_HAS_POKE_BALL
iftrue .PokeBall
.UltraBall:
verbosegiveitem ULTRA_BALL
iffalse .Route44PackFullM
sjump .ItemReceived
.GreatBall:
verbosegiveitem GREAT_BALL
iffalse .Route44PackFullM
sjump .ItemReceived
.PokeBall:
verbosegiveitem POKE_BALL
iffalse .Route44PackFullM
.ItemReceived:
clearflag ENGINE_WILTON_HAS_ITEM
sjump Route44NumberAcceptedM
.Route44PackFullM:
sjump Route44PackFullM
TrainerFisherEdgar:
trainer FISHER, EDGAR, EVENT_BEAT_FISHER_EDGAR, FisherEdgarSeenText, FisherEdgarBeatenText, 0, .Script
.Script:
endifjustbattled
opentext
writetext FisherEdgarAfterBattleText
waitbutton
closetext
end
TrainerCooltrainerfCybil:
trainer COOLTRAINERF, CYBIL, EVENT_BEAT_COOLTRAINERF_CYBIL, CooltrainerfCybilSeenText, CooltrainerfCybilBeatenText, 0, .Script
.Script:
endifjustbattled
opentext
writetext CooltrainerfCybilAfterBattleText
waitbutton
closetext
end
TrainerPokemaniacZach:
trainer POKEMANIAC, ZACH, EVENT_BEAT_POKEMANIAC_ZACH, PokemaniacZachSeenText, PokemaniacZachBeatenText, 0, .Script
.Script:
endifjustbattled
opentext
writetext PokemaniacZachAfterBattleText
waitbutton
closetext
end
TrainerCooltrainermAllen:
trainer COOLTRAINERM, ALLEN, EVENT_BEAT_COOLTRAINERM_ALLEN, CooltrainermAllenSeenText, CooltrainermAllenBeatenText, 0, .Script
.Script:
endifjustbattled
opentext
writetext CooltrainermAllenAfterBattleText
waitbutton
closetext
end
Route44Sign1:
jumptext Route44Sign1Text
Route44Sign2:
jumptext Route44Sign2Text
Route44FruitTree:
fruittree FRUITTREE_ROUTE_44
Route44MaxRevive:
itemball MAX_REVIVE
Route44UltraBall:
itemball ULTRA_BALL
Route44MaxRepel:
itemball MAX_REPEL
Route44HiddenElixer:
hiddenitem ELIXER, EVENT_ROUTE_44_HIDDEN_ELIXER
FisherWilton1SeenText:
text "Aack! You made me"
line "lose a POLIWAG!"
para "What are you going"
line "to do about it?"
done
FisherWilton1BeatenText:
text "Just forget about"
line "it."
done
FisherWiltonHugePoliwagText:
text "That POLIWAG that"
line "got away…"
cont "It was huge."
para "I swear it must've"
line "been 16 feet long!"
done
FisherEdgarSeenText:
text "I fish until I"
line "can't anymore."
para "I also battle"
line "until I drop."
para "That's my"
line "relationship"
cont "with my #MON."
done
FisherEdgarBeatenText:
text "Hmmmm… "
line "This isn't right."
done
FisherEdgarAfterBattleText:
text "That's 100 wins"
line "to 101 losses."
para "I won't battle"
line "again for a while."
done
BirdKeeperVance1SeenText:
text "Do you know about"
line "the legendary bird"
cont "#MON?"
done
BirdKeeperVance1BeatenText:
text "Whew! You're hot"
line "stuff."
done
BirdKeeperVanceLegendaryBirdsText:
text "ARTICUNO, ZAPDOS"
line "and MOLTRES are"
para "the three legend-"
line "ary bird #MON."
para "I heard there are"
line "other legendary"
cont "birds, though."
done
BirdKeeperVance2BeatenText:
text "Why can't I ever"
line "beat you?"
para "Oh yeah, here you"
line "go. It's that gift"
para "I couldn't give"
line "you last time."
done
PsychicPhilSeenText:
text "I'm gonna win,"
line "for sure!"
done
PsychicPhilBeatenText:
text "Arrgh… That's a"
line "shocking loss…"
done
PsychicPhilAfterBattleText:
text "It's important to"
line "have conviction"
cont "on your side."
done
PokemaniacZachSeenText:
text "I'll do anything"
line "to get my hands on"
cont "rare #MON!"
done
PokemaniacZachBeatenText:
text "Oooh, your #MON"
line "are so appealing."
done
PokemaniacZachAfterBattleText:
text "If a #MON has"
line "different colors"
para "from usual, it's"
line "more valuable."
para "What? You mean"
line "that's not true?"
done
CooltrainermAllenSeenText:
text "I can tell you're"
line "a good trainer by"
cont "looking at you."
para "I'm good at #-"
line "MON, and I can see"
cont "that you are too."
done
CooltrainermAllenBeatenText:
text "Tch! It's a total"
line "loss on my part."
done
CooltrainermAllenAfterBattleText:
text "Wow. You have a"
line "lot of BADGES."
para "No wonder you're"
line "so tough."
para "I wonder if"
line "ECRUTEAK GYM's"
para "MORTY is still in"
line "training?"
para "He really hammered"
line "me."
done
CooltrainerfCybilSeenText:
text "You look strong."
para "Good trainers seek"
line "tough opponents"
cont "instinctively."
done
CooltrainerfCybilBeatenText:
text "Nope! This won't"
line "do at all."
done
CooltrainerfCybilAfterBattleText:
text "We all get better"
line "by experiencing"
cont "many battles."
para "I battled a lot to"
line "become what I am"
cont "today--an elite."
done
Route44Sign1Text:
text "ROUTE 44"
line "ICE PATH AHEAD"
done
Route44Sign2Text:
text "ROUTE 44"
para "MAHOGANY TOWN -"
line "BLACKTHORN CITY"
done
Route44_MapEvents:
db 0, 0 ; filler
db 1 ; warp events
warp_event 56, 7, ICE_PATH_1F, 1
db 0 ; coord events
db 3 ; bg events
bg_event 53, 7, BGEVENT_READ, Route44Sign1
bg_event 6, 10, BGEVENT_READ, Route44Sign2
bg_event 32, 9, BGEVENT_ITEM, Route44HiddenElixer
db 11 ; object events
object_event 35, 3, SPRITE_FISHER, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, PAL_NPC_GREEN, OBJECTTYPE_TRAINER, 1, TrainerFisherWilton1, -1
object_event 19, 13, SPRITE_FISHER, SPRITEMOVEDATA_STANDING_RIGHT, 0, 0, -1, -1, PAL_NPC_GREEN, OBJECTTYPE_TRAINER, 1, TrainerFisherEdgar, -1
object_event 10, 9, SPRITE_YOUNGSTER, SPRITEMOVEDATA_SPINCLOCKWISE, 0, 0, -1, -1, PAL_NPC_BLUE, OBJECTTYPE_TRAINER, 3, TrainerPsychicPhil, -1
object_event 43, 2, SPRITE_SUPER_NERD, SPRITEMOVEDATA_SPINCLOCKWISE, 0, 0, -1, -1, PAL_NPC_GREEN, OBJECTTYPE_TRAINER, 3, TrainerPokemaniacZach, -1
object_event 51, 5, SPRITE_YOUNGSTER, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, PAL_NPC_GREEN, OBJECTTYPE_TRAINER, 2, TrainerBirdKeeperVance1, -1
object_event 41, 15, SPRITE_COOLTRAINER_M, SPRITEMOVEDATA_STANDING_LEFT, 0, 0, -1, -1, PAL_NPC_RED, OBJECTTYPE_TRAINER, 5, TrainerCooltrainermAllen, -1
object_event 31, 14, SPRITE_COOLTRAINER_F, SPRITEMOVEDATA_STANDING_LEFT, 0, 0, -1, -1, PAL_NPC_RED, OBJECTTYPE_TRAINER, 5, TrainerCooltrainerfCybil, -1
object_event 9, 5, SPRITE_FRUIT_TREE, SPRITEMOVEDATA_STILL, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, Route44FruitTree, -1
object_event 30, 8, SPRITE_POKE_BALL, SPRITEMOVEDATA_STILL, 0, 0, -1, -1, 0, OBJECTTYPE_ITEMBALL, 0, Route44MaxRevive, EVENT_ROUTE_44_MAX_REVIVE
object_event 45, 4, SPRITE_POKE_BALL, SPRITEMOVEDATA_STILL, 0, 0, -1, -1, 0, OBJECTTYPE_ITEMBALL, 0, Route44UltraBall, EVENT_ROUTE_44_ULTRA_BALL
object_event 14, 9, SPRITE_POKE_BALL, SPRITEMOVEDATA_STILL, 0, 0, -1, -1, 0, OBJECTTYPE_ITEMBALL, 0, Route44MaxRepel, EVENT_ROUTE_44_MAX_REPEL