Future/pokecrystal
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Merge branch 'master' into audio-macros

Browse Source
This commit is contained in:
mid-kid
2020-02-04 16:01:30 +01:00
parent dd6812c06a e7be25948d
commit 44b361c1bb
117 changed files with 18693 additions and 18128 deletions
Download Patch File Download Diff File Expand all files Collapse all files

171
audio/music/evolution.asm
View File

@@ -1,47 +1,48 @@
Music_Evolution:
musicheader 4, 1, Music_Evolution_Ch1
musicheader 1, 2, Music_Evolution_Ch2
musicheader 1, 3, Music_Evolution_Ch3
musicheader 1, 4, Music_Evolution_Ch4
channel_count 4
channel 1, Music_Evolution_Ch1
channel 2, Music_Evolution_Ch2
channel 3, Music_Evolution_Ch3
channel 4, Music_Evolution_Ch4
Music_Evolution_Ch1:
tempo 132
volume $77
vibrato $6, $34
tone $0001
dutycycle $2
notetype $c, $92
volume 7, 7
vibrato 6, 3, 4
pitch_offset 1
duty_cycle 2
note_type 12, 9, 2
octave 3
slidepitchto 1, 4, A_
pitch_slide 1, 4, A_
note C_, 1
slidepitchto 1, 4, A_
pitch_slide 1, 4, A_
note G_, 1
slidepitchto 1, 4, A_
pitch_slide 1, 4, A_
note C_, 1
slidepitchto 1, 4, A_
pitch_slide 1, 4, A_
note G_, 1
note __, 4
dutycycle $3
stereopanning $f
rest 4
duty_cycle 3
stereo_panning FALSE, TRUE
.mainloop:
.loop1:
callchannel .sub1
notetype $c, $a4
sound_call .sub1
note_type 12, 10, 4
note F#, 4
callchannel .sub1
notetype $c, $a4
sound_call .sub1
note_type 12, 10, 4
note F#, 4
loopchannel 2, .loop1
callchannel .sub2
notetype $c, $a4
sound_loop 2, .loop1
sound_call .sub2
note_type 12, 10, 4
note G#, 4
callchannel .sub2
notetype $c, $a4
sound_call .sub2
note_type 12, 10, 4
note G#, 4
loopchannel 0, .mainloop
sound_loop 0, .mainloop
.sub1:
notetype $c, $a2
note_type 12, 10, 2
octave 3
note C_, 4
note G_, 4
@@ -50,10 +51,10 @@ Music_Evolution_Ch1:
note C_, 4
note G_, 4
note C_, 4
endchannel
sound_ret
.sub2:
notetype $c, $a2
note_type 12, 10, 2
octave 3
note D_, 4
note A_, 4
@@ -62,41 +63,41 @@ Music_Evolution_Ch1:
note D_, 4
note A_, 4
note D_, 4
endchannel
sound_ret
Music_Evolution_Ch2:
dutycycle $2
vibrato $8, $25
notetype $c, $a2
duty_cycle 2
vibrato 8, 2, 5
note_type 12, 10, 2
octave 4
note G_, 1
note D_, 1
note G_, 1
note D_, 1
note __, 4
dutycycle $3
stereopanning $f0
rest 4
duty_cycle 3
stereo_panning TRUE, FALSE
.mainloop:
.loop1:
callchannel .sub1
notetype $c, $b5
sound_call .sub1
note_type 12, 11, 5
note A_, 4
callchannel .sub1
notetype $c, $b5
sound_call .sub1
note_type 12, 11, 5
note B_, 4
loopchannel 2, .loop1
callchannel .sub2
notetype $c, $b5
sound_loop 2, .loop1
sound_call .sub2
note_type 12, 11, 5
note B_, 4
callchannel .sub2
notetype $c, $b5
sound_call .sub2
note_type 12, 11, 5
octave 4
note C#, 4
octave 3
loopchannel 0, .mainloop
sound_loop 0, .mainloop
.sub1:
notetype $c, $b2
note_type 12, 11, 2
octave 3
note G_, 4
note D_, 4
@@ -105,10 +106,10 @@ Music_Evolution_Ch2:
note G_, 4
note D_, 4
note G_, 4
endchannel
sound_ret
.sub2:
notetype $c, $b2
note_type 12, 11, 2
octave 3
note A_, 4
note E_, 4
@@ -117,86 +118,86 @@ Music_Evolution_Ch2:
note A_, 4
note E_, 4
note A_, 4
endchannel
sound_ret
Music_Evolution_Ch3:
notetype $c, $16
note __, 8
note_type 12, 1, 6
rest 8
.mainloop:
.loop1:
callchannel .sub1
sound_call .sub1
octave 3
note A_, 4
callchannel .sub1
sound_call .sub1
octave 3
note B_, 4
loopchannel 2, .loop1
callchannel .sub2
sound_loop 2, .loop1
sound_call .sub2
octave 3
note B_, 4
callchannel .sub2
sound_call .sub2
octave 4
note C#, 4
loopchannel 0, .mainloop
sound_loop 0, .mainloop
.sub1:
octave 2
note A_, 2
note __, 2
rest 2
octave 3
note D_, 2
note __, 2
rest 2
octave 2
note A_, 2
note __, 2
rest 2
octave 3
note D_, 2
note __, 2
rest 2
octave 2
note A_, 2
note __, 2
rest 2
octave 3
note D_, 2
note __, 2
rest 2
octave 2
note A_, 2
note __, 2
endchannel
rest 2
sound_ret
.sub2:
octave 2
note B_, 2
note __, 2
rest 2
octave 3
note E_, 2
note __, 2
rest 2
octave 2
note B_, 2
note __, 2
rest 2
octave 3
note E_, 2
note __, 2
rest 2
octave 2
note B_, 2
note __, 2
rest 2
octave 3
note E_, 2
note __, 2
rest 2
octave 2
note A_, 2
note __, 2
endchannel
rest 2
sound_ret
Music_Evolution_Ch4:
togglenoise $5
notetype $c
note __, 8
toggle_noise 5
drum_speed 12
rest 8
.mainloop:
stereopanning $f0
note A#, 6
note A#, 4
stereopanning $f
note E_, 2
note E_, 2
note E_, 2
loopchannel 0, .mainloop
stereo_panning TRUE, FALSE
drum_note 11, 6
drum_note 11, 4
stereo_panning FALSE, TRUE
drum_note 5, 2
drum_note 5, 2
drum_note 5, 2
sound_loop 0, .mainloop