pokecrystal-board/maps/Route44.asm
2015-07-13 00:18:01 -04:00

640 lines
12 KiB
NASM

Route44_MapScriptHeader:
; trigger count
db 0
; callback count
db 0
TrainerBird_keeperVance1:
; bit/flag number
dw EVENT_BEAT_BIRD_KEEPER_VANCE
; trainer group && trainer id
db BIRD_KEEPER, VANCE1
; text when seen
dw Bird_keeperVance1SeenText
; text when trainer beaten
dw Bird_keeperVance1BeatenText
; script when lost
dw $0000
; script when talk again
dw Bird_keeperVance1Script
Bird_keeperVance1Script:
writecode VAR_CALLERID, $20
talkaftercancel
loadfont
checkflag ENGINE_VANCE
iftrue UnknownScript_0x19d86a
checkcellnum $20
iftrue UnknownScript_0x19d8eb
checkevent EVENT_VANCE_ASKED_FOR_PHONE_NUMBER
iftrue UnknownScript_0x19d853
writetext UnknownText_0x19dbf3
keeptextopen
setevent EVENT_VANCE_ASKED_FOR_PHONE_NUMBER
scall UnknownScript_0x19d8df
jump UnknownScript_0x19d856
UnknownScript_0x19d853:
scall UnknownScript_0x19d8e3
UnknownScript_0x19d856:
askforphonenumber $20
if_equal $1, UnknownScript_0x19d8f3
if_equal $2, UnknownScript_0x19d8ef
trainertotext BIRD_KEEPER, VANCE1, $0
scall UnknownScript_0x19d8e7
jump UnknownScript_0x19d8eb
UnknownScript_0x19d86a:
scall UnknownScript_0x19d8f7
winlosstext Bird_keeperVance1BeatenText, $0000
copybytetovar wVanceFightCount
if_equal 2, .Fight2
if_equal 1, .Fight1
if_equal 0, .LoadFight0
.Fight2
checkevent EVENT_RESTORED_POWER_TO_KANTO
iftrue .LoadFight2
.Fight1
checkevent EVENT_BEAT_ELITE_FOUR
iftrue .LoadFight1
.LoadFight0
loadtrainer BIRD_KEEPER, VANCE1
startbattle
returnafterbattle
loadvar wVanceFightCount, 1
clearflag ENGINE_VANCE
end
.LoadFight1
loadtrainer BIRD_KEEPER, VANCE2
startbattle
returnafterbattle
loadvar wVanceFightCount, 2
clearflag ENGINE_VANCE
end
.LoadFight2
loadtrainer BIRD_KEEPER, VANCE3
startbattle
returnafterbattle
clearflag ENGINE_VANCE
checkevent EVENT_VANCE_CARBOS
iftrue UnknownScript_0x19d8cb
checkevent EVENT_GOT_CARBOS_FROM_VANCE
iftrue UnknownScript_0x19d8ca
scall UnknownScript_0x19d90a
verbosegiveitem CARBOS, 1
iffalse UnknownScript_0x19d903
setevent EVENT_GOT_CARBOS_FROM_VANCE
jump UnknownScript_0x19d8eb
UnknownScript_0x19d8ca:
end
UnknownScript_0x19d8cb:
loadfont
writetext UnknownText_0x19dc67
closetext
verbosegiveitem CARBOS, 1
iffalse UnknownScript_0x19d903
clearevent EVENT_VANCE_CARBOS
setevent EVENT_GOT_CARBOS_FROM_VANCE
jump UnknownScript_0x19d8eb
UnknownScript_0x19d8df:
jumpstd asknumber1m
end
UnknownScript_0x19d8e3:
jumpstd asknumber2m
end
UnknownScript_0x19d8e7:
jumpstd registerednumberm
end
UnknownScript_0x19d8eb:
jumpstd numberacceptedm
end
UnknownScript_0x19d8ef:
jumpstd numberdeclinedm
end
UnknownScript_0x19d8f3:
jumpstd phonefullm
end
UnknownScript_0x19d8f7:
jumpstd rematchm
end
UnknownScript_0x19d8fb:
jumpstd giftm
end
UnknownScript_0x19d8ff:
jumpstd packfullm
end
UnknownScript_0x19d903:
setevent EVENT_VANCE_CARBOS
jumpstd packfullm
end
UnknownScript_0x19d90a:
jumpstd rematchgiftm
end
TrainerPsychicPhil:
; bit/flag number
dw EVENT_BEAT_PSYCHIC_PHIL
; trainer group && trainer id
db PSYCHIC_T, PHIL
; text when seen
dw PsychicPhilSeenText
; text when trainer beaten
dw PsychicPhilBeatenText
; script when lost
dw $0000
; script when talk again
dw PsychicPhilScript
PsychicPhilScript:
talkaftercancel
loadfont
writetext UnknownText_0x19dcfc
closetext
loadmovesprites
end
TrainerFisherWilton1:
; bit/flag number
dw EVENT_BEAT_FISHER_WILTON
; trainer group && trainer id
db FISHER, WILTON1
; text when seen
dw FisherWilton1SeenText
; text when trainer beaten
dw FisherWilton1BeatenText
; script when lost
dw $0000
; script when talk again
dw FisherWilton1Script
FisherWilton1Script:
writecode VAR_CALLERID, $21
talkaftercancel
loadfont
checkflag ENGINE_WILTON
iftrue UnknownScript_0x19d96e
checkflag ENGINE_WILTON_HAS_ITEM
iftrue UnknownScript_0x19d9b4
checkcellnum $21
iftrue UnknownScript_0x19d8eb
checkevent EVENT_WILTON_ASKED_FOR_PHONE_NUMBER
iftrue UnknownScript_0x19d957
writetext UnknownText_0x19daa8
keeptextopen
setevent EVENT_WILTON_ASKED_FOR_PHONE_NUMBER
scall UnknownScript_0x19d8df
jump UnknownScript_0x19d95a
UnknownScript_0x19d957:
scall UnknownScript_0x19d8e3
UnknownScript_0x19d95a:
askforphonenumber $21
if_equal $1, UnknownScript_0x19d8f3
if_equal $2, UnknownScript_0x19d8ef
trainertotext FISHER, WILTON1, $0
scall UnknownScript_0x19d8e7
jump UnknownScript_0x19d8eb
UnknownScript_0x19d96e:
scall UnknownScript_0x19d8f7
winlosstext FisherWilton1BeatenText, $0000
copybytetovar wWiltonFightCount
if_equal 2, .Fight2
if_equal 1, .Fight1
if_equal 0, .LoadFight0
.Fight2
checkevent EVENT_RESTORED_POWER_TO_KANTO
iftrue .LoadFight2
.Fight1
checkevent EVENT_BEAT_ELITE_FOUR
iftrue .LoadFight1
.LoadFight0
loadtrainer FISHER, WILTON1
startbattle
returnafterbattle
loadvar wWiltonFightCount, 1
clearflag ENGINE_WILTON
end
.LoadFight1
loadtrainer FISHER, WILTON2
startbattle
returnafterbattle
loadvar wWiltonFightCount, 2
clearflag ENGINE_WILTON
end
.LoadFight2
loadtrainer FISHER, WILTON3
startbattle
returnafterbattle
clearflag ENGINE_WILTON
end
UnknownScript_0x19d9b4:
scall UnknownScript_0x19d8fb
checkevent EVENT_WILTON_HAS_ULTRA_BALL
iftrue UnknownScript_0x19d9c9
checkevent EVENT_WILTON_HAS_GREAT_BALL
iftrue UnknownScript_0x19d9d2
checkevent EVENT_WILTON_HAS_POKE_BALL
iftrue UnknownScript_0x19d9db
UnknownScript_0x19d9c9:
verbosegiveitem ULTRA_BALL, 1
iffalse UnknownScript_0x19d9e7
jump UnknownScript_0x19d9e1
UnknownScript_0x19d9d2:
verbosegiveitem GREAT_BALL, 1
iffalse UnknownScript_0x19d9e7
jump UnknownScript_0x19d9e1
UnknownScript_0x19d9db:
verbosegiveitem POKE_BALL, 1
iffalse UnknownScript_0x19d9e7
UnknownScript_0x19d9e1:
clearflag ENGINE_WILTON_HAS_ITEM
jump UnknownScript_0x19d8eb
UnknownScript_0x19d9e7:
jump UnknownScript_0x19d8ff
TrainerFisherEdgar:
; bit/flag number
dw EVENT_BEAT_FISHER_EDGAR
; trainer group && trainer id
db FISHER, EDGAR
; text when seen
dw FisherEdgarSeenText
; text when trainer beaten
dw FisherEdgarBeatenText
; script when lost
dw $0000
; script when talk again
dw FisherEdgarScript
FisherEdgarScript:
talkaftercancel
loadfont
writetext UnknownText_0x19db6f
closetext
loadmovesprites
end
TrainerCooltrainerfCybil:
; bit/flag number
dw EVENT_BEAT_COOLTRAINERF_CYBIL
; trainer group && trainer id
db COOLTRAINERF, CYBIL
; text when seen
dw CooltrainerfCybilSeenText
; text when trainer beaten
dw CooltrainerfCybilBeatenText
; script when lost
dw $0000
; script when talk again
dw CooltrainerfCybilScript
CooltrainerfCybilScript:
talkaftercancel
loadfont
writetext UnknownText_0x19df4d
closetext
loadmovesprites
end
TrainerPokemaniacZach:
; bit/flag number
dw EVENT_BEAT_POKEMANIAC_ZACH
; trainer group && trainer id
db POKEMANIAC, ZACH
; text when seen
dw PokemaniacZachSeenText
; text when trainer beaten
dw PokemaniacZachBeatenText
; script when lost
dw $0000
; script when talk again
dw PokemaniacZachScript
PokemaniacZachScript:
talkaftercancel
loadfont
writetext UnknownText_0x19dd7e
closetext
loadmovesprites
end
TrainerCooltrainermAllen:
; bit/flag number
dw EVENT_BEAT_COOLTRAINERM_ALLEN
; trainer group && trainer id
db COOLTRAINERM, ALLEN
; text when seen
dw CooltrainermAllenSeenText
; text when trainer beaten
dw CooltrainermAllenBeatenText
; script when lost
dw $0000
; script when talk again
dw CooltrainermAllenScript
CooltrainermAllenScript:
talkaftercancel
loadfont
writetext UnknownText_0x19de66
closetext
loadmovesprites
end
MapRoute44Signpost0Script:
jumptext UnknownText_0x19dfb3
MapRoute44Signpost1Script:
jumptext UnknownText_0x19dfcc
FruitTreeScript_0x19da40:
fruittree $10
ItemFragment_0x19da42:
db MAX_REVIVE, 1
ItemFragment_0x19da44:
db ULTRA_BALL, 1
ItemFragment_0x19da46:
db MAX_REPEL, 1
MapRoute44SignpostItem2:
dw $00ae
db ELIXER
FisherWilton1SeenText:
text "Aack! You made me"
line "lose a POLIWAG!"
para "What are you going"
line "to do about it?"
done
FisherWilton1BeatenText:
text "Just forget about"
line "it."
done
UnknownText_0x19daa8:
text "That POLIWAG that"
line "got away…"
cont "It was huge."
para "I swear it must've"
line "been 16 feet long!"
done
FisherEdgarSeenText:
text "I fish until I"
line "can't anymore."
para "I also battle"
line "until I drop."
para "That's my"
line "relationship"
cont "with my #MON."
done
FisherEdgarBeatenText:
text "Hmmmm… "
line "This isn't right."
done
UnknownText_0x19db6f:
text "That's 100 wins"
line "to 101 losses."
para "I won't battle"
line "again for a while."
done
Bird_keeperVance1SeenText:
text "Do you know about"
line "the legendary bird"
cont "#MON?"
done
Bird_keeperVance1BeatenText:
text "Whew! You're hot"
line "stuff."
done
UnknownText_0x19dbf3:
text "ARTICUNO, ZAPDOS"
line "and MOLTRES are"
para "the three legend-"
line "ary bird #MON."
para "I heard there are"
line "other legendary"
cont "birds, though."
done
UnknownText_0x19dc67:
text "Why can't I ever"
line "beat you?"
para "Oh yeah, here you"
line "go. It's that gift"
para "I couldn't give"
line "you last time."
done
PsychicPhilSeenText:
text "I'm gonna win,"
line "for sure!"
done
PsychicPhilBeatenText:
text "Arrgh… That's a"
line "shocking loss…"
done
UnknownText_0x19dcfc:
text "It's important to"
line "have conviction"
cont "on your side."
done
PokemaniacZachSeenText:
text "I'll do anything"
line "to get my hands on"
cont "rare #MON!"
done
PokemaniacZachBeatenText:
text "Oooh, your #MON"
line "are so appealing."
done
UnknownText_0x19dd7e:
text "If a #MON has"
line "different colors"
para "from usual, it's"
line "more valuable."
para "What? You mean"
line "that's not true?"
done
CooltrainermAllenSeenText:
text "I can tell you're"
line "a good trainer by"
cont "looking at you."
para "I'm good at #-"
line "MON, and I can see"
cont "that you are too."
done
CooltrainermAllenBeatenText:
text "Tch! It's a total"
line "loss on my part."
done
UnknownText_0x19de66:
text "Wow. You have a"
line "lot of BADGES."
para "No wonder you're"
line "so tough."
para "I wonder if"
line "ECRUTEAK GYM's"
para "MORTY is still in"
line "training?"
para "He really hammered"
line "me."
done
CooltrainerfCybilSeenText:
text "You look strong."
para "Good trainers seek"
line "tough opponents"
cont "instinctively."
done
CooltrainerfCybilBeatenText:
text "Nope! This won't"
line "do at all."
done
UnknownText_0x19df4d:
text "We all get better"
line "by experiencing"
cont "many battles."
para "I battled a lot to"
line "become what I am"
cont "today--an elite."
done
UnknownText_0x19dfb3:
text "ROUTE 44"
line "ICE PATH AHEAD"
done
UnknownText_0x19dfcc:
text "ROUTE 44"
para "MAHOGANY TOWN -"
line "BLACKTHORN CITY"
done
Route44_MapEventHeader:
; filler
db 0, 0
; warps
db 1
warp_def $7, $38, 1, GROUP_ICE_PATH_1F, MAP_ICE_PATH_1F
; xy triggers
db 0
; signposts
db 3
signpost 7, 53, $0, MapRoute44Signpost0Script
signpost 10, 6, $0, MapRoute44Signpost1Script
signpost 9, 32, $7, MapRoute44SignpostItem2
; people-events
db 11
person_event SPRITE_FISHER, 7, 39, $6, $0, 255, 255, $a2, 1, TrainerFisherWilton1, -1
person_event SPRITE_FISHER, 17, 23, $9, $0, 255, 255, $a2, 1, TrainerFisherEdgar, -1
person_event SPRITE_YOUNGSTER, 13, 14, $1f, $0, 255, 255, $92, 3, TrainerPsychicPhil, -1
person_event SPRITE_SUPER_NERD, 6, 47, $1f, $0, 255, 255, $a2, 3, TrainerPokemaniacZach, -1
person_event SPRITE_YOUNGSTER, 9, 55, $6, $0, 255, 255, $a2, 2, TrainerBird_keeperVance1, -1
person_event SPRITE_COOLTRAINER_M, 19, 45, $8, $0, 255, 255, $82, 5, TrainerCooltrainermAllen, -1
person_event SPRITE_COOLTRAINER_F, 18, 35, $8, $0, 255, 255, $82, 5, TrainerCooltrainerfCybil, -1
person_event SPRITE_FRUIT_TREE, 9, 13, $1, $0, 255, 255, $0, 0, FruitTreeScript_0x19da40, -1
person_event SPRITE_POKE_BALL, 12, 34, $1, $0, 255, 255, $1, 0, ItemFragment_0x19da42, EVENT_6B6
person_event SPRITE_POKE_BALL, 8, 49, $1, $0, 255, 255, $1, 0, ItemFragment_0x19da44, EVENT_6B7
person_event SPRITE_POKE_BALL, 13, 18, $1, $0, 255, 255, $1, 0, ItemFragment_0x19da46, EVENT_7BD