pokecrystal-board/maps/PewterGym.asm

226 lines
4.1 KiB
NASM

object_const_def ; object_event constants
const PEWTERGYM_BROCK
const PEWTERGYM_YOUNGSTER
const PEWTERGYM_GYM_GUY
PewterGym_MapScripts:
db 0 ; scene scripts
db 0 ; callbacks
PewterGymBrockScript:
faceplayer
opentext
checkflag ENGINE_BOULDERBADGE
iftrue .FightDone
writetext BrockIntroText
waitbutton
closetext
winlosstext BrockWinLossText, 0
loadtrainer BROCK, BROCK1
startbattle
reloadmapafterbattle
setevent EVENT_BEAT_BROCK
setevent EVENT_BEAT_CAMPER_JERRY
opentext
writetext ReceivedBoulderBadgeText
playsound SFX_GET_BADGE
waitsfx
setflag ENGINE_BOULDERBADGE
writetext BrockBoulderBadgeText
waitbutton
closetext
end
.FightDone:
writetext BrockFightDoneText
waitbutton
closetext
end
TrainerCamperJerry:
trainer CAMPER, JERRY, EVENT_BEAT_CAMPER_JERRY, CamperJerrySeenText, CamperJerryBeatenText, 0, .Script
.Script:
endifjustbattled
opentext
writetext CamperJerryAfterBattleText
waitbutton
closetext
end
PewterGymGuyScript:
faceplayer
opentext
checkevent EVENT_BEAT_BROCK
iftrue .PewterGymGuyWinScript
writetext PewterGymGuyText
waitbutton
closetext
end
.PewterGymGuyWinScript:
writetext PewterGymGuyWinText
waitbutton
closetext
end
PewterGymStatue:
checkflag ENGINE_BOULDERBADGE
iftrue .Beaten
jumpstd GymStatue1Script
.Beaten:
gettrainername STRING_BUFFER_4, BROCK, BROCK1
jumpstd GymStatue2Script
BrockIntroText:
text "BROCK: Wow, it's"
line "not often that we"
para "get a challenger"
line "from JOHTO."
para "I'm BROCK, the"
line "PEWTER GYM LEADER."
para "I'm an expert on"
line "rock-type #MON."
para "My #MON are im-"
line "pervious to most"
para "physical attacks."
line "You'll have a hard"
para "time inflicting"
line "any damage."
para "Come on!"
done
BrockWinLossText:
text "BROCK: Your #-"
line "MON's powerful at-"
cont "tacks overcame my"
cont "rock-hard defense…"
para "You're stronger"
line "than I expected…"
para "Go ahead--take"
line "this BADGE."
done
ReceivedBoulderBadgeText:
text "<PLAYER> received"
line "BOULDERBADGE."
done
BrockBoulderBadgeText:
text "BROCK: <PLAY_G>,"
line "thanks. I enjoyed"
para "battling you, even"
line "though I am a bit"
cont "upset."
para "That BOULDERBADGE"
line "will make your"
para "#MON even more"
line "powerful."
done
BrockFightDoneText:
text "BROCK: The world"
line "is huge. There are"
para "still many strong"
line "trainers like you."
para "Just wait and see."
line "I'm going to be-"
cont "come a lot strong-"
cont "er too."
done
CamperJerrySeenText:
text "The trainers of"
line "this GYM use rock-"
cont "type #MON."
para "The rock-type has"
line "high DEFENSE."
para "Battles could end"
line "up going a long"
para "time. Are you"
line "ready for this?"
done
CamperJerryBeatenText:
text "I have to win"
line "these battles…"
done
CamperJerryAfterBattleText:
text "Hey, you! Trainer"
line "from JOHTO! BROCK"
para "is tough. He'll"
line "punish you if you"
para "don't take him"
line "seriously."
done
PewterGymGuyText:
text "Yo! CHAMP in"
line "making! You're"
para "really rocking."
line "Are you battling"
para "the GYM LEADERS of"
line "KANTO?"
para "They're strong and"
line "dedicated people,"
para "just like JOHTO's"
line "GYM LEADERS."
done
PewterGymGuyWinText:
text "Yo! CHAMP in"
line "making! That GYM"
para "didn't give you"
line "much trouble."
para "The way you took"
line "charge was really"
para "inspiring. I mean"
line "that seriously."
done
PewterGym_MapEvents:
db 0, 0 ; filler
db 2 ; warp events
warp_event 4, 13, PEWTER_CITY, 2
warp_event 5, 13, PEWTER_CITY, 2
db 0 ; coord events
db 2 ; bg events
bg_event 2, 11, BGEVENT_READ, PewterGymStatue
bg_event 7, 11, BGEVENT_READ, PewterGymStatue
db 3 ; object events
object_event 5, 1, SPRITE_BROCK, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, PAL_NPC_BROWN, OBJECTTYPE_SCRIPT, 0, PewterGymBrockScript, -1
object_event 2, 5, SPRITE_YOUNGSTER, SPRITEMOVEDATA_STANDING_RIGHT, 0, 0, -1, -1, PAL_NPC_GREEN, OBJECTTYPE_TRAINER, 3, TrainerCamperJerry, -1
object_event 6, 11, SPRITE_GYM_GUY, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, PAL_NPC_BLUE, OBJECTTYPE_SCRIPT, 1, PewterGymGuyScript, -1