pokecrystal/audio/music/dragonsden.asm

174 lines
2.3 KiB
NASM

Music_DragonsDen:
channel_count 4
channel 1, Music_DragonsDen_Ch1
channel 2, Music_DragonsDen_Ch2
channel 3, Music_DragonsDen_Ch3
channel 4, Music_DragonsDen_Ch4
Music_DragonsDen_Ch1:
tempo 144
volume 7, 7
duty_cycle 0
pitch_offset 4
stereo_panning TRUE, FALSE
note_type 12, 8, 0
.mainloop:
sound_call .sub1
rest 16
sound_call .sub2
rest 2
sound_call .sub2
rest 2
sound_call .sub2
rest 2
sound_call .sub2
rest 10
note_type 12, 11, 7
sound_loop 0, .mainloop
.sub1:
octave 3
note A#, 12
note A_, 4
note A#, 12
note A_, 4
note A#, 6
octave 4
note C_, 4
note C#, 6
note E_, 16
note D#, 12
note D_, 4
octave 3
note G#, 16
sound_ret
.sub2:
volume_envelope 11, 1
rest 2
octave 4
note C#, 3
note C#, 3
note C#, 3
note C#, 3
note C#, 4
note C#, 3
note C#, 3
note C#, 4
note C#, 2
note C#, 2
sound_ret
Music_DragonsDen_Ch2:
duty_cycle 0
pitch_offset 4
stereo_panning FALSE, TRUE
note_type 12, 9, 0
.mainloop:
sound_call .sub1
rest 16
sound_call .sub2
sound_call .sub2
sound_call .sub2
sound_call .sub2
rest 16
note_type 12, 12, 7
sound_loop 0, .mainloop
.sub1:
octave 4
note D#, 12
note D_, 4
note D#, 12
note D_, 4
note D#, 6
note F_, 4
note F#, 6
note A_, 16
note G#, 12
note G_, 4
note C#, 16
sound_ret
.sub2:
volume_envelope 12, 1
.sub2loop1:
octave 5
note C#, 4
octave 4
note G#, 4
note G#, 4
note G#, 4
sound_loop 2, .sub2loop1
sound_ret
Music_DragonsDen_Ch3:
.mainloop:
.loop1:
note_type 12, 1, 4
octave 4
note C#, 2
octave 3
note G#, 1
octave 4
note C#, 1
octave 3
note G#, 2
octave 4
note C#, 2
octave 3
note G#, 1
octave 4
note C#, 1
octave 3
note G#, 2
octave 4
note C#, 2
octave 3
note G#, 1
octave 4
note C#, 1
sound_loop 15, .loop1
rest 16
note_type 6, 2, 7
.loop2:
octave 3
note C#, 4
octave 2
note G#, 2
octave 3
note C#, 2
octave 2
note G#, 4
octave 3
note C#, 4
octave 2
note G#, 2
octave 3
note C#, 2
octave 2
note G#, 4
octave 3
note C#, 4
octave 2
note G#, 2
octave 3
note C#, 2
sound_loop 16, .loop2
sound_loop 0, .mainloop
Music_DragonsDen_Ch4:
toggle_noise 0
drum_speed 12
rest 16
rest 16
.mainloop:
stereo_panning TRUE, FALSE
drum_note 6, 4
stereo_panning FALSE, TRUE
drum_note 7, 4
drum_note 7, 4
stereo_panning TRUE, FALSE
drum_note 7, 4
sound_loop 0, .mainloop