pokecrystal-board/maps/Route12.asm
2018-02-01 22:22:07 -05:00

187 lines
4.0 KiB
NASM

const_def 2 ; object constants
const ROUTE12_FISHER1
const ROUTE12_FISHER2
const ROUTE12_FISHER3
const ROUTE12_FISHER4
const ROUTE12_POKE_BALL1
const ROUTE12_POKE_BALL2
Route12_MapScripts:
db 0 ; scene scripts
db 0 ; callbacks
TrainerFisherKyle:
trainer FISHER, KYLE, EVENT_BEAT_FISHER_KYLE, FisherKyleSeenText, FisherKyleBeatenText, 0, .Script
.Script:
end_if_just_battled
opentext
writetext FisherKyleAfterBattleText
waitbutton
closetext
end
TrainerFisherMartin:
trainer FISHER, MARTIN, EVENT_BEAT_FISHER_MARTIN, FisherMartinSeenText, FisherMartinBeatenText, 0, .Script
.Script:
end_if_just_battled
opentext
writetext FisherMartinAfterBattleText
waitbutton
closetext
end
TrainerFisherStephen:
trainer FISHER, STEPHEN, EVENT_BEAT_FISHER_STEPHEN, FisherStephenSeenText, FisherStephenBeatenText, 0, .Script
.Script:
end_if_just_battled
opentext
writetext FisherStephenAfterBattleText
waitbutton
closetext
end
TrainerFisherBarney:
trainer FISHER, BARNEY, EVENT_BEAT_FISHER_BARNEY, FisherBarneySeenText, FisherBarneyBeatenText, 0, .Script
.Script:
end_if_just_battled
opentext
writetext FisherBarneyAfterBattleText
waitbutton
closetext
end
Route12Sign:
jumptext Route12SignText
FishingSpotSign:
jumptext FishingSpotSignText
Route12Calcium:
itemball CALCIUM
Route12Nugget:
itemball NUGGET
Route12HiddenElixer:
hiddenitem ELIXER, EVENT_ROUTE_12_HIDDEN_ELIXER
FisherMartinSeenText:
text "Patience is the"
line "key to both fish-"
cont "ing and #MON."
done
FisherMartinBeatenText:
text "Gwaaah!"
done
FisherMartinAfterBattleText:
text "I'm too impatient"
line "for fishing…"
done
FisherStephenSeenText:
text "I feel so content,"
line "fishing while lis-"
cont "tening to some"
cont "tunes on my radio."
done
FisherStephenBeatenText:
text "My stupid radio"
line "distracted me!"
done
FisherStephenAfterBattleText:
text "Have you checked"
line "out KANTO's radio"
para "programs? We get a"
line "good variety here."
done
FisherBarneySeenText:
text "What's most impor-"
line "tant in our every-"
cont "day lives?"
done
FisherBarneyBeatenText:
text "The answer is"
line "coming up next!"
done
FisherBarneyAfterBattleText:
text "I think electric-"
line "ity is the most"
para "important thing in"
line "our daily lives."
para "If it weren't,"
line "people wouldn't"
para "have made such a"
line "fuss when the"
para "POWER PLANT went"
line "out of commission."
done
FisherKyleSeenText:
text "Do you remember?"
done
FisherKyleBeatenText:
text "You do remember?"
done
FisherKyleAfterBattleText:
text "The tug you feel"
line "on the ROD when"
para "you hook a #-"
line "MON…"
para "That's the best"
line "feeling ever for"
cont "an angler like me."
done
Route12SignText:
text "ROUTE 12"
para "NORTH TO LAVENDER"
line "TOWN"
done
FishingSpotSignText:
text "FISHING SPOT"
done
Route12_MapEvents:
db 0, 0 ; filler
db 1 ; warp events
warp_event 11, 33, ROUTE_12_SUPER_ROD_HOUSE, 1
db 0 ; coord events
db 3 ; bg events
bg_event 11, 27, BGEVENT_READ, Route12Sign
bg_event 13, 9, BGEVENT_READ, FishingSpotSign
bg_event 14, 13, BGEVENT_ITEM, Route12HiddenElixer
db 6 ; object events
object_event 5, 13, SPRITE_FISHER, SPRITEMOVEDATA_SPINRANDOM_FAST, 0, 0, -1, -1, PAL_NPC_GREEN, OBJECTTYPE_TRAINER, 1, TrainerFisherMartin, -1
object_event 14, 23, SPRITE_FISHER, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, PAL_NPC_GREEN, OBJECTTYPE_TRAINER, 1, TrainerFisherStephen, -1
object_event 10, 38, SPRITE_FISHER, SPRITEMOVEDATA_STANDING_LEFT, 0, 0, -1, -1, PAL_NPC_GREEN, OBJECTTYPE_TRAINER, 5, TrainerFisherBarney, -1
object_event 6, 7, SPRITE_FISHER, SPRITEMOVEDATA_STANDING_RIGHT, 0, 0, -1, -1, PAL_NPC_GREEN, OBJECTTYPE_TRAINER, 3, TrainerFisherKyle, -1
object_event 5, 43, SPRITE_POKE_BALL, SPRITEMOVEDATA_STILL, 0, 0, -1, -1, 0, OBJECTTYPE_ITEMBALL, 0, Route12Calcium, EVENT_ROUTE_12_CALCIUM
object_event 5, 51, SPRITE_POKE_BALL, SPRITEMOVEDATA_STILL, 0, 0, -1, -1, 0, OBJECTTYPE_ITEMBALL, 0, Route12Nugget, EVENT_ROUTE_12_NUGGET