KONTAKT - Purging Groups - Easy Example

{This simple example script will show how to load samples from 5 groups, and deactivate them!}
{NOTE: Make sure you create 5 groups, and add samples in all 5 to test this example...}

on init

	message("")
	set_script_title("Purging Groups")

	make_perfview
	set_ui_height(3)

	declare ui_button $group1
	declare ui_button $group2
	declare ui_button $group3
	declare ui_button $group4
	declare ui_button $group5

	move_control($group1, 1,1)
	move_control($group2, 2,1)
	move_control($group3, 3,1)
	move_control($group4, 4,1)
	move_control($group5, 5,1)

	set_text($group1,"Group 1")
	set_text($group2,"Group 2")
	set_text($group3,"Group 3")
	set_text($group4,"Group 4")
	set_text($group5,"Group 5")

end on

on ui_control ($group1)

	if ($group1 = 1)

		purge_group(0, 0)

		else

		purge_group(0,1)

	end if

end on

on ui_control ($group2)

	if ($group2 = 1)

		purge_group(1, 0)

		else

		purge_group(1,1)

	end if

end on

on ui_control ($group3)

	if ($group3 = 1)

		purge_group(2, 0)

		else

		purge_group(2,1)

	end if

end on

on ui_control ($group4)

	if ($group4 = 1)

		purge_group(3, 0)

		else

		purge_group(3,1)

	end if

end on

on ui_control ($group5)

	if ($group5 = 1)

		purge_group(4, 0)

		else

		purge_group(4,1)

	end if

end on