pokecrystal-board/maps/Route43.asm

527 lines
10 KiB
NASM
Raw Normal View History

2018-01-31 08:38:45 -08:00
const_def 2 ; object constants
2015-11-26 21:22:14 -08:00
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:
db 0 ; scene scripts
db 1 ; callbacks
callback MAPCALLBACK_NEWMAP, .CheckIfRockets
.CheckIfRockets:
2013-09-24 00:48:58 -07:00
checkevent EVENT_CLEARED_ROCKET_HIDEOUT
iftrue .NoRockets
setmapscene ROUTE_43_GATE, SCENE_DEFAULT
return
.NoRockets:
setmapscene ROUTE_43_GATE, SCENE_FINISHED
return
2015-07-10 01:20:21 -07:00
TrainerCamperSpencer:
trainer CAMPER, SPENCER, EVENT_BEAT_CAMPER_SPENCER, CamperSpencerSeenText, CamperSpencerBeatenText, 0, .Script
2017-12-17 17:45:04 -08:00
.Script:
2015-11-25 07:16:29 -08:00
end_if_just_battled
2015-12-09 15:25:44 -08:00
opentext
2017-12-10 12:36:58 -08:00
writetext CamperSpencerAfterBattleText
2015-11-25 07:16:29 -08:00
waitbutton
closetext
end
2015-07-10 01:20:21 -07:00
TrainerPokemaniacBen:
trainer POKEMANIAC, BEN, EVENT_BEAT_POKEMANIAC_BEN, PokemaniacBenSeenText, PokemaniacBenBeatenText, 0, .Script
2017-12-17 17:45:04 -08:00
.Script:
2015-11-25 07:16:29 -08:00
end_if_just_battled
2015-12-09 15:25:44 -08:00
opentext
2017-12-10 12:36:58 -08:00
writetext PokemaniacBenAfterBattleText
2015-11-25 07:16:29 -08:00
waitbutton
closetext
end
2018-01-15 20:02:39 -08:00
TrainerPokemaniacBrent:
trainer POKEMANIAC, BRENT1, EVENT_BEAT_POKEMANIAC_BRENT, PokemaniacBrentSeenText, PokemaniacBrentBeatenText, 0, .Script
2017-12-17 17:45:04 -08:00
.Script:
writecode VAR_CALLERID, PHONE_POKEMANIAC_BRENT
2015-11-25 07:16:29 -08:00
end_if_just_battled
2015-12-09 15:25:44 -08:00
opentext
checkflag ENGINE_BRENT
2018-01-15 20:02:39 -08:00
iftrue .WantsBattle
checkcellnum PHONE_POKEMANIAC_BRENT
iftrue .NumberAccepted
checkevent EVENT_BRENT_ASKED_FOR_PHONE_NUMBER
2018-01-15 20:02:39 -08:00
iftrue .AskedAlready
writetext PokemaniacBrentAfterBattleText
2015-11-29 19:29:45 -08:00
buttonsound
setevent EVENT_BRENT_ASKED_FOR_PHONE_NUMBER
scall .AskNumber1
2018-01-15 20:02:39 -08:00
jump .AskForNumber
2018-01-15 20:02:39 -08:00
.AskedAlready:
scall .AskNumber2
2018-01-15 20:02:39 -08:00
.AskForNumber:
askforphonenumber PHONE_POKEMANIAC_BRENT
if_equal PHONE_CONTACTS_FULL, .PhoneFull
if_equal PHONE_CONTACT_REFUSED, .NumberDeclined
2018-01-11 22:40:20 -08:00
trainertotext POKEMANIAC, BRENT1, MEM_BUFFER_0
scall .RegisteredNumber
jump .NumberAccepted
2018-01-15 20:02:39 -08:00
.WantsBattle:
scall .Rematch
2018-01-15 20:02:39 -08:00
winlosstext PokemaniacBrentBeatenText, 0
2015-07-10 13:04:00 -07:00
copybytetovar wBrentFightCount
if_equal 3, .Fight3
if_equal 2, .Fight2
if_equal 1, .Fight1
if_equal 0, .LoadFight0
.Fight3:
2013-09-24 00:48:58 -07:00
checkevent EVENT_RESTORED_POWER_TO_KANTO
iftrue .LoadFight3
.Fight2:
2015-06-24 20:20:04 -07:00
checkevent EVENT_BEAT_ELITE_FOUR
iftrue .LoadFight2
.Fight1:
2013-09-24 00:48:58 -07:00
checkevent EVENT_CLEARED_ROCKET_HIDEOUT
iftrue .LoadFight1
.LoadFight0:
loadtrainer POKEMANIAC, BRENT1
startbattle
reloadmapafterbattle
2015-07-10 13:04:00 -07:00
loadvar wBrentFightCount, 1
clearflag ENGINE_BRENT
end
.LoadFight1:
loadtrainer POKEMANIAC, BRENT2
startbattle
reloadmapafterbattle
2015-07-10 13:04:00 -07:00
loadvar wBrentFightCount, 2
clearflag ENGINE_BRENT
end
.LoadFight2:
loadtrainer POKEMANIAC, BRENT3
startbattle
reloadmapafterbattle
2015-07-10 13:04:00 -07:00
loadvar wBrentFightCount, 3
clearflag ENGINE_BRENT
end
.LoadFight3:
loadtrainer POKEMANIAC, BRENT4
startbattle
reloadmapafterbattle
clearflag ENGINE_BRENT
end
.AskNumber1:
2015-06-24 18:26:24 -07:00
jumpstd asknumber1m
end
.AskNumber2:
2015-06-24 18:26:24 -07:00
jumpstd asknumber2m
end
.RegisteredNumber:
2015-06-24 18:26:24 -07:00
jumpstd registerednumberm
end
.NumberAccepted:
2015-06-24 18:26:24 -07:00
jumpstd numberacceptedm
end
.NumberDeclined:
2015-06-24 18:26:24 -07:00
jumpstd numberdeclinedm
end
.PhoneFull:
2015-06-24 18:26:24 -07:00
jumpstd phonefullm
end
.Rematch:
2015-06-24 18:26:24 -07:00
jumpstd rematchm
end
2015-07-10 01:20:21 -07:00
TrainerPokemaniacRon:
trainer POKEMANIAC, RON, EVENT_BEAT_POKEMANIAC_RON, PokemaniacRonSeenText, PokemaniacRonBeatenText, 0, .Script
2017-12-17 17:45:04 -08:00
.Script:
2015-11-25 07:16:29 -08:00
end_if_just_battled
2015-12-09 15:25:44 -08:00
opentext
2017-12-10 12:36:58 -08:00
writetext PokemaniacRonAfterBattleText
2015-11-25 07:16:29 -08:00
waitbutton
closetext
end
2015-07-10 01:20:21 -07:00
TrainerFisherMarvin:
trainer FISHER, MARVIN, EVENT_BEAT_FISHER_MARVIN, FisherMarvinSeenText, FisherMarvinBeatenText, 0, .Script
2017-12-17 17:45:04 -08:00
.Script:
2015-11-25 07:16:29 -08:00
end_if_just_battled
2015-12-09 15:25:44 -08:00
opentext
2017-12-10 12:36:58 -08:00
writetext FisherMarvinAfterBattleText
2015-11-25 07:16:29 -08:00
waitbutton
closetext
end
2018-01-15 20:02:39 -08:00
TrainerPicnickerTiffany:
trainer PICNICKER, TIFFANY3, EVENT_BEAT_PICNICKER_TIFFANY, PicnickerTiffanySeenText, PicnickerTiffanyBeatenText, 0, .Script
2017-12-17 17:45:04 -08:00
.Script:
writecode VAR_CALLERID, PHONE_PICNICKER_TIFFANY
2015-11-25 07:16:29 -08:00
end_if_just_battled
2015-12-09 15:25:44 -08:00
opentext
checkflag ENGINE_TIFFANY
2018-01-15 20:02:39 -08:00
iftrue .WantsBattle
checkflag ENGINE_TIFFANY_HAS_PINK_BOW
2018-01-15 20:02:39 -08:00
iftrue .HasPinkBow
checkcellnum PHONE_PICNICKER_TIFFANY
iftrue .NumberAccepted
checkpoke CLEFAIRY
2018-01-15 20:02:39 -08:00
iffalse .NoClefairy
checkevent EVENT_TIFFANY_ASKED_FOR_PHONE_NUMBER
2018-01-15 20:02:39 -08:00
iftrue .AskedAlready
writetext PicnickerTiffanyWantsPicnicText
2015-11-29 19:29:45 -08:00
buttonsound
setevent EVENT_TIFFANY_ASKED_FOR_PHONE_NUMBER
scall .AskNumber1
2018-01-15 20:02:39 -08:00
jump .AskForNumber
2018-01-15 20:02:39 -08:00
.AskedAlready:
scall .AskNumber2
2018-01-15 20:02:39 -08:00
.AskForNumber:
askforphonenumber PHONE_PICNICKER_TIFFANY
if_equal PHONE_CONTACTS_FULL, .PhoneFull
if_equal PHONE_CONTACT_REFUSED, .NumberDeclined
2018-01-11 22:40:20 -08:00
trainertotext PICNICKER, TIFFANY3, MEM_BUFFER_0
scall .RegisteredNumber
jump .NumberAccepted
2018-01-15 20:02:39 -08:00
.WantsBattle:
scall .Rematch
2018-01-15 20:02:39 -08:00
winlosstext PicnickerTiffanyBeatenText, 0
2015-07-10 13:04:00 -07:00
copybytetovar wTiffanyFightCount
if_equal 3, .Fight3
if_equal 2, .Fight2
if_equal 1, .Fight1
if_equal 0, .LoadFight0
.Fight3:
2013-09-24 00:48:58 -07:00
checkevent EVENT_RESTORED_POWER_TO_KANTO
iftrue .LoadFight3
.Fight2:
2015-06-24 20:20:04 -07:00
checkevent EVENT_BEAT_ELITE_FOUR
iftrue .LoadFight2
.Fight1:
2013-09-24 00:48:58 -07:00
checkevent EVENT_CLEARED_RADIO_TOWER
iftrue .LoadFight1
.LoadFight0:
loadtrainer PICNICKER, TIFFANY3
startbattle
reloadmapafterbattle
2015-07-10 13:04:00 -07:00
loadvar wTiffanyFightCount, 1
clearflag ENGINE_TIFFANY
end
.LoadFight1:
loadtrainer PICNICKER, TIFFANY1
startbattle
reloadmapafterbattle
2015-07-10 13:04:00 -07:00
loadvar wTiffanyFightCount, 2
clearflag ENGINE_TIFFANY
end
.LoadFight2:
loadtrainer PICNICKER, TIFFANY2
startbattle
reloadmapafterbattle
2015-07-10 13:04:00 -07:00
loadvar wTiffanyFightCount, 3
clearflag ENGINE_TIFFANY
end
.LoadFight3:
loadtrainer PICNICKER, TIFFANY4
startbattle
reloadmapafterbattle
clearflag ENGINE_TIFFANY
end
2018-01-15 20:02:39 -08:00
.HasPinkBow:
scall .Gift
2015-11-04 17:20:14 -08:00
verbosegiveitem PINK_BOW
2018-01-15 20:02:39 -08:00
iffalse .NoRoom
clearflag ENGINE_TIFFANY_HAS_PINK_BOW
setevent EVENT_TIFFANY_GAVE_PINK_BOW
jump .NumberAccepted
2018-01-15 20:02:39 -08:00
.NoRoom:
jump .PackFull
2018-01-15 20:02:39 -08:00
.NoClefairy:
writetext PicnickerTiffanyClefairyText
2015-11-25 07:16:29 -08:00
waitbutton
closetext
end
.AskNumber1:
2015-06-24 18:26:24 -07:00
jumpstd asknumber1f
end
.AskNumber2:
2015-06-24 18:26:24 -07:00
jumpstd asknumber2f
end
.RegisteredNumber:
2015-06-24 18:26:24 -07:00
jumpstd registerednumberf
end
.NumberAccepted:
2015-06-24 18:26:24 -07:00
jumpstd numberacceptedf
end
.NumberDeclined:
2015-06-24 18:26:24 -07:00
jumpstd numberdeclinedf
end
.PhoneFull:
2015-06-24 18:26:24 -07:00
jumpstd phonefullf
end
.Rematch:
2015-06-24 18:26:24 -07:00
jumpstd rematchf
end
.Gift:
2015-06-24 18:26:24 -07:00
jumpstd giftf
end
.PackFull:
2015-06-24 18:26:24 -07:00
jumpstd packfullf
end
2016-04-06 21:59:45 -07:00
Route43Sign1:
jumptext Route43Sign1Text
2016-04-06 21:59:45 -07:00
Route43Sign2:
jumptext Route43Sign2Text
2016-04-06 21:59:45 -07:00
Route43TrainerTips:
jumptext Route43TrainerTipsText
2015-07-10 01:20:21 -07:00
FruitTreeScript_0x19d266:
2015-11-18 07:42:42 -08:00
fruittree FRUITTREE_ROUTE_43
2015-12-15 07:55:56 -08:00
Route43MaxEther:
itemball MAX_ETHER
2015-07-10 01:20:21 -07:00
PokemaniacBenSeenText:
text "I love #MON!"
para "That's why I"
line "started--and why"
para "I'll keep on col-"
line "lecting #MON!"
done
2015-07-10 01:20:21 -07:00
PokemaniacBenBeatenText:
text "How could you do"
line "this to me?"
done
2017-12-10 12:36:58 -08:00
PokemaniacBenAfterBattleText:
text "What else do I"
line "like besides"
cont "#MON?"
para "MARY on the radio."
line "I bet she's cute!"
done
2018-01-15 20:02:39 -08:00
PokemaniacBrentSeenText:
text "Hey! Do you have"
line "any rare #MON?"
done
2018-01-15 20:02:39 -08:00
PokemaniacBrentBeatenText:
text "Oh, my poor #-"
line "MON! Darlings!"
done
2018-01-15 20:02:39 -08:00
PokemaniacBrentAfterBattleText:
text "I'd be happy just"
line "to own a single"
cont "rare #MON."
done
2015-07-10 01:20:21 -07:00
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
2015-07-10 01:20:21 -07:00
PokemaniacRonBeatenText:
text "My NIDOKING did"
line "pretty right on!"
done
2017-12-10 12:36:58 -08:00
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
2015-07-10 01:20:21 -07:00
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
2015-07-10 01:20:21 -07:00
FisherMarvinBeatenText:
text "I lost, but I feel"
line "better anyway."
done
2017-12-10 12:36:58 -08:00
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
2015-07-10 01:20:21 -07:00
CamperSpencerSeenText:
text "I can do so much"
line "with my #MON--"
cont "it's super-fun!"
done
2015-07-10 01:20:21 -07:00
CamperSpencerBeatenText:
text "Losing isn't fun"
line "at all…"
done
2017-12-10 12:36:58 -08:00
CamperSpencerAfterBattleText:
text "What is going on"
line "at LAKE OF RAGE?"
para "We were planning"
line "to camp there."
done
2018-01-15 20:02:39 -08:00
PicnickerTiffanySeenText:
text "Are you going to"
line "LAKE OF RAGE too?"
para "Let's play for a "
line "little while!"
done
2018-01-15 20:02:39 -08:00
PicnickerTiffanyBeatenText:
text "I played too much!"
done
2018-01-15 20:02:39 -08:00
PicnickerTiffanyWantsPicnicText:
text "I'm having a pic-"
line "nic with #MON."
para "Won't you join us?"
done
2018-01-15 20:02:39 -08:00
PicnickerTiffanyClefairyText:
text "Isn't my CLEFAIRY"
line "just the most"
cont "adorable thing?"
done
2016-04-06 21:59:45 -07:00
Route43Sign1Text:
text "ROUTE 43"
para "LAKE OF RAGE -"
line "MAHOGANY TOWN"
done
2016-04-06 21:59:45 -07:00
Route43Sign2Text:
text "ROUTE 43"
para "LAKE OF RAGE -"
line "MAHOGANY TOWN"
done
2016-04-06 21:59:45 -07:00
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
db 5 ; warp events
2018-02-01 19:22:07 -08:00
warp_event 9, 51, ROUTE_43_MAHOGANY_GATE, 1
2018-02-01 18:54:00 -08:00
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
db 0 ; coord events
db 3 ; bg events
2018-02-01 19:22:07 -08:00
bg_event 13, 3, BGEVENT_READ, Route43Sign1
bg_event 11, 49, BGEVENT_READ, Route43Sign2
bg_event 16, 38, BGEVENT_READ, Route43TrainerTips
db 8 ; object events
2018-02-01 19:22:07 -08:00
object_event 13, 5, SPRITE_SUPER_NERD, SPRITEMOVEDATA_STANDING_LEFT, 0, 0, -1, -1, PAL_NPC_BLUE, OBJECTTYPE_TRAINER, 2, TrainerPokemaniacBen, -1
2018-01-15 20:02:39 -08:00
object_event 13, 20, SPRITE_SUPER_NERD, SPRITEMOVEDATA_SPINRANDOM_FAST, 0, 0, -1, -1, PAL_NPC_BLUE, OBJECTTYPE_TRAINER, 3, TrainerPokemaniacBrent, -1
2018-02-01 19:22:07 -08:00
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
2018-02-01 19:22:07 -08:00
object_event 1, 26, SPRITE_FRUIT_TREE, SPRITEMOVEDATA_STILL, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, FruitTreeScript_0x19d266, -1
object_event 12, 32, SPRITE_POKE_BALL, SPRITEMOVEDATA_STILL, 0, 0, -1, -1, 0, OBJECTTYPE_ITEMBALL, 0, Route43MaxEther, EVENT_ROUTE_43_MAX_ETHER