Kontakt - Keyswitching Messages

on init

declare ui_button $keyswitch1
declare ui_button $keyswitch2
declare ui_button $keyswitch3

$keyswitch1 := 1
$keyswitch2 := 0
$keyswitch3 := 0

hide_part($keyswitch1, $HIDE_WHOLE_CONTROL)
hide_part($keyswitch2, $HIDE_WHOLE_CONTROL)
hide_part($keyswitch3, $HIDE_WHOLE_CONTROL)

end on

on note

	select ($EVENT_NOTE)

	case 24

	$keyswitch1 := 1
	$keyswitch2 := 0
	$keyswitch3 := 0

	case 26

	$keyswitch1 := 0
	$keyswitch2 := 1
	$keyswitch3 := 0

	case 28

	$keyswitch1 := 0
	$keyswitch2 := 0
	$keyswitch3 := 1

	end select

	if ($keyswitch1 = 1)

	select ($EVENT_NOTE)

	case 60

	message("Sustain")

	end select

	end if

	if ($keyswitch2 = 1)

	select ($EVENT_NOTE)

	case 60

	message("Trem...")

	end select

	end if

	if ($keyswitch3 = 1)

	select ($EVENT_NOTE)

	case 60

	message("Short")

	end select

	end if

end on

on release

	message("")

end on