scawful/oracle-of-secrets
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Add Lost Woods and Zelda 1 Dungeon Theme

Browse Source
This commit is contained in:
scawful
2023-05-25 11:03:02 -05:00
parent 0781fe650e
commit 31a8d5a27d
2 changed files with 362 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

195
Music/dungeon_theme.asm Normal file
View File

@@ -0,0 +1,195 @@
;=====================================================================================
; The Legend of Zelda: A Link to the Past (Custom Music Track)
; The Legend of Zelda - Dungeon Theme v1.01
; Original Song by Koji Kondo
; Midi by Zaggarum
; ASM Framework by Zarby89
; Ported by Letterbomb
;=====================================================================================
lorom
org $1B9C0F; Sections?
DungeonTheme:
!ARAMAddr = $EC0B
dw !ARAMAddr+$08
dw $00FF
dw !ARAMAddr
dw $0000
.Channels
!ARAMC = !ARAMAddr-DungeonTheme
dw .Channel0+!ARAMC
dw .Channel1+!ARAMC
dw .Channel2+!ARAMC
dw .Channel3+!ARAMC
dw .Channel4+!ARAMC
dw .Channel5+!ARAMC
dw $0000
dw $0000
.Channel0
%SetMasterVolume($CA)
%SetTempo(97);
%SetInstrument($09) ; Strings
%SetDurationN($48, $7F) ; 1/4
%CallSubroutine(.sub1+!ARAMC, 4)
%CallSubroutine(.sub2+!ARAMC, 4)
%CallSubroutine(.sub3+!ARAMC, 4)
%CallSubroutine(.sub4+!ARAMC, 4)
%CallSubroutine(.sub5+!ARAMC, 4)
%CallSubroutine(.sub6+!ARAMC, 4)
%CallSubroutine(.sub7+!ARAMC, 1)
db Rest
db $00 ; End of the channel
.sub1
db G4, D5
db $00 ; End
.sub2
db F4s, D5
db $00 ; End
.sub3
db F4, D5
db $00 ; End
.sub4
db E4, D5
db $00 ; End
.sub5
db D4s, C5
db $00 ; End
.sub6
db D4, C5
db $00 ; End
.sub7
db C4, A4, F4s, C5, A4, D5s, D5s, D5s, A5, A5
db $00 ; End
.Channel1
%SetInstrument($09) ; Strings
%SetDurationN($24, $7F) ; 1/8
db Rest, $48
%CallSubroutine(.sub8+!ARAMC, 4)
%CallSubroutine(.sub9+!ARAMC, 4)
%CallSubroutine(.sub10+!ARAMC, 4)
%CallSubroutine(.sub11+!ARAMC, 4)
%CallSubroutine(.sub12+!ARAMC, 8)
db F4s, C5, A4, D5s, C5, C5, F5s, F5s, F5s, C6
db $00 ; End of the channel
.sub8
db A4s, D5s
db $00 ; End
.sub9
db A4, D5s
db $00 ; End
.sub10
db G4s, D5s
db $00 ; End
.sub11
db G4, D5s
db $00 ; End
.sub12
db G4, D5
db $00 ; End
.Channel2
%SetChannelVolume($CF)
%SetInstrument($09) ; Strings
%SetDurationN($48, $7F) ; 1/4
db G4, Tie, Tie, Tie, A4s, Tie, D5, Tie, C5s, Tie, F4s
%CallSubroutine(.sub13+!ARAMC, 5)
db $24, F4
%CallSubroutine(.sub13+!ARAMC, 10)
db G4, Tie, Tie, $48, C5s, C5, Tie, $24, E4
%CallSubroutine(.sub13+!ARAMC, 11)
db D4s, D4, D4s
%CallSubroutine(.sub13+!ARAMC, 5)
db G4, Tie, Tie, D5s, Tie, Tie, D5, Tie, D4, C4s, D4
%CallSubroutine(.sub13+!ARAMC, 5)
db G4, Tie, Tie, D5, Tie, Tie, C5s, Tie, D4, F4s, A4, F4s, A4, C5, A4, C5, D5s, C5, D5s, F5s, A5, F5s, D5s, C5, D5s, C5, A4, F4s
db $00 ; End of the channel
.sub13
db Tie
db $00 ; End
.Channel3
%SetInstrument($18) ; Guitar
%SetDurationN($24, $7F) ; 1/8
db Rest, $48, G4
%CallSubroutine(.sub13+!ARAMC, 7)
db F4s
%CallSubroutine(.sub13+!ARAMC, 7)
db F4
%CallSubroutine(.sub13+!ARAMC, 7)
db E4
%CallSubroutine(.sub13+!ARAMC, 7)
db D4s
%CallSubroutine(.sub13+!ARAMC, 7)
db D4
%CallSubroutine(.sub13+!ARAMC, 7)
db Rest
%CallSubroutine(.sub13+!ARAMC, 9)
db $00 ; End of the channel
.Channel4
%SetChannelVolume($CB)
%SetInstrument($13) ; Snare
%SetDurationN($48, $7F) ; 1/4
%CallSubroutine(.sub14+!ARAMC, 4)
%CallSubroutine(.sub15+!ARAMC, 4)
%CallSubroutine(.sub16+!ARAMC, 8)
%CallSubroutine(.sub17+!ARAMC, 6)
db G2, Tie, G2, Tie, G2
%CallSubroutine(.sub13+!ARAMC, 9)
db $00 ; End of the channel
.sub14
db G2, Tie
db $00 ; End
.sub15
db F2, Tie
db $00 ; End
.sub16
db E2, Tie
db $00 ; End
.sub17
db D2s, Tie
db $00 ; End
.Channel5
%SetChannelVolume($CF)
%SetInstrument($09) ; Strings
%SetDurationN($48, $7F) ; 1/4
db G3, Tie, Tie, Tie, A3s, Tie, D4, Tie, C4s, Tie, F3s
%CallSubroutine(.sub13+!ARAMC, 5)
db $24, F3
%CallSubroutine(.sub13+!ARAMC, 10)
db G3, Tie, Tie, $48, C4s, C4, Tie, $24, E3
%CallSubroutine(.sub13+!ARAMC, 11)
db D3s, D3, D3s
%CallSubroutine(.sub13+!ARAMC, 5)
db G3, Tie, Tie, D4s, Tie, Tie, D4, Tie, D3, C3s, D3
%CallSubroutine(.sub13+!ARAMC, 5)
db G3, Tie, Tie, D4, Tie, Tie, C4s, Tie, D3, F3s, A3, F3s, A3, C4, A3, C4, D4s, C4, D4s, F4s, A4, F4s, D4s, C4, D4s, C4, A3, F3s
db $00 ; End

167
Music/lost_woods.asm Normal file
View File

@@ -0,0 +1,167 @@
;=====================================================================================
; The Legend of Zelda: A Link to the Past (Custom Music Track)
; The Legend of Zelda: Ocarina of Time - Lost Woods Theme v1.01
; Original Song by Koji Kondo
; Midi by John Kuzma
; ASM Framework by Zarby89
; Ported by Letterbomb
;=====================================================================================
; Replace Lost Woods Theme
org $1AADDE ; Sections?
LostWoodsTheme:
!ARAMAddr = $DEE5
dw !ARAMAddr+$0A ; Intro
dw !ARAMAddr+$1A ; Looping
dw $00FF
dw !ARAMAddr+$02 ; Looping Section
dw $0000
.ChannelsIntro
!ARAMC = !ARAMAddr-LostWoodsTheme
dw .Channel0Intro+!ARAMC
dw $0000
dw $0000
dw $0000
dw $0000
dw $0000
dw $0000
dw $0000
.Channels
!ARAMC = !ARAMAddr-LostWoodsTheme
dw .Channel0+!ARAMC
dw .Channel1+!ARAMC
dw .Channel2+!ARAMC
dw .Channel3+!ARAMC
dw .Channel4+!ARAMC
dw .Channel5+!ARAMC
dw $0000
dw $0000
.Channel0Intro
%SetMasterVolume($9F)
%SetChannelVolume($90)
%SetTempo(85);
%SetInstrument($02) ; Tympani
%SetDurationN($12, $7F) ; 1/16
db F3s, Tie, F3s, F3s, F3s, Tie, F3s, F3s, F3s, Tie, $24, F3s, Tie, C4
db $00 ; End of the channel
.Channel0
%CallSubroutine(.sub1+!ARAMC, 14)
%CallSubroutine(.sub2+!ARAMC, 4)
%CallSubroutine(.sub1+!ARAMC, 1)
db $12, F3s, Tie, F3s, F3s, Tie, Tie, F3s, Tie, $48, F3s, F3s
db $00 ; End of the channel
.sub1
db $12, F3s, Tie, F3s, F3s, $24, F3s, F3s, F3s, $12, F3s, F3s, $24, F3s, F3s
db $00 ; End
.sub2
db $12, F3s, Tie, F3s, F3s, $48, D4
db $00 ; End
.sub11
db Tie
db $00 ; End
.Channel1
%SetChannelVolume($9A)
%SetInstrument($0D) ; Ocarina
%SetDurationN($24, $7F) ; 1/8
%CallSubroutine(.sub3+!ARAMC, 1)
db B5, G5, $48, E5, Tie, $24, Tie, D5, E5, G5, $48, E5, Tie, Tie
%CallSubroutine(.sub3+!ARAMC, 1)
db E6, B5, $48, G5, Tie, $24, Tie, B5, G5, D5, $48, E5, Tie, Tie
%CallSubroutine(.sub9+!ARAMC, 8)
db $24, F5, G5, A5, Tie, B5, C6, D6, Tie, E6, F6, $48, G6, Tie, Tie
%CallSubroutine(.sub9+!ARAMC, 8)
db $24, F5, E5, A5, G5, B5, A5, C6, B5, D6, C6, E6, D6, F6, E6, $12, B5, C6, Tie, A5, $48, B5
%CallSubroutine(.sub11+!ARAMC, 7)
db $00 ; End of the channel
.sub3
db $24, F5, A5, B5, Tie, F5, A5, B5, Tie, F5, A5, B5, E6, D6, Tie, B5, C6
db $00 ; End
.Channel2
%SetInstrument($0F) ; Harp
%SetDurationN($48, $7F) ; 1/4
%CallSubroutine(.sub4+!ARAMC, 4)
%CallSubroutine(.sub5+!ARAMC, 4)
%CallSubroutine(.sub4+!ARAMC, 4)
%CallSubroutine(.sub5+!ARAMC, 4)
%CallSubroutine(.sub6+!ARAMC, 3)
%CallSubroutine(.sub7+!ARAMC, 2)
db $24, E3, A3, Tie, A3, E3, B3, Tie, A3, E3, G3s, G3s, G3s, G3s, Tie, B4, Tie
db $00 ; End of the channel
.sub4
db $48, F3, Tie
db $00 ; End
.sub5
db $48, C3, Tie
db $00 ; End
.sub6
db $24, D3, F3, D3, F3, G2, D3, G2, G3, C3, G3, C3, G3, A2, E3, A2, E3
db $00 ; End
.sub7
db $24, D3, A3, F3, Tie
db $00 ; End
.Channel3
%SetInstrument($18) ; Guitar
%SetDurationN($24, $7F) ; 1/8
%CallSubroutine(.sub8+!ARAMC, 2)
db $48
%CallSubroutine(.sub9+!ARAMC, 40)
db $00 ; End of the channel
.sub8
db F3, C4, C4, C4, F3, A3, A3, A3, F3, A3, A3, A3, F3, A3, A3, A3, E3, G3, G3, G3, E3, G3, G3, C3, E3, C4, G3, G3, E3, G3, G3, C3
db $00 ; End
.sub9
db Rest
db $00 ; End
.Channel4
%SetChannelVolume($9D)
%SetInstrument($18) ; Guitar
%SetDurationN($48, $7F) ; 1/4
%CallSubroutine(.sub9+!ARAMC, 32)
%CallSubroutine(.sub10+!ARAMC, 1)
db C5, B4, $48, E4, Tie, Tie
%CallSubroutine(.sub10+!ARAMC, 1)
db $24, C5, D5, $48, E5, Tie, Tie
%CallSubroutine(.sub10+!ARAMC, 1)
db $24, C5, B4, $48, E4, Tie, Tie, $24, D4, C4, F4, E4, G4, F4, A4, G4, B4, A4, C5, B4, D5, C5, $12, E5, F5, Tie, D5, $48, E5
%CallSubroutine(.sub11+!ARAMC, 7)
db $00 ; End of the channel
.sub10
db $24, D4, E4, F4, Tie, G4, A4, B4, Tie
db $00 ; End
.Channel5
%SetInstrument($0F) ; Harp
%SetDurationN($48, $7F) ; 1/4
%CallSubroutine(.sub9+!ARAMC, 32)
%CallSubroutine(.sub4+!ARAMC, 4)
%CallSubroutine(.sub5+!ARAMC, 4)
%CallSubroutine(.sub4+!ARAMC, 4)
%CallSubroutine(.sub5+!ARAMC, 4)
%CallSubroutine(.sub4+!ARAMC, 4)
db $00 ; End of the channel