pokecrystal-board/maps/Route27.asm

587 lines
11 KiB
NASM

Route27_MapScriptHeader:
; trigger count
db 2
; triggers
dw UnknownScript_0x1a0871, $0000
dw UnknownScript_0x1a0872, $0000
; callback count
db 0
UnknownScript_0x1a0871:
end
UnknownScript_0x1a0872:
end
UnknownScript_0x1a0873:
spriteface $a, LEFT
showemote $0, $a, 15
applymovement $a, MovementData_0x1a0a66
jump UnknownScript_0x1a088c
UnknownScript_0x1a0881:
spriteface $a, LEFT
showemote $0, $a, 15
applymovement $a, MovementData_0x1a0a69
UnknownScript_0x1a088c:
spriteface $0, RIGHT
loadfont
writetext UnknownText_0x1a0a6b
keeptextopen
writetext UnknownText_0x1a0a71
closetext
loadmovesprites
dotrigger $1
end
FisherScript_0x1a089c:
jumptextfaceplayer UnknownText_0x1a0a71
TrainerPsychicGilbert:
; bit/flag number
dw EVENT_BEAT_PSYCHIC_GILBERT
; trainer group && trainer id
db PSYCHIC_T, GILBERT
; text when seen
dw PsychicGilbertSeenText
; text when trainer beaten
dw PsychicGilbertBeatenText
; script when lost
dw $0000
; script when talk again
dw PsychicGilbertScript
PsychicGilbertScript:
talkaftercancel
loadfont
writetext UnknownText_0x1a0dd2
closetext
loadmovesprites
end
TrainerBird_keeperJose2:
; bit/flag number
dw EVENT_BEAT_BIRD_KEEPER_JOSE
; trainer group && trainer id
db BIRD_KEEPER, JOSE2
; text when seen
dw Bird_keeperJose2SeenText
; text when trainer beaten
dw Bird_keeperJose2BeatenText
; script when lost
dw $0000
; script when talk again
dw Bird_keeperJose2Script
Bird_keeperJose2Script:
writecode VAR_CALLERID, $d
talkaftercancel
loadfont
checkflag ENGINE_JOSE
iftrue UnknownScript_0x1a08ff
checkflag ENGINE_JOSE_HAS_STAR_PIECE
iftrue UnknownScript_0x1a0945
checkcellnum $d
iftrue UnknownScript_0x1a0963
checkevent EVENT_JOSE_ASKED_FOR_PHONE_NUMBER
iftrue UnknownScript_0x1a08e8
writetext UnknownText_0x1a0e42
keeptextopen
setevent EVENT_JOSE_ASKED_FOR_PHONE_NUMBER
scall UnknownScript_0x1a0957
jump UnknownScript_0x1a08eb
UnknownScript_0x1a08e8:
scall UnknownScript_0x1a095b
UnknownScript_0x1a08eb:
askforphonenumber $d
if_equal $1, UnknownScript_0x1a096b
if_equal $2, UnknownScript_0x1a0967
trainertotext BIRD_KEEPER, JOSE2, $0
scall UnknownScript_0x1a095f
jump UnknownScript_0x1a0963
UnknownScript_0x1a08ff:
scall UnknownScript_0x1a096f
winlosstext Bird_keeperJose2BeatenText, $0000
copybytetovar JoseFightCount
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, JOSE2
startbattle
returnafterbattle
loadvar JoseFightCount, 1
clearflag ENGINE_JOSE
end
.LoadFight1
loadtrainer BIRD_KEEPER, JOSE1
startbattle
returnafterbattle
loadvar JoseFightCount, 2
clearflag ENGINE_JOSE
end
.LoadFight2
loadtrainer BIRD_KEEPER, JOSE3
startbattle
returnafterbattle
clearflag ENGINE_JOSE
end
UnknownScript_0x1a0945:
scall UnknownScript_0x1a0973
verbosegiveitem STAR_PIECE, 1
iffalse UnknownScript_0x1a0954
clearflag ENGINE_JOSE_HAS_STAR_PIECE
jump UnknownScript_0x1a0963
UnknownScript_0x1a0954:
jump UnknownScript_0x1a0977
UnknownScript_0x1a0957:
jumpstd asknumber1m
end
UnknownScript_0x1a095b:
jumpstd asknumber2m
end
UnknownScript_0x1a095f:
jumpstd registerednumberm
end
UnknownScript_0x1a0963:
jumpstd numberacceptedm
end
UnknownScript_0x1a0967:
jumpstd numberdeclinedm
end
UnknownScript_0x1a096b:
jumpstd phonefullm
end
UnknownScript_0x1a096f:
jumpstd rematchm
end
UnknownScript_0x1a0973:
jumpstd giftm
end
UnknownScript_0x1a0977:
jumpstd packfullm
end
TrainerCooltrainermBlake:
; bit/flag number
dw EVENT_BEAT_COOLTRAINERM_BLAKE
; trainer group && trainer id
db COOLTRAINERM, BLAKE
; text when seen
dw CooltrainermBlakeSeenText
; text when trainer beaten
dw CooltrainermBlakeBeatenText
; script when lost
dw $0000
; script when talk again
dw CooltrainermBlakeScript
CooltrainermBlakeScript:
talkaftercancel
loadfont
writetext UnknownText_0x1a0b0b
closetext
loadmovesprites
end
TrainerCooltrainermBrian:
; bit/flag number
dw EVENT_BEAT_COOLTRAINERM_BRIAN
; trainer group && trainer id
db COOLTRAINERM, BRIAN
; text when seen
dw CooltrainermBrianSeenText
; text when trainer beaten
dw CooltrainermBrianBeatenText
; script when lost
dw $0000
; script when talk again
dw CooltrainermBrianScript
CooltrainermBrianScript:
talkaftercancel
loadfont
writetext UnknownText_0x1a0bac
closetext
loadmovesprites
end
TrainerCooltrainerfReena:
; bit/flag number
dw EVENT_BEAT_COOLTRAINERF_REENA
; trainer group && trainer id
db COOLTRAINERF, REENA1
; text when seen
dw CooltrainerfReena1SeenText
; text when trainer beaten
dw CooltrainerfReena1BeatenText
; script when lost
dw $0000
; script when talk again
dw CooltrainerfReena1Script
CooltrainerfReena1Script:
writecode VAR_CALLERID, $e
talkaftercancel
loadfont
checkflag ENGINE_REENA
iftrue UnknownScript_0x1a09e9
checkcellnum $e
iftrue UnknownScript_0x1a0a3b
checkevent EVENT_REENA_ASKED_FOR_PHONE_NUMBER
iftrue UnknownScript_0x1a09d2
writetext UnknownText_0x1a0c35
keeptextopen
setevent EVENT_REENA_ASKED_FOR_PHONE_NUMBER
scall UnknownScript_0x1a0a2f
jump UnknownScript_0x1a09d5
UnknownScript_0x1a09d2:
scall UnknownScript_0x1a0a33
UnknownScript_0x1a09d5:
askforphonenumber $e
if_equal $1, UnknownScript_0x1a0a43
if_equal $2, UnknownScript_0x1a0a3f
trainertotext COOLTRAINERF, REENA1, $0
scall UnknownScript_0x1a0a37
jump UnknownScript_0x1a0a3b
UnknownScript_0x1a09e9:
scall UnknownScript_0x1a0a47
winlosstext CooltrainerfReena1BeatenText, $0000
copybytetovar ReenaFightCount
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 COOLTRAINERF, REENA1
startbattle
returnafterbattle
loadvar ReenaFightCount, 1
clearflag ENGINE_REENA
end
.LoadFight1
loadtrainer COOLTRAINERF, REENA2
startbattle
returnafterbattle
loadvar ReenaFightCount, 2
clearflag ENGINE_REENA
end
.LoadFight2
loadtrainer COOLTRAINERF, REENA3
startbattle
returnafterbattle
clearflag ENGINE_REENA
end
UnknownScript_0x1a0a2f:
jumpstd asknumber1f
end
UnknownScript_0x1a0a33:
jumpstd asknumber2f
end
UnknownScript_0x1a0a37:
jumpstd registerednumberf
end
UnknownScript_0x1a0a3b:
jumpstd numberacceptedf
end
UnknownScript_0x1a0a3f:
jumpstd numberdeclinedf
end
UnknownScript_0x1a0a43:
jumpstd phonefullf
end
UnknownScript_0x1a0a47:
jumpstd rematchf
end
TrainerCooltrainerfMegan:
; bit/flag number
dw EVENT_BEAT_COOLTRAINERF_MEGAN
; trainer group && trainer id
db COOLTRAINERF, MEGAN
; text when seen
dw CooltrainerfMeganSeenText
; text when trainer beaten
dw CooltrainerfMeganBeatenText
; script when lost
dw $0000
; script when talk again
dw CooltrainerfMeganScript
CooltrainerfMeganScript:
talkaftercancel
loadfont
writetext UnknownText_0x1a0cce
closetext
loadmovesprites
end
MapRoute27Signpost0Script:
jumptext UnknownText_0x1a0e7f
ItemFragment_0x1a0a62:
db TM_SOLARBEAM, 1
ItemFragment_0x1a0a64:
db RARE_CANDY, 1
MovementData_0x1a0a66:
step_left
step_left
step_end
MovementData_0x1a0a69:
step_left
step_end
UnknownText_0x1a0a6b:
text "Hey!"
done
UnknownText_0x1a0a71:
text "Do you know what"
line "you just did?"
para "You've taken your"
line "first step into"
cont "KANTO."
para "Check your #-"
line "GEAR MAP and see."
done
CooltrainermBlakeSeenText:
text "You look pretty"
line "strong."
cont "Let me battle you!"
done
CooltrainermBlakeBeatenText:
text "Yow!"
done
UnknownText_0x1a0b0b:
text "If you prevail on"
line "this harsh trek,"
para "the truth will be"
line "revealed!"
para "Heh, sorry, I just"
line "wanted to say"
cont "something cool."
done
CooltrainermBrianSeenText:
text "Hm? You're good,"
line "aren't you?"
done
CooltrainermBrianBeatenText:
text "Just as I thought!"
done
UnknownText_0x1a0bac:
text "A good trainer can"
line "recognize other"
cont "good trainers."
done
CooltrainerfReena1SeenText:
text "You shouldn't"
line "underestimate the"
para "wild #MON in"
line "these parts."
done
CooltrainerfReena1BeatenText:
text "Oh! You're much"
line "too strong!"
done
UnknownText_0x1a0c35:
text "You're just a kid,"
line "but you're not to"
para "be underestimated"
line "either."
done
CooltrainerfMeganSeenText:
text "It's rare to see"
line "anyone come here."
para "Are you training"
line "on your own?"
done
CooltrainerfMeganBeatenText:
text "Oh! You're really"
line "strong!"
done
UnknownText_0x1a0cce:
text "I'm checking out"
line "pre- and post-"
cont "evolution #MON."
para "Evolution really"
line "does make #MON"
cont "stronger."
para "But evolved forms"
line "also learn moves"
cont "later on."
done
PsychicGilbertSeenText:
text "Don't say a thing!"
para "Let me guess what"
line "you're thinking."
para "Mmmmmmm…"
para "I got it! You're"
line "on the #MON"
cont "LEAGUE challenge!"
done
PsychicGilbertBeatenText:
text "You're too much!"
done
UnknownText_0x1a0dd2:
text "With your skills,"
line "you'll do well at"
cont "the LEAGUE."
para "That's what my"
line "premonition says."
done
Bird_keeperJose2SeenText:
text "Tweet! Tweet!"
line "Tetweet!"
done
Bird_keeperJose2BeatenText:
text "Tweet!"
done
UnknownText_0x1a0e42:
text "BIRD KEEPERS like"
line "me mimic bird"
para "whistles to com-"
line "mand #MON."
done
UnknownText_0x1a0e7f:
text "TOHJO FALLS"
para "THE LINK BETWEEN"
line "KANTO AND JOHTO"
done
Route27_MapEventHeader:
; filler
db 0, 0
; warps
db 3
warp_def $7, $21, 1, GROUP_ROUTE_27_SANDSTORM_HOUSE, MAP_ROUTE_27_SANDSTORM_HOUSE
warp_def $5, $1a, 1, GROUP_TOHJO_FALLS, MAP_TOHJO_FALLS
warp_def $5, $24, 2, GROUP_TOHJO_FALLS, MAP_TOHJO_FALLS
; xy triggers
db 2
xy_trigger 0, $a, $12, $0, UnknownScript_0x1a0873, $0, $0
xy_trigger 0, $a, $13, $0, UnknownScript_0x1a0881, $0, $0
; signposts
db 1
signpost 7, 25, $0, MapRoute27Signpost0Script
; people-events
db 9
person_event SPRITE_COOLTRAINER_M, 11, 52, $7, $0, 255, 255, $82, 3, TrainerCooltrainermBlake, $ffff
person_event SPRITE_COOLTRAINER_M, 10, 62, $9, $0, 255, 255, $82, 4, TrainerCooltrainermBrian, $ffff
person_event SPRITE_COOLTRAINER_F, 14, 76, $7, $0, 255, 255, $82, 4, TrainerCooltrainerfReena, $ffff
person_event SPRITE_COOLTRAINER_F, 10, 41, $1f, $0, 255, 255, $82, 2, TrainerCooltrainerfMegan, $ffff
person_event SPRITE_YOUNGSTER, 11, 69, $8, $0, 255, 255, $92, 3, TrainerPsychicGilbert, $ffff
person_event SPRITE_YOUNGSTER, 17, 62, $9, $0, 255, 255, $92, 3, TrainerBird_keeperJose2, $ffff
person_event SPRITE_POKE_BALL, 16, 64, $1, $0, 255, 255, $1, 0, ItemFragment_0x1a0a62, $06ab
person_event SPRITE_POKE_BALL, 16, 57, $1, $0, 255, 255, $1, 0, ItemFragment_0x1a0a64, $06ac
person_event SPRITE_FISHER, 14, 25, $3, $0, 255, 255, $0, 3, FisherScript_0x1a089c, $ffff