pokecrystal/maps/Route46.asm

271 lines
5.6 KiB
NASM

object_const_def ; object_event constants
const ROUTE46_POKEFAN_M
const ROUTE46_YOUNGSTER
const ROUTE46_LASS
const ROUTE46_FRUIT_TREE1
const ROUTE46_FRUIT_TREE2
const ROUTE46_POKE_BALL
Route46_MapScripts:
db 0 ; scene scripts
db 0 ; callbacks
TrainerCamperTed:
trainer CAMPER, TED, EVENT_BEAT_CAMPER_TED, CamperTedSeenText, CamperTedBeatenText, 0, .Script
.Script:
endifjustbattled
opentext
writetext CamperTedAfterBattleText
waitbutton
closetext
end
TrainerPicnickerErin1:
trainer PICNICKER, ERIN1, EVENT_BEAT_PICNICKER_ERIN, PicnickerErin1SeenText, PicnickerErin1BeatenText, 0, .Script
.Script:
loadvar VAR_CALLERID, PHONE_PICNICKER_ERIN
endifjustbattled
opentext
checkflag ENGINE_ERIN
iftrue .WantsBattle
checkcellnum PHONE_PICNICKER_ERIN
iftrue Route46NumberAcceptedF
checkevent EVENT_ERIN_ASKED_FOR_PHONE_NUMBER
iftrue .AskedAlready
writetext PicnickerErinAfterBattleText
buttonsound
setevent EVENT_ERIN_ASKED_FOR_PHONE_NUMBER
scall Route46AskNumber1F
sjump .AskForNumber
.AskedAlready:
scall Route46AskNumber2F
.AskForNumber:
askforphonenumber PHONE_PICNICKER_ERIN
ifequal PHONE_CONTACTS_FULL, Route46PhoneFullF
ifequal PHONE_CONTACT_REFUSED, Route46NumberDeclinedF
gettrainername STRING_BUFFER_3, PICNICKER, ERIN1
scall Route46RegisteredNumberF
sjump Route46NumberAcceptedF
.WantsBattle:
scall Route46RematchF
winlosstext PicnickerErin1BeatenText, 0
readmem wErinFightCount
ifequal 2, .Fight2
ifequal 1, .Fight1
ifequal 0, .LoadFight0
.Fight2:
checkevent EVENT_RESTORED_POWER_TO_KANTO
iftrue .LoadFight2
.Fight1:
checkevent EVENT_BEAT_ELITE_FOUR
iftrue .LoadFight1
.LoadFight0:
loadtrainer PICNICKER, ERIN1
startbattle
reloadmapafterbattle
loadmem wErinFightCount, 1
clearflag ENGINE_ERIN
end
.LoadFight1:
loadtrainer PICNICKER, ERIN2
startbattle
reloadmapafterbattle
loadmem wErinFightCount, 2
clearflag ENGINE_ERIN
end
.LoadFight2:
loadtrainer PICNICKER, ERIN3
startbattle
reloadmapafterbattle
clearflag ENGINE_ERIN
checkevent EVENT_ERIN_CALCIUM
iftrue .HasCalcium
checkevent EVENT_GOT_CALCIUM_FROM_ERIN
iftrue .GotCalciumAlready
scall Route46RematchGiftF
verbosegiveitem CALCIUM
iffalse ErinNoRoomForCalcium
setevent EVENT_GOT_CALCIUM_FROM_ERIN
sjump Route46NumberAcceptedF
.GotCalciumAlready:
end
.HasCalcium:
opentext
writetext PicnickerErin2BeatenText
waitbutton
verbosegiveitem CALCIUM
iffalse ErinNoRoomForCalcium
clearevent EVENT_ERIN_CALCIUM
setevent EVENT_GOT_CALCIUM_FROM_ERIN
sjump Route46NumberAcceptedF
Route46AskNumber1F:
jumpstd asknumber1f
end
Route46AskNumber2F:
jumpstd asknumber2f
end
Route46RegisteredNumberF:
jumpstd registerednumberf
end
Route46NumberAcceptedF:
jumpstd numberacceptedf
end
Route46NumberDeclinedF:
jumpstd numberdeclinedf
end
Route46PhoneFullF:
jumpstd phonefullf
end
Route46RematchF:
jumpstd rematchf
end
ErinNoRoomForCalcium:
setevent EVENT_ERIN_CALCIUM
jumpstd packfullf
end
Route46RematchGiftF:
jumpstd rematchgiftf
end
TrainerHikerBailey:
trainer HIKER, BAILEY, EVENT_BEAT_HIKER_BAILEY, HikerBaileySeenText, HikerBaileyBeatenText, 0, .Script
.Script:
endifjustbattled
opentext
writetext HikerBaileyAfterBattleText
waitbutton
closetext
end
Route46Sign:
jumptext Route46SignText
Route46XSpeed:
itemball X_SPEED
Route46FruitTree1:
fruittree FRUITTREE_ROUTE_46_1
Route46FruitTree2:
fruittree FRUITTREE_ROUTE_46_2
HikerBaileySeenText:
text "Awright! I'll show"
line "you the power of"
cont "mountain #MON!"
done
HikerBaileyBeatenText:
text "Mercy! You showed"
line "me your power!"
done
HikerBaileyAfterBattleText:
text "It's over. I don't"
line "mind. We HIKERS"
cont "are like that."
done
CamperTedSeenText:
text "I'm raising #-"
line "MON too!"
para "Will you battle"
line "with me?"
done
CamperTedBeatenText:
text "Wha…?"
done
CamperTedAfterBattleText:
text "I did my best but"
line "came up short."
para "No excuses--I"
line "admit I lost."
done
PicnickerErin1SeenText:
text "I raise #MON"
line "too!"
para "Will you battle"
line "with me?"
done
PicnickerErin1BeatenText:
text "Oh, rats!"
done
PicnickerErinAfterBattleText:
text "I've been to many"
line "GYMS, but the GYM"
para "in GOLDENROD is my"
line "favorite."
para "It's filled with"
line "pretty flowers!"
done
PicnickerErin2BeatenText:
text "Aww… I keep losing"
line "all the time!"
para "I'll just have to"
line "try harder!"
para "Anyway, thanks for"
line "battling me again"
para "and again. Here's"
line "that present from"
cont "the other time."
done
Route46SignText:
text "ROUTE 46"
line "MOUNTAIN RD. AHEAD"
done
Route46_MapEvents:
db 0, 0 ; filler
db 3 ; warp events
warp_event 7, 33, ROUTE_29_ROUTE_46_GATE, 1
warp_event 8, 33, ROUTE_29_ROUTE_46_GATE, 2
warp_event 14, 5, DARK_CAVE_VIOLET_ENTRANCE, 3
db 0 ; coord events
db 1 ; bg events
bg_event 9, 27, BGEVENT_READ, Route46Sign
db 6 ; object events
object_event 12, 19, SPRITE_POKEFAN_M, SPRITEMOVEDATA_STANDING_LEFT, 0, 0, -1, -1, PAL_NPC_BROWN, OBJECTTYPE_TRAINER, 2, TrainerHikerBailey, -1
object_event 4, 14, SPRITE_YOUNGSTER, SPRITEMOVEDATA_STANDING_UP, 0, 0, -1, -1, PAL_NPC_GREEN, OBJECTTYPE_TRAINER, 2, TrainerCamperTed, -1
object_event 2, 13, SPRITE_LASS, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, PAL_NPC_GREEN, OBJECTTYPE_TRAINER, 2, TrainerPicnickerErin1, -1
object_event 7, 5, SPRITE_FRUIT_TREE, SPRITEMOVEDATA_STILL, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, Route46FruitTree1, -1
object_event 8, 6, SPRITE_FRUIT_TREE, SPRITEMOVEDATA_STILL, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, Route46FruitTree2, -1
object_event 1, 15, SPRITE_POKE_BALL, SPRITEMOVEDATA_STILL, 0, 0, -1, -1, 0, OBJECTTYPE_ITEMBALL, 0, Route46XSpeed, EVENT_ROUTE_46_X_SPEED