ref: 08891da82254aa4051bf594d4abc2db8e4043d8f
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_script .DummyScene1 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 if_equal TUESDAY, .AppearSilver if_equal 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 spriteface 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 0 end TrainerCooltrainermDarin: trainer COOLTRAINERM, DARIN, EVENT_BEAT_COOLTRAINERM_DARIN, CooltrainermDarinSeenText, CooltrainermDarinBeatenText, 0, .Script .Script: end_if_just_battled opentext writetext CooltrainermDarinAfterBattleText waitbutton closetext end TrainerCooltrainerfCara: trainer COOLTRAINERF, CARA, EVENT_BEAT_COOLTRAINERF_CARA, CooltrainerfCaraSeenText, CooltrainerfCaraBeatenText, 0, .Script .Script: end_if_just_battled opentext writetext CooltrainerfCaraAfterBattleText waitbutton closetext end TrainerTwinsLeaandpia1: trainer TWINS, LEAANDPIA1, EVENT_BEAT_TWINS_LEA_AND_PIA, TwinsLeaandpia1SeenText, TwinsLeaandpia1BeatenText, 0, .Script .Script: end_if_just_battled opentext writetext TwinsLeaandpia1AfterBattleText waitbutton closetext end TrainerTwinsLeaandpia2: trainer TWINS, LEAANDPIA1, EVENT_BEAT_TWINS_LEA_AND_PIA, TwinsLeaandpia2SeenText, TwinsLeaandpia2BeatenText, 0, .Script .Script: end_if_just_battled opentext writetext TwinsLeaandpia2AfterBattleText waitbutton closetext end PokeBallScript_0x18c95a: ; This whole script is written out rather than as an ; item fragment 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 SilverScript_0x18c97e: 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 MapDragonsDenB1FSignpost0Script: 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 StringBuffer3 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, 3, DRAGONS_DEN_1F warp_event 19, 29, 1, DRAGON_SHRINE db 1 ; coord events coord_event 19, 30, 1, DragonsDenB1F_ClairScene db 4 ; bg events bg_event 18, 24, BGEVENT_READ, MapDragonsDenB1FSignpost0Script 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, PokeBallScript_0x18c95a, 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, SilverScript_0x18c97e, 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