pokecrystal-board/audio/music/unioncave.asm

Music_UnionCave:
	channel_count 4
	channel 1, Music_UnionCave_Ch1
	channel 2, Music_UnionCave_Ch2
	channel 3, Music_UnionCave_Ch3
	channel 4, Music_UnionCave_Ch4

Music_UnionCave_Ch1:
	tempo 160
	volume 7, 7
	duty_cycle 1
	pitch_offset 2
	vibrato 24, 3, 4
	stereo_panning FALSE, TRUE
.mainloop:
	note_type 12, 11, 3
.loop1:
	sound_call .sub1
	sound_loop 4, .loop1
.loop2:
	octave 2
	note G#, 2
	octave 3
	note C#, 2
	note E_, 4
	note C#, 2
	note E_, 2
	note F_, 4
	sound_loop 8, .loop2
.loop3:
	octave 2
	note A_, 2
	octave 3
	note D_, 2
	note F_, 4
	note D_, 2
	note F_, 2
	note F#, 4
	sound_loop 4, .loop3
	rest 4
	volume_envelope 8, 0
	note F_, 16
	note F#, 16
	note G_, 16
	note F#, 16
	note G_, 8
	note F#, 8
	note F_, 8
	note E_, 8
	note G_, 8
	note F#, 8
	octave 4
	note C_, 8
	octave 3
	note A_, 8
	volume_envelope 9, 5
	pitch_offset 4
	sound_call .sub1
	pitch_offset 8
	sound_call .sub1
	pitch_offset 12
	sound_call .sub1
	pitch_offset 16
	sound_call .sub1
	pitch_offset 2
	sound_loop 0, .mainloop

.sub1:
	octave 2
	note G#, 2
	octave 3
	note C#, 2
	note E_, 12
	sound_ret

Music_UnionCave_Ch2:
	duty_cycle 3
	vibrato 8, 2, 4
.mainloop:
	note_type 12, 12, 4
	sound_call .sub1
	volume_envelope 12, 5
	sound_call .sub1
	volume_envelope 12, 7
	sound_call .sub1
	volume_envelope 12, 4
	note C#, 4
	octave 3
	note B_, 4
	octave 4
	note D_, 2
	note E_, 2
	note C#, 2
	octave 3
	note B_, 2
	octave 4
	note C#, 4
	octave 3
	note B_, 4
	octave 4
	note D_, 8
	octave 3
	note B_, 4
	octave 4
	note D_, 4
	note F#, 2
	note F_, 2
	note C#, 2
	octave 3
	note B_, 2
	octave 4
	note C#, 8
	note D_, 4
	note C#, 4
	rest 4
	volume_envelope 10, 0
	note C_, 16
	note C#, 16
	note D_, 16
	note C#, 16
	note E_, 16
	note D#, 16
	note A#, 16
	note A_, 16
	volume_envelope 10, 5
	vibrato 6, 4, 4
	sound_call .sub2
	vibrato 4, 3, 3
	sound_call .sub2
	vibrato 2, 2, 2
	sound_call .sub2
	vibrato 1, 4, 1
	sound_call .sub2
	vibrato 8, 2, 4
	sound_loop 0, .mainloop

.sub1:
	octave 4
	note C_, 4
	octave 3
	note A#, 4
	octave 4
	note C#, 2
	note D#, 2
	note C_, 2
	octave 3
	note A#, 2
	octave 4
	note C_, 4
	octave 3
	note A#, 4
	octave 4
	note C#, 8
	octave 3
	note A#, 4
	octave 4
	note C#, 4
	note F_, 2
	note E_, 2
	note C_, 2
	octave 3
	note A#, 2
	octave 4
	note C_, 8
	note C#, 4
	note C_, 4
	sound_ret

.sub2:
	octave 2
	note G#, 2
	octave 3
	note C#, 2
	note E_, 12
	sound_ret

Music_UnionCave_Ch3:
	note_type 12, 1, 6
	stereo_panning TRUE, FALSE
.mainloop:
.loop1:
	rest 16
	sound_loop 7, .loop1
	rest 14
	octave 4
	note C_, 2
.loop2:
	rest 2
	octave 3
	note E_, 2
	rest 2
	note E_, 2
	note G#, 2
	note E_, 2
	rest 2
	octave 4
	note C_, 2
	sound_loop 4, .loop2
.loop3:
	rest 2
	octave 3
	note F_, 2
	rest 2
	note F_, 2
	note A_, 2
	note F_, 2
	rest 2
	octave 4
	note C#, 2
	sound_loop 4, .loop3
	rest 4
	note C_, 8
	octave 3
	note B_, 8
	note A#, 8
	note A_, 8
	octave 4
	note C#, 8
	note C_, 8
	octave 3
	note B_, 8
	note A#, 8
.loop4:
	note A_, 4
	note G_, 4
	note A#, 2
	octave 4
	note C_, 2
	octave 3
	note A_, 2
	note G_, 2
	sound_loop 3, .loop4
	note A_, 4
	note G_, 4
	note A#, 8
.loop5:
	rest 16
	sound_loop 4, .loop5
	sound_loop 0, .mainloop

Music_UnionCave_Ch4:
	toggle_noise 1
	drum_speed 12
.mainloop:
	stereo_panning TRUE, FALSE
	drum_note 5, 4
	stereo_panning TRUE, TRUE
	drum_note 6, 4
	stereo_panning FALSE, TRUE
	drum_note 9, 4
	rest 8
	stereo_panning FALSE, TRUE
	drum_note 5, 4
	stereo_panning TRUE, TRUE
	drum_note 6, 4
	stereo_panning TRUE, FALSE
	drum_note 9, 4
	rest 8
	sound_loop 0, .mainloop

	sound_loop 0, .mainloop ; unused