mirror of https://github.com/pret/pokecrystal.git
432 lines
9.3 KiB
NASM
432 lines
9.3 KiB
NASM
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
|