pokecrystal/maps/VioletGym.asm

333 lines
5.7 KiB
NASM

VioletGym_MapScriptHeader:
; trigger count
db 0
; callback count
db 0
FalknerScript_0x683c2:
faceplayer
loadfont
checkevent EVENT_BEAT_FALKNER
iftrue .FightDone
writetext UnknownText_0x68473
closetext
loadmovesprites
winlosstext UnknownText_0x6854a, $0000
loadtrainer FALKNER, 1
startbattle
returnafterbattle
setevent EVENT_BEAT_FALKNER
loadfont
writetext UnknownText_0x685af
playsound SFX_GET_BADGE
waitbutton
setflag ENGINE_ZEPHYRBADGE
checkcode VAR_BADGES
scall VioletGymTriggerRockets
.FightDone
checkevent EVENT_GOT_TM31_MUD_SLAP
iftrue UnknownScript_0x68412
setevent EVENT_BEAT_BIRD_KEEPER_ROD
setevent EVENT_BEAT_BIRD_KEEPER_ABE
domaptrigger GROUP_ELMS_LAB, MAP_ELMS_LAB, $2
specialphonecall $3
writetext UnknownText_0x685c8
keeptextopen
verbosegiveitem TM_MUD_SLAP, 1
iffalse UnknownScript_0x68416
setevent EVENT_GOT_TM31_MUD_SLAP
writetext UnknownText_0x68648
closetext
loadmovesprites
end
UnknownScript_0x68412:
writetext UnknownText_0x68735
closetext
UnknownScript_0x68416:
loadmovesprites
end
VioletGymTriggerRockets:
if_equal 7, .RadioTowerRockets
if_equal 6, .GoldenrodRockets
end
.GoldenrodRockets
jumpstd goldenrodrockets
.RadioTowerRockets
jumpstd radiotowerrockets
TrainerBird_keeperRod:
; bit/flag number
dw $3fb
; trainer group && trainer id
db BIRD_KEEPER, ROD
; text when seen
dw Bird_keeperRodSeenText
; text when trainer beaten
dw Bird_keeperRodBeatenText
; script when lost
dw $0000
; script when talk again
dw Bird_keeperRodScript
Bird_keeperRodScript:
talkaftercancel
loadfont
writetext UnknownText_0x68837
closetext
loadmovesprites
end
TrainerBird_keeperAbe:
; bit/flag number
dw $3fc
; trainer group && trainer id
db BIRD_KEEPER, ABE
; text when seen
dw Bird_keeperAbeSeenText
; text when trainer beaten
dw Bird_keeperAbeBeatenText
; script when lost
dw $0000
; script when talk again
dw Bird_keeperAbeScript
Bird_keeperAbeScript:
talkaftercancel
loadfont
writetext UnknownText_0x688c7
closetext
loadmovesprites
end
VioletGymGuyScript:
faceplayer
loadfont
checkevent EVENT_BEAT_FALKNER
iftrue .VioletGymGuyWinScript
writetext VioletGymGuyText
closetext
loadmovesprites
end
.VioletGymGuyWinScript
writetext VioletGymGuyWinText
closetext
loadmovesprites
end
VioletGymStatue:
checkflag ENGINE_ZEPHYRBADGE
iftrue .Beaten
jumpstd gymstatue1
.Beaten
trainertotext FALKNER, 1, $1
jumpstd gymstatue2
UnknownText_0x68473:
text "I'm FALKNER, the"
line "VIOLET #MON GYM"
cont "leader!"
para "People say you can"
line "clip flying-type"
para "#MON's wings"
line "with a jolt of"
cont "electricity…"
para "I won't allow such"
line "insults to bird"
cont "#MON!"
para "I'll show you the"
line "real power of the"
para "magnificent bird"
line "#MON!"
done
UnknownText_0x6854a:
text "…Darn! My dad's"
line "cherished bird"
cont "#MON…"
para "All right."
line "Take this."
para "It's the official"
line "#MON LEAGUE"
cont "ZEPHYRBADGE."
done
UnknownText_0x685af:
text "<PLAYER> received"
line "ZEPHYRBADGE."
done
UnknownText_0x685c8:
text "ZEPHYRBADGE"
line "raises the attack"
cont "power of #MON."
para "It also enables"
line "#MON to use"
para "FLASH, if they"
line "have it, anytime."
para "Here--take this"
line "too."
done
UnknownText_0x68648:
text "By using a TM, a"
line "#MON will"
para "instantly learn a"
line "new move."
para "Think before you"
line "act--a TM can be"
cont "used only once."
para "TM31 contains"
line "MUD-SLAP."
para "It reduces the"
line "enemy's accuracy"
para "while it causes"
line "damage."
para "In other words, it"
line "is both defensive"
cont "and offensive."
done
UnknownText_0x68735:
text "There are #MON"
line "GYMS in cities and"
cont "towns ahead."
para "You should test"
line "your skills at"
cont "these GYMS."
para "I'm going to train"
line "harder to become"
para "the greatest bird"
line "master!"
done
Bird_keeperRodSeenText:
text "The keyword is"
line "guts!"
para "Those here are"
line "training night and"
para "day to become bird"
line "#MON masters."
para "Come on!"
done
Bird_keeperRodBeatenText:
text "Gaaah!"
done
UnknownText_0x68837:
text "FALKNER's skills"
line "are for real!"
para "Don't get cocky"
line "just because you"
cont "beat me!"
done
Bird_keeperAbeSeenText:
text "Let me see if you"
line "are good enough to"
cont "face FALKNER!"
done
Bird_keeperAbeBeatenText:
text "This can't be"
line "true!"
done
UnknownText_0x688c7:
text "This is pathetic,"
line "losing to some"
cont "rookie trainer…"
done
VioletGymGuyText:
text "Hey! I'm no train-"
line "er but I can give"
cont "some advice!"
para "Believe me!"
line "If you believe, a"
para "championship dream"
line "can come true."
para "You believe?"
line "Then listen."
para "The grass-type is"
line "weak against the"
para "flying-type. Keep"
line "this in mind."
done
VioletGymGuyWinText:
text "Nice battle! Keep"
line "it up, and you'll"
para "be the CHAMP in no"
line "time at all!"
done
VioletGym_MapEventHeader:
; filler
db 0, 0
; warps
db 2
warp_def $f, $4, 2, GROUP_VIOLET_CITY, MAP_VIOLET_CITY
warp_def $f, $5, 2, GROUP_VIOLET_CITY, MAP_VIOLET_CITY
; xy triggers
db 0
; signposts
db 2
signpost 13, 3, $0, VioletGymStatue
signpost 13, 6, $0, VioletGymStatue
; people-events
db 4
person_event SPRITE_FALKNER, 5, 9, $6, $0, 255, 255, $90, 0, FalknerScript_0x683c2, $ffff
person_event SPRITE_YOUNGSTER, 10, 11, $8, $2, 255, 255, $92, 3, TrainerBird_keeperRod, $ffff
person_event SPRITE_YOUNGSTER, 14, 6, $9, $2, 255, 255, $92, 3, TrainerBird_keeperAbe, $ffff
person_event SPRITE_GYM_GUY, 17, 11, $6, $0, 255, 255, $80, 0, VioletGymGuyScript, $ffff