pokecrystal-board/maps/Route46.asm

271 lines
5.7 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 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
2015-07-10 01:20:21 -07:00
TrainerCamperTed:
trainer CAMPER, TED, EVENT_BEAT_CAMPER_TED, CamperTedSeenText, CamperTedBeatenText, 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 CamperTedAfterBattleText
2015-11-25 07:16:29 -08:00
waitbutton
closetext
end
2015-07-10 01:20:21 -07:00
TrainerPicnickerErin1:
trainer PICNICKER, ERIN1, EVENT_BEAT_PICNICKER_ERIN, PicnickerErin1SeenText, PicnickerErin1BeatenText, 0, .Script
2017-12-17 17:45:04 -08:00
.Script:
writecode VAR_CALLERID, PHONE_PICNICKER_ERIN
2015-11-25 07:16:29 -08:00
end_if_just_battled
2015-12-09 15:25:44 -08:00
opentext
checkflag ENGINE_ERIN
iftrue .WantsBattle
checkcellnum PHONE_PICNICKER_ERIN
iftrue Route46NumberAcceptedF
checkevent EVENT_ERIN_ASKED_FOR_PHONE_NUMBER
2018-01-15 18:39:07 -08:00
iftrue .AskedAlready
writetext PicnickerErinAfterBattleText
2015-11-29 19:29:45 -08:00
buttonsound
setevent EVENT_ERIN_ASKED_FOR_PHONE_NUMBER
scall Route46AskNumber1F
2018-01-15 18:39:07 -08:00
jump .AskForNumber
2018-01-15 18:39:07 -08:00
.AskedAlready:
scall Route46AskNumber2F
2018-01-15 18:39:07 -08:00
.AskForNumber:
askforphonenumber PHONE_PICNICKER_ERIN
if_equal PHONE_CONTACTS_FULL, Route46PhoneFullF
if_equal PHONE_CONTACT_REFUSED, Route46NumberDeclinedF
2018-01-11 22:40:20 -08:00
trainertotext PICNICKER, ERIN1, MEM_BUFFER_0
scall Route46RegisteredNumberF
jump Route46NumberAcceptedF
.WantsBattle:
scall Route46RematchF
2015-11-02 11:37:02 -08:00
winlosstext PicnickerErin1BeatenText, 0
2015-07-10 13:04:00 -07:00
copybytetovar wErinFightCount
if_equal 2, .Fight2
if_equal 1, .Fight1
if_equal 0, .LoadFight0
.Fight2:
2013-09-24 00:48:58 -07:00
checkevent EVENT_RESTORED_POWER_TO_KANTO
iftrue .LoadFight2
.Fight1:
2015-06-24 20:20:04 -07:00
checkevent EVENT_BEAT_ELITE_FOUR
iftrue .LoadFight1
.LoadFight0:
loadtrainer PICNICKER, ERIN1
startbattle
reloadmapafterbattle
2015-07-10 13:04:00 -07:00
loadvar wErinFightCount, 1
clearflag ENGINE_ERIN
end
.LoadFight1:
loadtrainer PICNICKER, ERIN2
startbattle
reloadmapafterbattle
2015-07-10 13:04:00 -07:00
loadvar wErinFightCount, 2
clearflag ENGINE_ERIN
end
.LoadFight2:
loadtrainer PICNICKER, ERIN3
startbattle
reloadmapafterbattle
clearflag ENGINE_ERIN
2013-09-24 00:48:58 -07:00
checkevent EVENT_ERIN_CALCIUM
2018-01-15 18:39:07 -08:00
iftrue .HasCalcium
checkevent EVENT_GOT_CALCIUM_FROM_ERIN
2018-01-15 18:39:07 -08:00
iftrue .GotCalciumAlready
scall Route46RematchGiftF
2015-11-04 17:20:14 -08:00
verbosegiveitem CALCIUM
2018-01-15 18:39:07 -08:00
iffalse ErinNoRoomForCalcium
setevent EVENT_GOT_CALCIUM_FROM_ERIN
jump Route46NumberAcceptedF
2018-01-15 18:39:07 -08:00
.GotCalciumAlready:
end
2018-01-15 18:39:07 -08:00
.HasCalcium:
2015-12-09 15:25:44 -08:00
opentext
2018-01-15 18:39:07 -08:00
writetext PicnickerErin2BeatenText
2015-11-25 07:16:29 -08:00
waitbutton
2015-11-04 17:20:14 -08:00
verbosegiveitem CALCIUM
2018-01-15 18:39:07 -08:00
iffalse ErinNoRoomForCalcium
2013-09-24 00:48:58 -07:00
clearevent EVENT_ERIN_CALCIUM
setevent EVENT_GOT_CALCIUM_FROM_ERIN
jump Route46NumberAcceptedF
Route46AskNumber1F:
2015-06-24 18:26:24 -07:00
jumpstd asknumber1f
end
Route46AskNumber2F:
2015-06-24 18:26:24 -07:00
jumpstd asknumber2f
end
Route46RegisteredNumberF:
2015-06-24 18:26:24 -07:00
jumpstd registerednumberf
end
Route46NumberAcceptedF:
2015-06-24 18:26:24 -07:00
jumpstd numberacceptedf
end
Route46NumberDeclinedF:
2015-06-24 18:26:24 -07:00
jumpstd numberdeclinedf
end
Route46PhoneFullF:
2015-06-24 18:26:24 -07:00
jumpstd phonefullf
end
Route46RematchF:
2015-06-24 18:26:24 -07:00
jumpstd rematchf
end
2018-01-15 18:39:07 -08:00
ErinNoRoomForCalcium:
2013-09-24 00:48:58 -07:00
setevent EVENT_ERIN_CALCIUM
2015-06-24 18:26:24 -07:00
jumpstd packfullf
end
Route46RematchGiftF:
2015-06-24 18:26:24 -07:00
jumpstd rematchgiftf
end
2015-07-10 01:20:21 -07:00
TrainerHikerBailey:
trainer HIKER, BAILEY, EVENT_BEAT_HIKER_BAILEY, HikerBaileySeenText, HikerBaileyBeatenText, 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 HikerBaileyAfterBattleText
2015-11-25 07:16:29 -08:00
waitbutton
closetext
end
2016-04-06 21:59:45 -07:00
Route46Sign:
jumptext Route46SignText
2015-12-15 07:55:56 -08:00
Route46XSpeed:
itemball X_SPEED
2015-07-10 01:20:21 -07:00
FruitTreeScript_0x1a978f:
2015-11-18 07:42:42 -08:00
fruittree FRUITTREE_ROUTE_46_1
2015-07-10 01:20:21 -07:00
FruitTreeScript_0x1a9791:
2015-11-18 07:42:42 -08:00
fruittree FRUITTREE_ROUTE_46_2
2015-07-10 01:20:21 -07:00
HikerBaileySeenText:
text "Awright! I'll show"
line "you the power of"
cont "mountain #MON!"
done
2015-07-10 01:20:21 -07:00
HikerBaileyBeatenText:
text "Mercy! You showed"
line "me your power!"
done
2017-12-10 12:36:58 -08:00
HikerBaileyAfterBattleText:
text "It's over. I don't"
line "mind. We HIKERS"
cont "are like that."
done
2015-07-10 01:20:21 -07:00
CamperTedSeenText:
text "I'm raising #-"
line "MON too!"
para "Will you battle"
line "with me?"
done
2015-07-10 01:20:21 -07:00
CamperTedBeatenText:
text "Wha…?"
done
2017-12-10 12:36:58 -08:00
CamperTedAfterBattleText:
text "I did my best but"
line "came up short."
para "No excuses--I"
line "admit I lost."
done
2015-07-10 01:20:21 -07:00
PicnickerErin1SeenText:
text "I raise #MON"
line "too!"
para "Will you battle"
line "with me?"
done
2015-07-10 01:20:21 -07:00
PicnickerErin1BeatenText:
text "Oh, rats!"
done
2018-01-15 18:39:07 -08:00
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
2018-01-15 18:39:07 -08:00
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
2016-04-06 21:59:45 -07:00
Route46SignText:
text "ROUTE 46"
line "MOUNTAIN RD. AHEAD"
done
Route46_MapEvents:
db 0, 0 ; filler
db 3 ; warp events
warp_event 7, 33, 1, ROUTE_29_ROUTE_46_GATE
warp_event 8, 33, 2, ROUTE_29_ROUTE_46_GATE
warp_event 14, 5, 3, DARK_CAVE_VIOLET_ENTRANCE
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, FruitTreeScript_0x1a978f, -1
object_event 8, 6, SPRITE_FRUIT_TREE, SPRITEMOVEDATA_STILL, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, FruitTreeScript_0x1a9791, -1
object_event 1, 15, SPRITE_POKE_BALL, SPRITEMOVEDATA_STILL, 0, 0, -1, -1, 0, OBJECTTYPE_ITEMBALL, 0, Route46XSpeed, EVENT_ROUTE_46_X_SPEED