mirror of https://github.com/pret/pokecrystal.git
186 lines
3.3 KiB
NASM
186 lines
3.3 KiB
NASM
object_const_def ; object_event constants
|
|
const VIRIDIANGYM_BLUE
|
|
const VIRIDIANGYM_GYM_GUIDE
|
|
|
|
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
|
|
|
|
ViridianGymGuideScript:
|
|
faceplayer
|
|
opentext
|
|
checkevent EVENT_BEAT_BLUE
|
|
iftrue .ViridianGymGuideWinScript
|
|
writetext ViridianGymGuideText
|
|
waitbutton
|
|
closetext
|
|
end
|
|
|
|
.ViridianGymGuideWinScript:
|
|
writetext ViridianGymGuideWinText
|
|
waitbutton
|
|
closetext
|
|
end
|
|
|
|
ViridianGymStatue:
|
|
checkflag ENGINE_EARTHBADGE
|
|
iftrue .Beaten
|
|
jumpstd GymStatue1Script
|
|
|
|
.Beaten:
|
|
gettrainername STRING_BUFFER_4, BLUE, BLUE1
|
|
jumpstd GymStatue2Script
|
|
|
|
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
|
|
|
|
ViridianGymGuideText:
|
|
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
|
|
|
|
ViridianGymGuideWinText:
|
|
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, VIRIDIAN_CITY, 1
|
|
warp_event 5, 17, VIRIDIAN_CITY, 1
|
|
|
|
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_GUIDE, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, PAL_NPC_BLUE, OBJECTTYPE_SCRIPT, 0, ViridianGymGuideScript, EVENT_VIRIDIAN_GYM_BLUE
|