pokecrystal-board/maps/Route12.asm

194 lines
4.0 KiB
NASM

const_value set 2
const ROUTE12_FISHER1
const ROUTE12_FISHER2
const ROUTE12_FISHER3
const ROUTE12_FISHER4
const ROUTE12_POKE_BALL1
const ROUTE12_POKE_BALL2
Route12_MapScriptHeader:
.SceneScripts:
db 0
.MapCallbacks:
db 0
TrainerFisherKyle:
trainer EVENT_BEAT_FISHER_KYLE, FISHER, KYLE, FisherKyleSeenText, FisherKyleBeatenText, 0, .Script
.Script:
end_if_just_battled
opentext
writetext FisherKyleAfterBattleText
waitbutton
closetext
end
TrainerFisherMartin:
trainer EVENT_BEAT_FISHER_MARTIN, FISHER, MARTIN, FisherMartinSeenText, FisherMartinBeatenText, 0, .Script
.Script:
end_if_just_battled
opentext
writetext FisherMartinAfterBattleText
waitbutton
closetext
end
TrainerFisherStephen:
trainer EVENT_BEAT_FISHER_STEPHEN, FISHER, STEPHEN, FisherStephenSeenText, FisherStephenBeatenText, 0, .Script
.Script:
end_if_just_battled
opentext
writetext FisherStephenAfterBattleText
waitbutton
closetext
end
TrainerFisherBarney:
trainer EVENT_BEAT_FISHER_BARNEY, 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 EVENT_ROUTE_12_HIDDEN_ELIXER, 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_MapEventHeader:
; filler
db 0, 0
.Warps:
db 1
warp_def 11, 33, 1, ROUTE_12_SUPER_ROD_HOUSE
.CoordEvents:
db 0
.BGEvents:
db 3
bg_event 11, 27, BGEVENT_READ, Route12Sign
bg_event 13, 9, BGEVENT_READ, FishingSpotSign
bg_event 14, 13, BGEVENT_ITEM, Route12HiddenElixer
.ObjectEvents:
db 6
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_ITEM_TREE, 0, 0, -1, -1, 0, OBJECTTYPE_ITEMBALL, 0, Route12Calcium, EVENT_ROUTE_12_CALCIUM
object_event 5, 51, SPRITE_POKE_BALL, SPRITEMOVEDATA_ITEM_TREE, 0, 0, -1, -1, 0, OBJECTTYPE_ITEMBALL, 0, Route12Nugget, EVENT_ROUTE_12_NUGGET