pokecrystal-board/maps/MahoganyGym.asm
2020-07-24 09:57:16 -04:00

394 lines
7.9 KiB
NASM

object_const_def
const MAHOGANYGYM_PRYCE
const MAHOGANYGYM_BEAUTY1
const MAHOGANYGYM_ROCKER1
const MAHOGANYGYM_BEAUTY2
const MAHOGANYGYM_ROCKER2
const MAHOGANYGYM_ROCKER3
const MAHOGANYGYM_GYM_GUIDE
MahoganyGym_MapScripts:
def_scene_scripts
def_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
def_warp_events
warp_event 4, 17, MAHOGANY_TOWN, 3
warp_event 5, 17, MAHOGANY_TOWN, 3
def_coord_events
def_bg_events
bg_event 3, 15, BGEVENT_READ, MahoganyGymStatue
bg_event 6, 15, BGEVENT_READ, MahoganyGymStatue
def_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