pokecrystal-board/maps/CeladonGym.asm

288 lines
6.0 KiB
NASM

object_const_def ; object_event constants
const CELADONGYM_ERIKA
const CELADONGYM_LASS1
const CELADONGYM_LASS2
const CELADONGYM_BUENA
const CELADONGYM_TWIN1
const CELADONGYM_TWIN2
CeladonGym_MapScripts:
db 0 ; scene scripts
db 0 ; callbacks
CeladonGymErikaScript:
faceplayer
opentext
checkflag ENGINE_RAINBOWBADGE
iftrue .FightDone
writetext ErikaBeforeBattleText
waitbutton
closetext
winlosstext ErikaBeatenText, 0
loadtrainer ERIKA, ERIKA1
startbattle
reloadmapafterbattle
setevent EVENT_BEAT_ERIKA
setevent EVENT_BEAT_LASS_MICHELLE
setevent EVENT_BEAT_PICNICKER_TANYA
setevent EVENT_BEAT_BEAUTY_JULIA
setevent EVENT_BEAT_TWINS_JO_AND_ZOE
opentext
writetext PlayerReceivedRainbowBadgeText
playsound SFX_GET_BADGE
waitsfx
setflag ENGINE_RAINBOWBADGE
.FightDone:
checkevent EVENT_GOT_TM19_GIGA_DRAIN
iftrue .GotGigaDrain
writetext ErikaExplainTMText
promptbutton
verbosegiveitem TM_GIGA_DRAIN
iffalse .GotGigaDrain
setevent EVENT_GOT_TM19_GIGA_DRAIN
.GotGigaDrain:
writetext ErikaAfterBattleText
waitbutton
closetext
end
TrainerLassMichelle:
trainer LASS, MICHELLE, EVENT_BEAT_LASS_MICHELLE, LassMichelleSeenText, LassMichelleBeatenText, 0, .Script
.Script:
endifjustbattled
opentext
writetext LassMichelleAfterBattleText
waitbutton
closetext
end
TrainerPicnickerTanya:
trainer PICNICKER, TANYA, EVENT_BEAT_PICNICKER_TANYA, PicnickerTanyaSeenText, PicnickerTanyaBeatenText, 0, .Script
.Script:
endifjustbattled
opentext
writetext PicnickerTanyaAfterBattleText
waitbutton
closetext
end
TrainerBeautyJulia:
trainer BEAUTY, JULIA, EVENT_BEAT_BEAUTY_JULIA, BeautyJuliaSeenText, BeautyJuliaBeatenText, 0, .Script
.Script:
endifjustbattled
opentext
writetext BeautyJuliaAfterBattleText
waitbutton
closetext
end
TrainerTwinsJoAndZoe1:
trainer TWINS, JOANDZOE1, EVENT_BEAT_TWINS_JO_AND_ZOE, TwinsJoAndZoe1SeenText, TwinsJoAndZoe1BeatenText, 0, .Script
.Script:
endifjustbattled
opentext
writetext TwinsJoAndZoe1AfterBattleText
waitbutton
closetext
end
TrainerTwinsJoAndZoe2:
trainer TWINS, JOANDZOE2, EVENT_BEAT_TWINS_JO_AND_ZOE, TwinsJoAndZoe2SeenText, TwinsJoAndZoe2BeatenText, 0, .Script
.Script:
endifjustbattled
opentext
writetext TwinsJoAndZoe2AfterBattleText
waitbutton
closetext
end
CeladonGymStatue:
checkflag ENGINE_RAINBOWBADGE
iftrue .Beaten
jumpstd GymStatue1Script
.Beaten:
gettrainername STRING_BUFFER_4, ERIKA, ERIKA1
jumpstd GymStatue2Script
ErikaBeforeBattleText:
text "ERIKA: Hello…"
line "Lovely weather,"
para "isn't it?"
line "It's so pleasant…"
para "…I'm afraid I may"
line "doze off…"
para "My name is ERIKA."
line "I am the LEADER of"
cont "CELADON GYM."
para "…Oh? All the way"
line "from JOHTO, you"
cont "say? How nice…"
para "Oh. I'm sorry, I"
line "didn't realize"
para "that you wished to"
line "challenge me."
para "Very well, but I"
line "shall not lose."
done
ErikaBeatenText:
text "ERIKA: Oh!"
line "I concede defeat…"
para "You are remarkably"
line "strong…"
para "I shall give you"
line "RAINBOWBADGE…"
done
PlayerReceivedRainbowBadgeText:
text "<PLAYER> received"
line "RAINBOWBADGE."
done
ErikaExplainTMText:
text "ERIKA: That was a"
line "delightful match."
para "I felt inspired."
line "Please, I wish you"
cont "to have this TM."
para "It is GIGA DRAIN."
para "It is a wonderful"
line "move that drains"
para "half the damage it"
line "inflicts to heal"
cont "your #MON."
para "Please use it if"
line "it pleases you…"
done
ErikaAfterBattleText:
text "ERIKA: Losing"
line "leaves a bitter"
cont "aftertaste…"
para "But knowing that"
line "there are strong"
para "trainers spurs me"
line "to do better…"
done
LassMichelleSeenText:
text "Do you think a"
line "girls-only GYM"
cont "is rare?"
done
LassMichelleBeatenText:
text "Oh, bleah!"
done
LassMichelleAfterBattleText:
text "I just got care-"
line "less, that's all!"
done
PicnickerTanyaSeenText:
text "Oh, a battle?"
line "That's kind of"
cont "scary, but OK!"
done
PicnickerTanyaBeatenText:
text "Oh, that's it?"
done
PicnickerTanyaAfterBattleText:
text "Oh, look at all"
line "your BADGES. No"
para "wonder I couldn't"
line "win!"
done
BeautyJuliaSeenText:
text "Were you looking"
line "at these flowers"
cont "or at me?"
done
BeautyJuliaBeatenText:
text "How annoying!"
done
BeautyJuliaAfterBattleText:
text "How do I go about"
line "becoming ladylike"
cont "like ERIKA?"
done
TwinsJoAndZoe1SeenText:
text "We'll show you"
line "#MON moves that"
cont "ERIKA taught us!"
done
TwinsJoAndZoe1BeatenText:
text "Oh… We lost…"
done
TwinsJoAndZoe1AfterBattleText:
text "ERIKA will get you"
line "back for us!"
done
TwinsJoAndZoe2SeenText:
text "We're going to"
line "protect ERIKA!"
done
TwinsJoAndZoe2BeatenText:
text "We couldn't win…"
done
TwinsJoAndZoe2AfterBattleText:
text "ERIKA is much,"
line "much stronger!"
done
CeladonGym_MapEvents:
db 0, 0 ; filler
db 2 ; warp events
warp_event 4, 17, CELADON_CITY, 8
warp_event 5, 17, CELADON_CITY, 8
db 0 ; coord events
db 2 ; bg events
bg_event 3, 15, BGEVENT_READ, CeladonGymStatue
bg_event 6, 15, BGEVENT_READ, CeladonGymStatue
db 6 ; object events
object_event 5, 3, SPRITE_ERIKA, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, PAL_NPC_GREEN, OBJECTTYPE_SCRIPT, 0, CeladonGymErikaScript, -1
object_event 7, 8, SPRITE_LASS, SPRITEMOVEDATA_STANDING_LEFT, 0, 0, -1, -1, PAL_NPC_BLUE, OBJECTTYPE_TRAINER, 2, TrainerLassMichelle, -1
object_event 2, 8, SPRITE_LASS, SPRITEMOVEDATA_STANDING_RIGHT, 0, 0, -1, -1, PAL_NPC_GREEN, OBJECTTYPE_TRAINER, 2, TrainerPicnickerTanya, -1
object_event 3, 5, SPRITE_BUENA, SPRITEMOVEDATA_STANDING_RIGHT, 0, 0, -1, -1, PAL_NPC_BLUE, OBJECTTYPE_TRAINER, 2, TrainerBeautyJulia, -1
object_event 4, 10, SPRITE_TWIN, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, PAL_NPC_RED, OBJECTTYPE_TRAINER, 1, TrainerTwinsJoAndZoe1, -1
object_event 5, 10, SPRITE_TWIN, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, PAL_NPC_RED, OBJECTTYPE_TRAINER, 1, TrainerTwinsJoAndZoe2, -1