pokecrystal-board/maps/DragonsDenB1F.asm

445 lines
9.3 KiB
NASM
Raw Normal View History

2015-11-26 21:22:14 -08:00
const_value set 2
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
2015-07-10 01:20:21 -07:00
DragonsDenB1F_MapScriptHeader:
.MapTriggers:
db 2
; triggers
2016-01-05 05:46:37 -08:00
maptrigger .Trigger0
maptrigger .Trigger1
.MapCallbacks:
db 1
; callbacks
2016-01-06 04:44:50 -08:00
dbw MAPCALLBACK_NEWMAP, .CheckSilver
.Trigger0:
end
.Trigger1:
end
2015-12-09 15:25:44 -08:00
.CheckSilver:
2013-09-24 00:48:58 -07:00
checkevent EVENT_BEAT_RIVAL_IN_MT_MOON
2015-12-09 15:25:44 -08:00
iftrue .CheckDay
2015-11-26 21:22:14 -08:00
disappear DRAGONSDENB1F_SILVER
return
2015-12-09 15:25:44 -08:00
.CheckDay:
checkcode VAR_WEEKDAY
2015-12-09 15:25:44 -08:00
if_equal TUESDAY, .AppearSilver
if_equal THURSDAY, .AppearSilver
2015-11-26 21:22:14 -08:00
disappear DRAGONSDENB1F_SILVER
return
2015-12-09 15:25:44 -08:00
.AppearSilver:
2015-11-26 21:22:14 -08:00
appear DRAGONSDENB1F_SILVER
return
2015-12-09 15:25:44 -08:00
DragonsDenB1F_ClairTrigger:
2015-11-26 21:22:14 -08:00
appear DRAGONSDENB1F_CLAIR
2015-12-09 15:25:44 -08:00
opentext
writetext ClairText_Wait
pause 30
2015-11-25 07:16:29 -08:00
closetext
showemote EMOTE_SHOCK, PLAYER, 15
spriteface PLAYER, LEFT
playmusic MUSIC_CLAIR
2015-12-09 15:25:44 -08:00
applymovement DRAGONSDENB1F_CLAIR, MovementDragonsDen_ClairWalksToYou
opentext
writetext ClairText_GiveDragonbreathDragonDen
2015-11-29 19:29:45 -08:00
buttonsound
2015-11-04 17:20:14 -08:00
giveitem TM_DRAGONBREATH
2015-12-09 15:25:44 -08:00
iffalse .BagFull
itemtotext TM_DRAGONBREATH, $0
2015-12-09 15:25:44 -08:00
writetext NotifyReceiveDragonbreath
playsound SFX_ITEM
2015-11-25 07:16:29 -08:00
waitsfx
itemnotify
2013-09-24 00:48:58 -07:00
setevent EVENT_GOT_TM24_DRAGONBREATH
2015-12-09 15:25:44 -08:00
writetext ClairText_DescribeDragonbreathDragonDen
2015-11-29 19:29:45 -08:00
buttonsound
2015-12-09 15:25:44 -08:00
writetext ClairText_WhatsTheMatterDragonDen
2015-11-25 07:16:29 -08:00
waitbutton
closetext
2015-12-09 15:25:44 -08:00
jump .FinishClair
2015-12-09 15:25:44 -08:00
.BagFull:
writetext ClairText_NoRoom
2015-11-25 07:16:29 -08:00
waitbutton
closetext
2015-12-09 15:25:44 -08:00
.FinishClair:
applymovement DRAGONSDENB1F_CLAIR, MovementDragonsDen_ClairWalksAway
special Special_FadeOutMusic
pause 30
special RestartMapMusic
2015-11-26 21:22:14 -08:00
disappear DRAGONSDENB1F_CLAIR
dotrigger $0
end
2015-07-10 01:20:21 -07:00
TrainerCooltrainermDarin:
2015-11-02 11:37:02 -08:00
trainer EVENT_BEAT_COOLTRAINERM_DARIN, COOLTRAINERM, DARIN, CooltrainermDarinSeenText, CooltrainermDarinBeatenText, 0, CooltrainermDarinScript
2015-07-10 01:20:21 -07:00
CooltrainermDarinScript:
2015-11-25 07:16:29 -08:00
end_if_just_battled
2015-12-09 15:25:44 -08:00
opentext
writetext CooltrainermDarinAfterText
2015-11-25 07:16:29 -08:00
waitbutton
closetext
end
2015-07-10 01:20:21 -07:00
TrainerCooltrainerfCara:
2015-11-02 11:37:02 -08:00
trainer EVENT_BEAT_COOLTRAINERF_CARA, COOLTRAINERF, CARA, CooltrainerfCaraSeenText, CooltrainerfCaraBeatenText, 0, CooltrainerfCaraScript
2015-07-10 01:20:21 -07:00
CooltrainerfCaraScript:
2015-11-25 07:16:29 -08:00
end_if_just_battled
2015-12-09 15:25:44 -08:00
opentext
writetext CooltrainerfCaraAfterText
2015-11-25 07:16:29 -08:00
waitbutton
closetext
end
2015-07-10 01:20:21 -07:00
TrainerTwinsLeaandpia1:
2015-11-02 11:37:02 -08:00
trainer EVENT_BEAT_TWINS_LEA_AND_PIA, TWINS, LEAANDPIA1, TwinsLeaandpia1SeenText, TwinsLeaandpia1BeatenText, 0, TwinsLeaandpia1Script
2013-05-01 00:36:25 -07:00
2015-07-10 01:20:21 -07:00
TwinsLeaandpia1Script:
2015-11-25 07:16:29 -08:00
end_if_just_battled
2015-12-09 15:25:44 -08:00
opentext
writetext TrinsLeaandpia1AfterText
2015-11-25 07:16:29 -08:00
waitbutton
2013-05-01 00:36:25 -07:00
closetext
end
2015-07-10 01:20:21 -07:00
TrainerTwinsLeaandpia2:
2015-11-02 11:37:02 -08:00
trainer EVENT_BEAT_TWINS_LEA_AND_PIA, TWINS, LEAANDPIA1, TwinsLeaandpia2SeenText, TwinsLeaandpia2BeatenText, 0, TwinsLeaandpia2Script
2015-07-10 01:20:21 -07:00
TwinsLeaandpia2Script:
2015-11-25 07:16:29 -08:00
end_if_just_battled
2015-12-09 15:25:44 -08:00
opentext
writetext TrinsLeaandpia2AfterText
2015-11-25 07:16:29 -08:00
waitbutton
closetext
end
2015-07-10 01:20:21 -07:00
PokeBallScript_0x18c95a:
2015-12-09 15:25:44 -08:00
; This whole script is written out rather than as an
; item fragment because it's left over from the GS
; event.
2015-11-04 17:20:14 -08:00
giveitem DRAGON_FANG
2015-12-09 15:25:44 -08:00
iffalse .BagFull
2015-11-26 21:22:14 -08:00
disappear DRAGONSDENB1F_POKE_BALL1
2015-12-09 15:25:44 -08:00
opentext
itemtotext DRAGON_FANG, $0
2015-12-09 15:25:44 -08:00
writetext Text_FoundDragonFang
playsound SFX_ITEM
2015-11-25 07:16:29 -08:00
waitsfx
itemnotify
2015-11-25 07:16:29 -08:00
closetext
end
2015-12-09 15:25:44 -08:00
.BagFull:
opentext
itemtotext DRAGON_FANG, $0
2015-12-09 15:25:44 -08:00
writetext Text_FoundDragonFang
2015-11-29 19:29:45 -08:00
buttonsound
2015-12-09 15:25:44 -08:00
writetext Text_NoRoomForDragonFang
2015-11-25 07:16:29 -08:00
waitbutton
closetext
end
2015-07-10 01:20:21 -07:00
SilverScript_0x18c97e:
playmusic MUSIC_RIVAL_ENCOUNTER
faceplayer
2015-12-09 15:25:44 -08:00
opentext
checkevent EVENT_GAVE_KURT_APRICORNS
2015-12-09 15:25:44 -08:00
iftrue .SilverTalkAgain
writetext SilverText_Training1
2015-11-25 07:16:29 -08:00
waitbutton
closetext
setevent EVENT_GAVE_KURT_APRICORNS
special RestartMapMusic
end
2015-12-09 15:25:44 -08:00
.SilverTalkAgain:
writetext SilverText_Training2
2015-11-25 07:16:29 -08:00
waitbutton
closetext
special RestartMapMusic
end
2015-07-10 01:20:21 -07:00
MapDragonsDenB1FSignpost0Script:
2015-12-09 15:25:44 -08:00
jumptext DragonShrineSignpostText
2015-12-15 07:55:56 -08:00
DragonsDenB1FCalcium:
itemball CALCIUM
2015-12-15 07:55:56 -08:00
DragonsDenB1FMaxElixer:
itemball MAX_ELIXER
DragonsDenB1FHiddenRevive:
dwb EVENT_DRAGONS_DEN_B1F_HIDDEN_REVIVE, REVIVE
DragonsDenB1FHiddenMaxPotion:
dwb EVENT_DRAGONS_DEN_B1F_HIDDEN_MAX_POTION, MAX_POTION
DragonsDenB1FHiddenMaxElixer:
dwb EVENT_DRAGONS_DEN_B1F_HIDDEN_MAX_ELIXER, MAX_ELIXER
2015-12-09 15:25:44 -08:00
MovementDragonsDen_ClairWalksToYou:
2016-05-14 10:46:14 -07:00
slow_step RIGHT
slow_step RIGHT
slow_step RIGHT
slow_step RIGHT
step_end
2015-12-09 15:25:44 -08:00
MovementDragonsDen_ClairWalksAway:
2016-05-14 10:46:14 -07:00
slow_step LEFT
slow_step LEFT
slow_step LEFT
slow_step LEFT
step_end
2015-12-09 15:25:44 -08:00
ClairText_Wait:
text "Wait!"
done
2015-12-09 15:25:44 -08:00
ClairText_GiveDragonbreathDragonDen:
text "CLAIR: I'm sorry"
line "about this."
para "Here, take this as"
line "my apology."
done
2015-12-09 15:25:44 -08:00
NotifyReceiveDragonbreath:
text "<PLAYER> received"
line "TM24."
done
2015-12-09 15:25:44 -08:00
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
2015-12-09 15:25:44 -08:00
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
2015-12-09 15:25:44 -08:00
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
2015-12-09 15:25:44 -08:00
DragonShrineSignpostText:
text "DRAGON SHRINE"
para "A shrine honoring"
line "the dragon #MON"
para "said to have lived"
line "in DRAGON'S DEN."
done
2015-12-09 15:25:44 -08:00
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
2015-12-09 15:25:44 -08:00
SilverText_Training2:
text "…"
para "Whew…"
para "Learn to stay out"
line "of my way…"
done
2015-07-10 01:20:21 -07:00
CooltrainermDarinSeenText:
text "You! How dare you"
line "enter uninvited!"
done
2015-07-10 01:20:21 -07:00
CooltrainermDarinBeatenText:
text "S-strong!"
done
2015-12-09 15:25:44 -08:00
CooltrainermDarinAfterText:
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
2015-07-10 01:20:21 -07:00
CooltrainerfCaraSeenText:
text "You shouldn't be"
line "in here!"
done
2015-07-10 01:20:21 -07:00
CooltrainerfCaraBeatenText:
text "Oh yikes, I lost!"
done
2015-12-09 15:25:44 -08:00
CooltrainerfCaraAfterText:
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
2015-07-10 01:20:21 -07:00
TwinsLeaandpia1SeenText:
text "It's a stranger we"
line "don't know."
done
2015-07-10 01:20:21 -07:00
TwinsLeaandpia1BeatenText:
text "Ouchies."
done
2015-12-09 15:25:44 -08:00
TrinsLeaandpia1AfterText:
text "It was like having"
line "to battle LANCE."
done
2015-07-10 01:20:21 -07:00
TwinsLeaandpia2SeenText:
text "Who are you?"
done
2015-07-10 01:20:21 -07:00
TwinsLeaandpia2BeatenText:
text "Meanie."
done
2015-12-09 15:25:44 -08:00
TrinsLeaandpia2AfterText:
text "We'll tell on you."
para "MASTER will be"
line "angry with you."
done
2015-12-09 15:25:44 -08:00
Text_FoundDragonFang:
text "<PLAYER> found"
line "@"
2015-02-10 15:37:24 -08:00
text_from_ram StringBuffer3
text "!"
done
2015-12-09 15:25:44 -08:00
Text_NoRoomForDragonFang:
text "But <PLAYER> can't"
line "carry any more"
cont "items."
done
2015-07-10 01:20:21 -07:00
DragonsDenB1F_MapEventHeader:
; filler
db 0, 0
.Warps:
db 2
warp_def $3, $14, 3, DRAGONS_DEN_1F
warp_def $1d, $13, 1, DRAGON_SHRINE
.XYTriggers:
db 1
2015-12-09 15:25:44 -08:00
xy_trigger 1, $1e, $13, $0, DragonsDenB1F_ClairTrigger, $0, $0
.Signposts:
db 4
signpost 24, 18, SIGNPOST_READ, MapDragonsDenB1FSignpost0Script
signpost 29, 33, SIGNPOST_ITEM, DragonsDenB1FHiddenRevive
signpost 17, 21, SIGNPOST_ITEM, DragonsDenB1FHiddenMaxPotion
signpost 15, 31, SIGNPOST_ITEM, DragonsDenB1FHiddenMaxElixer
.PersonEvents:
db 9
person_event SPRITE_POKE_BALL, 16, 35, SPRITEMOVEDATA_ITEM_TREE, 0, 0, -1, -1, 0, PERSONTYPE_SCRIPT, 0, PokeBallScript_0x18c95a, EVENT_DRAGONS_DEN_B1F_DRAGON_FANG
person_event SPRITE_CLAIR, 30, 14, SPRITEMOVEDATA_STANDING_UP, 0, 0, -1, -1, (1 << 3) | PAL_OW_BLUE, PERSONTYPE_SCRIPT, 0, ObjectEvent, EVENT_DRAGONS_DEN_CLAIR
person_event SPRITE_SILVER, 23, 20, SPRITEMOVEDATA_WANDER, 2, 2, -1, -1, 0, PERSONTYPE_SCRIPT, 0, SilverScript_0x18c97e, EVENT_RIVAL_DRAGONS_DEN
person_event SPRITE_COOLTRAINER_M, 8, 20, SPRITEMOVEDATA_STANDING_UP, 0, 0, -1, -1, (1 << 3) | PAL_OW_RED, PERSONTYPE_TRAINER, 4, TrainerCooltrainermDarin, -1
person_event SPRITE_COOLTRAINER_F, 8, 8, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, (1 << 3) | PAL_OW_RED, PERSONTYPE_TRAINER, 3, TrainerCooltrainerfCara, -1
person_event SPRITE_TWIN, 17, 4, SPRITEMOVEDATA_STANDING_RIGHT, 0, 0, -1, -1, (1 << 3) | PAL_OW_RED, PERSONTYPE_TRAINER, 1, TrainerTwinsLeaandpia1, -1
person_event SPRITE_TWIN, 18, 4, SPRITEMOVEDATA_STANDING_RIGHT, 0, 0, -1, -1, (1 << 3) | PAL_OW_RED, PERSONTYPE_TRAINER, 1, TrainerTwinsLeaandpia2, -1
2015-12-15 07:55:56 -08:00
person_event SPRITE_POKE_BALL, 4, 30, SPRITEMOVEDATA_ITEM_TREE, 0, 0, -1, -1, 0, PERSONTYPE_ITEMBALL, 0, DragonsDenB1FCalcium, EVENT_DRAGONS_DEN_B1F_CALCIUM
person_event SPRITE_POKE_BALL, 20, 5, SPRITEMOVEDATA_ITEM_TREE, 0, 0, -1, -1, 0, PERSONTYPE_ITEMBALL, 0, DragonsDenB1FMaxElixer, EVENT_DRAGONS_DEN_B1F_MAX_ELIXER