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 gymstatue1 .Beaten: gettrainername STRING_BUFFER_4, BROCK, BROCK1 jumpstd gymstatue2 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 " received" line "BOULDERBADGE." done BrockBoulderBadgeText: text "BROCK: ," 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