pokecrystal-board/maps/Route30.asm
2018-01-31 11:08:47 -05:00

435 lines
9.3 KiB
NASM

const_value set 2 ; object constants
const ROUTE30_YOUNGSTER1
const ROUTE30_YOUNGSTER2
const ROUTE30_YOUNGSTER3
const ROUTE30_BUG_CATCHER
const ROUTE30_YOUNGSTER4
const ROUTE30_MONSTER1
const ROUTE30_MONSTER2
const ROUTE30_FRUIT_TREE1
const ROUTE30_FRUIT_TREE2
const ROUTE30_COOLTRAINER_F
const ROUTE30_POKE_BALL
Route30_MapScripts:
db 0 ; scene scripts
db 0 ; callbacks
YoungsterJoey_ImportantBattleScript:
waitsfx
playmusic MUSIC_JOHTO_TRAINER_BATTLE
opentext
writetext Text_UseTackle
pause 30
closetext
playsound SFX_TACKLE
applymovement ROUTE30_MONSTER2, Route30_JoeysRattataAttacksMovement
opentext
faceplayer
writetext Text_ThisIsABigBattle
waitbutton
spriteface ROUTE30_YOUNGSTER1, UP
closetext
playsound SFX_TACKLE
applymovement ROUTE30_MONSTER1, Route30_MikeysRattataAttacksMovement
special RestartMapMusic
end
TrainerYoungsterJoey:
trainer YOUNGSTER, JOEY1, EVENT_BEAT_YOUNGSTER_JOEY, YoungsterJoey1SeenText, YoungsterJoey1BeatenText, 0, .Script
.Script:
writecode VAR_CALLERID, PHONE_YOUNGSTER_JOEY
end_if_just_battled
opentext
checkflag ENGINE_JOEY
iftrue .Rematch
checkcellnum PHONE_YOUNGSTER_JOEY
iftrue .NumberAccepted
checkevent EVENT_JOEY_ASKED_FOR_PHONE_NUMBER
iftrue .AskAgain
writetext YoungsterJoey1AfterText
buttonsound
setevent EVENT_JOEY_ASKED_FOR_PHONE_NUMBER
scall .AskNumber1
jump .RequestNumber
.AskAgain:
scall .AskNumber2
.RequestNumber:
askforphonenumber PHONE_YOUNGSTER_JOEY
if_equal PHONE_CONTACTS_FULL, .PhoneFull
if_equal PHONE_CONTACT_REFUSED, .NumberDeclined
trainertotext YOUNGSTER, JOEY1, MEM_BUFFER_0
scall .RegisteredNumber
jump .NumberAccepted
.Rematch:
scall .RematchStd
winlosstext YoungsterJoey1BeatenText, 0
copybytetovar wJoeyFightCount
if_equal 4, .Fight4
if_equal 3, .Fight3
if_equal 2, .Fight2
if_equal 1, .Fight1
if_equal 0, .LoadFight0
.Fight4:
checkevent EVENT_BEAT_ELITE_FOUR
iftrue .LoadFight4
.Fight3:
checkevent EVENT_CLEARED_RADIO_TOWER
iftrue .LoadFight3
.Fight2:
checkflag ENGINE_FLYPOINT_OLIVINE
iftrue .LoadFight2
.Fight1:
checkflag ENGINE_FLYPOINT_GOLDENROD
iftrue .LoadFight1
.LoadFight0:
loadtrainer YOUNGSTER, JOEY1
startbattle
reloadmapafterbattle
loadvar wJoeyFightCount, 1
clearflag ENGINE_JOEY
end
.LoadFight1:
loadtrainer YOUNGSTER, JOEY2
startbattle
reloadmapafterbattle
loadvar wJoeyFightCount, 2
clearflag ENGINE_JOEY
end
.LoadFight2:
loadtrainer YOUNGSTER, JOEY3
startbattle
reloadmapafterbattle
loadvar wJoeyFightCount, 3
clearflag ENGINE_JOEY
end
.LoadFight3:
loadtrainer YOUNGSTER, JOEY4
startbattle
reloadmapafterbattle
loadvar wJoeyFightCount, 4
clearflag ENGINE_JOEY
end
.LoadFight4:
loadtrainer YOUNGSTER, JOEY5
startbattle
reloadmapafterbattle
clearflag ENGINE_JOEY
checkevent EVENT_JOEY_HP_UP
iftrue .GiveHPUp
checkevent EVENT_GOT_HP_UP_FROM_JOEY
iftrue .done
scall .RematchGift
verbosegiveitem HP_UP
iffalse .PackFull
setevent EVENT_GOT_HP_UP_FROM_JOEY
jump .NumberAccepted
.done
end
.GiveHPUp:
opentext
writetext YoungsterJoeyText_GiveHPUpAfterBattle
waitbutton
verbosegiveitem HP_UP
iffalse .PackFull
clearevent EVENT_JOEY_HP_UP
setevent EVENT_GOT_HP_UP_FROM_JOEY
jump .NumberAccepted
.AskNumber1:
jumpstd asknumber1m
end
.AskNumber2:
jumpstd asknumber2m
end
.RegisteredNumber:
jumpstd registerednumberm
end
.NumberAccepted:
jumpstd numberacceptedm
end
.NumberDeclined:
jumpstd numberdeclinedm
end
.PhoneFull:
jumpstd phonefullm
end
.RematchStd:
jumpstd rematchm
end
.PackFull:
setevent EVENT_JOEY_HP_UP
jumpstd packfullm
end
.RematchGift:
jumpstd rematchgiftm
end
TrainerYoungsterMikey:
trainer YOUNGSTER, MIKEY, EVENT_BEAT_YOUNGSTER_MIKEY, YoungsterMikeySeenText, YoungsterMikeyBeatenText, 0, .Script
.Script:
end_if_just_battled
opentext
writetext YoungsterMikeyAfterText
waitbutton
closetext
end
TrainerBugCatcherDon:
trainer BUG_CATCHER, DON, EVENT_BEAT_BUG_CATCHER_DON, BugCatcherDonSeenText, BugCatcherDonBeatenText, 0, .Script
.Script:
end_if_just_battled
opentext
writetext BugCatcherDonAfterText
waitbutton
closetext
end
Route30YoungsterScript:
faceplayer
opentext
checkevent EVENT_GAVE_MYSTERY_EGG_TO_ELM
iftrue .CompletedEggQuest
writetext Route30YoungsterText_DirectionsToMrPokemonsHouse
waitbutton
closetext
end
.CompletedEggQuest:
writetext Route30YoungsterText_EveryoneIsBattling
waitbutton
closetext
end
Route30CooltrainerFScript:
jumptextfaceplayer Route30CooltrainerFText
Route30Sign:
jumptext Route30SignText
MrPokemonsHouseDirectionsSign:
jumptext MrPokemonsHouseDirectionsSignText
MrPokemonsHouseSign:
jumptext MrPokemonsHouseSignText
Route30TrainerTips:
jumptext Route30TrainerTipsText
Route30Antidote:
itemball ANTIDOTE
Route30FruitTree1:
fruittree FRUITTREE_ROUTE_30_1
Route30FruitTree2:
fruittree FRUITTREE_ROUTE_30_2
Route30HiddenPotion:
hiddenitem POTION, EVENT_ROUTE_30_HIDDEN_POTION
Route30_JoeysRattataAttacksMovement:
fix_facing
big_step UP
big_step DOWN
step_end
Route30_MikeysRattataAttacksMovement:
fix_facing
big_step DOWN
big_step UP
step_end
Text_UseTackle:
text "Go, RATTATA!"
para "TACKLE!"
done
Text_ThisIsABigBattle:
text "What? This is a"
line "big battle!"
cont "Leave me alone!"
done
YoungsterJoey1SeenText:
text "I just lost, so"
line "I'm trying to find"
cont "more #MON."
para "Wait! You look"
line "weak! Come on,"
cont "let's battle!"
done
YoungsterJoey1BeatenText:
text "Ack! I lost again!"
line "Doggone it!"
done
YoungsterJoey1AfterText:
text "Do I have to have"
line "more #MON in"
para "order to battle"
line "better?"
para "No! I'm sticking"
line "with this one no"
cont "matter what!"
done
YoungsterMikeySeenText:
text "You're a #MON"
line "trainer, right?"
para "Then you have to"
line "battle!"
done
YoungsterMikeyBeatenText:
text "That's strange."
line "I won before."
done
YoungsterMikeyAfterText:
text "Becoming a good"
line "trainer is really"
cont "tough."
para "I'm going to bat-"
line "tle other people"
cont "to get better."
done
BugCatcherDonSeenText:
text "Instead of a bug"
line "#MON, I found"
cont "a trainer!"
done
BugCatcherDonBeatenText:
text "Argh! You're too"
line "strong!"
done
BugCatcherDonAfterText:
text "I ran out of #"
line "BALLS while I was"
cont "catching #MON."
para "I should've bought"
line "some more…"
done
Route30YoungsterText_DirectionsToMrPokemonsHouse:
text "MR.#MON's"
line "house? It's a bit"
cont "farther ahead."
done
Route30YoungsterText_EveryoneIsBattling:
text "Everyone's having"
line "fun battling!"
cont "You should too!"
done
Route30CooltrainerFText:
text "I'm not a trainer."
para "But if you look"
line "one in the eyes,"
cont "prepare to battle."
done
Route30SignText:
text "ROUTE 30"
para "VIOLET CITY -"
line "CHERRYGROVE CITY"
done
MrPokemonsHouseDirectionsSignText:
text "MR.#MON'S HOUSE"
line "STRAIGHT AHEAD!"
done
MrPokemonsHouseSignText:
text "MR.#MON'S HOUSE"
done
Route30TrainerTipsText:
text "TRAINER TIPS"
para "No stealing other"
line "people's #MON!"
para "# BALLS are to"
line "be thrown only at"
cont "wild #MON!"
done
YoungsterJoeyText_GiveHPUpAfterBattle:
text "I lost again…"
line "Gee, you're tough!"
para "Oh yeah, I almost"
line "forgot that I had"
cont "to give you this."
para "Use it to get even"
line "tougher, OK?"
para "I'm going to get"
line "tougher too."
done
Route30_MapEvents:
db 0, 0 ; filler
db 2 ; warp events
warp_event 7, 39, 1, ROUTE_30_BERRY_HOUSE
warp_event 17, 5, 1, MR_POKEMONS_HOUSE
db 0 ; coord events
db 5 ; bg events
bg_event 9, 43, BGEVENT_READ, Route30Sign
bg_event 13, 29, BGEVENT_READ, MrPokemonsHouseDirectionsSign
bg_event 15, 5, BGEVENT_READ, MrPokemonsHouseSign
bg_event 3, 21, BGEVENT_READ, Route30TrainerTips
bg_event 14, 9, BGEVENT_ITEM, Route30HiddenPotion
db 11 ; object events
object_event 5, 26, SPRITE_YOUNGSTER, SPRITEMOVEDATA_STANDING_UP, 0, 0, -1, -1, PAL_NPC_BLUE, OBJECTTYPE_SCRIPT, 0, YoungsterJoey_ImportantBattleScript, EVENT_ROUTE_30_BATTLE
object_event 2, 28, SPRITE_YOUNGSTER, SPRITEMOVEDATA_STANDING_RIGHT, 0, 0, -1, -1, PAL_NPC_BLUE, OBJECTTYPE_TRAINER, 3, TrainerYoungsterJoey, EVENT_ROUTE_30_YOUNGSTER_JOEY
object_event 5, 23, SPRITE_YOUNGSTER, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, PAL_NPC_BLUE, OBJECTTYPE_TRAINER, 1, TrainerYoungsterMikey, -1
object_event 1, 7, SPRITE_BUG_CATCHER, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, PAL_NPC_BROWN, OBJECTTYPE_TRAINER, 3, TrainerBugCatcherDon, -1
object_event 7, 30, SPRITE_YOUNGSTER, SPRITEMOVEDATA_WALK_LEFT_RIGHT, 1, 0, -1, -1, PAL_NPC_RED, OBJECTTYPE_SCRIPT, 0, Route30YoungsterScript, -1
object_event 5, 24, SPRITE_MONSTER, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, PAL_NPC_RED, OBJECTTYPE_SCRIPT, 0, ObjectEvent, EVENT_ROUTE_30_BATTLE
object_event 5, 25, SPRITE_MONSTER, SPRITEMOVEDATA_STANDING_UP, 0, 0, -1, -1, PAL_NPC_BLUE, OBJECTTYPE_SCRIPT, 0, ObjectEvent, EVENT_ROUTE_30_BATTLE
object_event 5, 39, SPRITE_FRUIT_TREE, SPRITEMOVEDATA_STILL, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, Route30FruitTree1, -1
object_event 11, 5, SPRITE_FRUIT_TREE, SPRITEMOVEDATA_STILL, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, Route30FruitTree2, -1
object_event 2, 13, SPRITE_COOLTRAINER_F, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, Route30CooltrainerFScript, -1
object_event 8, 35, SPRITE_POKE_BALL, SPRITEMOVEDATA_STILL, 0, 0, -1, -1, 0, OBJECTTYPE_ITEMBALL, 0, Route30Antidote, EVENT_ROUTE_30_ANTIDOTE