Controlling a menu from another menu?

JordonBeal

I am working on a drum instrument, and I have multiple kit piece options for each part of the drum kit (i.e. 4 kicks, 4 snares, 4 sets of toms, etc). I have menus to select the pieces working quite nicely, but I'd also like to have another menu so that I can have a few kit presets to flip through.

Is there a way to create a new menu "Kit Presets," and have it control the other menus so that I don't have to write a ton of code for each specific preset? I've got one preset working, but it's a bit of a nightmare. Here's a snippet of the code that I have working.

I don't mind going about it this way if I must, but I figure there's probably a more elegant solution.

	on ui_control (mnu_KitPresets)
		select (mnu_KitPresets)
			case 0 {*NO KIT*}
				fade_out(ALL_EVENTS, 10000, 1)
				purge_group(ALL_GROUPS, 0)
				call Clear_Kit


			case 1
				fade_out(ALL_EVENTS, 10000, 1)
				purge_group(ALL_GROUPS, 0)
				$i := 0
				while ($i <= 7) {Load Kick}
					purge_group($i, 1)
					inc ($i)
				end while


				$i := 39
				while ($i <= 45) {Load Snare}
					purge_group($i, 1)
					inc ($i)
				end while	


				$i := 79
				while ($i <= 85) {Load Snare CS}
					purge_group($i, 1)
					inc ($i)
				end while					


				$i := 87
				while ($i <= 106) {Load Toms}
					purge_group($i, 1)
					inc ($i)
				end while					


				$i := 201
				while ($i <= 283) {Load Hats}
					purge_group($i, 1)
					inc ($i)
				end while	


				$i := 285
				while ($i <= 311) {Load Splashes}
					purge_group($i, 1)
					inc ($i)
				end while	


				$i := 341
				while ($i <= 346) {Load Stack}
					purge_group($i, 1)
					inc ($i)
				end while	


				$i := 362
				while ($i <= 374) {Load China}
					purge_group($i, 1)
					inc ($i)
				end while	




				$i := 376
				while ($i <= 459) {Load Ride and Crashes}
					purge_group($i, 1)
					inc ($i)
				end while	
				purge_group(find_group("KIKSHOT1"), 1)
				purge_group(find_group("SNRSHOT3"), 1)
				purge_group(find_group("SNR-AMB+LO"), 1)				


				call PDP_Kit


			case 2
				fade_out(ALL_EVENTS, 10000, 1)
				purge_group(ALL_GROUPS, 0)
				$i := 0
				while ($i <= 7) {Load Kick}
					purge_group($i, 1)
					inc ($i)
				end while


				$i := 39
				while ($i <= 45) {Load Snare}
					purge_group($i, 1)
					inc ($i)
				end while	


				$i := 79
				while ($i <= 85) {Load Snare CS}
					purge_group($i, 1)
					inc ($i)
				end while					


				$i := 87
				while ($i <= 106) {Load Toms}
					purge_group($i, 1)
					inc ($i)
				end while					


				$i := 201
				while ($i <= 283) {Load Hats}
					purge_group($i, 1)
					inc ($i)
				end while	


				$i := 285
				while ($i <= 311) {Load Splashes}
					purge_group($i, 1)
					inc ($i)
				end while	


				$i := 341
				while ($i <= 346) {Load Stack}
					purge_group($i, 1)
					inc ($i)
				end while	


				$i := 362
				while ($i <= 374) {Load China}
					purge_group($i, 1)
					inc ($i)
				end while	




				$i := 376
				while ($i <= 459) {Load Ride and Crashes}
					purge_group($i, 1)
					inc ($i)
				end while	
				purge_group(find_group("KIKSHOT1"), 1)
				purge_group(find_group("SNRSHOT3"), 1)
				purge_group(find_group("SNR-AMB+LO"), 1)
					
				call Tama_Kit


		end select
	end on	

JordonBeal

Also, Ignore the "Calls" in that code.