pokecrystal-board/maps/DragonsDenB1F.asm
Scott Norton f74fd6903f - Renamed "Functiond283" to "GetPocketCapacity" and updated the pointers and constants to better reflect their hypothesized purposes.
- Using yenatch's version of the macro and constant handling, rewrote the tmhm bit array as a macro-defined environment.
2015-07-03 13:46:38 -04:00

550 lines
9.7 KiB
NASM

DragonsDenB1F_MapScriptHeader: ; 0x18c890
; trigger count
db 2
; triggers
dw UnknownScript_0x18c89d, $0000
dw UnknownScript_0x18c89e, $0000
; callback count
db 1
; callbacks
dbw 5, UnknownScript_0x18c89f
; 0x18c89d
UnknownScript_0x18c89d: ; 0x18c89d
end
; 0x18c89e
UnknownScript_0x18c89e: ; 0x18c89e
end
; 0x18c89f
UnknownScript_0x18c89f: ; 0x18c89f
checkevent EVENT_BEAT_RIVAL_IN_MT_MOON
iftrue UnknownScript_0x18c8a8
disappear $4
return
; 0x18c8a8
UnknownScript_0x18c8a8: ; 0x18c8a8
checkcode $b
if_equal TUESDAY, UnknownScript_0x18c8b5
if_equal THURSDAY, UnknownScript_0x18c8b5
disappear $4
return
; 0x18c8b5
UnknownScript_0x18c8b5: ; 0x18c8b5
appear $4
return
; 0x18c8b8
UnknownScript_0x18c8b8: ; 0x18c8b8
appear $3
loadfont
writetext UnknownText_0x18c9b8
pause 30
loadmovesprites
showemote $0, $0, 15
spriteface $0, LEFT
playmusic MUSIC_CLAIR
applymovement $3, MovementData_0x18c9ae
loadfont
writetext UnknownText_0x18c9bf
keeptextopen
giveitem TM_DRAGONBREATH, $1
iffalse UnknownScript_0x18c8f4
itemtotext TM_DRAGONBREATH, $0
writetext UnknownText_0x18c9fb
playsound SFX_ITEM
waitbutton
itemnotify
setevent EVENT_GOT_TM24_DRAGONBREATH
writetext UnknownText_0x18ca0d
keeptextopen
writetext UnknownText_0x18caf1
closetext
loadmovesprites
jump UnknownScript_0x18c8f9
; 0x18c8f4
UnknownScript_0x18c8f4: ; 0x18c8f4
writetext UnknownText_0x18ca8b
closetext
loadmovesprites
UnknownScript_0x18c8f9: ; 0x18c8f9
applymovement $3, MovementData_0x18c9b3
special Functionc48f
pause 30
special RestartMapMusic
disappear $3
dotrigger $0
end
; 0x18c90a
TrainerCooltrainermDarin: ; 0x18c90a
; bit/flag number
dw $5bd
; trainer group && trainer id
db COOLTRAINERM, DARIN
; text when seen
dw CooltrainermDarinSeenText
; text when trainer beaten
dw CooltrainermDarinBeatenText
; script when lost
dw $0000
; script when talk again
dw CooltrainermDarinScript
; 0x18c916
CooltrainermDarinScript: ; 0x18c916
talkaftercancel
loadfont
writetext UnknownText_0x18cd82
closetext
loadmovesprites
end
; 0x18c91e
TrainerCooltrainerfCara: ; 0x18c91e
; bit/flag number
dw $5be
; trainer group && trainer id
db COOLTRAINERF, CARA
; text when seen
dw CooltrainerfCaraSeenText
; text when trainer beaten
dw CooltrainerfCaraBeatenText
; script when lost
dw $0000
; script when talk again
dw CooltrainerfCaraScript
; 0x18c92a
CooltrainerfCaraScript: ; 0x18c92a
talkaftercancel
loadfont
writetext UnknownText_0x18ce11
closetext
loadmovesprites
end
; 0x18c932
TrainerTwinsLeaandpia1: ; 0x18c932
; bit/flag number
dw $5bf
; trainer group && trainer id
db TWINS, LEAANDPIA1
; text when seen
dw TwinsLeaandpia1SeenText
; text when trainer beaten
dw TwinsLeaandpia1BeatenText
; script when lost
dw $0000
; script when talk again
dw TwinsLeaandpia1Script
; 0x18c93e
TwinsLeaandpia1Script: ; 0x18c93e
talkaftercancel
loadfont
writetext UnknownText_0x18ced3
closetext
loadmovesprites
end
; 0x18c946
TrainerTwinsLeaandpia2: ; 0x18c946
; bit/flag number
dw $5bf
; trainer group && trainer id
db TWINS, LEAANDPIA1
; text when seen
dw TwinsLeaandpia2SeenText
; text when trainer beaten
dw TwinsLeaandpia2BeatenText
; script when lost
dw $0000
; script when talk again
dw TwinsLeaandpia2Script
; 0x18c952
TwinsLeaandpia2Script: ; 0x18c952
talkaftercancel
loadfont
writetext UnknownText_0x18cf0f
closetext
loadmovesprites
end
; 0x18c95a
PokeBallScript_0x18c95a: ; 0x18c95a
giveitem DRAGON_FANG, $1
iffalse UnknownScript_0x18c970
disappear $2
loadfont
itemtotext DRAGON_FANG, $0
writetext UnknownText_0x18cf41
playsound SFX_ITEM
waitbutton
itemnotify
loadmovesprites
end
; 0x18c970
UnknownScript_0x18c970: ; 0x18c970
loadfont
itemtotext DRAGON_FANG, $0
writetext UnknownText_0x18cf41
keeptextopen
writetext UnknownText_0x18cf51
closetext
loadmovesprites
end
; 0x18c97e
SilverScript_0x18c97e: ; 0x18c97e
playmusic MUSIC_RIVAL_ENCOUNTER
faceplayer
loadfont
checkevent $0000
iftrue UnknownScript_0x18c995
writetext UnknownText_0x18cc83
closetext
loadmovesprites
setevent $0000
special RestartMapMusic
end
; 0x18c995
UnknownScript_0x18c995: ; 0x18c995
writetext UnknownText_0x18cd2d
closetext
loadmovesprites
special RestartMapMusic
end
; 0x18c99e
MapDragonsDenB1FSignpost0Script: ; 0x18c99e
jumptext UnknownText_0x18cc2e
; 0x18c9a1
ItemFragment_0x18c9a1: ; 0x18c9a1
db CALCIUM, 1
; 0x18c9a3
ItemFragment_0x18c9a3: ; 0x18c9a3
db MAX_ELIXER, 1
; 0x18c9a5
MapDragonsDenB1FSignpostItem1: ; 0x18c9a5
dw $00a0
db REVIVE
; 0x18c9a8
MapDragonsDenB1FSignpostItem2: ; 0x18c9a8
dw $00a1
db MAX_POTION
; 0x18c9ab
MapDragonsDenB1FSignpostItem3: ; 0x18c9ab
dw $00a2
db MAX_ELIXER
; 0x18c9ae
MovementData_0x18c9ae: ; 0x18c9ae
slow_step_right
slow_step_right
slow_step_right
slow_step_right
step_end
; 0x18c9b3
MovementData_0x18c9b3: ; 0x18c9b3
slow_step_left
slow_step_left
slow_step_left
slow_step_left
step_end
; 0x18c9b8
UnknownText_0x18c9b8: ; 0x18c9b8
text "Wait!"
done
; 0x18c9bf
UnknownText_0x18c9bf: ; 0x18c9bf
text "CLAIR: I'm sorry"
line "about this."
para "Here, take this as"
line "my apology."
done
; 0x18c9fb
UnknownText_0x18c9fb: ; 0x18c9fb
text "<PLAYER> received"
line "TM24."
done
; 0x18ca0d
UnknownText_0x18ca0d: ; 0x18ca0d
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
; 0x18ca8b
UnknownText_0x18ca8b: ; 0x18ca8b
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
; 0x18caf1
UnknownText_0x18caf1: ; 0x18caf1
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
; 0x18cc2e
UnknownText_0x18cc2e: ; 0x18cc2e
text "DRAGON SHRINE"
para "A shrine honoring"
line "the dragon #MON"
para "said to have lived"
line "in DRAGON'S DEN."
done
; 0x18cc83
UnknownText_0x18cc83: ; 0x18cc83
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
; 0x18cd2d
UnknownText_0x18cd2d: ; 0x18cd2d
text "…"
para "Whew…"
para "Learn to stay out"
line "of my way…"
done
; 0x18cd53
CooltrainermDarinSeenText: ; 0x18cd53
text "You! How dare you"
line "enter uninvited!"
done
; 0x18cd77
CooltrainermDarinBeatenText: ; 0x18cd77
text "S-strong!"
done
; 0x18cd82
UnknownText_0x18cd82: ; 0x18cd82
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
; 0x18cde4
CooltrainerfCaraSeenText: ; 0x18cde4
text "You shouldn't be"
line "in here!"
done
; 0x18cdfe
CooltrainerfCaraBeatenText: ; 0x18cdfe
text "Oh yikes, I lost!"
done
; 0x18ce11
UnknownText_0x18ce11: ; 0x18ce11
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
; 0x18ceab
TwinsLeaandpia1SeenText: ; 0x18ceab
text "It's a stranger we"
line "don't know."
done
; 0x18cec9
TwinsLeaandpia1BeatenText: ; 0x18cec9
text "Ouchies."
done
; 0x18ced3
UnknownText_0x18ced3: ; 0x18ced3
text "It was like having"
line "to battle LANCE."
done
; 0x18cef8
TwinsLeaandpia2SeenText: ; 0x18cef8
text "Who are you?"
done
; 0x18cf06
TwinsLeaandpia2BeatenText: ; 0x18cf06
text "Meanie."
done
; 0x18cf0f
UnknownText_0x18cf0f: ; 0x18cf0f
text "We'll tell on you."
para "MASTER will be"
line "angry with you."
done
; 0x18cf41
UnknownText_0x18cf41: ; 0x18cf41
text "<PLAYER> found"
line "@"
text_from_ram StringBuffer3
text "!"
done
; 0x18cf51
UnknownText_0x18cf51: ; 0x18cf51
text "But <PLAYER> can't"
line "carry any more"
cont "items."
done
; 0x18cf73
DragonsDenB1F_MapEventHeader: ; 0x18cf73
; filler
db 0, 0
; warps
db 2
warp_def $3, $14, 3, GROUP_DRAGONS_DEN_1F, MAP_DRAGONS_DEN_1F
warp_def $1d, $13, 1, GROUP_DRAGON_SHRINE, MAP_DRAGON_SHRINE
; xy triggers
db 1
xy_trigger 1, $1e, $13, $0, UnknownScript_0x18c8b8, $0, $0
; signposts
db 4
signpost 24, 18, $0, MapDragonsDenB1FSignpost0Script
signpost 29, 33, $7, MapDragonsDenB1FSignpostItem1
signpost 17, 21, $7, MapDragonsDenB1FSignpostItem2
signpost 15, 31, $7, MapDragonsDenB1FSignpostItem3
; people-events
db 9
person_event SPRITE_POKE_BALL, 20, 39, $1, $0, 255, 255, $0, 0, PokeBallScript_0x18c95a, $06a8
person_event SPRITE_CLAIR, 34, 18, $7, $0, 255, 255, $90, 0, ObjectEvent, $06d8
person_event SPRITE_SILVER, 27, 24, $2, $22, 255, 255, $0, 0, SilverScript_0x18c97e, $06c6
person_event SPRITE_COOLTRAINER_M, 12, 24, $7, $0, 255, 255, $82, 4, TrainerCooltrainermDarin, $ffff
person_event SPRITE_COOLTRAINER_F, 12, 12, $6, $0, 255, 255, $82, 3, TrainerCooltrainerfCara, $ffff
person_event SPRITE_TWIN, 21, 8, $9, $0, 255, 255, $82, 1, TrainerTwinsLeaandpia1, $ffff
person_event SPRITE_TWIN, 22, 8, $9, $0, 255, 255, $82, 1, TrainerTwinsLeaandpia2, $ffff
person_event SPRITE_POKE_BALL, 8, 34, $1, $0, 255, 255, $1, 0, ItemFragment_0x18c9a1, $07bf
person_event SPRITE_POKE_BALL, 24, 9, $1, $0, 255, 255, $1, 0, ItemFragment_0x18c9a3, $07c0
; 0x18d014