ref: 0c446367ce79dfe2a26f4bd7668036477811a279
dir: /maps/DragonsDenB1F.asm/
const_def 2 ; object constants const DRAGONSDENB1F_POKE_BALL1 const DRAGONSDENB1F_CLAIR const DRAGONSDENB1F_SILVER const DRAGONSDENB1F_COOLTRAINER_M const DRAGONSDENB1F_COOLTRAINER_F const DRAGONSDENB1F_TWIN1 const DRAGONSDENB1F_TWIN2 const DRAGONSDENB1F_POKE_BALL2 const DRAGONSDENB1F_POKE_BALL3 DragonsDenB1F_MapScripts: db 2 ; scene scripts scene_script .DummyScene0 ; SCENE_DRAGONSDENB1F_NOTHING scene_script .DummyScene1 ; SCENE_DRAGONSDENB1F_CLAIR_GIVES_TM db 1 ; callbacks callback MAPCALLBACK_NEWMAP, .CheckSilver .DummyScene0: end .DummyScene1: end .CheckSilver: checkevent EVENT_BEAT_RIVAL_IN_MT_MOON iftrue .CheckDay disappear DRAGONSDENB1F_SILVER return .CheckDay: checkcode VAR_WEEKDAY ifequal TUESDAY, .AppearSilver ifequal THURSDAY, .AppearSilver disappear DRAGONSDENB1F_SILVER return .AppearSilver: appear DRAGONSDENB1F_SILVER return DragonsDenB1F_ClairScene: appear DRAGONSDENB1F_CLAIR opentext writetext ClairText_Wait pause 30 closetext showemote EMOTE_SHOCK, PLAYER, 15 turnobject PLAYER, LEFT playmusic MUSIC_CLAIR applymovement DRAGONSDENB1F_CLAIR, MovementDragonsDen_ClairWalksToYou opentext writetext ClairText_GiveDragonbreathDragonDen buttonsound giveitem TM_DRAGONBREATH iffalse .BagFull itemtotext TM_DRAGONBREATH, MEM_BUFFER_0 writetext NotifyReceiveDragonbreath playsound SFX_ITEM waitsfx itemnotify setevent EVENT_GOT_TM24_DRAGONBREATH writetext ClairText_DescribeDragonbreathDragonDen buttonsound writetext ClairText_WhatsTheMatterDragonDen waitbutton closetext jump .FinishClair .BagFull: writetext ClairText_NoRoom waitbutton closetext .FinishClair: applymovement DRAGONSDENB1F_CLAIR, MovementDragonsDen_ClairWalksAway special FadeOutMusic pause 30 special RestartMapMusic disappear DRAGONSDENB1F_CLAIR setscene SCENE_DRAGONSDENB1F_NOTHING end TrainerCooltrainermDarin: trainer COOLTRAINERM, DARIN, EVENT_BEAT_COOLTRAINERM_DARIN, CooltrainermDarinSeenText, CooltrainermDarinBeatenText, 0, .Script .Script: endifjustbattled opentext writetext CooltrainermDarinAfterBattleText waitbutton closetext end TrainerCooltrainerfCara: trainer COOLTRAINERF, CARA, EVENT_BEAT_COOLTRAINERF_CARA, CooltrainerfCaraSeenText, CooltrainerfCaraBeatenText, 0, .Script .Script: endifjustbattled opentext writetext CooltrainerfCaraAfterBattleText waitbutton closetext end TrainerTwinsLeaandpia1: trainer TWINS, LEAANDPIA1, EVENT_BEAT_TWINS_LEA_AND_PIA, TwinsLeaandpia1SeenText, TwinsLeaandpia1BeatenText, 0, .Script .Script: endifjustbattled opentext writetext TwinsLeaandpia1AfterBattleText waitbutton closetext end TrainerTwinsLeaandpia2: trainer TWINS, LEAANDPIA1, EVENT_BEAT_TWINS_LEA_AND_PIA, TwinsLeaandpia2SeenText, TwinsLeaandpia2BeatenText, 0, .Script .Script: endifjustbattled opentext writetext TwinsLeaandpia2AfterBattleText waitbutton closetext end DragonsDenB1FDragonFangScript: ; This whole script is written out rather than as an itemball ; because it's left over from the GS event. giveitem DRAGON_FANG iffalse .BagFull disappear DRAGONSDENB1F_POKE_BALL1 opentext itemtotext DRAGON_FANG, MEM_BUFFER_0 writetext Text_FoundDragonFang playsound SFX_ITEM waitsfx itemnotify closetext end .BagFull: opentext itemtotext DRAGON_FANG, MEM_BUFFER_0 writetext Text_FoundDragonFang buttonsound writetext Text_NoRoomForDragonFang waitbutton closetext end DragonsDenB1FSilverScript: playmusic MUSIC_RIVAL_ENCOUNTER faceplayer opentext checkevent EVENT_TEMPORARY_UNTIL_MAP_RELOAD_1 iftrue .SilverTalkAgain writetext SilverText_Training1 waitbutton closetext setevent EVENT_TEMPORARY_UNTIL_MAP_RELOAD_1 special RestartMapMusic end .SilverTalkAgain: writetext SilverText_Training2 waitbutton closetext special RestartMapMusic end DragonShrineSignpost: jumptext DragonShrineSignpostText DragonsDenB1FCalcium: itemball CALCIUM DragonsDenB1FMaxElixer: itemball MAX_ELIXER DragonsDenB1FHiddenRevive: hiddenitem REVIVE, EVENT_DRAGONS_DEN_B1F_HIDDEN_REVIVE DragonsDenB1FHiddenMaxPotion: hiddenitem MAX_POTION, EVENT_DRAGONS_DEN_B1F_HIDDEN_MAX_POTION DragonsDenB1FHiddenMaxElixer: hiddenitem MAX_ELIXER, EVENT_DRAGONS_DEN_B1F_HIDDEN_MAX_ELIXER MovementDragonsDen_ClairWalksToYou: slow_step RIGHT slow_step RIGHT slow_step RIGHT slow_step RIGHT step_end MovementDragonsDen_ClairWalksAway: slow_step LEFT slow_step LEFT slow_step LEFT slow_step LEFT step_end ClairText_Wait: text "Wait!" done ClairText_GiveDragonbreathDragonDen: text "CLAIR: I'm sorry" line "about this." para "Here, take this as" line "my apology." done NotifyReceiveDragonbreath: text "<PLAYER> received" line "TM24." done ClairText_DescribeDragonbreathDragonDen: 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 ClairText_NoRoom: text "Oh? You don't have" line "any room for this." para "I'm going back to" line "the GYM, so make" para "room, then come" line "see me there." done ClairText_WhatsTheMatterDragonDen: text "CLAIR: What's the" line "matter? Aren't you" para "going on to the" line "#MON LEAGUE?" para "Do you know how to" line "get there?" para "From here, go to" line "NEW BARK TOWN." para "Then SURF east to" line "#MON LEAGUE." para "The route there is" line "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 everything" line "you've got." done DragonShrineSignpostText: text "DRAGON SHRINE" para "A shrine honoring" line "the dragon #MON" para "said to have lived" line "in DRAGON'S DEN." done SilverText_Training1: text "…" line "What? <PLAYER>?" para "…No, I won't" line "battle you now…" para "My #MON aren't" line "ready to beat you." para "I can't push them" line "too hard now." para "I have to be dis-" line "ciplined to become" para "the greatest #-" line "MON trainer…" done SilverText_Training2: text "…" para "Whew…" para "Learn to stay out" line "of my way…" done CooltrainermDarinSeenText: text "You! How dare you" line "enter uninvited!" done CooltrainermDarinBeatenText: text "S-strong!" done CooltrainermDarinAfterBattleText: text "The SHRINE ahead" line "is home to the" para "MASTER of our" line "dragon-user clan." para "You're not allowed" line "to just go in!" done CooltrainerfCaraSeenText: text "You shouldn't be" line "in here!" done CooltrainerfCaraBeatenText: text "Oh yikes, I lost!" done CooltrainerfCaraAfterBattleText: text "Soon I'm going to" line "get permission" para "from our MASTER to" line "use dragons." para "When I do, I'm" line "going to become an" para "admirable dragon" line "trainer and gain" para "our MASTER's" line "approval." done TwinsLeaandpia1SeenText: text "It's a stranger we" line "don't know." done TwinsLeaandpia1BeatenText: text "Ouchies." done TwinsLeaandpia1AfterBattleText: text "It was like having" line "to battle LANCE." done TwinsLeaandpia2SeenText: text "Who are you?" done TwinsLeaandpia2BeatenText: text "Meanie." done TwinsLeaandpia2AfterBattleText: text "We'll tell on you." para "MASTER will be" line "angry with you." done Text_FoundDragonFang: text "<PLAYER> found" line "@" text_from_ram wStringBuffer3 text "!" done Text_NoRoomForDragonFang: text "But <PLAYER> can't" line "carry any more" cont "items." done DragonsDenB1F_MapEvents: db 0, 0 ; filler db 2 ; warp events warp_event 20, 3, DRAGONS_DEN_1F, 3 warp_event 19, 29, DRAGON_SHRINE, 1 db 1 ; coord events coord_event 19, 30, SCENE_DRAGONSDENB1F_CLAIR_GIVES_TM, DragonsDenB1F_ClairScene db 4 ; bg events bg_event 18, 24, BGEVENT_READ, DragonShrineSignpost bg_event 33, 29, BGEVENT_ITEM, DragonsDenB1FHiddenRevive bg_event 21, 17, BGEVENT_ITEM, DragonsDenB1FHiddenMaxPotion bg_event 31, 15, BGEVENT_ITEM, DragonsDenB1FHiddenMaxElixer db 9 ; object events object_event 35, 16, SPRITE_POKE_BALL, SPRITEMOVEDATA_STILL, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, DragonsDenB1FDragonFangScript, EVENT_DRAGONS_DEN_B1F_DRAGON_FANG object_event 14, 30, SPRITE_CLAIR, SPRITEMOVEDATA_STANDING_UP, 0, 0, -1, -1, PAL_NPC_BLUE, OBJECTTYPE_SCRIPT, 0, ObjectEvent, EVENT_DRAGONS_DEN_CLAIR object_event 20, 23, SPRITE_SILVER, SPRITEMOVEDATA_WANDER, 2, 2, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, DragonsDenB1FSilverScript, EVENT_RIVAL_DRAGONS_DEN object_event 20, 8, SPRITE_COOLTRAINER_M, SPRITEMOVEDATA_STANDING_UP, 0, 0, -1, -1, PAL_NPC_RED, OBJECTTYPE_TRAINER, 4, TrainerCooltrainermDarin, -1 object_event 8, 8, SPRITE_COOLTRAINER_F, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, PAL_NPC_RED, OBJECTTYPE_TRAINER, 3, TrainerCooltrainerfCara, -1 object_event 4, 17, SPRITE_TWIN, SPRITEMOVEDATA_STANDING_RIGHT, 0, 0, -1, -1, PAL_NPC_RED, OBJECTTYPE_TRAINER, 1, TrainerTwinsLeaandpia1, -1 object_event 4, 18, SPRITE_TWIN, SPRITEMOVEDATA_STANDING_RIGHT, 0, 0, -1, -1, PAL_NPC_RED, OBJECTTYPE_TRAINER, 1, TrainerTwinsLeaandpia2, -1 object_event 30, 4, SPRITE_POKE_BALL, SPRITEMOVEDATA_STILL, 0, 0, -1, -1, 0, OBJECTTYPE_ITEMBALL, 0, DragonsDenB1FCalcium, EVENT_DRAGONS_DEN_B1F_CALCIUM object_event 5, 20, SPRITE_POKE_BALL, SPRITEMOVEDATA_STILL, 0, 0, -1, -1, 0, OBJECTTYPE_ITEMBALL, 0, DragonsDenB1FMaxElixer, EVENT_DRAGONS_DEN_B1F_MAX_ELIXER