pokecrystal-board/maps/Route43.asm

534 lines
11 KiB
NASM

const_value set 2
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:
.SceneScripts:
db 0
.MapCallbacks:
db 1
callback MAPCALLBACK_NEWMAP, .CheckIfRockets
.CheckIfRockets:
checkevent EVENT_CLEARED_ROCKET_HIDEOUT
iftrue .NoRockets
setmapscene ROUTE_43_GATE, 0
return
.NoRockets:
setmapscene ROUTE_43_GATE, 1
return
TrainerCamperSpencer:
trainer CAMPER, SPENCER, EVENT_BEAT_CAMPER_SPENCER, CamperSpencerSeenText, CamperSpencerBeatenText, 0, .Script
.Script:
end_if_just_battled
opentext
writetext CamperSpencerAfterBattleText
waitbutton
closetext
end
TrainerPokemaniacBen:
trainer POKEMANIAC, BEN, EVENT_BEAT_POKEMANIAC_BEN, PokemaniacBenSeenText, PokemaniacBenBeatenText, 0, .Script
.Script:
end_if_just_battled
opentext
writetext PokemaniacBenAfterBattleText
waitbutton
closetext
end
TrainerPokemaniacBrent1:
trainer POKEMANIAC, BRENT1, EVENT_BEAT_POKEMANIAC_BRENT, PokemaniacBrent1SeenText, PokemaniacBrent1BeatenText, 0, .Script
.Script:
writecode VAR_CALLERID, PHONE_POKEMANIAC_BRENT
end_if_just_battled
opentext
checkflag ENGINE_BRENT
iftrue UnknownScript_0x19d0cf
checkcellnum PHONE_POKEMANIAC_BRENT
iftrue UnknownScript_0x19d138
checkevent EVENT_BRENT_ASKED_FOR_PHONE_NUMBER
iftrue UnknownScript_0x19d0b8
writetext UnknownText_0x19d359
buttonsound
setevent EVENT_BRENT_ASKED_FOR_PHONE_NUMBER
scall UnknownScript_0x19d12c
jump UnknownScript_0x19d0bb
UnknownScript_0x19d0b8:
scall UnknownScript_0x19d130
UnknownScript_0x19d0bb:
askforphonenumber PHONE_POKEMANIAC_BRENT
if_equal PHONE_CONTACTS_FULL, UnknownScript_0x19d140
if_equal PHONE_CONTACT_REFUSED, UnknownScript_0x19d13c
trainertotext POKEMANIAC, BRENT1, MEM_BUFFER_0
scall UnknownScript_0x19d134
jump UnknownScript_0x19d138
UnknownScript_0x19d0cf:
scall UnknownScript_0x19d144
winlosstext PokemaniacBrent1BeatenText, 0
copybytetovar wBrentFightCount
if_equal 3, .Fight3
if_equal 2, .Fight2
if_equal 1, .Fight1
if_equal 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
loadvar wBrentFightCount, 1
clearflag ENGINE_BRENT
end
.LoadFight1:
loadtrainer POKEMANIAC, BRENT2
startbattle
reloadmapafterbattle
loadvar wBrentFightCount, 2
clearflag ENGINE_BRENT
end
.LoadFight2:
loadtrainer POKEMANIAC, BRENT3
startbattle
reloadmapafterbattle
loadvar wBrentFightCount, 3
clearflag ENGINE_BRENT
end
.LoadFight3:
loadtrainer POKEMANIAC, BRENT4
startbattle
reloadmapafterbattle
clearflag ENGINE_BRENT
end
UnknownScript_0x19d12c:
jumpstd asknumber1m
end
UnknownScript_0x19d130:
jumpstd asknumber2m
end
UnknownScript_0x19d134:
jumpstd registerednumberm
end
UnknownScript_0x19d138:
jumpstd numberacceptedm
end
UnknownScript_0x19d13c:
jumpstd numberdeclinedm
end
UnknownScript_0x19d140:
jumpstd phonefullm
end
UnknownScript_0x19d144:
jumpstd rematchm
end
TrainerPokemaniacRon:
trainer POKEMANIAC, RON, EVENT_BEAT_POKEMANIAC_RON, PokemaniacRonSeenText, PokemaniacRonBeatenText, 0, .Script
.Script:
end_if_just_battled
opentext
writetext PokemaniacRonAfterBattleText
waitbutton
closetext
end
TrainerFisherMarvin:
trainer FISHER, MARVIN, EVENT_BEAT_FISHER_MARVIN, FisherMarvinSeenText, FisherMarvinBeatenText, 0, .Script
.Script:
end_if_just_battled
opentext
writetext FisherMarvinAfterBattleText
waitbutton
closetext
end
TrainerPicnickerTiffany3:
trainer PICNICKER, TIFFANY3, EVENT_BEAT_PICNICKER_TIFFANY, PicnickerTiffany3SeenText, PicnickerTiffany3BeatenText, 0, .Script
.Script:
writecode VAR_CALLERID, PHONE_PICNICKER_TIFFANY
end_if_just_battled
opentext
checkflag ENGINE_TIFFANY
iftrue UnknownScript_0x19d1c1
checkflag ENGINE_TIFFANY_HAS_PINK_BOW
iftrue UnknownScript_0x19d21e
checkcellnum PHONE_PICNICKER_TIFFANY
iftrue UnknownScript_0x19d245
checkpoke CLEFAIRY
iffalse UnknownScript_0x19d233
checkevent EVENT_TIFFANY_ASKED_FOR_PHONE_NUMBER
iftrue UnknownScript_0x19d1aa
writetext UnknownText_0x19d618
buttonsound
setevent EVENT_TIFFANY_ASKED_FOR_PHONE_NUMBER
scall UnknownScript_0x19d239
jump UnknownScript_0x19d1ad
UnknownScript_0x19d1aa:
scall UnknownScript_0x19d23d
UnknownScript_0x19d1ad:
askforphonenumber PHONE_PICNICKER_TIFFANY
if_equal PHONE_CONTACTS_FULL, UnknownScript_0x19d24d
if_equal PHONE_CONTACT_REFUSED, UnknownScript_0x19d249
trainertotext PICNICKER, TIFFANY3, MEM_BUFFER_0
scall UnknownScript_0x19d241
jump UnknownScript_0x19d245
UnknownScript_0x19d1c1:
scall UnknownScript_0x19d251
winlosstext PicnickerTiffany3BeatenText, 0
copybytetovar wTiffanyFightCount
if_equal 3, .Fight3
if_equal 2, .Fight2
if_equal 1, .Fight1
if_equal 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
loadvar wTiffanyFightCount, 1
clearflag ENGINE_TIFFANY
end
.LoadFight1:
loadtrainer PICNICKER, TIFFANY1
startbattle
reloadmapafterbattle
loadvar wTiffanyFightCount, 2
clearflag ENGINE_TIFFANY
end
.LoadFight2:
loadtrainer PICNICKER, TIFFANY2
startbattle
reloadmapafterbattle
loadvar wTiffanyFightCount, 3
clearflag ENGINE_TIFFANY
end
.LoadFight3:
loadtrainer PICNICKER, TIFFANY4
startbattle
reloadmapafterbattle
clearflag ENGINE_TIFFANY
end
UnknownScript_0x19d21e:
scall UnknownScript_0x19d255
verbosegiveitem PINK_BOW
iffalse UnknownScript_0x19d230
clearflag ENGINE_TIFFANY_HAS_PINK_BOW
setevent EVENT_TIFFANY_GAVE_PINK_BOW
jump UnknownScript_0x19d245
UnknownScript_0x19d230:
jump UnknownScript_0x19d259
UnknownScript_0x19d233:
writetext UnknownText_0x19d64b
waitbutton
closetext
end
UnknownScript_0x19d239:
jumpstd asknumber1f
end
UnknownScript_0x19d23d:
jumpstd asknumber2f
end
UnknownScript_0x19d241:
jumpstd registerednumberf
end
UnknownScript_0x19d245:
jumpstd numberacceptedf
end
UnknownScript_0x19d249:
jumpstd numberdeclinedf
end
UnknownScript_0x19d24d:
jumpstd phonefullf
end
UnknownScript_0x19d251:
jumpstd rematchf
end
UnknownScript_0x19d255:
jumpstd giftf
end
UnknownScript_0x19d259:
jumpstd packfullf
end
Route43Sign1:
jumptext Route43Sign1Text
Route43Sign2:
jumptext Route43Sign2Text
Route43TrainerTips:
jumptext Route43TrainerTipsText
FruitTreeScript_0x19d266:
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
PokemaniacBrent1SeenText:
text "Hey! Do you have"
line "any rare #MON?"
done
PokemaniacBrent1BeatenText:
text "Oh, my poor #-"
line "MON! Darlings!"
done
UnknownText_0x19d359:
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
PicnickerTiffany3SeenText:
text "Are you going to"
line "LAKE OF RAGE too?"
para "Let's play for a "
line "little while!"
done
PicnickerTiffany3BeatenText:
text "I played too much!"
done
UnknownText_0x19d618:
text "I'm having a pic-"
line "nic with #MON."
para "Won't you join us?"
done
UnknownText_0x19d64b:
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:
; filler
db 0, 0
.Warps:
db 5
warp_def 9, 51, 1, ROUTE_43_MAHOGANY_GATE
warp_def 10, 51, 2, ROUTE_43_MAHOGANY_GATE
warp_def 17, 35, 3, ROUTE_43_GATE
warp_def 17, 31, 1, ROUTE_43_GATE
warp_def 18, 31, 2, ROUTE_43_GATE
.CoordEvents:
db 0
.BGEvents:
db 3
bg_event 13, 3, BGEVENT_READ, Route43Sign1
bg_event 11, 49, BGEVENT_READ, Route43Sign2
bg_event 16, 38, BGEVENT_READ, Route43TrainerTips
.ObjectEvents:
db 8
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, TrainerPokemaniacBrent1, -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, TrainerPicnickerTiffany3, -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_ITEM_TREE, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, FruitTreeScript_0x19d266, -1
object_event 12, 32, SPRITE_POKE_BALL, SPRITEMOVEDATA_ITEM_TREE, 0, 0, -1, -1, 0, OBJECTTYPE_ITEMBALL, 0, Route43MaxEther, EVENT_ROUTE_43_MAX_ETHER