pokecrystal-board/maps/Route39.asm

370 lines
7.5 KiB
NASM

const_def 2 ; object constants
const ROUTE39_SAILOR
const ROUTE39_POKEFAN_M
const ROUTE39_POKEFAN_F1
const ROUTE39_MILTANK1
const ROUTE39_MILTANK2
const ROUTE39_MILTANK3
const ROUTE39_MILTANK4
const ROUTE39_PSYCHIC_NORMAN
const ROUTE39_FRUIT_TREE
const ROUTE39_POKEFAN_F2
Route39_MapScripts:
db 0 ; scene scripts
db 0 ; callbacks
Route39Miltank:
opentext
writetext Route39MiltankText
cry MILTANK
waitbutton
closetext
end
TrainerPokefanmDerek:
trainer POKEFANM, DEREK1, EVENT_BEAT_POKEFANM_DEREK, PokefanmDerekSeenText, PokefanmDerekBeatenText, 0, .Script
.Script:
writecode VAR_CALLERID, PHONE_POKEFANM_DEREK
endifjustbattled
opentext
checkflag ENGINE_DEREK_HAS_NUGGET
iftrue .HasNugget
checkcellnum PHONE_POKEFANM_DEREK
iftrue .NumberAccepted
checkpoke PIKACHU
iffalse .WantsPikachu
checkevent EVENT_DEREK_ASKED_FOR_PHONE_NUMBER
iftrue .AskedAlready
writetext PokefanMDerekText_NotBragging
buttonsound
setevent EVENT_DEREK_ASKED_FOR_PHONE_NUMBER
scall .AskNumber1
jump .AskForNumber
.AskedAlready:
scall .AskNumber2
.AskForNumber:
askforphonenumber PHONE_POKEFANM_DEREK
ifequal PHONE_CONTACTS_FULL, .PhoneFull
ifequal PHONE_CONTACT_REFUSED, .NumberDeclined
trainertotext POKEFANM, DEREK1, MEM_BUFFER_0
scall .RegisteredNumber
jump .NumberAccepted
.HasNugget:
scall .Gift
verbosegiveitem NUGGET
iffalse .NoRoom
clearflag ENGINE_DEREK_HAS_NUGGET
jump .NumberAccepted
.NoRoom:
jump .PackFull
.WantsPikachu:
writetext PokefanMDerekPikachuIsItText
waitbutton
closetext
end
.AskNumber1:
jumpstd asknumber1m
end
.AskNumber2:
jumpstd asknumber2m
end
.RegisteredNumber:
jumpstd registerednumberm
end
.NumberAccepted:
jumpstd numberacceptedm
end
.NumberDeclined:
jumpstd numberdeclinedm
end
.PhoneFull:
jumpstd phonefullm
end
.Gift:
jumpstd giftm
end
.PackFull:
jumpstd packfullm
end
TrainerPokefanfRuth:
trainer POKEFANF, RUTH, EVENT_BEAT_POKEFANF_RUTH, PokefanfRuthSeenText, PokefanfRuthBeatenText, 0, .Script
.Script:
endifjustbattled
opentext
writetext PokefanfRuthAfterBattleText
waitbutton
closetext
end
TrainerSailorEugene:
trainer SAILOR, EUGENE, EVENT_BEAT_SAILOR_EUGENE, SailorEugeneSeenText, SailorEugeneBeatenText, 0, .Script
.Script:
endifjustbattled
opentext
writetext SailorEugeneAfterBattleText
waitbutton
closetext
end
TrainerPsychicNorman:
trainer PSYCHIC_T, NORMAN, EVENT_BEAT_PSYCHIC_NORMAN, PsychicNormanSeenText, PsychicNormanBeatenText, 0, .Script
.Script:
endifjustbattled
opentext
writetext PsychicNormanAfterBattleText
waitbutton
closetext
end
TrainerPokefanfJaime:
faceplayer
opentext
checktime NITE
iffalse .NotNight
checkevent EVENT_BEAT_POKEFANF_JAIME
iftrue .Beaten
writetext PokefanfJaimeSeenText
waitbutton
closetext
winlosstext PokefanfJaimeBeatenText, 0
loadtrainer POKEFANF, JAIME
startbattle
reloadmapafterbattle
setevent EVENT_BEAT_POKEFANF_JAIME
closetext
end
.Beaten:
writetext PokefanfJaimeAfterBattleText
waitbutton
closetext
end
.NotNight:
writetext PokefanfJaimeHopeItGetsDarkText
waitbutton
closetext
end
Route39Sign:
jumptext Route39SignText
MoomooFarmSign:
jumptext MoomooFarmSignText
Route39TrainerTips:
jumptext Route39TrainerTipsText
FruitTreeScript_0x1a5bf4:
fruittree FRUITTREE_ROUTE_39
Route39HiddenNugget:
hiddenitem NUGGET, EVENT_ROUTE_39_HIDDEN_NUGGET
Route39MiltankText:
text "MILTANK: Mooo!"
done
SailorEugeneSeenText:
text "I just got back to"
line "OLIVINE."
para "So how about a"
line "#MON battle?"
done
SailorEugeneBeatenText:
text "Awaaargh!"
done
SailorEugeneAfterBattleText:
text "My #MON were"
line "caught and raised"
cont "overseas."
para "They're my compan-"
line "ions on those long"
cont "voyages."
done
PokefanmDerekSeenText:
text "This is a good"
line "time to brag about"
cont "my PIKACHU!"
done
PokefanmDerekBeatenText:
text "I had no time to"
line "show off PIKACHU…"
done
PokefanMDerekText_NotBragging:
text "I'm not listening"
line "to your bragging!"
para "We # FANS have"
line "a policy of not"
para "listening to other"
line "people brag!"
done
PokefanfRuthSeenText:
text "Such darling"
line "#MON."
para "Let's show our"
line "#MON together"
cont "at the same time."
done
PokefanfRuthBeatenText:
text "I don't mind"
line "losing."
done
PokefanfRuthAfterBattleText:
text "Do you know about"
line "baby #MON?"
para "I bet they're just"
line "adorable!"
done
PokefanMDerekPikachuIsItText:
text "PIKACHU is it!"
line "Don't you agree?"
done
PsychicNormanSeenText:
text "Let me see what"
line "your #MON are"
cont "capable of."
done
PsychicNormanBeatenText:
text "Ooh, your #MON"
line "have potential."
done
PsychicNormanAfterBattleText:
text "You know how #-"
line "MON have different"
cont "abilities?"
para "People are like"
line "that too. Every-"
cont "one has different"
cont "potential."
done
PokefanfJaimeHopeItGetsDarkText:
text "Ufufufu… I hope it"
line "gets dark soon."
done
PokefanfJaimeSeenText:
text "You came at just"
line "the right time."
para "Let's battle."
done
PokefanfJaimeBeatenText:
text "Oh, how disap-"
line "pointing…"
done
PokefanfJaimeAfterBattleText:
text "I met my MEOWTH at"
line "night, right here"
cont "on ROUTE 39."
para "I'm not sure why,"
line "but it seems to"
para "like it when I"
line "train here."
para "It seems to become"
line "friendlier by"
para "training here than"
line "anywhere else."
done
Route39SignText:
text "ROUTE 39"
para "OLIVINE CITY -"
line "ECRUTEAK CITY"
done
MoomooFarmSignText:
text "MOOMOO FARM"
para "Enjoy Our Fresh"
line "and Tasty Milk"
done
Route39TrainerTipsText:
text "TRAINER TIPS"
para "Use HEADBUTT on"
line "trees to shake"
cont "#MON out."
para "Different kinds of"
line "#MON drop out"
cont "of trees."
para "Use HEADBUTT on"
line "any tree you see!"
done
Route39_MapEvents:
db 0, 0 ; filler
db 2 ; warp events
warp_event 1, 3, ROUTE_39_BARN, 1
warp_event 5, 3, ROUTE_39_FARMHOUSE, 1
db 0 ; coord events
db 4 ; bg events
bg_event 5, 31, BGEVENT_READ, Route39TrainerTips
bg_event 9, 5, BGEVENT_READ, MoomooFarmSign
bg_event 15, 7, BGEVENT_READ, Route39Sign
bg_event 5, 13, BGEVENT_ITEM, Route39HiddenNugget
db 10 ; object events
object_event 13, 29, SPRITE_SAILOR, SPRITEMOVEDATA_STANDING_LEFT, 0, 0, -1, -1, PAL_NPC_BLUE, OBJECTTYPE_TRAINER, 5, TrainerSailorEugene, -1
object_event 10, 22, SPRITE_POKEFAN_M, SPRITEMOVEDATA_STANDING_UP, 0, 0, -1, -1, PAL_NPC_RED, OBJECTTYPE_TRAINER, 4, TrainerPokefanmDerek, -1
object_event 11, 19, SPRITE_POKEFAN_F, SPRITEMOVEDATA_STANDING_RIGHT, 0, 0, -1, -1, PAL_NPC_RED, OBJECTTYPE_TRAINER, 4, TrainerPokefanfRuth, -1
object_event 3, 12, SPRITE_TAUROS, SPRITEMOVEDATA_POKEMON, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, Route39Miltank, -1
object_event 6, 11, SPRITE_TAUROS, SPRITEMOVEDATA_POKEMON, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, Route39Miltank, -1
object_event 4, 15, SPRITE_TAUROS, SPRITEMOVEDATA_POKEMON, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, Route39Miltank, -1
object_event 8, 13, SPRITE_TAUROS, SPRITEMOVEDATA_POKEMON, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, Route39Miltank, -1
object_event 13, 7, SPRITE_STANDING_YOUNGSTER, SPRITEMOVEDATA_SPINRANDOM_FAST, 0, 0, -1, -1, PAL_NPC_BLUE, OBJECTTYPE_TRAINER, 1, TrainerPsychicNorman, -1
object_event 9, 3, SPRITE_FRUIT_TREE, SPRITEMOVEDATA_STILL, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, FruitTreeScript_0x1a5bf4, -1
object_event 4, 22, SPRITE_POKEFAN_F, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, PAL_NPC_RED, OBJECTTYPE_SCRIPT, 0, TrainerPokefanfJaime, -1