pokecrystal-board/maps/Route26.asm

528 lines
9.7 KiB
NASM

Route26_MapScriptHeader:
; trigger count
db 0
; callback count
db 0
TrainerCooltrainermJake:
; bit/flag number
dw EVENT_BEAT_COOLTRAINERM_JAKE
; trainer group && trainer id
db COOLTRAINERM, JAKE
; text when seen
dw CooltrainermJakeSeenText
; text when trainer beaten
dw CooltrainermJakeBeatenText
; script when lost
dw $0000
; script when talk again
dw CooltrainermJakeScript
CooltrainermJakeScript:
talkaftercancel
loadfont
writetext UnknownText_0x1a4f08
closetext
loadmovesprites
end
TrainerCooltrainermGaven3:
; bit/flag number
dw EVENT_BEAT_COOLTRAINERM_GAVEN
; trainer group && trainer id
db COOLTRAINERM, GAVEN3
; text when seen
dw CooltrainermGaven3SeenText
; text when trainer beaten
dw CooltrainermGaven3BeatenText
; script when lost
dw $0000
; script when talk again
dw CooltrainermGaven3Script
CooltrainermGaven3Script:
writecode VAR_CALLERID, $b
talkaftercancel
loadfont
checkflag ENGINE_GAVEN
iftrue UnknownScript_0x1a4d79
checkcellnum $b
iftrue UnknownScript_0x1a4dcb
checkevent $026b
iftrue UnknownScript_0x1a4d62
writetext UnknownText_0x1a4fe4
keeptextopen
setevent $026b
scall UnknownScript_0x1a4dbf
jump UnknownScript_0x1a4d65
UnknownScript_0x1a4d62:
scall UnknownScript_0x1a4dc3
UnknownScript_0x1a4d65:
askforphonenumber $b
if_equal $1, UnknownScript_0x1a4dd3
if_equal $2, UnknownScript_0x1a4dcf
trainertotext COOLTRAINERM, GAVEN3, $0
scall UnknownScript_0x1a4dc7
jump UnknownScript_0x1a4dcb
UnknownScript_0x1a4d79:
scall UnknownScript_0x1a4dd7
winlosstext CooltrainermGaven3BeatenText, $0000
copybytetovar wd9f5
if_equal $2, UnknownScript_0x1a4d90
if_equal $1, UnknownScript_0x1a4d96
if_equal $0, UnknownScript_0x1a4d9c
UnknownScript_0x1a4d90:
checkevent EVENT_RESTORED_POWER_TO_KANTO
iftrue UnknownScript_0x1a4db6
UnknownScript_0x1a4d96:
checkevent EVENT_BEAT_ELITE_FOUR
iftrue UnknownScript_0x1a4da9
UnknownScript_0x1a4d9c:
loadtrainer COOLTRAINERM, GAVEN3
startbattle
returnafterbattle
loadvar wd9f5, $1
clearflag ENGINE_GAVEN
end
UnknownScript_0x1a4da9:
loadtrainer COOLTRAINERM, GAVEN1
startbattle
returnafterbattle
loadvar wd9f5, $2
clearflag ENGINE_GAVEN
end
UnknownScript_0x1a4db6:
loadtrainer COOLTRAINERM, GAVEN2
startbattle
returnafterbattle
clearflag ENGINE_GAVEN
end
UnknownScript_0x1a4dbf:
jumpstd asknumber1m
end
UnknownScript_0x1a4dc3:
jumpstd asknumber2m
end
UnknownScript_0x1a4dc7:
jumpstd registerednumberm
end
UnknownScript_0x1a4dcb:
jumpstd numberacceptedm
end
UnknownScript_0x1a4dcf:
jumpstd numberdeclinedm
end
UnknownScript_0x1a4dd3:
jumpstd phonefullm
end
UnknownScript_0x1a4dd7:
jumpstd rematchm
end
TrainerCooltrainerfJoyce:
; bit/flag number
dw EVENT_BEAT_COOLTRAINERF_JOYCE
; trainer group && trainer id
db COOLTRAINERF, JOYCE
; text when seen
dw CooltrainerfJoyceSeenText
; text when trainer beaten
dw CooltrainerfJoyceBeatenText
; script when lost
dw $0000
; script when talk again
dw CooltrainerfJoyceScript
CooltrainerfJoyceScript:
talkaftercancel
loadfont
writetext UnknownText_0x1a50d7
closetext
loadmovesprites
end
TrainerCooltrainerfBeth1:
; bit/flag number
dw EVENT_BEAT_COOLTRAINERF_BETH
; trainer group && trainer id
db COOLTRAINERF, BETH1
; text when seen
dw CooltrainerfBeth1SeenText
; text when trainer beaten
dw CooltrainerfBeth1BeatenText
; script when lost
dw $0000
; script when talk again
dw CooltrainerfBeth1Script
CooltrainerfBeth1Script:
writecode VAR_CALLERID, $c
talkaftercancel
loadfont
checkflag ENGINE_BETH
iftrue UnknownScript_0x1a4e35
checkcellnum $c
iftrue UnknownScript_0x1a4e87
checkevent $026d
iftrue UnknownScript_0x1a4e1e
writetext UnknownText_0x1a51d9
keeptextopen
setevent $026d
scall UnknownScript_0x1a4e7b
jump UnknownScript_0x1a4e21
UnknownScript_0x1a4e1e:
scall UnknownScript_0x1a4e7f
UnknownScript_0x1a4e21:
askforphonenumber $c
if_equal $1, UnknownScript_0x1a4e8f
if_equal $2, UnknownScript_0x1a4e8b
trainertotext COOLTRAINERF, BETH1, $0
scall UnknownScript_0x1a4e83
jump UnknownScript_0x1a4e87
UnknownScript_0x1a4e35:
scall UnknownScript_0x1a4e93
winlosstext CooltrainerfBeth1BeatenText, $0000
copybytetovar wd9f6
if_equal $2, UnknownScript_0x1a4e4c
if_equal $1, UnknownScript_0x1a4e52
if_equal $0, UnknownScript_0x1a4e58
UnknownScript_0x1a4e4c:
checkevent EVENT_RESTORED_POWER_TO_KANTO
iftrue UnknownScript_0x1a4e72
UnknownScript_0x1a4e52:
checkevent EVENT_BEAT_ELITE_FOUR
iftrue UnknownScript_0x1a4e65
UnknownScript_0x1a4e58:
loadtrainer COOLTRAINERF, BETH1
startbattle
returnafterbattle
loadvar wd9f6, $1
clearflag ENGINE_BETH
end
UnknownScript_0x1a4e65:
loadtrainer COOLTRAINERF, BETH2
startbattle
returnafterbattle
loadvar wd9f6, $2
clearflag ENGINE_BETH
end
UnknownScript_0x1a4e72:
loadtrainer COOLTRAINERF, BETH3
startbattle
returnafterbattle
clearflag ENGINE_BETH
end
UnknownScript_0x1a4e7b:
jumpstd asknumber1f
end
UnknownScript_0x1a4e7f:
jumpstd asknumber2f
end
UnknownScript_0x1a4e83:
jumpstd registerednumberf
end
UnknownScript_0x1a4e87:
jumpstd numberacceptedf
end
UnknownScript_0x1a4e8b:
jumpstd numberdeclinedf
end
UnknownScript_0x1a4e8f:
jumpstd phonefullf
end
UnknownScript_0x1a4e93:
jumpstd rematchf
end
TrainerPsychicRichard:
; bit/flag number
dw EVENT_BEAT_PSYCHIC_RICHARD
; trainer group && trainer id
db PSYCHIC_T, RICHARD
; text when seen
dw PsychicRichardSeenText
; text when trainer beaten
dw PsychicRichardBeatenText
; script when lost
dw $0000
; script when talk again
dw PsychicRichardScript
PsychicRichardScript:
talkaftercancel
loadfont
writetext UnknownText_0x1a5278
closetext
loadmovesprites
end
TrainerFisherScott:
; bit/flag number
dw EVENT_BEAT_FISHER_SCOTT
; trainer group && trainer id
db FISHER, SCOTT
; text when seen
dw FisherScottSeenText
; text when trainer beaten
dw FisherScottBeatenText
; script when lost
dw $0000
; script when talk again
dw FisherScottScript
FisherScottScript:
talkaftercancel
loadfont
writetext UnknownText_0x1a5326
closetext
loadmovesprites
end
MapRoute26Signpost0Script:
jumptext UnknownText_0x1a5364
FruitTreeScript_0x1a4ec2:
fruittree $e
ItemFragment_0x1a4ec4:
db MAX_ELIXER, 1
CooltrainermJakeSeenText:
text "I'm making my"
line "final preparations"
para "for the #MON"
line "LEAGUE."
done
CooltrainermJakeBeatenText:
text "I blew it!"
done
UnknownText_0x1a4f08:
text "It's going to be"
line "tough to win at"
cont "the LEAGUE."
para "I need to do some"
line "more training."
para "I hear that the"
line "LEAGUE's ELITE"
para "FOUR are tougher"
line "than GYM LEADERS."
done
CooltrainermGaven3SeenText:
text "By experiencing"
line "tough battles, you"
cont "gain power."
done
CooltrainermGaven3BeatenText:
text "Gaah! Life is even"
line "tougher!"
done
UnknownText_0x1a4fe4:
text "To get to #MON"
line "LEAGUE, you have"
para "to get through"
line "VICTORY ROAD."
para "But VICTORY ROAD"
line "is tough."
para "Practically nobody"
line "goes there!"
done
CooltrainerfJoyceSeenText:
text "Since you've come"
line "this far, you must"
cont "be good."
para "I'm going to give"
line "this battle every-"
cont "thing I've got!"
done
CooltrainerfJoyceBeatenText:
text "No! I don't"
line "believe this!"
done
UnknownText_0x1a50d7:
text "I've defeated"
line "eight GYM LEADERS,"
para "so I was feeling"
line "confident."
para "I'll have to try"
line "harder next time."
done
CooltrainerfBeth1SeenText:
text "I lost to a train-"
line "er named <RIVAL>."
para "He was really"
line "strong, but…"
para "It was as if he"
line "absolutely had to"
cont "win at any cost."
para "I felt sorry for"
line "his #MON."
done
CooltrainerfBeth1BeatenText:
text "#MON aren't"
line "tools of war."
done
UnknownText_0x1a51d9:
text "#MON are in-"
line "valuable, lifelong"
cont "partners."
done
PsychicRichardSeenText:
text "Wow, look at all"
line "those BADGES!"
cont "I'm impressed."
para "But you're not"
line "satisfied by just"
para "collecting them,"
line "right?"
done
PsychicRichardBeatenText:
text "Good battle!"
done
UnknownText_0x1a5278:
text "People and #MON"
line "grow from their"
cont "experiences."
para "Don't get lazy and"
line "complacent."
done
FisherScottSeenText:
text "I'm feeling great"
line "today!"
para "I feel like I"
line "could boot even"
cont "the LEAGUE CHAMP!"
done
FisherScottBeatenText:
text "No! Not in this"
line "battle!"
done
UnknownText_0x1a5326:
text "Just like in fish-"
line "ing, it's all over"
para "in #MON if you"
line "give up."
done
UnknownText_0x1a5364:
text "ROUTE 26"
para "#MON LEAGUE"
line "RECEPTION GATE"
done
Route26_MapEventHeader:
; filler
db 0, 0
; warps
db 3
warp_def $5, $7, 3, GROUP_VICTORY_ROAD_GATE, MAP_VICTORY_ROAD_GATE
warp_def $39, $f, 1, GROUP_ROUTE_26_HEAL_SPEECH_HOUSE, MAP_ROUTE_26_HEAL_SPEECH_HOUSE
warp_def $47, $5, 1, GROUP_ROUTE_26_DAY_OF_WEEK_SIBLINGS_HOUSE, MAP_ROUTE_26_DAY_OF_WEEK_SIBLINGS_HOUSE
; xy triggers
db 0
; signposts
db 1
signpost 6, 8, $0, MapRoute26Signpost0Script
; people-events
db 8
person_event SPRITE_COOLTRAINER_M, 28, 18, $8, $0, 255, 255, $82, 2, TrainerCooltrainermJake, $ffff
person_event SPRITE_COOLTRAINER_M, 42, 13, $8, $0, 255, 255, $82, 3, TrainerCooltrainermGaven3, $ffff
person_event SPRITE_COOLTRAINER_F, 60, 14, $a, $0, 255, 255, $82, 3, TrainerCooltrainerfJoyce, $ffff
person_event SPRITE_COOLTRAINER_F, 12, 9, $9, $0, 255, 255, $82, 4, TrainerCooltrainerfBeth1, $ffff
person_event SPRITE_YOUNGSTER, 83, 17, $9, $0, 255, 255, $92, 2, TrainerPsychicRichard, $ffff
person_event SPRITE_FISHER, 96, 14, $6, $0, 255, 255, $a2, 3, TrainerFisherScott, $ffff
person_event SPRITE_FRUIT_TREE, 58, 18, $1, $0, 255, 255, $0, 0, FruitTreeScript_0x1a4ec2, $ffff
person_event SPRITE_POKE_BALL, 19, 13, $1, $0, 255, 255, $1, 0, ItemFragment_0x1a4ec4, $06aa