pokecrystal/maps/PewterGym.asm

226 lines
4.1 KiB
NASM

const_def 2 ; object 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 UnknownText_0x1a28d0
waitbutton
closetext
winlosstext UnknownText_0x1a29bb, 0
loadtrainer BROCK, BROCK1
startbattle
reloadmapafterbattle
setevent EVENT_BEAT_BROCK
setevent EVENT_BEAT_CAMPER_JERRY
opentext
writetext UnknownText_0x1a2a3d
playsound SFX_GET_BADGE
waitsfx
setflag ENGINE_BOULDERBADGE
writetext UnknownText_0x1a2a57
waitbutton
closetext
end
.FightDone:
writetext UnknownText_0x1a2ada
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 gymstatue1
.Beaten:
trainertotext BROCK, BROCK1, MEM_BUFFER_1
jumpstd gymstatue2
UnknownText_0x1a28d0:
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
UnknownText_0x1a29bb:
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
UnknownText_0x1a2a3d:
text "<PLAYER> received"
line "BOULDERBADGE."
done
UnknownText_0x1a2a57:
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
UnknownText_0x1a2ada:
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