как-то геморно, мне кажется. если я правильно понял проблему - лучше ввести какой-нить массив, в который складировались бы по порядку id эвентов с того же хэта, при привышении кол-ва активных сэмплов вырубать их)ИнтересноТут можно пробовать и без кейсвитча обойтись, а сделать автоматически. Засекать время, через которое берётся новая нота, и если оно слишком короткое, глушить предыдущую ноту.
А еще, кстати, если человек владеет высоким искусством верстки, то имеет смысл подумать о разрезании изображений на отдельные инструменты установки и назначении этих картинок на много ui_label
Я и сказал, что это дело техники для Вас, потому что все остальное должно быть очевидно. С раунд-робином, это уже извращение, чтобы, возможно! снять лишний код
Тоже так подумал)))
поэтому и решил залить...когда пишу скрипт, почему то невольно открываю старую версию...она нагляднее что ли...)))
on init
declare ui_button $Bingo
$Bingo := 1
move_control ($Bingo,0,0)
end on
on note
move_control ($Bingo,3,6)
end on
on release
move_control ($Bingo,0,0)
end on{***********************************************
HH CHOKING v1.1
Author: www.audiogrocery.com
Written by: Ivan Kovachev
Modified: July 12, 2013
*************************************************}
on init
message("")
set_script_title("HH Choking")
make_perfview
declare const $ARRAY_SIZE := 20 {Set the Note ID history amount here}
declare %n_num_ids[$ARRAY_SIZE]
declare $id_pos
declare $i
declare ui_value_edit $OpHH_1 (0,127,0)
declare ui_value_edit $OpHH_2 (0,127,0)
declare ui_value_edit $OpHH_3 (0,127,0)
declare ui_value_edit $OpHH_4 (0,127,0)
declare ui_value_edit $OpHH_5 (0,127,0)
declare ui_value_edit $OpHH_6 (0,127,0)
declare ui_value_edit $ClHH_1 (0,127,0)
declare ui_value_edit $ClHH_2 (0,127,0)
declare ui_value_edit $ClHH_3 (0,127,0)
declare ui_value_edit $ClHH_4 (0,127,0)
declare ui_value_edit $ClHH_5 (0,127,0)
declare ui_value_edit $ClHH_6 (0,127,0)
make_persistent($OpHH_1)
make_persistent($OpHH_2)
make_persistent($OpHH_3)
make_persistent($OpHH_4)
make_persistent($OpHH_5)
make_persistent($OpHH_6)
make_persistent($ClHH_1)
make_persistent($ClHH_2)
make_persistent($ClHH_3)
make_persistent($ClHH_4)
make_persistent($ClHH_5)
make_persistent($ClHH_6)
end on
on note
if ($EVENT_NOTE=$ClHH_1 or $EVENT_NOTE=$ClHH_2 or $EVENT_NOTE=$ClHH_3 or...
$EVENT_NOTE=$ClHH_4 or $EVENT_NOTE=$ClHH_5 or $EVENT_NOTE=$ClHH_6)
$i:=0
while($i<$ARRAY_SIZE)
fade_out(%n_num_ids[$i],10000,1)
%n_num_ids[$i]:=0
inc($i)
end while
$id_pos:=0
end if
if ($EVENT_NOTE=$OpHH_1 or $EVENT_NOTE=$OpHH_2 or $EVENT_NOTE=$OpHH_3 or...
$EVENT_NOTE=$OpHH_4 or $EVENT_NOTE=$OpHH_5 or $EVENT_NOTE=$OpHH_6)
ignore_event($EVENT_ID)
inc($id_pos)
if($id_pos=$ARRAY_SIZE-1)
$id_pos:=0
end if
%n_num_ids[$id_pos]:=play_note($EVENT_NOTE,$EVENT_VELOCITY,-1,0)
end if
end onon init
declare const $ARRAY_SIZE := 20 {Set the Note ID history amount here}
declare %n_num_ids[$ARRAY_SIZE]
declare $id_pos
declare $i
end on
on note
if ($EVENT_NOTE=66 or $EVENT_NOTE=67 и т.д)
$i:=0
while($i<$ARRAY_SIZE)
fade_out(%n_num_ids[$i],10000,1)
%n_num_ids[$i]:=0
inc($i)
end while
$id_pos:=0
end if
if ($EVENT_NOTE=70 or $EVENT_NOTE=71 or и т.д)
ignore_event($EVENT_ID)
inc($id_pos)
if($id_pos=$ARRAY_SIZE-1)
$id_pos:=0
end if
%n_num_ids[$id_pos]:=play_note($EVENT_NOTE,$EVENT_VELOCITY,-1,0)
end if
end on