mirror of https://github.com/pret/pokecrystal.git
394 lines
7.9 KiB
NASM
394 lines
7.9 KiB
NASM
object_const_def ; object_event constants
|
|
const MAHOGANYGYM_PRYCE
|
|
const MAHOGANYGYM_BEAUTY1
|
|
const MAHOGANYGYM_ROCKER1
|
|
const MAHOGANYGYM_BEAUTY2
|
|
const MAHOGANYGYM_ROCKER2
|
|
const MAHOGANYGYM_ROCKER3
|
|
const MAHOGANYGYM_GYM_GUIDE
|
|
|
|
MahoganyGym_MapScripts:
|
|
db 0 ; scene scripts
|
|
|
|
db 0 ; callbacks
|
|
|
|
MahoganyGymPryceScript:
|
|
faceplayer
|
|
opentext
|
|
checkevent EVENT_BEAT_PRYCE
|
|
iftrue .FightDone
|
|
writetext PryceText_Intro
|
|
waitbutton
|
|
closetext
|
|
winlosstext PryceText_Impressed, 0
|
|
loadtrainer PRYCE, PRYCE1
|
|
startbattle
|
|
reloadmapafterbattle
|
|
setevent EVENT_BEAT_PRYCE
|
|
opentext
|
|
writetext Text_ReceivedGlacierBadge
|
|
playsound SFX_GET_BADGE
|
|
waitsfx
|
|
setflag ENGINE_GLACIERBADGE
|
|
readvar VAR_BADGES
|
|
scall MahoganyGymActivateRockets
|
|
.FightDone:
|
|
checkevent EVENT_GOT_TM16_ICY_WIND
|
|
iftrue PryceScript_Defeat
|
|
setevent EVENT_BEAT_SKIER_ROXANNE
|
|
setevent EVENT_BEAT_SKIER_CLARISSA
|
|
setevent EVENT_BEAT_BOARDER_RONALD
|
|
setevent EVENT_BEAT_BOARDER_BRAD
|
|
setevent EVENT_BEAT_BOARDER_DOUGLAS
|
|
writetext PryceText_GlacierBadgeSpeech
|
|
promptbutton
|
|
verbosegiveitem TM_ICY_WIND
|
|
iffalse MahoganyGym_NoRoomForIcyWind
|
|
setevent EVENT_GOT_TM16_ICY_WIND
|
|
writetext PryceText_IcyWindSpeech
|
|
waitbutton
|
|
closetext
|
|
end
|
|
|
|
PryceScript_Defeat:
|
|
writetext PryceText_CherishYourPokemon
|
|
waitbutton
|
|
MahoganyGym_NoRoomForIcyWind:
|
|
closetext
|
|
end
|
|
|
|
MahoganyGymActivateRockets:
|
|
ifequal 7, .RadioTowerRockets
|
|
ifequal 6, .GoldenrodRockets
|
|
end
|
|
|
|
.GoldenrodRockets:
|
|
jumpstd GoldenrodRocketsScript
|
|
|
|
.RadioTowerRockets:
|
|
jumpstd RadioTowerRocketsScript
|
|
|
|
TrainerSkierRoxanne:
|
|
trainer SKIER, ROXANNE, EVENT_BEAT_SKIER_ROXANNE, SkierRoxanneSeenText, SkierRoxanneBeatenText, 0, .Script
|
|
|
|
.Script:
|
|
endifjustbattled
|
|
opentext
|
|
writetext SkierRoxanneAfterBattleText
|
|
waitbutton
|
|
closetext
|
|
end
|
|
|
|
TrainerSkierClarissa:
|
|
trainer SKIER, CLARISSA, EVENT_BEAT_SKIER_CLARISSA, SkierClarissaSeenText, SkierClarissaBeatenText, 0, .Script
|
|
|
|
.Script:
|
|
endifjustbattled
|
|
opentext
|
|
writetext SkierClarissaAfterBattleText
|
|
waitbutton
|
|
closetext
|
|
end
|
|
|
|
TrainerBoarderRonald:
|
|
trainer BOARDER, RONALD, EVENT_BEAT_BOARDER_RONALD, BoarderRonaldSeenText, BoarderRonaldBeatenText, 0, .Script
|
|
|
|
.Script:
|
|
endifjustbattled
|
|
opentext
|
|
writetext BoarderRonaldAfterBattleText
|
|
waitbutton
|
|
closetext
|
|
end
|
|
|
|
TrainerBoarderBrad:
|
|
trainer BOARDER, BRAD, EVENT_BEAT_BOARDER_BRAD, BoarderBradSeenText, BoarderBradBeatenText, 0, .Script
|
|
|
|
.Script:
|
|
endifjustbattled
|
|
opentext
|
|
writetext BoarderBradAfterBattleText
|
|
waitbutton
|
|
closetext
|
|
end
|
|
|
|
TrainerBoarderDouglas:
|
|
trainer BOARDER, DOUGLAS, EVENT_BEAT_BOARDER_DOUGLAS, BoarderDouglasSeenText, BoarderDouglasBeatenText, 0, .Script
|
|
|
|
.Script:
|
|
endifjustbattled
|
|
opentext
|
|
writetext BoarderDouglasAfterBattleText
|
|
waitbutton
|
|
closetext
|
|
end
|
|
|
|
MahoganyGymGuideScript:
|
|
faceplayer
|
|
opentext
|
|
checkevent EVENT_BEAT_PRYCE
|
|
iftrue .MahoganyGymGuideWinScript
|
|
writetext MahoganyGymGuideText
|
|
waitbutton
|
|
closetext
|
|
end
|
|
|
|
.MahoganyGymGuideWinScript:
|
|
writetext MahoganyGymGuideWinText
|
|
waitbutton
|
|
closetext
|
|
end
|
|
|
|
MahoganyGymStatue:
|
|
checkflag ENGINE_GLACIERBADGE
|
|
iftrue .Beaten
|
|
jumpstd GymStatue1Script
|
|
.Beaten:
|
|
gettrainername STRING_BUFFER_4, PRYCE, PRYCE1
|
|
jumpstd GymStatue2Script
|
|
|
|
PryceText_Intro:
|
|
text "#MON have many"
|
|
line "experiences in"
|
|
|
|
para "their lives, just "
|
|
line "like we do. "
|
|
|
|
para "I, too, have seen"
|
|
line "and suffered much"
|
|
cont "in my life."
|
|
|
|
para "Since I am your"
|
|
line "elder, let me show"
|
|
cont "you what I mean."
|
|
|
|
para "I have been with"
|
|
line "#MON since"
|
|
|
|
para "before you were"
|
|
line "born."
|
|
|
|
para "I do not lose"
|
|
line "easily."
|
|
|
|
para "I, PRYCE--the"
|
|
line "winter trainer--"
|
|
|
|
para "shall demonstrate"
|
|
line "my power!"
|
|
done
|
|
|
|
PryceText_Impressed:
|
|
text "Ah, I am impressed"
|
|
line "by your prowess."
|
|
|
|
para "With your strong"
|
|
line "will, I know you"
|
|
|
|
para "will overcome all"
|
|
line "life's obstacles."
|
|
|
|
para "You are worthy of"
|
|
line "this BADGE!"
|
|
done
|
|
|
|
Text_ReceivedGlacierBadge:
|
|
text "<PLAYER> received"
|
|
line "GLACIERBADGE."
|
|
done
|
|
|
|
PryceText_GlacierBadgeSpeech:
|
|
text "That BADGE will"
|
|
line "raise the SPECIAL"
|
|
cont "stats of #MON."
|
|
|
|
para "It also lets your"
|
|
line "#MON use WHIRL-"
|
|
cont "POOL to get across"
|
|
cont "real whirlpools."
|
|
|
|
para "And this… This is"
|
|
line "a gift from me!"
|
|
done
|
|
|
|
PryceText_IcyWindSpeech:
|
|
text "That TM contains"
|
|
line "ICY WIND."
|
|
|
|
para "It inflicts damage"
|
|
line "and lowers speed."
|
|
|
|
para "It demonstrates"
|
|
line "the harshness of"
|
|
cont "winter."
|
|
done
|
|
|
|
PryceText_CherishYourPokemon:
|
|
text "When the ice and"
|
|
line "snow melt, spring"
|
|
cont "arrives."
|
|
|
|
para "You and your #-"
|
|
line "MON will be to-"
|
|
|
|
para "gether for many"
|
|
line "years to come."
|
|
|
|
para "Cherish your time"
|
|
line "together!"
|
|
done
|
|
|
|
BoarderRonaldSeenText:
|
|
text "I'll freeze your"
|
|
line "#MON, so you"
|
|
cont "can't do a thing!"
|
|
done
|
|
|
|
BoarderRonaldBeatenText:
|
|
text "Darn. I couldn't"
|
|
line "do a thing."
|
|
done
|
|
|
|
BoarderRonaldAfterBattleText:
|
|
text "I think there's a"
|
|
line "move a #MON"
|
|
|
|
para "can use while it's"
|
|
line "frozen."
|
|
done
|
|
|
|
BoarderBradSeenText:
|
|
text "This GYM has a"
|
|
line "slippery floor."
|
|
|
|
para "It's fun, isn't"
|
|
line "it?"
|
|
|
|
para "But hey--we're"
|
|
line "not playing games"
|
|
cont "here!"
|
|
done
|
|
|
|
BoarderBradBeatenText:
|
|
text "Do you see how"
|
|
line "serious we are?"
|
|
done
|
|
|
|
BoarderBradAfterBattleText:
|
|
text "This GYM is great."
|
|
line "I love boarding"
|
|
cont "with my #MON!"
|
|
done
|
|
|
|
BoarderDouglasSeenText:
|
|
text "I know PRYCE's"
|
|
line "secret."
|
|
done
|
|
|
|
BoarderDouglasBeatenText:
|
|
text "OK. I'll tell you"
|
|
line "PRYCE's secret."
|
|
done
|
|
|
|
BoarderDouglasAfterBattleText:
|
|
text "The secret behind"
|
|
line "PRYCE's power…"
|
|
|
|
para "He meditates under"
|
|
line "a waterfall daily"
|
|
|
|
para "to strengthen his"
|
|
line "mind and body."
|
|
done
|
|
|
|
SkierRoxanneSeenText:
|
|
text "To get to PRYCE,"
|
|
line "our GYM LEADER,"
|
|
|
|
para "you need to think"
|
|
line "before you skate."
|
|
done
|
|
|
|
SkierRoxanneBeatenText:
|
|
text "I wouldn't lose to"
|
|
line "you in skiing!"
|
|
done
|
|
|
|
SkierRoxanneAfterBattleText:
|
|
text "If you don't skate"
|
|
line "with precision,"
|
|
|
|
para "you won't get far"
|
|
line "in this GYM."
|
|
done
|
|
|
|
SkierClarissaSeenText:
|
|
text "Check out my"
|
|
line "parallel turn!"
|
|
done
|
|
|
|
SkierClarissaBeatenText:
|
|
text "No! You made me"
|
|
line "wipe out!"
|
|
done
|
|
|
|
SkierClarissaAfterBattleText:
|
|
text "I shouldn't have"
|
|
line "been bragging"
|
|
cont "about my skiing…"
|
|
done
|
|
|
|
MahoganyGymGuideText:
|
|
text "PRYCE is a veteran"
|
|
line "who has trained"
|
|
|
|
para "#MON for some"
|
|
line "50 years."
|
|
|
|
para "He's said to be"
|
|
line "good at freezing"
|
|
|
|
para "opponents with"
|
|
line "ice-type moves."
|
|
|
|
para "That means you"
|
|
line "should melt him"
|
|
|
|
para "with your burning"
|
|
line "ambition!"
|
|
done
|
|
|
|
MahoganyGymGuideWinText:
|
|
text "PRYCE is some-"
|
|
line "thing, but you're"
|
|
cont "something else!"
|
|
|
|
para "That was a hot"
|
|
line "battle that"
|
|
|
|
para "bridged the gen-"
|
|
line "eration gap!"
|
|
done
|
|
|
|
MahoganyGym_MapEvents:
|
|
db 0, 0 ; filler
|
|
|
|
db 2 ; warp events
|
|
warp_event 4, 17, MAHOGANY_TOWN, 3
|
|
warp_event 5, 17, MAHOGANY_TOWN, 3
|
|
|
|
db 0 ; coord events
|
|
|
|
db 2 ; bg events
|
|
bg_event 3, 15, BGEVENT_READ, MahoganyGymStatue
|
|
bg_event 6, 15, BGEVENT_READ, MahoganyGymStatue
|
|
|
|
db 7 ; object events
|
|
object_event 5, 3, SPRITE_PRYCE, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, PAL_NPC_BROWN, OBJECTTYPE_SCRIPT, 0, MahoganyGymPryceScript, -1
|
|
object_event 4, 6, SPRITE_BEAUTY, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, PAL_NPC_RED, OBJECTTYPE_TRAINER, 1, TrainerSkierRoxanne, -1
|
|
object_event 0, 17, SPRITE_ROCKER, SPRITEMOVEDATA_STANDING_UP, 0, 0, -1, -1, PAL_NPC_BLUE, OBJECTTYPE_TRAINER, 1, TrainerBoarderRonald, -1
|
|
object_event 9, 17, SPRITE_BEAUTY, SPRITEMOVEDATA_STANDING_UP, 0, 0, -1, -1, PAL_NPC_RED, OBJECTTYPE_TRAINER, 1, TrainerSkierClarissa, -1
|
|
object_event 5, 9, SPRITE_ROCKER, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, PAL_NPC_BLUE, OBJECTTYPE_TRAINER, 1, TrainerBoarderBrad, -1
|
|
object_event 2, 4, SPRITE_ROCKER, SPRITEMOVEDATA_SPINRANDOM_FAST, 0, 0, -1, -1, PAL_NPC_BLUE, OBJECTTYPE_TRAINER, 1, TrainerBoarderDouglas, -1
|
|
object_event 7, 15, SPRITE_GYM_GUIDE, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, PAL_NPC_RED, OBJECTTYPE_SCRIPT, 0, MahoganyGymGuideScript, -1
|