pokecrystal/maps/BlackthornGym1F.asm

460 lines
8.1 KiB
NASM

BlackthornGym1F_MapScriptHeader:
; trigger count
db 0
; callback count
db 1
; callbacks
dbw 1, .Boulders
.Boulders
checkevent EVENT_BOULDER_IN_BLACKTHORN_GYM_1
iffalse .skip1
changeblock $8, $2, $3b
.skip1
checkevent EVENT_BOULDER_IN_BLACKTHORN_GYM_2
iffalse .skip2
changeblock $2, $4, $3a
.skip2
checkevent EVENT_BOULDER_IN_BLACKTHORN_GYM_3
iffalse .skip3
changeblock $8, $6, $3b
.skip3
return
ClairScript_0x194e24:
faceplayer
loadfont
checkflag ENGINE_RISINGBADGE
iftrue UnknownScript_0x194e69
checkevent EVENT_BEAT_CLAIR
iftrue .FightDone
writetext UnknownText_0x194efa
closetext
loadmovesprites
winlosstext UnknownText_0x194fd6, $0000
loadtrainer CLAIR, 1
startbattle
returnafterbattle
setevent EVENT_BEAT_CLAIR
loadfont
writetext UnknownText_0x19500e
closetext
loadmovesprites
setevent EVENT_BEAT_COOLTRAINERM_PAUL
setevent EVENT_BEAT_COOLTRAINERM_CODY
setevent EVENT_BEAT_COOLTRAINERM_MIKE
setevent EVENT_BEAT_COOLTRAINERF_FRAN
setevent EVENT_BEAT_COOLTRAINERF_LOLA
clearevent $0736
setevent $074c
clearevent $074d
end
.FightDone
writetext UnknownText_0x195162
closetext
loadmovesprites
end
UnknownScript_0x194e69:
checkevent EVENT_GOT_TM24_DRAGONBREATH
iftrue UnknownScript_0x194e94
writetext UnknownText_0x195196
keeptextopen
giveitem TM_DRAGONBREATH, $1
iffalse UnknownScript_0x194e8e
itemtotext TM_DRAGONBREATH, $0
writetext UnknownText_0x1951bf
playsound SFX_ITEM
waitbutton
itemnotify
setevent EVENT_GOT_TM24_DRAGONBREATH
writetext UnknownText_0x1951d1
keeptextopen
jump UnknownScript_0x194e94
UnknownScript_0x194e8e:
writetext UnknownText_0x19524f
closetext
loadmovesprites
end
UnknownScript_0x194e94:
writetext UnknownText_0x195272
closetext
loadmovesprites
end
TrainerCooltrainermPaul:
; bit/flag number
dw $54a
; trainer group && trainer id
db COOLTRAINERM, PAUL
; text when seen
dw CooltrainermPaulSeenText
; text when trainer beaten
dw CooltrainermPaulBeatenText
; script when lost
dw $0000
; script when talk again
dw CooltrainermPaulScript
CooltrainermPaulScript:
talkaftercancel
loadfont
writetext UnknownText_0x1953f1
closetext
loadmovesprites
end
TrainerCooltrainermMike:
; bit/flag number
dw $54c
; trainer group && trainer id
db COOLTRAINERM, MIKE
; text when seen
dw CooltrainermMikeSeenText
; text when trainer beaten
dw CooltrainermMikeBeatenText
; script when lost
dw $0000
; script when talk again
dw CooltrainermMikeScript
CooltrainermMikeScript:
talkaftercancel
loadfont
writetext UnknownText_0x195467
closetext
loadmovesprites
end
TrainerCooltrainerfLola:
; bit/flag number
dw $55e
; trainer group && trainer id
db COOLTRAINERF, LOLA
; text when seen
dw CooltrainerfLolaSeenText
; text when trainer beaten
dw CooltrainerfLolaBeatenText
; script when lost
dw $0000
; script when talk again
dw CooltrainerfLolaScript
CooltrainerfLolaScript:
talkaftercancel
loadfont
writetext UnknownText_0x195516
closetext
loadmovesprites
end
BlackthornGymGuyScript:
faceplayer
loadfont
checkevent EVENT_BEAT_CLAIR
iftrue .BlackthornGymGuyWinScript
writetext BlackthornGymGuyText
closetext
loadmovesprites
end
.BlackthornGymGuyWinScript
writetext BlackthornGymGuyWinText
closetext
loadmovesprites
end
BlackthornGymStatue:
checkflag ENGINE_RISINGBADGE
iftrue .Beaten
jumpstd gymstatue1
.Beaten
trainertotext CLAIR, 1, $1
jumpstd gymstatue2
UnknownText_0x194efa:
text "I am CLAIR."
para "The world's best"
line "dragon master."
para "I can hold my own"
line "against even the"
para "#MON LEAGUE's"
line "ELITE FOUR."
para "Do you still want"
line "to take me on?"
para "…Fine."
line "Let's do it!"
para "As a GYM LEADER,"
line "I will use my full"
para "power against any"
line "opponent!"
done
UnknownText_0x194fd6:
text "I lost?"
para "I don't believe"
line "it. There must be"
cont "some mistake…"
done
UnknownText_0x19500e:
text "I won't admit"
line "this."
para "I may have lost,"
line "but you're still"
para "not ready for the"
line "#MON LEAGUE."
para "I know. You should"
line "take the dragon"
cont "user challenge."
para "Behind this GYM is"
line "a place called"
cont "DRAGON'S DEN."
para "There is a small"
line "shrine at its"
para "center."
line "Go there."
para "If you can prove"
line "that you've lost"
para "your lazy ideals,"
line "I will recognize"
para "you as a trainer"
line "worthy of a GYM"
cont "BADGE!"
done
UnknownText_0x195162:
text "What's the matter?"
para "Is it too much to"
line "expect of you?"
done
UnknownText_0x195196:
text "You've kept me"
line "waiting!"
para "Here! Take this!"
done
UnknownText_0x1951bf:
text "<PLAYER> received"
line "TM24."
done
UnknownText_0x1951d1:
text "That contains"
line "DRAGONBREATH."
para "No, it doesn't"
line "have anything to"
cont "do with my breath."
para "If you don't want"
line "it, you don't have"
cont "to take it."
done
UnknownText_0x19524f:
text "What is this? You"
line "don't have room?"
done
UnknownText_0x195272:
text "What's the matter?"
para "Aren't you headed"
line "to the #MON"
cont "LEAGUE?"
para "Don't you know"
line "where it is?"
para "From here, go to"
line "NEW BARK TOWN."
para "Then SURF east."
line "The route there is"
cont "very tough."
para "Don't you dare"
line "lose at the #-"
cont "MON LEAGUE!"
para "If you do, I'll"
line "feel even worse"
para "about having lost"
line "to you!"
para "Give it every-"
line "thing you've got."
done
CooltrainermPaulSeenText:
text "Your first battle"
line "against dragons?"
para "I'll show you how"
line "tough they are!"
done
CooltrainermPaulBeatenText:
text "My dragon #MON"
line "lost?"
done
UnknownText_0x1953f1:
text "LANCE told you"
line "that he'd like to"
para "see you again?"
line "Not a chance!"
done
CooltrainermMikeSeenText:
text "My chance of"
line "losing? Not even"
cont "one percent!"
done
CooltrainermMikeBeatenText:
text "That's odd."
done
UnknownText_0x195467:
text "I know my short-"
line "comings now."
para "Thanks for showing"
line "me!"
done
CooltrainerfLolaSeenText:
text "Dragons are sacred"
line "#MON."
para "They are full of"
line "life energy."
para "If you're not"
line "serious, you won't"
para "be able to beat"
line "them."
done
CooltrainerfLolaBeatenText:
text "Way to go!"
done
UnknownText_0x195516:
text "Dragons are weak"
line "against dragon-"
cont "type moves."
done
BlackthornGymGuyText:
text "Yo! CHAMP in"
line "making!"
para "It's been a long"
line "journey, but we"
para "are almost done!"
line "Count on me!"
para "CLAIR uses the"
line "mythical and sac-"
cont "red dragon-type"
cont "#MON."
para "You can't damage"
line "them very easily."
para "But you know,"
line "they're supposed"
para "to be weak against"
line "ice-type moves."
done
BlackthornGymGuyWinText:
text "You were great to"
line "beat CLAIR!"
para "All that's left is"
line "the #MON LEAGUE"
cont "challenge."
para "You're on the way"
line "to becoming the"
cont "#MON CHAMPION!"
done
BlackthornGym1F_MapEventHeader:
; filler
db 0, 0
; warps
db 7
warp_def $11, $4, 1, GROUP_BLACKTHORN_CITY, MAP_BLACKTHORN_CITY
warp_def $11, $5, 1, GROUP_BLACKTHORN_CITY, MAP_BLACKTHORN_CITY
warp_def $7, $1, 1, GROUP_BLACKTHORN_GYM_2F, MAP_BLACKTHORN_GYM_2F
warp_def $9, $7, 2, GROUP_BLACKTHORN_GYM_2F, MAP_BLACKTHORN_GYM_2F
warp_def $6, $2, 3, GROUP_BLACKTHORN_GYM_2F, MAP_BLACKTHORN_GYM_2F
warp_def $7, $7, 4, GROUP_BLACKTHORN_GYM_2F, MAP_BLACKTHORN_GYM_2F
warp_def $6, $7, 5, GROUP_BLACKTHORN_GYM_2F, MAP_BLACKTHORN_GYM_2F
; xy triggers
db 0
; signposts
db 2
signpost 15, 3, $0, BlackthornGymStatue
signpost 15, 6, $0, BlackthornGymStatue
; people-events
db 5
person_event SPRITE_CLAIR, 7, 9, $6, $0, 255, 255, $90, 0, ClairScript_0x194e24, $ffff
person_event SPRITE_COOLTRAINER_M, 10, 10, $6, $0, 255, 255, $82, 3, TrainerCooltrainermMike, $ffff
person_event SPRITE_COOLTRAINER_M, 18, 5, $6, $0, 255, 255, $82, 3, TrainerCooltrainermPaul, $ffff
person_event SPRITE_COOLTRAINER_F, 6, 13, $6, $0, 255, 255, $82, 1, TrainerCooltrainerfLola, $ffff
person_event SPRITE_GYM_GUY, 19, 11, $6, $0, 255, 255, $80, 0, BlackthornGymGuyScript, $ffff