K2 script: Flight of the Bumblebee for Dummies

[fizbin]

Load this script, apply it, and pound away at the 16th notes. Never mind what keys you're hitting, just stay away from C2, which will start you at the beginning again. BTW, could we have a script section added to the forum? (pretty please)


on init
declare $reset_key := 48 {C2 resets the sequence to the beginning}
declare %note_array[400] := ...
(88,87,86,85,86,85,84,83,...
84,83,82,81,80,79,78,77,...
76,75,74,73,74,73,72,71,...
72,71,70,69,68,67,66,65,...
64,63,62,61,62,61,60,59,...
64,63,62,61,62,61,60,59,...
64,63,62,61,60,65,64,63,...
64,63,62,61,60,61,62,63,...
64,63,62,61,60,65,64,63,...
64,63,62,61,60,61,62,63,...
64,63,62,61,60,65,64,63,...
64,63,62,61,60,61,62,63,...
64,63,62,61,62,61,60,59,...
60,61,62,63,64,65,64,63,...
64,63,62,61,62,61,60,59,...
60,61,62,63,64,66,67,68,...
69,68,67,66,65,70,69,68,...
69,68,67,66,65,66,67,68,...
69,68,67,66,65,70,69,68,...
69,68,67,66,65,66,67,68,...
69,68,67,66,65,70,69,68,...
69,68,67,68,69,70,69,68,...
69,68,67,66,65,70,69,68,...
69,68,67,68,69,70,69,68,...
69,57,59,57,59,57,59,57,...
70,56,58,56,58,56,58,56,...
69,57,59,57,59,57,59,57,...
70,56,58,56,58,56,58,56,...
69,70,69,68,69,70,69,68,...
69,70,69,68,69,70,69,68,...
69,70,71,72,73,72,71,70,...
69,70,71,72,73,72,71,70,...
69,62,64,62,74,62,64,62,...
75,61,63,61,63,61,63,61,...
74,62,64,62,74,62,64,62,...
75,61,63,61,63,61,63,61,...
74,75,74,73,74,75,74,73,...
74,75,74,73,74,75,74,73,...
74,75,76,77,78,77,76,75,...
74,75,76,77,78,77,76,75,...
74,73,72,71,70,75,74,73,...
74,73,72,71,70,71,72,73,...
74,73,72,71,70,75,74,73,...
74,73,72,71,70,71,72,73,...
88,87,86,85,86,85,84,83,...
84,83,82,81,80,79,78,77,...
76,77,76,75,76,77,76,75,...
76,77,76,75,76,77,76,75,...
76,77,76,75,76,77,76,75,...
76,77,76,75,76,77,76,75)

declare %note_array2[432] :=...
(64,63,62,61,62,61,60,59,...
60,59,58,57,56,55,54,53,...
52,53,52,51,52,53,52,51,...
52,53,52,51,52,53,52,51,...
52,53,52,51,52,53,52,51,...
52,53,52,51,52,53,52,51,...
52,53,54,55,56,57,58,59,...
60,61,62,63,64,65,66,67,...
68,69,70,71,72,73,74,75,...
76,77,76,75,76,77,76,75,...
76,75,74,73,72,77,76,75,...
76,75,74,73,72,73,74,75,...
76,75,74,73,72,77,76,75,...
76,75,74,73,72,73,74,75,...
76,75,74,73,74,73,72,71,...
72,73,74,75,76,77,76,75,...
76,75,74,73,74,73,72,71,...
72,73,74,75,76,78,79,80,...
81,80,79,78,77,82,81,80,...
81,80,79,78,77,78,79,80,...
81,80,79,78,77,82,81,80,...
81,80,79,78,77,78,79,80,...
81,80,79,78,79,78,77,76,...
77,78,79,80,81,82,81,80,...
81,80,79,78,77,78,79,80,...
81,83,84,86,88,89,88,87,...
88,87,86,85,84,89,88,87,...
88,87,86,85,84,85,86,87,...
88,87,86,85,84,89,88,87,...
88,87,86,85,84,85,86,87,...
88,76,80,81,82,83,84,85,...
86,85,84,83,84,83,82,81,...
80,81,82,83,84,85,86,87,...
88,89,88,87,88,89,88,87,...
88,76,80,81,82,83,84,85,...
86,85,84,83,84,83,82,81,...
80,81,82,83,84,85,86,87,...
88,89,88,87,88,90,91,92,...
93,92,91,90,91,90,89,88,...
89,88,87,86,85,84,83,82,...
81,80,79,78,79,78,77,76,...
77,76,75,74,73,72,71,80,...
69,70,69,68,70,68,70,68,...
45,57,70,57,72,57,74,57,...
76,77,76,75,77,75,77,75,...
52,64,78,64,79,64,80,64,...
81,45,57,45,64,65,66,67,...
68,69,70,71,72,73,74,75,...
76,77,78,79,80,81,82,83,...
84,85,86,87,88,90,91,92,...
93,130,130,130,130,130,130,130,...
81,130,130,130,130,130,130,130,...
45,45,45,45,45,45,45,45,...
45,45,45,45,45,45,45,45)

declare $index := 0
end on

on note
if ($EVENT_NOTE # $reset_key)
if ($index < num_elements(%note_array))
change_note ($EVENT_ID, %note_array[$index])
else
change_note ($EVENT_ID, %note_array2[$index-num_elements(%note_array)])
end if
if ($index < num_elements(%note_array) + num_elements(%note_array2) - 1)
inc($index)
else
$index := 0
end if
else
ignore_event($EVENT_ID)
$index := 0
end if
end on