on init
	{SETTINGS}
		declare const $NUMBER_OF_GROUPS := 5	
		declare $active_group := 0 { set to -1 if no group should be active on init }
	
	{GLOBAL VARS}
		declare %hot_key[$NUMBER_OF_GROUPS]
		declare $i

	{ set midi note numbers for enabling keys => C1, D1, E1, F1, G1 }
		%hot_key[0] := 36
		%hot_key[1] := 38
		%hot_key[2] := 40
		%hot_key[3] := 41
		%hot_key[4] := 43

	 {set key color}
	 	$i := 0
	 	while ($i < $NUMBER_OF_GROUPS)
	 		set_key_color(%hot_key[$i], $KEY_COLOR_RED)
	 		inc($i)
	 	end while
end on

on note
	disallow_group($ALL_GROUPS)

	{ get current allowed group }
		if(search(%hot_key, $EVENT_NOTE) # -1)
			$active_group := search(%hot_key, $EVENT_NOTE)
		end if

	message($active_group) {console output}
	allow_group($active_group)
end on

on init
	{SETTINGS}
		declare const $NUMBER_OF_GROUPS := 3	
		declare $active_group := 0 { set to -1 if no group should be active on init }
	
	{GLOBAL VARS}
		declare %allowed_groups[$NUMBER_OF_GROUPS]
		declare %hot_key[$NUMBER_OF_GROUPS]
		declare %cold_key[$NUMBER_OF_GROUPS]
		declare $i

	{ set midi note numbers for enabling keys C1, D1, E1 }
		%hot_key[0] := 36
		%hot_key[1] := 38
		%hot_key[2] := 40

	{ set midi note numbers for disbaling keys F1, G1, A1 }
		%cold_key[0] := 41
		%cold_key[1] := 43
		%cold_key[2] := 45

	 {set key color hot & cold}
	 	$i := 0
	 	while ($i < $NUMBER_OF_GROUPS)
	 		set_key_color(%hot_key[$i], $KEY_COLOR_RED)
	 		set_key_color(%cold_key[$i], $KEY_COLOR_BLUE)
	 		inc($i)
	 	end while

	{ deactivate all groups }
		$i:=0
		while ($i < $NUMBER_OF_GROUPS)
			%allowed_groups[$i] := 0
			inc($i)
		end while
end on

on note
	disallow_group($ALL_GROUPS)
	message("")

	{activate group by key}
		$i := 0
		while ($i < $NUMBER_OF_GROUPS)
			if ($EVENT_NOTE = %hot_key[$i])
				%allowed_groups[$i] := 1
				message("group " & $i & " enabled")
				$i := $NUMBER_OF_GROUPS {breaks the while loop}
			end if
			inc($i)
		end while

	{ activate group by default}
		if ($active_group # -1)
			%allowed_groups[$active_group] := 1
		end if

	{ deactivate group by key}
		$i := 0
		while ($i < $NUMBER_OF_GROUPS)
			if ($EVENT_NOTE = %cold_key[$i])
				%allowed_groups[$i] := 0
				message("group " & $i & " disabled")
				$i := $NUMBER_OF_GROUPS {breaks the while loop}
			end if
			inc($i)
		end while

	{ only allow group when %allowed_groups[this] = 1 }
		$i := 0
		while($i < $NUMBER_OF_GROUPS)
			if(%allowed_groups[$i] = 1)
				allow_group($i)
			end if
			inc($i)
		end while
end on