shithub: pokecrystal

ref: 24c058bc0af611f0fb8da5286dc08ae1837b131c
dir: /audio/music/profoak.asm/

View raw version
Music_ProfOak:
	musicheader 3, 1, Music_ProfOak_Ch1
	musicheader 1, 2, Music_ProfOak_Ch2
	musicheader 1, 3, Music_ProfOak_Ch3

Music_ProfOak_Ch1:
	tempo 118
	volume $77
	vibrato $12, $34
	tone $0001
	stereopanning $f0
	dutycycle $3
	notetype $c, $98
	octave 2
	note F#, 1
	note B_, 1
	octave 3
	note D#, 1
	note F#, 1
	note A_, 16
	note G#, 8
	intensity $97
	note G#, 8
.loop1:
	intensity $91
	callchannel .sub1
	callchannel .sub1
	callchannel .sub2
	callchannel .sub2
	loopchannel 2, .loop1
.mainloop:
	callchannel .sub3
	callchannel .sub3
	callchannel .sub4
	callchannel .sub4
	pitchoffset 0, D_
	callchannel .sub3
	callchannel .sub3
	pitchoffset 0, C_
	callchannel .sub4
	callchannel .sub4
	loopchannel 0, .mainloop

.sub1:
	octave 2
	note B_, 2
	octave 3
	note E_, 2
	note G#, 2
	note E_, 2
	note B_, 2
	note E_, 2
	note G#, 2
	note E_, 2
	endchannel

.sub2:
	octave 2
	note B_, 2
	octave 3
	note D#, 2
	note F#, 2
	note D#, 2
	note B_, 2
	note D#, 2
	note F#, 2
	note D#, 2
	endchannel

.sub3:
	octave 2
	note A_, 2
	octave 3
	note C#, 2
	note E_, 2
	note C#, 1
	note E_, 1
	note C#, 2
	intensity $92
	note A_, 2
	intensity $91
	note C#, 2
	intensity $92
	note E_, 2
	intensity $91
	endchannel

.sub4:
	octave 2
	note B_, 1
	octave 3
	note E_, 1
	intensity $92
	note G#, 4
	note E_, 4
	intensity $91
	note E_, 1
	note G#, 1
	intensity $92
	note B_, 4
	intensity $91
	endchannel

Music_ProfOak_Ch2:
	vibrato $12, $34
	dutycycle $3
	notetype $c, $a8
	octave 3
	note B_, 1
	octave 4
	note D#, 1
	note F#, 1
	note A#, 1
	note B_, 16
	intensity $a7
	note B_, 10
	dutycycle $2
.loop1:
	intensity $b2
	octave 3
	note B_, 2
	octave 4
	note C#, 2
	note D#, 2
	note E_, 4
	note D#, 2
	note C#, 4
	intensity $91
	note B_, 2
	octave 5
	note C#, 2
	note D#, 2
	note E_, 4
	note D#, 2
	note C#, 4
	intensity $b2
	octave 3
	note B_, 2
	note A_, 2
	note G#, 2
	note A_, 4
	note B_, 1
	note __, 1
	note B_, 4
	intensity $91
	octave 4
	note B_, 2
	note A_, 2
	note G#, 2
	note A_, 4
	note B_, 2
	note B_, 4
	loopchannel 2, .loop1
	note __, 6
	intensity $b4
.mainloop:
	note C#, 6
	octave 3
	note A_, 1
	octave 4
	note C#, 1
	note E_, 6
	note C#, 1
	note E_, 1
	note F#, 4
	note E_, 4
	note D#, 4
	note C#, 4
	octave 3
	note B_, 6
	note G#, 1
	note B_, 1
	octave 4
	note E_, 8
	intensity $82
	note B_, 6
	note G#, 1
	note B_, 1
	intensity $83
	octave 5
	note E_, 8
	intensity $b4
	octave 3
	note A_, 6
	note F#, 1
	note A_, 1
	octave 4
	note D#, 8
	note E_, 4
	note D#, 4
	note C#, 4
	note C_, 4
	octave 3
	note B_, 6
	note G#, 1
	note B_, 1
	octave 4
	note E_, 6
	octave 3
	note B_, 1
	octave 4
	note E_, 1
	note G#, 16
	loopchannel 0, .mainloop

Music_ProfOak_Ch3:
	stereopanning $f
	notetype $c, $14
	note __, 4
	octave 3
	note E_, 2
	note __, 2
	octave 4
	note E_, 1
	note __, 1
	octave 3
	note A_, 2
	note __, 2
	octave 2
	note B_, 2
	octave 3
	note B_, 1
	note __, 1
	note E_, 2
	callchannel .sub1
.loop1:
	callchannel .sub1
	callchannel .sub1
	callchannel .sub2
	callchannel .sub2
	loopchannel 2, .loop1
.mainloop:
	callchannel .sub3
	callchannel .sub3
	callchannel .sub4
	callchannel .sub4
	pitchoffset 0, D_
	callchannel .sub3
	callchannel .sub3
	pitchoffset 0, C_
	callchannel .sub4
	callchannel .sub4
	loopchannel 0, .mainloop

.sub1:
	note E_, 2
	note __, 2
	octave 4
	note E_, 1
	note __, 1
	octave 3
	note G#, 2
	note __, 2
	octave 2
	note B_, 2
	octave 3
	note B_, 1
	note __, 1
	note E_, 2
	endchannel

.sub2:
	octave 2
	note B_, 2
	note __, 2
	octave 4
	note D#, 1
	note __, 1
	octave 3
	note D#, 2
	note __, 2
	note F#, 2
	note B_, 1
	note __, 1
	note D#, 2
	endchannel

.sub3:
	octave 2
	note A_, 2
	note __, 2
	octave 3
	note A_, 1
	note __, 1
	octave 2
	note A_, 2
	note __, 2
	octave 3
	note E_, 2
	note A_, 1
	note __, 1
	note C#, 2
	endchannel

.sub4:
	octave 2
	note G#, 2
	note __, 2
	octave 3
	note G#, 1
	note __, 1
	octave 2
	note G#, 2
	note __, 2
	octave 3
	note E_, 2
	note G#, 1
	note __, 1
	octave 2
	note B_, 2
	endchannel