pokecrystal-board/maps/BlackthornGym1F.asm

420 lines
8.2 KiB
NASM

const_value set 2
const BLACKTHORNGYM1F_CLAIR
const BLACKTHORNGYM1F_COOLTRAINER_M1
const BLACKTHORNGYM1F_COOLTRAINER_M2
const BLACKTHORNGYM1F_COOLTRAINER_F
const BLACKTHORNGYM1F_GYM_GUY
BlackthornGym1F_MapScriptHeader:
.MapTriggers:
db 0
.MapCallbacks:
db 1
; callbacks
dbw MAPCALLBACK_TILES, .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
BlackthornGymClairScript:
faceplayer
opentext
checkflag ENGINE_RISINGBADGE
iftrue .AlreadyGotBadge
checkevent EVENT_BEAT_CLAIR
iftrue .FightDone
writetext ClairIntroText
waitbutton
closetext
winlosstext ClairWinText, 0
loadtrainer CLAIR, 1
startbattle
reloadmapafterbattle
setevent EVENT_BEAT_CLAIR
opentext
writetext ClairText_GoToDragonsDen
waitbutton
closetext
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 EVENT_MAHOGANY_MART_OWNERS
setevent EVENT_BLACKTHORN_CITY_GRAMPS_BLOCKS_DRAGONS_DEN
clearevent EVENT_BLACKTHORN_CITY_GRAMPS_NOT_BLOCKING_DRAGONS_DEN
end
.FightDone:
writetext ClairText_TooMuchToExpect
waitbutton
closetext
end
.AlreadyGotBadge:
checkevent EVENT_GOT_TM24_DRAGONBREATH
iftrue .GotTM24
writetext BlackthornGymClairText_YouKeptMeWaiting
buttonsound
giveitem TM_DRAGONBREATH
iffalse .BagFull
itemtotext TM_DRAGONBREATH, $0
writetext BlackthornGymText_ReceivedTM24
playsound SFX_ITEM
waitsfx
itemnotify
setevent EVENT_GOT_TM24_DRAGONBREATH
writetext BlackthornGymClairText_DescribeTM24
buttonsound
jump .GotTM24
.BagFull:
writetext BlackthornGymClairText_BagFull
waitbutton
closetext
end
.GotTM24:
writetext BlackthornGymClairText_League
waitbutton
closetext
end
TrainerCooltrainermPaul:
trainer EVENT_BEAT_COOLTRAINERM_PAUL, COOLTRAINERM, PAUL, CooltrainermPaulSeenText, CooltrainermPaulBeatenText, 0, CooltrainermPaulScript
CooltrainermPaulScript:
end_if_just_battled
opentext
writetext CooltrainermPaulAfterText
waitbutton
closetext
end
TrainerCooltrainermMike:
trainer EVENT_BEAT_COOLTRAINERM_MIKE, COOLTRAINERM, MIKE, CooltrainermMikeSeenText, CooltrainermMikeBeatenText, 0, CooltrainermMikeScript
CooltrainermMikeScript:
end_if_just_battled
opentext
writetext CooltrainermMikeAfterText
waitbutton
closetext
end
TrainerCooltrainerfLola:
trainer EVENT_BEAT_COOLTRAINERF_LOLA, COOLTRAINERF, LOLA, CooltrainerfLolaSeenText, CooltrainerfLolaBeatenText, 0, CooltrainerfLolaScript
CooltrainerfLolaScript:
end_if_just_battled
opentext
writetext CooltrainerfLolaAfterText
waitbutton
closetext
end
BlackthornGymGuyScript:
faceplayer
opentext
checkevent EVENT_BEAT_CLAIR
iftrue .BlackthornGymGuyWinScript
writetext BlackthornGymGuyText
waitbutton
closetext
end
.BlackthornGymGuyWinScript:
writetext BlackthornGymGuyWinText
waitbutton
closetext
end
BlackthornGymStatue:
checkflag ENGINE_RISINGBADGE
iftrue .Beaten
jumpstd gymstatue1
.Beaten:
trainertotext CLAIR, 1, $1
jumpstd gymstatue2
ClairIntroText:
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
ClairWinText:
text "I lost?"
para "I don't believe"
line "it. There must be"
cont "some mistake…"
done
ClairText_GoToDragonsDen:
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
ClairText_TooMuchToExpect:
text "What's the matter?"
para "Is it too much to"
line "expect of you?"
done
BlackthornGymClairText_YouKeptMeWaiting:
text "You've kept me"
line "waiting!"
para "Here! Take this!"
done
BlackthornGymText_ReceivedTM24:
text "<PLAYER> received"
line "TM24."
done
BlackthornGymClairText_DescribeTM24:
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
BlackthornGymClairText_BagFull:
text "What is this? You"
line "don't have room?"
done
BlackthornGymClairText_League:
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
CooltrainermPaulAfterText:
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
CooltrainermMikeAfterText:
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
CooltrainerfLolaAfterText:
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, BLACKTHORN_CITY
warp_def $11, $5, 1, BLACKTHORN_CITY
warp_def $7, $1, 1, BLACKTHORN_GYM_2F
warp_def $9, $7, 2, BLACKTHORN_GYM_2F
warp_def $6, $2, 3, BLACKTHORN_GYM_2F
warp_def $7, $7, 4, BLACKTHORN_GYM_2F
warp_def $6, $7, 5, BLACKTHORN_GYM_2F
.XYTriggers:
db 0
.Signposts:
db 2
signpost 15, 3, SIGNPOST_READ, BlackthornGymStatue
signpost 15, 6, SIGNPOST_READ, BlackthornGymStatue
.PersonEvents:
db 5
person_event SPRITE_CLAIR, 3, 5, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, (1 << 3) | PAL_OW_BLUE, PERSONTYPE_SCRIPT, 0, BlackthornGymClairScript, -1
person_event SPRITE_COOLTRAINER_M, 6, 6, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, (1 << 3) | PAL_OW_RED, PERSONTYPE_TRAINER, 3, TrainerCooltrainermMike, -1
person_event SPRITE_COOLTRAINER_M, 14, 1, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, (1 << 3) | PAL_OW_RED, PERSONTYPE_TRAINER, 3, TrainerCooltrainermPaul, -1
person_event SPRITE_COOLTRAINER_F, 2, 9, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, (1 << 3) | PAL_OW_RED, PERSONTYPE_TRAINER, 1, TrainerCooltrainerfLola, -1
person_event SPRITE_GYM_GUY, 15, 7, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, (1 << 3) | PAL_OW_RED, PERSONTYPE_SCRIPT, 0, BlackthornGymGuyScript, -1