mirror of https://github.com/pret/pokecrystal.git
527 lines
11 KiB
NASM
527 lines
11 KiB
NASM
object_const_def
|
|
const ROUTE43_SUPER_NERD1
|
|
const ROUTE43_SUPER_NERD2
|
|
const ROUTE43_SUPER_NERD3
|
|
const ROUTE43_FISHER
|
|
const ROUTE43_LASS
|
|
const ROUTE43_YOUNGSTER
|
|
const ROUTE43_FRUIT_TREE
|
|
const ROUTE43_POKE_BALL
|
|
|
|
Route43_MapScripts:
|
|
def_scene_scripts
|
|
|
|
def_callbacks
|
|
callback MAPCALLBACK_NEWMAP, Route43CheckIfRocketsScene
|
|
|
|
Route43CheckIfRocketsScene:
|
|
checkevent EVENT_CLEARED_ROCKET_HIDEOUT
|
|
iftrue .NoRockets
|
|
setmapscene ROUTE_43_GATE, SCENE_ROUTE43GATE_ROCKET_SHAKEDOWN
|
|
endcallback
|
|
|
|
.NoRockets:
|
|
setmapscene ROUTE_43_GATE, SCENE_ROUTE43GATE_NOOP
|
|
endcallback
|
|
|
|
TrainerCamperSpencer:
|
|
trainer CAMPER, SPENCER, EVENT_BEAT_CAMPER_SPENCER, CamperSpencerSeenText, CamperSpencerBeatenText, 0, .Script
|
|
|
|
.Script:
|
|
endifjustbattled
|
|
opentext
|
|
writetext CamperSpencerAfterBattleText
|
|
waitbutton
|
|
closetext
|
|
end
|
|
|
|
TrainerPokemaniacBen:
|
|
trainer POKEMANIAC, BEN, EVENT_BEAT_POKEMANIAC_BEN, PokemaniacBenSeenText, PokemaniacBenBeatenText, 0, .Script
|
|
|
|
.Script:
|
|
endifjustbattled
|
|
opentext
|
|
writetext PokemaniacBenAfterBattleText
|
|
waitbutton
|
|
closetext
|
|
end
|
|
|
|
TrainerPokemaniacBrent:
|
|
trainer POKEMANIAC, BRENT1, EVENT_BEAT_POKEMANIAC_BRENT, PokemaniacBrentSeenText, PokemaniacBrentBeatenText, 0, .Script
|
|
|
|
.Script:
|
|
loadvar VAR_CALLERID, PHONE_POKEMANIAC_BRENT
|
|
endifjustbattled
|
|
opentext
|
|
checkflag ENGINE_BRENT_READY_FOR_REMATCH
|
|
iftrue .WantsBattle
|
|
checkcellnum PHONE_POKEMANIAC_BRENT
|
|
iftrue .NumberAccepted
|
|
checkevent EVENT_BRENT_ASKED_FOR_PHONE_NUMBER
|
|
iftrue .AskedAlready
|
|
writetext PokemaniacBrentAfterBattleText
|
|
promptbutton
|
|
setevent EVENT_BRENT_ASKED_FOR_PHONE_NUMBER
|
|
scall .AskNumber1
|
|
sjump .AskForNumber
|
|
|
|
.AskedAlready:
|
|
scall .AskNumber2
|
|
.AskForNumber:
|
|
askforphonenumber PHONE_POKEMANIAC_BRENT
|
|
ifequal PHONE_CONTACTS_FULL, .PhoneFull
|
|
ifequal PHONE_CONTACT_REFUSED, .NumberDeclined
|
|
gettrainername STRING_BUFFER_3, POKEMANIAC, BRENT1
|
|
scall .RegisteredNumber
|
|
sjump .NumberAccepted
|
|
|
|
.WantsBattle:
|
|
scall .Rematch
|
|
winlosstext PokemaniacBrentBeatenText, 0
|
|
readmem wBrentFightCount
|
|
ifequal 3, .Fight3
|
|
ifequal 2, .Fight2
|
|
ifequal 1, .Fight1
|
|
ifequal 0, .LoadFight0
|
|
.Fight3:
|
|
checkevent EVENT_RESTORED_POWER_TO_KANTO
|
|
iftrue .LoadFight3
|
|
.Fight2:
|
|
checkevent EVENT_BEAT_ELITE_FOUR
|
|
iftrue .LoadFight2
|
|
.Fight1:
|
|
checkevent EVENT_CLEARED_ROCKET_HIDEOUT
|
|
iftrue .LoadFight1
|
|
.LoadFight0:
|
|
loadtrainer POKEMANIAC, BRENT1
|
|
startbattle
|
|
reloadmapafterbattle
|
|
loadmem wBrentFightCount, 1
|
|
clearflag ENGINE_BRENT_READY_FOR_REMATCH
|
|
end
|
|
|
|
.LoadFight1:
|
|
loadtrainer POKEMANIAC, BRENT2
|
|
startbattle
|
|
reloadmapafterbattle
|
|
loadmem wBrentFightCount, 2
|
|
clearflag ENGINE_BRENT_READY_FOR_REMATCH
|
|
end
|
|
|
|
.LoadFight2:
|
|
loadtrainer POKEMANIAC, BRENT3
|
|
startbattle
|
|
reloadmapafterbattle
|
|
loadmem wBrentFightCount, 3
|
|
clearflag ENGINE_BRENT_READY_FOR_REMATCH
|
|
end
|
|
|
|
.LoadFight3:
|
|
loadtrainer POKEMANIAC, BRENT4
|
|
startbattle
|
|
reloadmapafterbattle
|
|
clearflag ENGINE_BRENT_READY_FOR_REMATCH
|
|
end
|
|
|
|
.AskNumber1:
|
|
jumpstd AskNumber1MScript
|
|
end
|
|
|
|
.AskNumber2:
|
|
jumpstd AskNumber2MScript
|
|
end
|
|
|
|
.RegisteredNumber:
|
|
jumpstd RegisteredNumberMScript
|
|
end
|
|
|
|
.NumberAccepted:
|
|
jumpstd NumberAcceptedMScript
|
|
end
|
|
|
|
.NumberDeclined:
|
|
jumpstd NumberDeclinedMScript
|
|
end
|
|
|
|
.PhoneFull:
|
|
jumpstd PhoneFullMScript
|
|
end
|
|
|
|
.Rematch:
|
|
jumpstd RematchMScript
|
|
end
|
|
|
|
TrainerPokemaniacRon:
|
|
trainer POKEMANIAC, RON, EVENT_BEAT_POKEMANIAC_RON, PokemaniacRonSeenText, PokemaniacRonBeatenText, 0, .Script
|
|
|
|
.Script:
|
|
endifjustbattled
|
|
opentext
|
|
writetext PokemaniacRonAfterBattleText
|
|
waitbutton
|
|
closetext
|
|
end
|
|
|
|
TrainerFisherMarvin:
|
|
trainer FISHER, MARVIN, EVENT_BEAT_FISHER_MARVIN, FisherMarvinSeenText, FisherMarvinBeatenText, 0, .Script
|
|
|
|
.Script:
|
|
endifjustbattled
|
|
opentext
|
|
writetext FisherMarvinAfterBattleText
|
|
waitbutton
|
|
closetext
|
|
end
|
|
|
|
TrainerPicnickerTiffany:
|
|
trainer PICNICKER, TIFFANY3, EVENT_BEAT_PICNICKER_TIFFANY, PicnickerTiffanySeenText, PicnickerTiffanyBeatenText, 0, .Script
|
|
|
|
.Script:
|
|
loadvar VAR_CALLERID, PHONE_PICNICKER_TIFFANY
|
|
endifjustbattled
|
|
opentext
|
|
checkflag ENGINE_TIFFANY_READY_FOR_REMATCH
|
|
iftrue .WantsBattle
|
|
checkflag ENGINE_TIFFANY_HAS_PINK_BOW
|
|
iftrue .HasPinkBow
|
|
checkcellnum PHONE_PICNICKER_TIFFANY
|
|
iftrue .NumberAccepted
|
|
checkpoke CLEFAIRY
|
|
iffalse .NoClefairy
|
|
checkevent EVENT_TIFFANY_ASKED_FOR_PHONE_NUMBER
|
|
iftrue .AskedAlready
|
|
writetext PicnickerTiffanyWantsPicnicText
|
|
promptbutton
|
|
setevent EVENT_TIFFANY_ASKED_FOR_PHONE_NUMBER
|
|
scall .AskNumber1
|
|
sjump .AskForNumber
|
|
|
|
.AskedAlready:
|
|
scall .AskNumber2
|
|
.AskForNumber:
|
|
askforphonenumber PHONE_PICNICKER_TIFFANY
|
|
ifequal PHONE_CONTACTS_FULL, .PhoneFull
|
|
ifequal PHONE_CONTACT_REFUSED, .NumberDeclined
|
|
gettrainername STRING_BUFFER_3, PICNICKER, TIFFANY3
|
|
scall .RegisteredNumber
|
|
sjump .NumberAccepted
|
|
|
|
.WantsBattle:
|
|
scall .Rematch
|
|
winlosstext PicnickerTiffanyBeatenText, 0
|
|
readmem wTiffanyFightCount
|
|
ifequal 3, .Fight3
|
|
ifequal 2, .Fight2
|
|
ifequal 1, .Fight1
|
|
ifequal 0, .LoadFight0
|
|
.Fight3:
|
|
checkevent EVENT_RESTORED_POWER_TO_KANTO
|
|
iftrue .LoadFight3
|
|
.Fight2:
|
|
checkevent EVENT_BEAT_ELITE_FOUR
|
|
iftrue .LoadFight2
|
|
.Fight1:
|
|
checkevent EVENT_CLEARED_RADIO_TOWER
|
|
iftrue .LoadFight1
|
|
.LoadFight0:
|
|
loadtrainer PICNICKER, TIFFANY3
|
|
startbattle
|
|
reloadmapafterbattle
|
|
loadmem wTiffanyFightCount, 1
|
|
clearflag ENGINE_TIFFANY_READY_FOR_REMATCH
|
|
end
|
|
|
|
.LoadFight1:
|
|
loadtrainer PICNICKER, TIFFANY1
|
|
startbattle
|
|
reloadmapafterbattle
|
|
loadmem wTiffanyFightCount, 2
|
|
clearflag ENGINE_TIFFANY_READY_FOR_REMATCH
|
|
end
|
|
|
|
.LoadFight2:
|
|
loadtrainer PICNICKER, TIFFANY2
|
|
startbattle
|
|
reloadmapafterbattle
|
|
loadmem wTiffanyFightCount, 3
|
|
clearflag ENGINE_TIFFANY_READY_FOR_REMATCH
|
|
end
|
|
|
|
.LoadFight3:
|
|
loadtrainer PICNICKER, TIFFANY4
|
|
startbattle
|
|
reloadmapafterbattle
|
|
clearflag ENGINE_TIFFANY_READY_FOR_REMATCH
|
|
end
|
|
|
|
.HasPinkBow:
|
|
scall .Gift
|
|
verbosegiveitem PINK_BOW
|
|
iffalse .NoRoom
|
|
clearflag ENGINE_TIFFANY_HAS_PINK_BOW
|
|
setevent EVENT_TIFFANY_GAVE_PINK_BOW
|
|
sjump .NumberAccepted
|
|
|
|
.NoRoom:
|
|
sjump .PackFull
|
|
|
|
.NoClefairy:
|
|
writetext PicnickerTiffanyClefairyText
|
|
waitbutton
|
|
closetext
|
|
end
|
|
|
|
.AskNumber1:
|
|
jumpstd AskNumber1FScript
|
|
end
|
|
|
|
.AskNumber2:
|
|
jumpstd AskNumber2FScript
|
|
end
|
|
|
|
.RegisteredNumber:
|
|
jumpstd RegisteredNumberFScript
|
|
end
|
|
|
|
.NumberAccepted:
|
|
jumpstd NumberAcceptedFScript
|
|
end
|
|
|
|
.NumberDeclined:
|
|
jumpstd NumberDeclinedFScript
|
|
end
|
|
|
|
.PhoneFull:
|
|
jumpstd PhoneFullFScript
|
|
end
|
|
|
|
.Rematch:
|
|
jumpstd RematchFScript
|
|
end
|
|
|
|
.Gift:
|
|
jumpstd GiftFScript
|
|
end
|
|
|
|
.PackFull:
|
|
jumpstd PackFullFScript
|
|
end
|
|
|
|
Route43Sign1:
|
|
jumptext Route43Sign1Text
|
|
|
|
Route43Sign2:
|
|
jumptext Route43Sign2Text
|
|
|
|
Route43TrainerTips:
|
|
jumptext Route43TrainerTipsText
|
|
|
|
Route43FruitTree:
|
|
fruittree FRUITTREE_ROUTE_43
|
|
|
|
Route43MaxEther:
|
|
itemball MAX_ETHER
|
|
|
|
PokemaniacBenSeenText:
|
|
text "I love #MON!"
|
|
|
|
para "That's why I"
|
|
line "started--and why"
|
|
|
|
para "I'll keep on col-"
|
|
line "lecting #MON!"
|
|
done
|
|
|
|
PokemaniacBenBeatenText:
|
|
text "How could you do"
|
|
line "this to me?"
|
|
done
|
|
|
|
PokemaniacBenAfterBattleText:
|
|
text "What else do I"
|
|
line "like besides"
|
|
cont "#MON?"
|
|
|
|
para "MARY on the radio."
|
|
line "I bet she's cute!"
|
|
done
|
|
|
|
PokemaniacBrentSeenText:
|
|
text "Hey! Do you have"
|
|
line "any rare #MON?"
|
|
done
|
|
|
|
PokemaniacBrentBeatenText:
|
|
text "Oh, my poor #-"
|
|
line "MON! Darlings!"
|
|
done
|
|
|
|
PokemaniacBrentAfterBattleText:
|
|
text "I'd be happy just"
|
|
line "to own a single"
|
|
cont "rare #MON."
|
|
done
|
|
|
|
PokemaniacRonSeenText:
|
|
text "Would you get"
|
|
line "this?"
|
|
|
|
para "Some <RIVAL> guy"
|
|
line "made fun of my"
|
|
cont "#MON!"
|
|
|
|
para "Darn it! My #-"
|
|
line "MON's great!"
|
|
done
|
|
|
|
PokemaniacRonBeatenText:
|
|
text "My NIDOKING did"
|
|
line "pretty right on!"
|
|
done
|
|
|
|
PokemaniacRonAfterBattleText:
|
|
text "It's okay for"
|
|
line "people to like"
|
|
|
|
para "different types"
|
|
line "of #MON."
|
|
|
|
para "#MON isn't just"
|
|
line "about having the"
|
|
cont "most powerful one."
|
|
done
|
|
|
|
FisherMarvinSeenText:
|
|
text "I'm in a slump."
|
|
|
|
para "Maybe it's the"
|
|
line "gear I'm using."
|
|
|
|
para "Let's battle for a"
|
|
line "change of pace!"
|
|
done
|
|
|
|
FisherMarvinBeatenText:
|
|
text "I lost, but I feel"
|
|
line "better anyway."
|
|
done
|
|
|
|
FisherMarvinAfterBattleText:
|
|
text "KURT's LURE BALL"
|
|
line "is the best for"
|
|
|
|
para "catching hooked"
|
|
line "#MON."
|
|
|
|
para "It's much more"
|
|
line "effective than a"
|
|
cont "ULTRA BALL."
|
|
done
|
|
|
|
CamperSpencerSeenText:
|
|
text "I can do so much"
|
|
line "with my #MON--"
|
|
cont "it's super-fun!"
|
|
done
|
|
|
|
CamperSpencerBeatenText:
|
|
text "Losing isn't fun"
|
|
line "at all…"
|
|
done
|
|
|
|
CamperSpencerAfterBattleText:
|
|
text "What is going on"
|
|
line "at LAKE OF RAGE?"
|
|
|
|
para "We were planning"
|
|
line "to camp there."
|
|
done
|
|
|
|
PicnickerTiffanySeenText:
|
|
text "Are you going to"
|
|
line "LAKE OF RAGE too?"
|
|
|
|
para "Let's play for a "
|
|
line "little while!"
|
|
done
|
|
|
|
PicnickerTiffanyBeatenText:
|
|
text "I played too much!"
|
|
done
|
|
|
|
PicnickerTiffanyWantsPicnicText:
|
|
text "I'm having a pic-"
|
|
line "nic with #MON."
|
|
|
|
para "Won't you join us?"
|
|
done
|
|
|
|
PicnickerTiffanyClefairyText:
|
|
text "Isn't my CLEFAIRY"
|
|
line "just the most"
|
|
cont "adorable thing?"
|
|
done
|
|
|
|
Route43Sign1Text:
|
|
text "ROUTE 43"
|
|
|
|
para "LAKE OF RAGE -"
|
|
line "MAHOGANY TOWN"
|
|
done
|
|
|
|
Route43Sign2Text:
|
|
text "ROUTE 43"
|
|
|
|
para "LAKE OF RAGE -"
|
|
line "MAHOGANY TOWN"
|
|
done
|
|
|
|
Route43TrainerTipsText:
|
|
text "TRAINER TIPS"
|
|
|
|
para "All #MON have"
|
|
line "pros and cons"
|
|
|
|
para "depending on their"
|
|
line "types."
|
|
|
|
para "If their types"
|
|
line "differ, a higher-"
|
|
|
|
para "level #MON may"
|
|
line "lose in battle."
|
|
|
|
para "Learn which types"
|
|
line "are strong and"
|
|
|
|
para "weak against your"
|
|
line "#MON's type."
|
|
done
|
|
|
|
Route43_MapEvents:
|
|
db 0, 0 ; filler
|
|
|
|
def_warp_events
|
|
warp_event 9, 51, ROUTE_43_MAHOGANY_GATE, 1
|
|
warp_event 10, 51, ROUTE_43_MAHOGANY_GATE, 2
|
|
warp_event 17, 35, ROUTE_43_GATE, 3
|
|
warp_event 17, 31, ROUTE_43_GATE, 1
|
|
warp_event 18, 31, ROUTE_43_GATE, 2
|
|
|
|
def_coord_events
|
|
|
|
def_bg_events
|
|
bg_event 13, 3, BGEVENT_READ, Route43Sign1
|
|
bg_event 11, 49, BGEVENT_READ, Route43Sign2
|
|
bg_event 16, 38, BGEVENT_READ, Route43TrainerTips
|
|
|
|
def_object_events
|
|
object_event 13, 5, SPRITE_SUPER_NERD, SPRITEMOVEDATA_STANDING_LEFT, 0, 0, -1, -1, PAL_NPC_BLUE, OBJECTTYPE_TRAINER, 2, TrainerPokemaniacBen, -1
|
|
object_event 13, 20, SPRITE_SUPER_NERD, SPRITEMOVEDATA_SPINRANDOM_FAST, 0, 0, -1, -1, PAL_NPC_BLUE, OBJECTTYPE_TRAINER, 3, TrainerPokemaniacBrent, -1
|
|
object_event 14, 7, SPRITE_SUPER_NERD, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, PAL_NPC_BLUE, OBJECTTYPE_TRAINER, 2, TrainerPokemaniacRon, -1
|
|
object_event 4, 16, SPRITE_FISHER, SPRITEMOVEDATA_STANDING_RIGHT, 0, 0, -1, -1, PAL_NPC_GREEN, OBJECTTYPE_TRAINER, 4, TrainerFisherMarvin, -1
|
|
object_event 9, 25, SPRITE_LASS, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, PAL_NPC_GREEN, OBJECTTYPE_TRAINER, 2, TrainerPicnickerTiffany, -1
|
|
object_event 13, 40, SPRITE_YOUNGSTER, SPRITEMOVEDATA_SPINRANDOM_FAST, 0, 0, -1, -1, PAL_NPC_GREEN, OBJECTTYPE_TRAINER, 3, TrainerCamperSpencer, -1
|
|
object_event 1, 26, SPRITE_FRUIT_TREE, SPRITEMOVEDATA_STILL, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, Route43FruitTree, -1
|
|
object_event 12, 32, SPRITE_POKE_BALL, SPRITEMOVEDATA_STILL, 0, 0, -1, -1, 0, OBJECTTYPE_ITEMBALL, 0, Route43MaxEther, EVENT_ROUTE_43_MAX_ETHER
|