ref: 0d5cf5c8b9066b407f8dc1879dad56d53f5d0179
dir: /maps/BlackthornGym1F.asm/
object_const_def const BLACKTHORNGYM1F_CLAIR const BLACKTHORNGYM1F_COOLTRAINER_M1 const BLACKTHORNGYM1F_COOLTRAINER_M2 const BLACKTHORNGYM1F_COOLTRAINER_F const BLACKTHORNGYM1F_GYM_GUIDE BlackthornGym1F_MapScripts: def_scene_scripts def_callbacks callback MAPCALLBACK_TILES, BlackthornGym1FBouldersCallback BlackthornGym1FBouldersCallback: checkevent EVENT_BOULDER_IN_BLACKTHORN_GYM_1 iffalse .skip1 changeblock 8, 2, $3b ; fallen boulder 2 .skip1 checkevent EVENT_BOULDER_IN_BLACKTHORN_GYM_2 iffalse .skip2 changeblock 2, 4, $3a ; fallen boulder 1 .skip2 checkevent EVENT_BOULDER_IN_BLACKTHORN_GYM_3 iffalse .skip3 changeblock 8, 6, $3b ; fallen boulder 2 .skip3 endcallback BlackthornGymClairScript: faceplayer opentext checkflag ENGINE_RISINGBADGE iftrue .AlreadyGotBadge checkevent EVENT_BEAT_CLAIR iftrue .FightDone writetext ClairIntroText waitbutton closetext winlosstext ClairWinText, 0 loadtrainer CLAIR, CLAIR1 startbattle reloadmapafterbattle setevent EVENT_BEAT_CLAIR opentext writetext ClairText_GoToDragonsDen waitbutton closetext setevent EVENT_BEAT_COOLTRAINERM_PAUL setevent EVENT_BEAT_COOLTRAINERM_CODY setevent EVENT_BEAT_COOLTRAINERM_MIKE setevent EVENT_BEAT_COOLTRAINERF_FRAN setevent EVENT_BEAT_COOLTRAINERF_LOLA clearevent EVENT_MAHOGANY_MART_OWNERS setevent EVENT_BLACKTHORN_CITY_GRAMPS_BLOCKS_DRAGONS_DEN clearevent EVENT_BLACKTHORN_CITY_GRAMPS_NOT_BLOCKING_DRAGONS_DEN end .FightDone: writetext ClairText_TooMuchToExpect waitbutton closetext end .AlreadyGotBadge: checkevent EVENT_GOT_TM24_DRAGONBREATH iftrue .GotTM24 writetext BlackthornGymClairText_YouKeptMeWaiting promptbutton giveitem TM_DRAGONBREATH iffalse .BagFull getitemname STRING_BUFFER_3, TM_DRAGONBREATH writetext BlackthornGymText_ReceivedTM24 playsound SFX_ITEM waitsfx itemnotify setevent EVENT_GOT_TM24_DRAGONBREATH writetext BlackthornGymClairText_DescribeTM24 promptbutton sjump .GotTM24 .BagFull: writetext BlackthornGymClairText_BagFull waitbutton closetext end .GotTM24: writetext BlackthornGymClairText_League waitbutton closetext end TrainerCooltrainermPaul: trainer COOLTRAINERM, PAUL, EVENT_BEAT_COOLTRAINERM_PAUL, CooltrainermPaulSeenText, CooltrainermPaulBeatenText, 0, .Script .Script: endifjustbattled opentext writetext CooltrainermPaulAfterBattleText waitbutton closetext end TrainerCooltrainermMike: trainer COOLTRAINERM, MIKE, EVENT_BEAT_COOLTRAINERM_MIKE, CooltrainermMikeSeenText, CooltrainermMikeBeatenText, 0, .Script .Script: endifjustbattled opentext writetext CooltrainermMikeAfterBattleText waitbutton closetext end TrainerCooltrainerfLola: trainer COOLTRAINERF, LOLA, EVENT_BEAT_COOLTRAINERF_LOLA, CooltrainerfLolaSeenText, CooltrainerfLolaBeatenText, 0, .Script .Script: endifjustbattled opentext writetext CooltrainerfLolaAfterBattleText waitbutton closetext end BlackthornGymGuideScript: faceplayer opentext checkevent EVENT_BEAT_CLAIR iftrue .BlackthornGymGuideWinScript writetext BlackthornGymGuideText waitbutton closetext end .BlackthornGymGuideWinScript: writetext BlackthornGymGuideWinText waitbutton closetext end BlackthornGymStatue: checkflag ENGINE_RISINGBADGE iftrue .Beaten jumpstd GymStatue1Script .Beaten: gettrainername STRING_BUFFER_4, CLAIR, CLAIR1 jumpstd GymStatue2Script ClairIntroText: text "I am CLAIR." para "The world's best" line "dragon master." para "I can hold my own" line "against even the" para "#MON LEAGUE's" line "ELITE FOUR." para "Do you still want" line "to take me on?" para "…Fine." line "Let's do it!" para "As a GYM LEADER," line "I will use my full" para "power against any" line "opponent!" done ClairWinText: text "I lost?" para "I don't believe" line "it. There must be" cont "some mistake…" done ClairText_GoToDragonsDen: text "I won't admit" line "this." para "I may have lost," line "but you're still" para "not ready for the" line "#MON LEAGUE." para "I know. You should" line "take the dragon" cont "user challenge." para "Behind this GYM is" line "a place called" cont "DRAGON'S DEN." para "There is a small" line "shrine at its" para "center." line "Go there." para "If you can prove" line "that you've lost" para "your lazy ideals," line "I will recognize" para "you as a trainer" line "worthy of a GYM" cont "BADGE!" done ClairText_TooMuchToExpect: text "What's the matter?" para "Is it too much to" line "expect of you?" done BlackthornGymClairText_YouKeptMeWaiting: text "You've kept me" line "waiting!" para "Here! Take this!" done BlackthornGymText_ReceivedTM24: text "<PLAYER> received" line "TM24." done BlackthornGymClairText_DescribeTM24: text "That contains" line "DRAGONBREATH." para "No, it doesn't" line "have anything to" cont "do with my breath." para "If you don't want" line "it, you don't have" cont "to take it." done BlackthornGymClairText_BagFull: text "What is this? You" line "don't have room?" done BlackthornGymClairText_League: text "What's the matter?" para "Aren't you headed" line "to the #MON" cont "LEAGUE?" para "Don't you know" line "where it is?" para "From here, go to" line "NEW BARK TOWN." para "Then SURF east." line "The route there is" cont "very tough." para "Don't you dare" line "lose at the #-" cont "MON LEAGUE!" para "If you do, I'll" line "feel even worse" para "about having lost" line "to you!" para "Give it every-" line "thing you've got." done CooltrainermPaulSeenText: text "Your first battle" line "against dragons?" para "I'll show you how" line "tough they are!" done CooltrainermPaulBeatenText: text "My dragon #MON" line "lost?" done CooltrainermPaulAfterBattleText: text "LANCE told you" line "that he'd like to" para "see you again?" line "Not a chance!" done CooltrainermMikeSeenText: text "My chance of" line "losing? Not even" cont "one percent!" done CooltrainermMikeBeatenText: text "That's odd." done CooltrainermMikeAfterBattleText: text "I know my short-" line "comings now." para "Thanks for showing" line "me!" done CooltrainerfLolaSeenText: text "Dragons are sacred" line "#MON." para "They are full of" line "life energy." para "If you're not" line "serious, you won't" para "be able to beat" line "them." done CooltrainerfLolaBeatenText: text "Way to go!" done CooltrainerfLolaAfterBattleText: text "Dragons are weak" line "against dragon-" cont "type moves." done BlackthornGymGuideText: text "Yo! CHAMP in" line "making!" para "It's been a long" line "journey, but we" para "are almost done!" line "Count on me!" para "CLAIR uses the" line "mythical and sac-" cont "red dragon-type" cont "#MON." para "You can't damage" line "them very easily." para "But you know," line "they're supposed" para "to be weak against" line "ice-type moves." done BlackthornGymGuideWinText: text "You were great to" line "beat CLAIR!" para "All that's left is" line "the #MON LEAGUE" cont "challenge." para "You're on the way" line "to becoming the" cont "#MON CHAMPION!" done BlackthornGym1F_MapEvents: db 0, 0 ; filler def_warp_events warp_event 4, 17, BLACKTHORN_CITY, 1 warp_event 5, 17, BLACKTHORN_CITY, 1 warp_event 1, 7, BLACKTHORN_GYM_2F, 1 warp_event 7, 9, BLACKTHORN_GYM_2F, 2 warp_event 2, 6, BLACKTHORN_GYM_2F, 3 warp_event 7, 7, BLACKTHORN_GYM_2F, 4 warp_event 7, 6, BLACKTHORN_GYM_2F, 5 def_coord_events def_bg_events bg_event 3, 15, BGEVENT_READ, BlackthornGymStatue bg_event 6, 15, BGEVENT_READ, BlackthornGymStatue def_object_events object_event 5, 3, SPRITE_CLAIR, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, PAL_NPC_BLUE, OBJECTTYPE_SCRIPT, 0, BlackthornGymClairScript, -1 object_event 6, 6, SPRITE_COOLTRAINER_M, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, PAL_NPC_RED, OBJECTTYPE_TRAINER, 3, TrainerCooltrainermMike, -1 object_event 1, 14, SPRITE_COOLTRAINER_M, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, PAL_NPC_RED, OBJECTTYPE_TRAINER, 3, TrainerCooltrainermPaul, -1 object_event 9, 2, SPRITE_COOLTRAINER_F, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, PAL_NPC_RED, OBJECTTYPE_TRAINER, 1, TrainerCooltrainerfLola, -1 object_event 7, 15, SPRITE_GYM_GUIDE, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, PAL_NPC_RED, OBJECTTYPE_SCRIPT, 0, BlackthornGymGuideScript, -1