pokecrystal/maps/VermilionGym.asm

295 lines
6.4 KiB
NASM

object_const_def ; object_event constants
const VERMILIONGYM_SURGE
const VERMILIONGYM_GENTLEMAN
const VERMILIONGYM_ROCKER
const VERMILIONGYM_SUPER_NERD
const VERMILIONGYM_GYM_GUIDE
VermilionGym_MapScripts:
db 0 ; scene scripts
db 0 ; callbacks
VermilionGymSurgeScript:
faceplayer
opentext
checkflag ENGINE_THUNDERBADGE
iftrue .FightDone
writetext LtSurgeIntroText
waitbutton
closetext
winlosstext LtSurgeWinLossText, 0
loadtrainer LT_SURGE, LT_SURGE1
startbattle
reloadmapafterbattle
setevent EVENT_BEAT_LTSURGE
setevent EVENT_BEAT_GENTLEMAN_GREGORY
setevent EVENT_BEAT_GUITARIST_VINCENT
setevent EVENT_BEAT_JUGGLER_HORTON
opentext
writetext ReceivedThunderBadgeText
playsound SFX_GET_BADGE
waitsfx
setflag ENGINE_THUNDERBADGE
writetext LtSurgeThunderBadgeText
waitbutton
closetext
end
.FightDone:
writetext LtSurgeFightDoneText
waitbutton
closetext
end
TrainerGentlemanGregory:
trainer GENTLEMAN, GREGORY, EVENT_BEAT_GENTLEMAN_GREGORY, GentlemanGregorySeenText, GentlemanGregoryBeatenText, 0, .Script
.Script:
endifjustbattled
opentext
writetext GentlemanGregoryAfterBattleText
waitbutton
closetext
end
TrainerGuitaristVincent:
trainer GUITARIST, VINCENT, EVENT_BEAT_GUITARIST_VINCENT, GuitaristVincentSeenText, GuitaristVincentBeatenText, 0, .Script
.Script:
endifjustbattled
opentext
writetext GuitaristVincentAfterBattleText
waitbutton
closetext
end
TrainerJugglerHorton:
trainer JUGGLER, HORTON, EVENT_BEAT_JUGGLER_HORTON, JugglerHortonSeenText, JugglerHortonBeatenText, 0, .Script
.Script:
endifjustbattled
opentext
writetext JugglerHortonAfterBattleText
waitbutton
closetext
end
VermilionGymGuideScript:
faceplayer
opentext
checkevent EVENT_BEAT_LTSURGE
iftrue .VermilionGymGuideWinScript
writetext VermilionGymGuideText
waitbutton
closetext
end
.VermilionGymGuideWinScript:
writetext VermilionGymGuideWinText
waitbutton
closetext
end
VermilionGymTrashCan:
jumptext VermilionGymTrashCanText
VermilionGymStatue:
checkflag ENGINE_THUNDERBADGE
iftrue .Beaten
jumpstd GymStatue1Script
.Beaten:
gettrainername STRING_BUFFER_4, LT_SURGE, LT_SURGE1
jumpstd GymStatue2Script
LtSurgeIntroText:
text "SURGE: Hey, you"
line "little tyke!"
para "I have to hand it"
line "to you. It may not"
para "be very smart to"
line "challenge me, but"
cont "it takes guts!"
para "When it comes to"
line "electric #MON,"
cont "I'm number one!"
para "I've never lost on"
line "the battlefield."
para "I'll zap you just"
line "like I did my"
cont "enemies in war!"
done
LtSurgeWinLossText:
text "SURGE: Arrrgh!"
line "You are strong!"
para "OK, kid. You get"
line "THUNDERBADGE!"
done
ReceivedThunderBadgeText:
text "<PLAYER> received"
line "THUNDERBADGE."
done
LtSurgeThunderBadgeText:
text "SURGE: THUNDER-"
line "BADGE increases"
cont "#MON's speed. "
para "Consider it proof"
line "that you defeated"
para "me. You wear it"
line "proudly, hear?"
done
LtSurgeFightDoneText:
text "SURGE: Hey, kid!"
line "Still slugging and"
cont "chugging away?"
para "My #MON and I"
line "are still at it!"
done
GentlemanGregorySeenText:
text "You're here to"
line "defeat LT.SURGE?"
para "Not if I can help"
line "it!"
done
GentlemanGregoryBeatenText:
text "Sorry I failed"
line "you, LT.SURGE,"
cont "sir!"
done
GentlemanGregoryAfterBattleText:
text "When I was still"
line "in the army, LT."
para "SURGE saved my"
line "life."
done
GuitaristVincentSeenText:
text "LT.SURGE recog-"
line "nized my potential"
para "with electric"
line "#MON."
para "Think you can beat"
line "me?"
done
GuitaristVincentBeatenText:
text "Ooh, how shocking!"
done
GuitaristVincentAfterBattleText:
text "If the GYM's traps"
line "were working, you"
para "would have been"
line "toast…"
done
JugglerHortonSeenText:
text "I'm going to take"
line "you down! Prepare"
cont "to be shocked!"
done
JugglerHortonBeatenText:
text "Gwaaah!"
line "I was overpowered…"
done
JugglerHortonAfterBattleText:
text "Don't get too com-"
line "fortable about"
para "beating me…"
line "LT.SURGE is tough."
done
VermilionGymGuideText:
text "Yo! CHAMP in"
line "making!"
para "You lucked out"
line "this time."
para "LT.SURGE is very"
line "cautious. He has"
para "traps set all over"
line "the GYM."
para "But--he-heh--the"
line "traps aren't"
cont "active right now."
para "You'll have no"
line "problem getting to"
cont "LT.SURGE."
done
VermilionGymGuideWinText:
text "Whew! That was an"
line "electrifying bout!"
para "It sure made me"
line "nervous."
done
VermilionGymTrashCanText:
text "Nope! Nothing here"
line "but trash."
done
VermilionGym_MapEvents:
db 0, 0 ; filler
db 2 ; warp events
warp_event 4, 17, VERMILION_CITY, 7
warp_event 5, 17, VERMILION_CITY, 7
db 0 ; coord events
db 17 ; bg events
bg_event 1, 7, BGEVENT_READ, VermilionGymTrashCan
bg_event 3, 7, BGEVENT_READ, VermilionGymTrashCan
bg_event 5, 7, BGEVENT_READ, VermilionGymTrashCan
bg_event 7, 7, BGEVENT_READ, VermilionGymTrashCan
bg_event 9, 7, BGEVENT_READ, VermilionGymTrashCan
bg_event 1, 9, BGEVENT_READ, VermilionGymTrashCan
bg_event 3, 9, BGEVENT_READ, VermilionGymTrashCan
bg_event 5, 9, BGEVENT_READ, VermilionGymTrashCan
bg_event 7, 9, BGEVENT_READ, VermilionGymTrashCan
bg_event 9, 9, BGEVENT_READ, VermilionGymTrashCan
bg_event 1, 11, BGEVENT_READ, VermilionGymTrashCan
bg_event 3, 11, BGEVENT_READ, VermilionGymTrashCan
bg_event 5, 11, BGEVENT_READ, VermilionGymTrashCan
bg_event 7, 11, BGEVENT_READ, VermilionGymTrashCan
bg_event 9, 11, BGEVENT_READ, VermilionGymTrashCan
bg_event 3, 15, BGEVENT_READ, VermilionGymStatue
bg_event 6, 15, BGEVENT_READ, VermilionGymStatue
db 5 ; object events
object_event 5, 2, SPRITE_SURGE, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, PAL_NPC_BROWN, OBJECTTYPE_SCRIPT, 0, VermilionGymSurgeScript, -1
object_event 8, 8, SPRITE_GENTLEMAN, SPRITEMOVEDATA_STANDING_LEFT, 0, 0, -1, -1, PAL_NPC_BLUE, OBJECTTYPE_TRAINER, 4, TrainerGentlemanGregory, -1
object_event 4, 7, SPRITE_ROCKER, SPRITEMOVEDATA_STANDING_DOWN, 3, 0, -1, -1, PAL_NPC_RED, OBJECTTYPE_TRAINER, 3, TrainerGuitaristVincent, -1
object_event 0, 10, SPRITE_SUPER_NERD, SPRITEMOVEDATA_STANDING_RIGHT, 0, 0, -1, -1, PAL_NPC_BLUE, OBJECTTYPE_TRAINER, 4, TrainerJugglerHorton, -1
object_event 7, 15, SPRITE_GYM_GUIDE, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, PAL_NPC_BLUE, OBJECTTYPE_SCRIPT, 1, VermilionGymGuideScript, -1