ref: abf3858fc4bc317f8cd43e04b46d5a11d14927de
dir: /maps/BlackthornGym1F.asm/
object_const_def ; object_event constants const BLACKTHORNGYM1F_CLAIR const BLACKTHORNGYM1F_COOLTRAINER_M1 const BLACKTHORNGYM1F_COOLTRAINER_M2 const BLACKTHORNGYM1F_COOLTRAINER_F const BLACKTHORNGYM1F_GYM_GUY BlackthornGym1F_MapScripts: db 0 ; scene scripts db 1 ; callbacks callback MAPCALLBACK_TILES, .Boulders .Boulders: 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 return 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 BlackthornGymGuyScript: faceplayer opentext checkevent EVENT_BEAT_CLAIR iftrue .BlackthornGymGuyWinScript writetext BlackthornGymGuyText waitbutton closetext end .BlackthornGymGuyWinScript: writetext BlackthornGymGuyWinText waitbutton closetext end BlackthornGymStatue: checkflag ENGINE_RISINGBADGE iftrue .Beaten jumpstd gymstatue1 .Beaten: gettrainername STRING_BUFFER_4, CLAIR, CLAIR1 jumpstd gymstatue2 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 BlackthornGymGuyText: 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 BlackthornGymGuyWinText: 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 db 7 ; 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 db 0 ; coord events db 2 ; bg events bg_event 3, 15, BGEVENT_READ, BlackthornGymStatue bg_event 6, 15, BGEVENT_READ, BlackthornGymStatue db 5 ; 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_GUY, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, PAL_NPC_RED, OBJECTTYPE_SCRIPT, 0, BlackthornGymGuyScript, -1