pokecrystal-board/maps/ViridianGym.asm

186 lines
3.2 KiB
NASM

const_value set 2 ; person constants
const VIRIDIANGYM_BLUE
const VIRIDIANGYM_GYM_GUY
ViridianGym_MapScripts:
db 0 ; scene scripts
db 0 ; callbacks
ViridianGymBlueScript:
faceplayer
opentext
checkflag ENGINE_EARTHBADGE
iftrue .FightDone
writetext LeaderBlueBeforeText
waitbutton
closetext
winlosstext LeaderBlueWinText, 0
loadtrainer BLUE, BLUE1
startbattle
reloadmapafterbattle
setevent EVENT_BEAT_BLUE
opentext
writetext Text_ReceivedEarthBadge
playsound SFX_GET_BADGE
waitsfx
setflag ENGINE_EARTHBADGE
writetext LeaderBlueAfterText
waitbutton
closetext
end
.FightDone:
writetext LeaderBlueEpilogueText
waitbutton
closetext
end
ViridianGymGuyScript:
faceplayer
opentext
checkevent EVENT_BEAT_BLUE
iftrue .ViridianGymGuyWinScript
writetext ViridianGymGuyText
waitbutton
closetext
end
.ViridianGymGuyWinScript:
writetext ViridianGymGuyWinText
waitbutton
closetext
end
ViridianGymStatue:
checkflag ENGINE_EARTHBADGE
iftrue .Beaten
jumpstd gymstatue1
.Beaten:
trainertotext BLUE, BLUE1, MEM_BUFFER_1
jumpstd gymstatue2
LeaderBlueBeforeText:
text "BLUE: Yo! Finally"
line "got here, huh?"
para "I wasn't in the"
line "mood at CINNABAR,"
para "but now I'm ready"
line "to battle you."
para "…"
para "You're telling me"
line "you conquered all"
cont "the GYMS in JOHTO?"
para "Heh! JOHTO's GYMS"
line "must be pretty"
cont "pathetic then."
para "Hey, don't worry"
line "about it."
para "I'll know if you"
line "are good or not by"
para "battling you right"
line "now."
para "Ready, JOHTO"
line "CHAMP?"
done
LeaderBlueWinText:
text "BLUE: What?"
para "How the heck did I"
line "lose to you?"
para "…"
para "Tch, all right…"
line "Here, take this--"
cont "it's EARTHBADGE."
done
Text_ReceivedEarthBadge:
text "<PLAYER> received"
line "EARTHBADGE."
done
LeaderBlueAfterText:
text "BLUE: …"
para "All right, I was"
line "wrong. You're the"
para "real deal. You are"
line "a good trainer."
para "But I'm going to"
line "beat you someday."
para "Don't you forget"
line "it!"
done
LeaderBlueEpilogueText:
text "BLUE: Listen, you."
para "You'd better not"
line "lose until I beat"
cont "you. Got it?"
done
ViridianGymGuyText:
text "Yo, CHAMP in"
line "making!"
para "How's it going?"
line "Looks like you're"
cont "on a roll."
para "The GYM LEADER is"
line "a guy who battled"
para "the CHAMPION three"
line "years ago."
para "He's no pushover."
para "Give it everything"
line "you've got!"
done
ViridianGymGuyWinText:
text "Man, you are truly"
line "tough…"
para "That was a heck of"
line "an inspirational"
para "battle. It brought"
line "tears to my eyes."
done
ViridianGym_MapEvents:
db 0, 0 ; filler
db 2 ; warp events
warp_event 4, 17, 1, VIRIDIAN_CITY
warp_event 5, 17, 1, VIRIDIAN_CITY
db 0 ; coord events
db 2 ; bg events
bg_event 3, 13, BGEVENT_READ, ViridianGymStatue
bg_event 6, 13, BGEVENT_READ, ViridianGymStatue
db 2 ; object events
object_event 5, 3, SPRITE_BLUE, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, ViridianGymBlueScript, EVENT_VIRIDIAN_GYM_BLUE
object_event 7, 13, SPRITE_GYM_GUY, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, PAL_NPC_BLUE, OBJECTTYPE_SCRIPT, 0, ViridianGymGuyScript, EVENT_VIRIDIAN_GYM_BLUE