mirror of https://github.com/pret/pokecrystal.git
411 lines
8.2 KiB
NASM
411 lines
8.2 KiB
NASM
const_def 2 ; object constants
|
|
const BLACKTHORNGYM1F_CLAIR
|
|
const BLACKTHORNGYM1F_COOLTRAINER_M1
|
|
const BLACKTHORNGYM1F_COOLTRAINER_M2
|
|
const BLACKTHORNGYM1F_COOLTRAINER_F
|
|
const BLACKTHORNGYM1F_GYM_GUY
|
|
|
|
BlackthornGym1F_MapScripts:
|
|
db 0 ; scene scripts
|
|
|
|
db 1 ; callbacks
|
|
callback MAPCALLBACK_TILES, .Boulders
|
|
|
|
.Boulders:
|
|
checkevent EVENT_BOULDER_IN_BLACKTHORN_GYM_1
|
|
iffalse .skip1
|
|
changeblock 8, 2, $3b ; fallen boulder 2
|
|
.skip1
|
|
checkevent EVENT_BOULDER_IN_BLACKTHORN_GYM_2
|
|
iffalse .skip2
|
|
changeblock 2, 4, $3a ; fallen boulder 1
|
|
.skip2
|
|
checkevent EVENT_BOULDER_IN_BLACKTHORN_GYM_3
|
|
iffalse .skip3
|
|
changeblock 8, 6, $3b ; fallen boulder 2
|
|
.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, CLAIR1
|
|
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
|
|
getitemname STRING_BUFFER_3, TM_DRAGONBREATH
|
|
writetext BlackthornGymText_ReceivedTM24
|
|
playsound SFX_ITEM
|
|
waitsfx
|
|
itemnotify
|
|
setevent EVENT_GOT_TM24_DRAGONBREATH
|
|
writetext BlackthornGymClairText_DescribeTM24
|
|
buttonsound
|
|
sjump .GotTM24
|
|
|
|
.BagFull:
|
|
writetext BlackthornGymClairText_BagFull
|
|
waitbutton
|
|
closetext
|
|
end
|
|
|
|
.GotTM24:
|
|
writetext BlackthornGymClairText_League
|
|
waitbutton
|
|
closetext
|
|
end
|
|
|
|
TrainerCooltrainermPaul:
|
|
trainer COOLTRAINERM, PAUL, EVENT_BEAT_COOLTRAINERM_PAUL, CooltrainermPaulSeenText, CooltrainermPaulBeatenText, 0, .Script
|
|
|
|
.Script:
|
|
endifjustbattled
|
|
opentext
|
|
writetext CooltrainermPaulAfterBattleText
|
|
waitbutton
|
|
closetext
|
|
end
|
|
|
|
TrainerCooltrainermMike:
|
|
trainer COOLTRAINERM, MIKE, EVENT_BEAT_COOLTRAINERM_MIKE, CooltrainermMikeSeenText, CooltrainermMikeBeatenText, 0, .Script
|
|
|
|
.Script:
|
|
endifjustbattled
|
|
opentext
|
|
writetext CooltrainermMikeAfterBattleText
|
|
waitbutton
|
|
closetext
|
|
end
|
|
|
|
TrainerCooltrainerfLola:
|
|
trainer COOLTRAINERF, LOLA, EVENT_BEAT_COOLTRAINERF_LOLA, CooltrainerfLolaSeenText, CooltrainerfLolaBeatenText, 0, .Script
|
|
|
|
.Script:
|
|
endifjustbattled
|
|
opentext
|
|
writetext CooltrainerfLolaAfterBattleText
|
|
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:
|
|
gettrainername STRING_BUFFER_4, CLAIR, CLAIR1
|
|
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
|
|
|
|
CooltrainermPaulAfterBattleText:
|
|
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
|
|
|
|
CooltrainermMikeAfterBattleText:
|
|
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
|
|
|
|
CooltrainerfLolaAfterBattleText:
|
|
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_MapEvents:
|
|
db 0, 0 ; filler
|
|
|
|
db 7 ; warp events
|
|
warp_event 4, 17, BLACKTHORN_CITY, 1
|
|
warp_event 5, 17, BLACKTHORN_CITY, 1
|
|
warp_event 1, 7, BLACKTHORN_GYM_2F, 1
|
|
warp_event 7, 9, BLACKTHORN_GYM_2F, 2
|
|
warp_event 2, 6, BLACKTHORN_GYM_2F, 3
|
|
warp_event 7, 7, BLACKTHORN_GYM_2F, 4
|
|
warp_event 7, 6, BLACKTHORN_GYM_2F, 5
|
|
|
|
db 0 ; coord events
|
|
|
|
db 2 ; bg events
|
|
bg_event 3, 15, BGEVENT_READ, BlackthornGymStatue
|
|
bg_event 6, 15, BGEVENT_READ, BlackthornGymStatue
|
|
|
|
db 5 ; object events
|
|
object_event 5, 3, SPRITE_CLAIR, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, PAL_NPC_BLUE, OBJECTTYPE_SCRIPT, 0, BlackthornGymClairScript, -1
|
|
object_event 6, 6, SPRITE_COOLTRAINER_M, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, PAL_NPC_RED, OBJECTTYPE_TRAINER, 3, TrainerCooltrainermMike, -1
|
|
object_event 1, 14, SPRITE_COOLTRAINER_M, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, PAL_NPC_RED, OBJECTTYPE_TRAINER, 3, TrainerCooltrainermPaul, -1
|
|
object_event 9, 2, SPRITE_COOLTRAINER_F, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, PAL_NPC_RED, OBJECTTYPE_TRAINER, 1, TrainerCooltrainerfLola, -1
|
|
object_event 7, 15, SPRITE_GYM_GUY, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, PAL_NPC_RED, OBJECTTYPE_SCRIPT, 0, BlackthornGymGuyScript, -1
|