Kontakt - AHDSR - Control all groups

on init
	make_perfview

	declare $count

	declare ui_knob $Attack (0,1000000,1)
	declare ui_knob $Hold (0,1000000,1)
	declare ui_knob $Decay (0,1000000,1)
	declare ui_knob $Sustain (0,1000000,1)
	declare ui_knob $Release (0,1000000,1)

	set_knob_unit($Attack, $KNOB_UNIT_MS)
	set_knob_unit($Hold, $KNOB_UNIT_MS)
	set_knob_unit($Decay, $KNOB_UNIT_MS)
	set_knob_unit($Sustain, $KNOB_UNIT_DB)
	set_knob_unit($Release, $KNOB_UNIT_MS)

	$Attack := get_engine_par($ENGINE_PAR_ATTACK, 0, find_mod(0,"ENV_AHDSR"), -1)
	$Hold := get_engine_par($ENGINE_PAR_HOLD, 0, find_mod(0,"ENV_AHDSR"), -1)
	$Decay := get_engine_par($ENGINE_PAR_DECAY, 0, find_mod(0,"ENV_AHDSR"), -1)
	$Sustain := get_engine_par($ENGINE_PAR_SUSTAIN, 0, find_mod(0,"ENV_AHDSR"), -1)
	$Release := get_engine_par($ENGINE_PAR_RELEASE, 0, find_mod(0,"ENV_AHDSR"), -1)

	make_persistent($Attack)
	make_persistent($Hold)
	make_persistent($Decay)
	make_persistent($Sustain)
	make_persistent($Release)

	read_persistent_var($Attack)
	read_persistent_var($Hold)
	read_persistent_var($Decay)
	read_persistent_var($Sustain)
	read_persistent_var($Release)

	set_knob_label($Attack, get_engine_par_disp($ENGINE_PAR_ATTACK, 0, find_mod(0,"ENV_AHDSR"), -1))
	set_knob_label($Hold, get_engine_par_disp($ENGINE_PAR_HOLD, 0, find_mod(0,"ENV_AHDSR"), -1))
	set_knob_label($Decay, get_engine_par_disp($ENGINE_PAR_DECAY, 0, find_mod(0,"ENV_AHDSR"), -1))
	set_knob_label($Sustain, get_engine_par_disp($ENGINE_PAR_SUSTAIN, 0, find_mod(0,"ENV_AHDSR"), -1))
	set_knob_label($Release, get_engine_par_disp($ENGINE_PAR_RELEASE, 0, find_mod(0,"ENV_AHDSR"), -1))

	message("")
end on


on ui_control ($Attack)
	$count := -1 {I've change here and all the others to -1, this controls all groups instead of the 1st Instrument group in Kontakt}
	while ($count < $NUM_GROUPS)
		set_engine_par($ENGINE_PAR_ATTACK, $Attack, $count, find_mod(0,"ENV_AHDSR"), -1)
		inc($count)
	end while

	set_knob_label($Attack, get_engine_par_disp($ENGINE_PAR_ATTACK, 0, 0, -1))
end on

on ui_control ($Hold)
	$count := -1
	while ($count < $NUM_GROUPS)
		set_engine_par($ENGINE_PAR_HOLD, $Hold, $count, find_mod(0,"ENV_AHDSR"), -1)
		inc($count)
	end while

	set_knob_label($Hold, get_engine_par_disp($ENGINE_PAR_HOLD, 0, 0, -1))
end on

on ui_control ($Decay)
	$count := -1
	while ($count < $NUM_GROUPS)
		set_engine_par($ENGINE_PAR_DECAY, $Decay, $count, find_mod(0,"ENV_AHDSR"), -1)
		inc($count)
	end while

	set_knob_label($Decay, get_engine_par_disp($ENGINE_PAR_DECAY, 0, 0, -1))
end on

on ui_control ($Sustain)
	$count := -1
	while ($count < $NUM_GROUPS)
		set_engine_par($ENGINE_PAR_SUSTAIN, $Sustain, $count, find_mod(0,"ENV_AHDSR"), -1)
		inc($count)
	end while

	set_knob_label($Sustain, get_engine_par_disp($ENGINE_PAR_SUSTAIN, 0, 0, -1))
end on

on ui_control ($Release)
	$count := -1
	while ($count < $NUM_GROUPS)
		set_engine_par($ENGINE_PAR_RELEASE, $Release, $count, find_mod(0,"ENV_AHDSR"), -1)
		inc($count)
	end while

	set_knob_label($Release, get_engine_par_disp($ENGINE_PAR_RELEASE, 0, 0, -1))
end on