{***********************************************
Kontakt 4 Factory Libary - Instrument
Elektrik Guitar
Author: Native Instruments
Written by: Nicki Marinic, Dinos Vallianatos & Adam Hanley
Modified: September 18, 2009
*************************************************}

on init
	make_perfview
	set_script_title("Instrument")
	set_ui_height_px(256)

	{PGS declarations}
	_pgs_create_key(SOLO_MODE,1)
	_pgs_create_key(POS,1)
	_pgs_create_key(STYLE,1)
	{end of PGS declarations}

	message("")
	declare $count

	declare $last_time_1
	declare $last_time_2
	declare $last_time_3
	declare $last_time_4
	declare $wait_time := 800	 {Enter control label wait time}
	
	declare const $ROOT_X := 66
	declare const $ROOT_Y := 2
	declare const $GRID_X := 92
	declare const $GRID_Y := 21

	declare const $FONT_ID := 5	 {the font id for all visible labels}
	declare const $FONT_ID_2 := 4   {the font id for menus}
	declare const $CREATE_AUTOMATION_ID := 0
	
	declare const $sends_slot := 7
	declare const $meq_slot := 5
	declare const $wah_flt_slot := 1
	declare const $comp_slot := 1
	declare const $skreamer_slot := 2
	declare const $reverb_slot := 0
	declare const $cab_slot := 4
	declare const $eq_slot := 0
	declare $duration

	declare !playing_names[4]
	!playing_names[0] := "BASIC"
	!playing_names[1] := "MUTED"
	!playing_names[2] := "HARMONIC"
	!playing_names[3] := "FLAG."
	
	declare %pickup_settings[99] := (...
{0}	500000,500000,500000,   500000,500000,500000,   500000,500000,500000,...
{1}	365637,62500,700000,   620113,62500,500000,   1000000,1000000,0,...
{2}	83984,326172,200195,   405273,128906,589844,   1000000,1000000,181641,...
{3}	245117,416016,266602,   632813,207031,625977,   862305,173828,661133,...
{4}	515625,0,704102,   447266,0,169922,   706055,0,714844,...
{5}	870117,586914,715820,   333008,360352,272461,   856445,0,192383,...
{6}	648438,586914,757813,   266602,360352,165039,   670898,0,132813,...
{7}	376953,0,39062,   555664,0,578125,   796875,144531,623047,...
{8}	172852,660156,0,   699219,6836,692383,   407227,0,778320,...
{9}	233398,219727,583984,   533203,250000,355469,   633789,639648,601563,...
{10}	137695,357422,362305,   491211,250000,571289,   832031,417969,463867)

	{*** CONTROL GROUP "INSTR"}
	
		{POSITIONING OF CONTROL GROUP}
		
		declare $x_grid_instr := 1 {X Position of Control Group in grid}
		declare $y_grid_instr := 1 {Y Position of Control Group in grid}
		declare $x_px_instr := 0 {X Position Offset Control Group in pixel}
		declare $y_px_instr := 0 {Y Position Offset Control Group in pixel}
		
		{DECLARATION AND UI_IDs}
		
		declare const $NUM_INSTR := 10 {number of elements in this control group}

		declare ui_label $backgr_instr (1,1)
		declare ui_slider $Playing_Knob (0,3)
		declare ui_slider $Position (0,19)
		declare ui_slider $Pickup (0,10)
		declare ui_switch $solo_instr
		declare ui_label $lb_Playing_Knob (1,1)
		declare ui_label $lb_Position (1,1)
		declare ui_label $lb_Pickup (1,1)
		declare ui_label $lb_solo_instr (1,1)

		declare %instr_id[$NUM_INSTR]
		%instr_id[0] := get_ui_id($backgr_instr)
		%instr_id[1] := get_ui_id($Playing_Knob)
		%instr_id[2] := get_ui_id($Position)
		%instr_id[3] := get_ui_id($Pickup)
		%instr_id[4] := get_ui_id($solo_instr)
		%instr_id[5] := get_ui_id($lb_Playing_Knob)
		%instr_id[6] := get_ui_id($lb_Position)
		%instr_id[7] := get_ui_id($lb_Pickup)
		%instr_id[8] := get_ui_id($lb_solo_instr)

		{POSITIONING OF INDIVIDUAL CONTROLS}
		
		move_control_px($backgr_instr,($GRID_X * 1) + 0, ($GRID_Y * 1) + 0) {possible to offset control in pixels}
		move_control_px($lb_solo_instr, ($GRID_X * 1) + 18, ($GRID_Y * 2) + 21)
		move_control_px($lb_Position, ($GRID_X * 2) + 44, ($GRID_Y * 2) + 21)
		move_control_px($lb_Playing_Knob, ($GRID_X * 3) + 81, ($GRID_Y * 2) + 21)
		move_control_px($lb_Pickup, ($GRID_X * 5) + 24, ($GRID_Y * 2) + 21)
		move_control_px($Position, ($GRID_X * 2) + 65, ($GRID_Y * 3) + 11)
		move_control_px($Playing_Knob, ($GRID_X * 4) + 9, ($GRID_Y * 3) + 11)
		move_control_px($Pickup, ($GRID_X * 5) + 45, ($GRID_Y * 3) + 11)
		move_control_px($solo_instr, ($GRID_X * 1) + 46, ($GRID_Y * 3) + 18)

		{VARIOUS ATTRIBUTES}

		set_text($backgr_instr, "")
		set_text($lb_solo_instr, "SOLO")
		set_text ($lb_Playing_Knob,"STYLE")
		set_text ($lb_Position, "POSITION")
		set_text ($lb_Pickup, "PICKUP")

		$Position := 0
		make_persistent ($Position)
		make_persistent ($Playing_Knob)
		make_persistent ($Pickup)

		set_control_par(%instr_id[0], $CONTROL_PAR_WIDTH, ($GRID_X * 2))
		set_control_par(%instr_id[0], $CONTROL_PAR_HEIGHT, ($GRID_Y * 4))
		set_control_par(%instr_id[0], $CONTROL_PAR_HIDE, $HIDE_PART_BG)

		$count := 5
		while ($count < 9)
			set_control_par(%instr_id[$count], $CONTROL_PAR_WIDTH, ($GRID_X * 1))
			set_control_par(%instr_id[$count], $CONTROL_PAR_HEIGHT, ($GRID_Y * 1))
			set_control_par(%instr_id[$count], $CONTROL_PAR_HIDE, $HIDE_PART_BG)
			set_control_par(%instr_id[$count], $CONTROL_PAR_TEXT_ALIGNMENT, 1)
			set_control_par(%instr_id[$count], $CONTROL_PAR_FONT_TYPE, $FONT_ID)
			inc($count)
		end while

		$count := 1
		while ($count < 4)
			set_control_par_str(%instr_id[$count], $CONTROL_PAR_PICTURE, "pv_band_knob_big")
			set_control_par(%instr_id[$count], $CONTROL_PAR_MOUSE_BEHAVIOUR, -500)
			inc($count)
		end while

		_read_persistent_var($solo_instr)
		_read_persistent_var($Position)
		_read_persistent_var($Playing_Knob)

		_pgs_set_key_val(STYLE,0,$Playing_Knob)
	
		if ($Playing_Knob = 2 or $Playing_Knob = 3 )
			_pgs_set_key_val(POS,0,0)
		else
			_pgs_set_key_val(POS,0,$Position)
		end if
		
		set_control_par_str(%instr_id[4], $CONTROL_PAR_PICTURE, "pv_band_switch_ring_on_off")
		set_control_par(%instr_id[4], $CONTROL_PAR_WIDTH, 33)
		set_control_par(%instr_id[4], $CONTROL_PAR_HEIGHT, 50)
		set_control_par_str(%instr_id[4], $CONTROL_PAR_TEXT, "")
		
		{Other}
		
		$count := 0
		while ($count < $NUM_INSTR)
			set_control_par (%instr_id[$count],$CONTROL_PAR_POS_X,get_control_par(%instr_id[$count],$CONTROL_PAR_POS_X)...
			+$ROOT_X + ($x_grid_instr - 2)*$GRID_X + $x_px_instr)
			
			set_control_par (%instr_id[$count],$CONTROL_PAR_POS_Y,get_control_par(%instr_id[$count],$CONTROL_PAR_POS_Y)...
			+$ROOT_Y + ($y_grid_instr - 2)*$GRID_Y + $y_px_instr) 
			
			inc($count)
		end while
		
		
		
		set_control_par_str(get_ui_id($solo_instr),$CONTROL_PAR_AUTOMATION_NAME,"Solo")
		set_control_par_str(get_ui_id($Position),$CONTROL_PAR_AUTOMATION_NAME,"Pos")
		set_control_par_str(get_ui_id($Playing_Knob),$CONTROL_PAR_AUTOMATION_NAME,"Style")
		set_control_par_str(get_ui_id($Pickup),$CONTROL_PAR_AUTOMATION_NAME,"Pickup")
		
		read_persistent_var($Pickup)
		if ($Pickup = 0)
			set_control_par_str(get_ui_id($Pickup),$CONTROL_PAR_LABEL,"Off")
		else
			set_control_par_str(get_ui_id($Pickup),$CONTROL_PAR_LABEL,$Pickup)
		end if
		
		set_control_par_str(get_ui_id($Position),$CONTROL_PAR_LABEL,$Position)
		set_control_par_str(get_ui_id($Playing_Knob),$CONTROL_PAR_LABEL,!playing_names[$Playing_Knob])
		
	{*** END CONTROL GROUP "INSTR"}

	{*** CONTROL GROUP "FX"}
	
		{POSITIONING OF CONTROL GROUP}
		
		declare $x_grid_fx := 1 {X Position of Control Group in grid}
		declare $y_grid_fx := 7 {Y Position of Control Group in grid}
		declare $x_px_fx := 0 {X Position Offset Control Group in pixel}
		declare $y_px_fx := 0 {Y Position Offset Control Group in pixel}
		
		{DECLARATION AND UI_IDs}
		
		declare const $NUM_FX := 10 {number of elements in this control group}

		declare ui_label $backgr_fx (1,1)
		declare ui_label $title_fx (1,1)
		declare ui_label $lb_comp_fx (1,1)
		declare ui_label $lb_wah_fx (1,1)
		declare ui_label $lb_drive_fx (1,1)
		declare ui_label $lb_distone_fx (1,1)
		declare ui_slider $wah_fx (0, 2)
		declare ui_slider $drive_fx (0, 1000000)
		declare ui_slider $distone_fx (0, 1000000)
		declare ui_switch $comp_fx

		declare %fx_id[$NUM_FX]
		%fx_id[0] := get_ui_id($backgr_fx)
		%fx_id[1] := get_ui_id($title_fx)
		%fx_id[2] := get_ui_id($lb_comp_fx)
		%fx_id[3] := get_ui_id($lb_wah_fx)
		%fx_id[4] := get_ui_id($lb_drive_fx)
		%fx_id[5] := get_ui_id($lb_distone_fx)
		%fx_id[6] := get_ui_id($wah_fx)
		%fx_id[7] := get_ui_id($drive_fx)
		%fx_id[8] := get_ui_id($distone_fx)
		%fx_id[9] := get_ui_id($comp_fx)

		{POSITIONING OF INDIVIDUAL CONTROLS}
		
		move_control_px($backgr_fx,($GRID_X * 1) + 51, ($GRID_Y * 1) + 12) {possible to offset control in pixels}
		move_control_px($title_fx, ($GRID_X * 1) + 0, ($GRID_Y * 1) + 0)
		move_control_px($lb_comp_fx, ($GRID_X * 1) - 49, ($GRID_Y * 2) + 9)
		move_control_px($lb_wah_fx, ($GRID_X * 1) + 16, ($GRID_Y * 2) + 9)
		move_control_px($lb_drive_fx, ($GRID_X * 2) + 66, ($GRID_Y * 2) + 9)
		move_control_px($lb_distone_fx, ($GRID_X * 1) + 89, ($GRID_Y * 2) + 9)
		move_control_px($wah_fx, ($GRID_X * 1) + 44, ($GRID_Y * 3) + 5)
		move_control_px($drive_fx, ($GRID_X * 3) + 2, ($GRID_Y * 3) + 5)
		move_control_px($distone_fx, ($GRID_X * 2) + 23, ($GRID_Y * 3) + 5)
		move_control_px($comp_fx, ($GRID_X * 1) - 16, ($GRID_Y * 3) + 3)

		{VARIOUS ATTRIBUTES}

		$comp_fx := (_get_engine_par($ENGINE_PAR_EFFECT_BYPASS, -1, $comp_slot, -1) + 1) mod 2
		
		if (_get_engine_par($ENGINE_PAR_EFFECT_BYPASS, -1, $skreamer_slot, 1) = 1)
			$drive_fx := 0
		else
			$drive_fx := _get_engine_par($ENGINE_PAR_SK_DRIVE, -1, $skreamer_slot, 1)
		end if
		
		$distone_fx := _get_engine_par($ENGINE_PAR_SK_TONE, -1, $skreamer_slot, 1)

		make_persistent($wah_fx)

		set_control_par_str(%fx_id[0], $CONTROL_PAR_TEXT, "")
		set_control_par_str(%fx_id[1], $CONTROL_PAR_TEXT, "")
		set_control_par_str(%fx_id[2], $CONTROL_PAR_TEXT, "COMP")
		set_control_par_str(%fx_id[3], $CONTROL_PAR_TEXT, "WAH")
		set_control_par_str(%fx_id[4], $CONTROL_PAR_TEXT, "DRIVE")
		set_control_par_str(%fx_id[5], $CONTROL_PAR_TEXT, "DIST TONE")
		
		$count := 1
		while ($count < 6)
			set_control_par(%fx_id[$count], $CONTROL_PAR_WIDTH, ($GRID_X * 1))
			set_control_par(%fx_id[$count], $CONTROL_PAR_HEIGHT, ($GRID_Y * 1))
			set_control_par(%fx_id[$count], $CONTROL_PAR_HIDE, $HIDE_PART_BG)
			set_control_par(%fx_id[$count], $CONTROL_PAR_TEXT_ALIGNMENT, 1)
			set_control_par(%fx_id[$count], $CONTROL_PAR_FONT_TYPE, $FONT_ID)
			inc($count)
		end while

		set_control_par_str(%fx_id[0], $CONTROL_PAR_PICTURE, "pv_band_inst_perf_headline_animation")
		set_control_par(%fx_id[0], $CONTROL_PAR_PICTURE_STATE, 1)

		$count := 6
		while ($count < 9)
			set_control_par_str(%fx_id[$count], $CONTROL_PAR_PICTURE, "pv_band_knob_small")
			set_control_par(%fx_id[$count], $CONTROL_PAR_MOUSE_BEHAVIOUR, -500)
			inc($count)
		end while

		set_control_par(%fx_id[6], $CONTROL_PAR_MOUSE_BEHAVIOUR, -800)

		set_control_par_str(%fx_id[9], $CONTROL_PAR_PICTURE, "pv_band_switch_on_off")
		set_control_par(%fx_id[9], $CONTROL_PAR_WIDTH, 23)
		set_control_par(%fx_id[9], $CONTROL_PAR_HEIGHT, 45)
		set_control_par_str(%fx_id[9], $CONTROL_PAR_TEXT, "")

		{Other}
		
		$count := 0
		while ($count < $NUM_FX)
			set_control_par (%fx_id[$count],$CONTROL_PAR_POS_X,get_control_par(%fx_id[$count],$CONTROL_PAR_POS_X)...
			+$ROOT_X + ($x_grid_fx - 2)*$GRID_X + $x_px_fx)
			
			set_control_par (%fx_id[$count],$CONTROL_PAR_POS_Y,get_control_par(%fx_id[$count],$CONTROL_PAR_POS_Y)...
			+$ROOT_Y + ($y_grid_fx - 2)*$GRID_Y + $y_px_fx) 
			
			inc($count)
		end while
		
		set_control_par_str(get_ui_id($comp_fx),$CONTROL_PAR_AUTOMATION_NAME,"Comp")
		set_control_par_str(get_ui_id($wah_fx),$CONTROL_PAR_AUTOMATION_NAME,"Wah")
		set_control_par_str(get_ui_id($distone_fx),$CONTROL_PAR_AUTOMATION_NAME,"Dist")
		set_control_par_str(get_ui_id($drive_fx),$CONTROL_PAR_AUTOMATION_NAME,"Drive")
		
		read_persistent_var($wah_fx)
		select($wah_fx)
			case 0
				set_control_par_str(get_ui_id($wah_fx),$CONTROL_PAR_LABEL,"Off")
			case 1
				set_control_par_str(get_ui_id($wah_fx),$CONTROL_PAR_LABEL,"Mod Wheel")
			case 2
				set_control_par_str(get_ui_id($wah_fx),$CONTROL_PAR_LABEL,"Auto")
		end select
		
		
		set_control_par_str(get_ui_id($distone_fx),$CONTROL_PAR_LABEL,get_engine_par_disp($ENGINE_PAR_SK_TONE, -1, $skreamer_slot, 1) & " %")
		set_control_par_str(get_ui_id($drive_fx),$CONTROL_PAR_LABEL,get_engine_par_disp($ENGINE_PAR_SK_DRIVE, -1, $skreamer_slot, 1) & " %")
		
	{*** END CONTROL GROUP "FX"}

	{*** CONTROL GROUP "BANDFX"}
	
		{POSITIONING OF CONTROL GROUP}
		
		declare $x_grid_bandfx := 3 {X Position of Control Group in grid}
		declare $y_grid_bandfx := 7 {Y Position of Control Group in grid}
		declare $x_px_bandfx := 0 {X Position Offset Control Group in pixel}
		declare $y_px_bandfx := 0 {Y Position Offset Control Group in pixel}
		
		{DECLARATION AND UI_IDs}
		
		declare const $num_ir_samples := 10 {the number of ir samples used in this instrument group}
		declare const $NUM_BANDFX := 42 {number of elements in this control group}

		declare ui_label $backgr_bandfx (1,1)
		declare ui_label $title_bandfx (1,1)
		declare ui_label $lb_rev_bandfx (1,1)
		declare ui_label $lb_cab_bandfx(1,1)
		declare ui_label $lb_eq_bandfx(1,1)
		declare ui_label $lb_rev_onoff_bandfx (1,1)
		declare ui_label $lb_rev_room_bandfx (1,1)
		declare ui_label $lb_rev_mix_bandfx (1,1)
		declare ui_label $image_reverb (1,1)
		declare ui_label $lb_cab_onoff_bandfx (1,1)
		declare ui_label $lb_cab_type_bandfx (1,1)
		declare ui_label $lb_cab_air_bandfx (1,1)
		declare ui_label $lb_eq_onoff_bandfx (1,1)
		declare ui_label $lb_eq_lo_bandfx (1,1)
		declare ui_label $lb_eq_mid_bandfx (1,1)
		declare ui_label $lb_eq_hi_bandfx (1,1)
		declare ui_label $cab_image_bandfx (1,1)
		declare ui_slider $rev_amount_bandfx (0, 1000000)
		declare ui_slider $cab_air_bandfx (0, 1000000)
		declare ui_slider $eq_lo_bandfx (166666, 833333)
		declare ui_slider $eq_mid_bandfx (166666, 833333)
		declare ui_slider $eq_hi_bandfx (166666, 833333)
		declare ui_button $rev_bandfx
		declare ui_button $cab_bandfx
		declare ui_button $eq_bandfx
		declare ui_switch $rev_onoff_bandfx
		declare ui_switch $cab_onoff_bandfx
		declare ui_switch $eq_onoff_bandfx
		declare ui_menu $cab_type_bandfx
		declare ui_menu $category_reverb
		declare ui_label $eq_background_bandfx (1,1)
		declare ui_label $masterfx_bg_bandfx (1,1)
		

		{reverb functionality}
		declare ui_menu $hall_reverb
		declare ui_menu $cathedral_reverb
		declare ui_menu $club_reverb
		declare ui_menu $room_reverb
		declare ui_menu $l300_reverb
		declare ui_menu $quadstick_reverb
		declare ui_menu $brt7_reverb
		declare ui_menu $plate_reverb
		declare ui_menu $cabinet_reverb
	
		declare %subcat_menu_id[9]
		%subcat_menu_id[0] := get_ui_id($hall_reverb)
		%subcat_menu_id[1] := get_ui_id($cathedral_reverb)
		%subcat_menu_id[2] := get_ui_id($club_reverb)
		%subcat_menu_id[3] := get_ui_id($room_reverb)
		%subcat_menu_id[4] := get_ui_id($l300_reverb)
		%subcat_menu_id[6] := get_ui_id($quadstick_reverb)
		%subcat_menu_id[7] := get_ui_id($brt7_reverb)
		%subcat_menu_id[5] := get_ui_id($plate_reverb)
		%subcat_menu_id[8] := get_ui_id($cabinet_reverb) 

		declare %offset_reverb[9] := (0,3,6,14,21,52,34,42,62)
		
		{Skin the subcategory menus}
		$count := 0
		while($count < 9)
			set_control_par_str(%subcat_menu_id[$count],$CONTROL_PAR_PICTURE,"pv_band_master_fx_rev_dropdown_1")
			set_control_par(%subcat_menu_id[$count], $CONTROL_PAR_POS_X, ($GRID_X * 2) + 84)
			set_control_par(%subcat_menu_id[$count], $CONTROL_PAR_POS_Y, ($GRID_Y * 5) + 2)
			set_control_par(%subcat_menu_id[$count], $CONTROL_PAR_FONT_TYPE, $FONT_ID_2)			
			inc($count)
		end while
	
		set_control_par_str(get_ui_id($image_reverb),$CONTROL_PAR_PICTURE,"pv_band_reverb_animation")
	
		{Fill the menus}
		add_menu_item($category_reverb, "CONCERT HALL", 0)
		add_menu_item($category_reverb, "CATHEDRAL", 1)
		add_menu_item($category_reverb, "CLUB", 2)
		add_menu_item($category_reverb, "ROOM", 3)
		add_menu_item($category_reverb, "L300", 4)
		add_menu_item($category_reverb, "QUADSTICK", 6)
		add_menu_item($category_reverb, "BRT 7", 7)
		add_menu_item($category_reverb, "PLATE", 5)
		add_menu_item($category_reverb, "CABINET", 8)
	
		declare !ir_path[68]
		!ir_path[0] := "presets/effects/convolution/<<<K4IR.nkx>>>/K4 IR Samples/Concert Hall A.wav"
		!ir_path[1] := "presets/effects/convolution/<<<K4IR.nkx>>>/K4 IR Samples/Concert Hall B.wav"
		!ir_path[2] := "presets/effects/convolution/<<<K4IR.nkx>>>/K4 IR Samples/Exhibition Hall.wav"
		!ir_path[3] := "presets/effects/convolution/<<<K4IR.nkx>>>/K4 IR Samples/Cathedral A.wav"
		!ir_path[4] := "presets/effects/convolution/<<<K4IR.nkx>>>/K4 IR Samples/Cathedral B.wav"
		!ir_path[5] := "presets/effects/convolution/10 Big Rooms/IR Samples/ndb_cathedral_ir_32bit.wav"
		!ir_path[6] := "presets/effects/convolution/<<<K4IR.nkx>>>/K4 IR Samples/Club A.wav"
		!ir_path[7] := "presets/effects/convolution/<<<K4IR.nkx>>>/K4 IR Samples/Club B.wav"
		!ir_path[8] := "presets/effects/convolution/<<<K4IR.nkx>>>/K4 IR Samples/Tavern Close.wav"
		!ir_path[9] := "presets/effects/convolution/<<<K4IR.nkx>>>/K4 IR Samples/Tavern Near.wav"
		!ir_path[10] := "presets/effects/convolution/<<<K4IR.nkx>>>/K4 IR Samples/Tavern Medium.wav"
		!ir_path[11] := "presets/effects/convolution/<<<K4IR.nkx>>>/K4 IR Samples/Tavern Far.wav"
		!ir_path[12] := "presets/effects/convolution/<<<K4IR.nkx>>>/K4 IR Samples/Auditorium A.wav"
		!ir_path[13] := "presets/effects/convolution/<<<K4IR.nkx>>>/K4 IR Samples/Auditorium B.wav"
		!ir_path[14] := "presets/effects/convolution/<<<K4IR.nkx>>>/K4 IR Samples/Chamber A.wav"
		!ir_path[15] := "presets/effects/convolution/<<<K4IR.nkx>>>/K4 IR Samples/Chamber B.wav"
		!ir_path[16] := "presets/effects/convolution/<<<K4IR.nkx>>>/K4 IR Samples/Rehearsal Room.wav"
		!ir_path[17] := "presets/effects/convolution/<<<K4IR.nkx>>>/K4 IR Samples/Hard Wood Room B.wav"
		!ir_path[18] := "presets/effects/convolution/<<<K4IR.nkx>>>/K4 IR Samples/Music Studio C.wav"
		!ir_path[19] := "presets/effects/convolution/<<<K4IR.nkx>>>/K4 IR Samples/Small Room A.wav"
		!ir_path[20] := "presets/effects/convolution/<<<K4IR.nkx>>>/K4 IR Samples/Small Room B.wav"
		!ir_path[21] := "presets/effects/convolution/<<<K4IR.nkx>>>/K4 IR Samples/L300 Large Hall.wav"
		!ir_path[22] := "presets/effects/convolution/<<<K4IR.nkx>>>/K4 IR Samples/L300 Gated Hall.wav"
		!ir_path[23] := "presets/effects/convolution/<<<K4IR.nkx>>>/K4 IR Samples/L300 Large Room.wav"
		!ir_path[24] := "presets/effects/convolution/<<<K4IR.nkx>>>/K4 IR Samples/L300 Large Chamber.wav"
		!ir_path[25] := "presets/effects/convolution/<<<K4IR.nkx>>>/K4 IR Samples/L300 Studio C.wav"
		!ir_path[26] := "presets/effects/convolution/<<<K4IR.nkx>>>/K4 IR Samples/L300 Contem-Plate.wav"
		!ir_path[27] := "presets/effects/convolution/<<<K4IR.nkx>>>/K4 IR Samples/L300 Space & Echoes.wav"
		!ir_path[28] := "presets/effects/convolution/<<<K4IR.nkx>>>/K4 IR Samples/L300 Medium Stop.wav"
		!ir_path[29] := "presets/effects/convolution/<<<K4IR.nkx>>>/K4 IR Samples/L300 Drum Cave.wav"
		!ir_path[30] := "presets/effects/convolution/<<<K4IR.nkx>>>/K4 IR Samples/L300 Large Ambience.wav"
		!ir_path[31] := "presets/effects/convolution/<<<K4IR.nkx>>>/K4 IR Samples/L300 Smooth Ambience.wav"
		!ir_path[32] := "presets/effects/convolution/<<<K4IR.nkx>>>/K4 IR Samples/L300 Ambience Wave.wav"
		!ir_path[33] := "presets/effects/convolution/<<<K4IR.nkx>>>/K4 IR Samples/L300 Le Gate.wav"
		!ir_path[34] := "presets/effects/convolution/<<<K4IR.nkx>>>/K4 IR Samples/Quadstick Small - Basic.wav"
		!ir_path[35] := "presets/effects/convolution/<<<K4IR.nkx>>>/K4 IR Samples/Quadstick Small - Disco.wav"
		!ir_path[36] := "presets/effects/convolution/<<<K4IR.nkx>>>/K4 IR Samples/Quadstick Small - Funk.wav"
		!ir_path[37] := "presets/effects/convolution/<<<K4IR.nkx>>>/K4 IR Samples/Quadstick Small - Funky Club.wav"
		!ir_path[38] := "presets/effects/convolution/<<<K4IR.nkx>>>/K4 IR Samples/Quadstick Small - Hip Hop.wav"
		!ir_path[39] := "presets/effects/convolution/<<<K4IR.nkx>>>/K4 IR Samples/Quadstick Small - Reggae Modern.wav"
		!ir_path[40] := "presets/effects/convolution/<<<K4IR.nkx>>>/K4 IR Samples/Quadstick Small - RnB Neptunes.wav"
		!ir_path[41] := "presets/effects/convolution/<<<K4IR.nkx>>>/K4 IR Samples/Quadstick Small - RnB Today 1.wav"
		!ir_path[42] := "presets/effects/convolution/<<<K4IR.nkx>>>/K4 IR Samples/BRT 7 Ambience Large A.wav"
		!ir_path[43] := "presets/effects/convolution/<<<K4IR.nkx>>>/K4 IR Samples/BRT 7 Ambience Small.wav"
		!ir_path[44] := "presets/effects/convolution/<<<K4IR.nkx>>>/K4 IR Samples/BRT 7 Chamber Small.wav"
		!ir_path[45] := "presets/effects/convolution/<<<K4IR.nkx>>>/K4 IR Samples/BRT 7 Chamber Vocal.wav"
		!ir_path[46] := "presets/effects/convolution/<<<K4IR.nkx>>>/K4 IR Samples/BRT 7 Hall Dense.wav"
		!ir_path[47] := "presets/effects/convolution/<<<K4IR.nkx>>>/K4 IR Samples/BRT 7 Location Chapel A.wav"
		!ir_path[48] := "presets/effects/convolution/<<<K4IR.nkx>>>/K4 IR Samples/BRT 7 Plate Snare.wav"
		!ir_path[49] := "presets/effects/convolution/<<<K4IR.nkx>>>/K4 IR Samples/BRT 7 Room Drum.wav"
		!ir_path[50] := "presets/effects/convolution/<<<K4IR.nkx>>>/K4 IR Samples/BRT 7 Room Wood.wav"
		!ir_path[51] := "presets/effects/convolution/<<<K4IR.nkx>>>/K4 IR Samples/BRT 7 Location Cineastic Room.wav"
		!ir_path[52] := "presets/effects/convolution/<<<K4IR.nkx>>>/K4 IR Samples/E245 0.5s A.wav"
		!ir_path[53] := "presets/effects/convolution/<<<K4IR.nkx>>>/K4 IR Samples/E245 1.0s A.wav"
		!ir_path[54] := "presets/effects/convolution/<<<K4IR.nkx>>>/K4 IR Samples/E245 1.4s A.wav"
		!ir_path[55] := "presets/effects/convolution/<<<K4IR.nkx>>>/K4 IR Samples/E245 2.1s A.wav"
		!ir_path[56] := "presets/effects/convolution/<<<K4IR.nkx>>>/K4 IR Samples/E245 4.5s A.wav"
		!ir_path[57] := "presets/effects/convolution/<<<K4IR.nkx>>>/K4 IR Samples/E252 0.6s.wav"
		!ir_path[58] := "presets/effects/convolution/<<<K4IR.nkx>>>/K4 IR Samples/E252 1.0s.wav"
		!ir_path[59] := "presets/effects/convolution/<<<K4IR.nkx>>>/K4 IR Samples/E252 1.8s.wav"
		!ir_path[60] := "presets/effects/convolution/<<<K4IR.nkx>>>/K4 IR Samples/E252 3.0s.wav"
		!ir_path[61] := "presets/effects/convolution/<<<K4IR.nkx>>>/K4 IR Samples/E252 4.5s.wav"
		!ir_path[62] := "presets/effects/convolution/17 Cabinets/Brit 212/IR Samples/Brit_212_Tube_Center.wav"
		!ir_path[63] := "presets/effects/convolution/17 Cabinets/Tweed 112/IR Samples/Tweed_112_Tube_Center.wav"
		!ir_path[64] := "presets/effects/convolution/17 Cabinets/Tweed 212/IR Samples/Tweed_212_Tube_Center.wav"
		!ir_path[65] := "presets/effects/convolution/17 Cabinets/Tweed 410/IR Samples/Tweed_410_Tube_Center.wav"
		!ir_path[66] := "presets/effects/convolution/17 Cabinets/Rock 412/IR Samples/Rock_412_Tube_Center.wav"
		!ir_path[67] := "presets/effects/convolution/17 Cabinets/Modern 412/IR Samples/Modern_412_Tube_Center.wav"

		
		declare !ir_type[68]
		!ir_type[0] := "HALL A"
		!ir_type[1] := "HALL B"
		!ir_type[2] := "EXHIBITION HALL"
		!ir_type[3] := "CATHEDRAL A"
		!ir_type[4] := "CATHEDRAL B"
		!ir_type[5] := "NDB"
		!ir_type[6] := "CLUB A"
		!ir_type[7] := "CLUB B"
		!ir_type[8] := "TAVERN CLOSE"
		!ir_type[9] := "TAVERN NEAR"
		!ir_type[10] := "TAVERN MID"
		!ir_type[11] := "TAVERN FAR"
		!ir_type[12] := "AUDITORIUM A"
		!ir_type[13] := "AUDITORIUM B"
		!ir_type[14] := "CHAMBER A"
		!ir_type[15] := "CHAMBER B"
		!ir_type[16] := "REHEARSAL"
		!ir_type[17] := "HARD WOOD"
		!ir_type[18] := "MUSIC STUDIO"
		!ir_type[19] := "SMALL ROOM A"
		!ir_type[20] := "SMALL ROOM B"
		!ir_type[21] := "LARGE HALL"
		!ir_type[22] := "GATED HALL"
		!ir_type[23] := "LARGE ROOM"
		!ir_type[24] := "LRG CHAMBER"
		!ir_type[25] := "STUDIO C"
		!ir_type[26] := "PLATE"
		!ir_type[27] := "ECHOES"
		!ir_type[28] := "MEDIUM STOP"
		!ir_type[29] := "DRUM CAVE"
		!ir_type[30] := "LARGE AMBI"
		!ir_type[31] := "SMOOTH AMBI"
		!ir_type[32] := "AMBI WAVE"
		!ir_type[33] := "LE GATE"
		!ir_type[34] := "BASIC"
		!ir_type[35] := "DISCO"
		!ir_type[36] := "FUNK"
		!ir_type[37] := "FUNKY CLUB"
		!ir_type[38] := "HIP HOP"
		!ir_type[39] := "REGGAE MOD"
		!ir_type[40] := "RNB NEPTUNES"
		!ir_type[41] := "RNB TODAY"
		!ir_type[42] := "LARGE AMBI"
		!ir_type[43] := "SMALL AMBI"
		!ir_type[44] := "SML CHAMBER"
		!ir_type[45] := "VOC CHAMBER"
		!ir_type[46] := "DENSE HALL"
		!ir_type[47] := "CHAPEL"
		!ir_type[48] := "SNARE PLATE"
		!ir_type[49] := "DRUM ROOM"
		!ir_type[50] := "WOOD ROOM"
		!ir_type[51] := "CINEASTIC"
		!ir_type[52] := "E245 0.5s"
		!ir_type[53] := "E245 1.0s"
		!ir_type[54] := "E245 1.4s"
		!ir_type[55] := "E245 2.1s"
		!ir_type[56] := "E245 4.5s"
		!ir_type[57] := "E252 0.6s"
		!ir_type[58] := "E252 1.0s"
		!ir_type[59] := "E252 1.8s"
		!ir_type[60] := "E252 3.0s"
		!ir_type[61] := "E252 4.5s"
		!ir_type[62] := "BRIT 2x12"
		!ir_type[63] := "TWEED 1x12"
		!ir_type[64] := "TWEED 2x12"
		!ir_type[65] := "TWEED 4x10"
		!ir_type[66] := "ROCK 4x12"
		!ir_type[67] := "MODERN 4x12"
	
		$count := 0
		while ($count < 68)
			if ($count < 3)
				add_menu_item($hall_reverb,!ir_type[$count],$count)
			else
				if ($count < 6)
					add_menu_item($cathedral_reverb,!ir_type[$count],$count)
				else
					if ($count < 14)
						add_menu_item($club_reverb,!ir_type[$count],$count)
					else
						if ($count < 21)
							add_menu_item($room_reverb,!ir_type[$count],$count)
						else
							if ($count < 34)
							add_menu_item($l300_reverb,!ir_type[$count],$count)
							else
								if($count < 42)
									add_menu_item($quadstick_reverb,!ir_type[$count],$count)
								else
									if ($count < 52)
										add_menu_item($brt7_reverb,!ir_type[$count],$count)
									else
										if ($count < 62)
											add_menu_item($plate_reverb,!ir_type[$count],$count)
										else
											add_menu_item($cabinet_reverb,!ir_type[$count],$count)
										end if
									end if
								end if
							end if
						end if
					end if
				end if
			end if
			inc ($count)
		end while
		
		make_persistent($category_reverb)
		make_persistent($hall_reverb)
		make_persistent($cathedral_reverb)
		make_persistent($club_reverb)
		make_persistent($room_reverb)
		make_persistent($l300_reverb)
		make_persistent($quadstick_reverb)
		make_persistent($brt7_reverb)
		make_persistent($plate_reverb)
		make_persistent($cabinet_reverb)
		
		_read_persistent_var($category_reverb)
		_read_persistent_var($hall_reverb)
		_read_persistent_var($cathedral_reverb)
		_read_persistent_var($club_reverb)
		_read_persistent_var($room_reverb)
		_read_persistent_var($l300_reverb)
		_read_persistent_var($quadstick_reverb)
		_read_persistent_var($brt7_reverb)
		_read_persistent_var($plate_reverb)
		_read_persistent_var($cabinet_reverb)
		
		$count := 0
		while ($count < 9)
			if ($count = $category_reverb)
				set_control_par(%subcat_menu_id[$count],$CONTROL_PAR_HIDE,$HIDE_PART_NOTHING)
			else
				set_control_par(%subcat_menu_id[$count],$CONTROL_PAR_HIDE,$HIDE_WHOLE_CONTROL)
			end if
			inc ($count)
		end while
		
		set_control_par(get_ui_id($image_reverb),$CONTROL_PAR_PICTURE_STATE,$category_reverb)
		
		{/reverb functionality}		

		declare %bandfx_id[$NUM_BANDFX]
		%bandfx_id[0] := get_ui_id($backgr_bandfx)
		%bandfx_id[1] := get_ui_id($title_bandfx)
		%bandfx_id[2] := get_ui_id($lb_rev_bandfx)
		%bandfx_id[3] := get_ui_id($lb_cab_bandfx)
		%bandfx_id[4] := get_ui_id($lb_eq_bandfx)
		%bandfx_id[5] := get_ui_id($lb_rev_onoff_bandfx)
		%bandfx_id[6] := get_ui_id($lb_rev_room_bandfx)
		%bandfx_id[7] := get_ui_id($lb_rev_mix_bandfx)
		%bandfx_id[8] := get_ui_id($image_reverb)
		%bandfx_id[9] := get_ui_id($lb_cab_onoff_bandfx)
		%bandfx_id[10] := get_ui_id($lb_cab_type_bandfx)
		%bandfx_id[11] := get_ui_id($lb_cab_air_bandfx)
		%bandfx_id[12] := get_ui_id($cab_image_bandfx)
		%bandfx_id[13] := get_ui_id($lb_eq_onoff_bandfx)
		%bandfx_id[14] := get_ui_id($lb_eq_lo_bandfx)
		%bandfx_id[15] := get_ui_id($lb_eq_mid_bandfx)
		%bandfx_id[16] := get_ui_id($lb_eq_hi_bandfx)
		%bandfx_id[17] := get_ui_id($rev_amount_bandfx)
		%bandfx_id[18] := get_ui_id($cab_air_bandfx)
		%bandfx_id[19] := get_ui_id($eq_lo_bandfx)
		%bandfx_id[20] := get_ui_id($eq_mid_bandfx)
		%bandfx_id[21] := get_ui_id($eq_hi_bandfx)
		%bandfx_id[22] := get_ui_id($rev_bandfx)
		%bandfx_id[23] := get_ui_id($cab_bandfx)
		%bandfx_id[24] := get_ui_id($eq_bandfx)
		%bandfx_id[25] := get_ui_id($rev_onoff_bandfx)
		%bandfx_id[26] := get_ui_id($cab_onoff_bandfx)
		%bandfx_id[27] := get_ui_id($eq_onoff_bandfx)
		%bandfx_id[29] := get_ui_id($cab_type_bandfx)
		%bandfx_id[30] := get_ui_id($category_reverb)
		%bandfx_id[31] := get_ui_id($eq_background_bandfx)
		%bandfx_id[32] := get_ui_id($masterfx_bg_bandfx)
		%bandfx_id[33] := get_ui_id($hall_reverb)
		%bandfx_id[34] := get_ui_id($cathedral_reverb)
		%bandfx_id[35] := get_ui_id($club_reverb)
		%bandfx_id[36] := get_ui_id($room_reverb)
		%bandfx_id[37] := get_ui_id($l300_reverb)
		%bandfx_id[38] := get_ui_id($quadstick_reverb)
		%bandfx_id[39] := get_ui_id($brt7_reverb)
		%bandfx_id[40] := get_ui_id($plate_reverb)
		%bandfx_id[41] := get_ui_id($cabinet_reverb) 

		{POSITIONING OF INDIVIDUAL CONTROLS}
		
		move_control_px($backgr_bandfx,($GRID_X * 1) + 77, ($GRID_Y * 1) + 16) {possible to offset control in pixels}
		move_control_px($title_bandfx, ($GRID_X * 1) + 0, ($GRID_Y * 1) + 0)
		move_control_px($lb_rev_bandfx, ($GRID_X * 1) + 0, ($GRID_Y * 2) + 0)
		move_control_px($lb_cab_bandfx, ($GRID_X * 1) + 46, ($GRID_Y * 2) + 0)
		move_control_px($lb_eq_bandfx, ($GRID_X * 2) + 0, ($GRID_Y * 2) + 0)
		move_control_px($lb_rev_onoff_bandfx, ($GRID_X * 2) + 46, ($GRID_Y * 2) + 0)
		move_control_px($lb_rev_room_bandfx, ($GRID_X * 3) + 46, ($GRID_Y * 2) + 0)
		move_control_px($lb_rev_mix_bandfx, ($GRID_X * 3) + 85, ($GRID_Y * 2) + 9)
		move_control_px($image_reverb, ($GRID_X * 2) + 86, ($GRID_Y * 2) + 20)
		move_control_px($lb_cab_onoff_bandfx, ($GRID_X * 2) + 46, ($GRID_Y * 2) + 0)
		move_control_px($lb_cab_type_bandfx, ($GRID_X * 2) + 46, ($GRID_Y * 4) + 0)
		move_control_px($lb_cab_air_bandfx, ($GRID_X * 3) + 85, ($GRID_Y * 2) + 9)
		move_control_px($cab_image_bandfx, ($GRID_X * 2) + 89, ($GRID_Y * 2) + 12)
		move_control_px($lb_eq_onoff_bandfx, ($GRID_X * 2) + 46, ($GRID_Y * 2) + 0)
		move_control_px($lb_eq_lo_bandfx, ($GRID_X * 2) + 87, ($GRID_Y * 5) + 0)
		move_control_px($lb_eq_mid_bandfx, ($GRID_X * 3) + 41, ($GRID_Y * 5) + 0)
		move_control_px($lb_eq_hi_bandfx, ($GRID_X * 3) + 86, ($GRID_Y * 5) + 0)
		move_control_px($rev_amount_bandfx, ($GRID_X * 4) + 21, ($GRID_Y * 3) + 5)
		move_control_px($cab_air_bandfx, ($GRID_X * 4) + 21, ($GRID_Y * 3) + 5)
		move_control_px($eq_lo_bandfx, ($GRID_X * 3) + 35, ($GRID_Y * 2) + 12)
		move_control_px($eq_mid_bandfx, ($GRID_X * 3) + 80, ($GRID_Y * 2) + 12)
		move_control_px($eq_hi_bandfx, ($GRID_X * 4) + 33, ($GRID_Y * 2) + 12)
		move_control_px($rev_bandfx, ($GRID_X * 2) + 7, ($GRID_Y * 1) + 16)
		move_control_px($cab_bandfx, ($GRID_X * 2) + 7, ($GRID_Y * 3) + 5)
		move_control_px($eq_bandfx, ($GRID_X * 2) + 7, ($GRID_Y * 4) + 16)
		move_control_px($rev_onoff_bandfx, ($GRID_X * 1) + 79, ($GRID_Y * 1) + 18)
		move_control_px($cab_onoff_bandfx, ($GRID_X * 1) + 79, ($GRID_Y * 3) + 8)
		move_control_px($eq_onoff_bandfx, ($GRID_X * 1) + 79, ($GRID_Y * 4) + 20)
		move_control_px($cab_type_bandfx, ($GRID_X * 2) + 84, ($GRID_Y * 5) + 2)
		move_control_px($category_reverb, ($GRID_X * 2) + 84, ($GRID_Y * 2) + 6)
		move_control_px($eq_background_bandfx, ($GRID_X * 2) + 79, ($GRID_Y * 2) + 2)
		move_control_px($masterfx_bg_bandfx, ($GRID_X * 2) + 85, ($GRID_Y * 2) + 6)

		{VARIOUS ATTRIBUTES}

		set_control_par(%bandfx_id[19], $CONTROL_PAR_DEFAULT_VALUE, 500000)
		set_control_par(%bandfx_id[20], $CONTROL_PAR_DEFAULT_VALUE, 500000)
		set_control_par(%bandfx_id[21], $CONTROL_PAR_DEFAULT_VALUE, 500000)

		$rev_amount_bandfx := _get_engine_par ($ENGINE_PAR_SENDLEVEL_0, -1, 7, 1)
		$cab_air_bandfx := _get_engine_par ($ENGINE_PAR_CB_AIR, -1, $cab_slot, 1)
		$eq_lo_bandfx := _get_engine_par($ENGINE_PAR_GAIN1, -1, $meq_slot, 1)
		$eq_mid_bandfx := _get_engine_par($ENGINE_PAR_GAIN2, -1, $meq_slot, 1)
		$eq_hi_bandfx := _get_engine_par($ENGINE_PAR_GAIN3, -1, $meq_slot, 1)
		$rev_onoff_bandfx := (_get_engine_par($ENGINE_PAR_SEND_EFFECT_BYPASS, -1, $reverb_slot, 0) + 1) mod 2
		$cab_onoff_bandfx := (_get_engine_par($ENGINE_PAR_SEND_EFFECT_BYPASS, -1, $cab_slot, 1) + 1) mod 2
		$eq_onoff_bandfx := (_get_engine_par($ENGINE_PAR_SEND_EFFECT_BYPASS, -1, $meq_slot, 1) + 1) mod 2

		make_persistent($cab_type_bandfx)	 
		
		set_control_par_str(%bandfx_id[0], $CONTROL_PAR_TEXT, "")
		set_control_par_str(%bandfx_id[1], $CONTROL_PAR_TEXT, "")
		set_control_par_str(%bandfx_id[2], $CONTROL_PAR_TEXT, "")
		set_control_par_str(%bandfx_id[3], $CONTROL_PAR_TEXT, "")
		set_control_par_str(%bandfx_id[4], $CONTROL_PAR_TEXT, "")
		set_control_par_str(%bandfx_id[5], $CONTROL_PAR_TEXT, "")
		set_control_par_str(%bandfx_id[6], $CONTROL_PAR_TEXT, "")
		set_control_par_str(%bandfx_id[7], $CONTROL_PAR_TEXT, "AMOUNT")
		set_control_par_str(%bandfx_id[8], $CONTROL_PAR_TEXT, "")
		set_control_par_str(%bandfx_id[9], $CONTROL_PAR_TEXT, "")
		set_control_par_str(%bandfx_id[10], $CONTROL_PAR_TEXT, "")
		set_control_par_str(%bandfx_id[11], $CONTROL_PAR_TEXT, "AIR")
		set_control_par_str(%bandfx_id[12], $CONTROL_PAR_TEXT, "")
		set_control_par_str(%bandfx_id[13], $CONTROL_PAR_TEXT, "")
		set_control_par_str(%bandfx_id[14], $CONTROL_PAR_TEXT, "BASS")
		set_control_par_str(%bandfx_id[15], $CONTROL_PAR_TEXT, "MID")
		set_control_par_str(%bandfx_id[16], $CONTROL_PAR_TEXT, "TREBLE")
		set_control_par_str(%bandfx_id[31], $CONTROL_PAR_TEXT, "")
		set_control_par_str(%bandfx_id[32], $CONTROL_PAR_TEXT, "")

		add_menu_item ($cab_type_bandfx,"TWEED GREEN",0)
		add_menu_item ($cab_type_bandfx,"BRIT 60s",1)
		add_menu_item ($cab_type_bandfx,"CHIEF V-30",2)
		add_menu_item ($cab_type_bandfx,"CHIEF Back",3)
		add_menu_item ($cab_type_bandfx,"TWEED ALNICO",4)
		add_menu_item ($cab_type_bandfx,"TWEED FAR",5)
		add_menu_item ($cab_type_bandfx,"UK 70s",6)
		add_menu_item ($cab_type_bandfx,"UK 70s FAR",7)
		add_menu_item ($cab_type_bandfx,"BASS-WR",8)
		add_menu_item ($cab_type_bandfx,"BASS-WR HORN",9)
		add_menu_item ($cab_type_bandfx,"LESLIE",10)

		$count := 1
		while ($count < 17)
			set_control_par(%bandfx_id[$count], $CONTROL_PAR_WIDTH, ($GRID_X * 1))
			set_control_par(%bandfx_id[$count], $CONTROL_PAR_HEIGHT, ($GRID_Y * 1))
			set_control_par(%bandfx_id[$count], $CONTROL_PAR_HIDE, $HIDE_PART_BG)
			set_control_par(%bandfx_id[$count], $CONTROL_PAR_TEXT_ALIGNMENT, 1)
			set_control_par(%bandfx_id[$count], $CONTROL_PAR_FONT_TYPE, $FONT_ID)
			inc($count)
		end while
		
		set_control_par(%bandfx_id[8], $CONTROL_PAR_HIDE, $HIDE_PART_NOTHING)

		set_control_par_str(%bandfx_id[0], $CONTROL_PAR_PICTURE, "pv_band_master_tab_animation")
		set_control_par_str(%bandfx_id[31], $CONTROL_PAR_PICTURE, "pv_band_master_fx_eq_bg")
		set_control_par_str(%bandfx_id[32], $CONTROL_PAR_PICTURE, "pv_band_master_fx_bg")
		
		$count := 17
		while ($count < 19)
			set_control_par_str(%bandfx_id[$count], $CONTROL_PAR_PICTURE, "pv_band_knob_small")
			set_control_par(%bandfx_id[$count], $CONTROL_PAR_MOUSE_BEHAVIOUR, -500)
			inc($count)
		end while

		$count := 19
		while ($count < 22)
			set_control_par_str(%bandfx_id[$count], $CONTROL_PAR_PICTURE, "pv_band_master_fx_eq_fader")
			set_control_par(%bandfx_id[$count], $CONTROL_PAR_MOUSE_BEHAVIOUR, -1000)
			inc($count)
		end while
	
		set_control_par(%bandfx_id[22], $CONTROL_PAR_VALUE, 1)
		$count := 22
		while ($count < 25)
			set_control_par_str(%bandfx_id[$count], $CONTROL_PAR_PICTURE, "pv_vintage_drums_btn_trans")
			set_control_par(%bandfx_id[$count], $CONTROL_PAR_WIDTH, 51)
			set_control_par(%bandfx_id[$count], $CONTROL_PAR_HEIGHT, 31)
			set_control_par_str(%bandfx_id[$count], $CONTROL_PAR_TEXT, "")
			inc($count)
		end while

		$count := 25
		while ($count < 28)
			set_control_par_str(%bandfx_id[$count], $CONTROL_PAR_PICTURE, "pv_synth_button_small")
			set_control_par(%bandfx_id[$count], $CONTROL_PAR_WIDTH, 23)
			set_control_par(%bandfx_id[$count], $CONTROL_PAR_HEIGHT, 23)
			set_control_par_str(%bandfx_id[$count], $CONTROL_PAR_TEXT, "")
			inc($count)
		end while		

		set_control_par_str(%bandfx_id[29], $CONTROL_PAR_PICTURE, "pv_band_master_fx_rev_dropdown_1")
		set_control_par_str(%bandfx_id[30], $CONTROL_PAR_PICTURE, "pv_band_master_fx_rev_dropdown_2")
		set_control_par(%bandfx_id[29], $CONTROL_PAR_FONT_TYPE, $FONT_ID_2)
		set_control_par(%bandfx_id[30], $CONTROL_PAR_FONT_TYPE, $FONT_ID_2)

		_read_persistent_var($cab_type_bandfx)
		set_control_par_str(%bandfx_id[12], $CONTROL_PAR_PICTURE, "pv_global_cabinets")
		set_control_par(%bandfx_id[12], $CONTROL_PAR_PICTURE_STATE, $cab_type_bandfx)

		{Hide the Cabinet Elements}
		
		$count := 9
		while ($count < 13)
			set_control_par(%bandfx_id[$count], $CONTROL_PAR_HIDE, $HIDE_WHOLE_CONTROL)
			inc($count)
		end while
		set_control_par(%bandfx_id[18], $CONTROL_PAR_HIDE, $HIDE_WHOLE_CONTROL)
		set_control_par(%bandfx_id[29], $CONTROL_PAR_HIDE, $HIDE_WHOLE_CONTROL)

		{Hide the EQ Elements}
		
		$count := 13
		while ($count < 17)
			set_control_par(%bandfx_id[$count], $CONTROL_PAR_HIDE, $HIDE_WHOLE_CONTROL)
			inc($count)
		end while
		set_control_par(%bandfx_id[19], $CONTROL_PAR_HIDE, $HIDE_WHOLE_CONTROL)
		set_control_par(%bandfx_id[20], $CONTROL_PAR_HIDE, $HIDE_WHOLE_CONTROL)
		set_control_par(%bandfx_id[21], $CONTROL_PAR_HIDE, $HIDE_WHOLE_CONTROL)
		set_control_par(%bandfx_id[31], $CONTROL_PAR_HIDE, $HIDE_WHOLE_CONTROL)
		
		{Other}
		
		$count := 0
		while ($count < $NUM_bandfx)
			if ($count # 28)
			set_control_par (%bandfx_id[$count],$CONTROL_PAR_POS_X,get_control_par(%bandfx_id[$count],$CONTROL_PAR_POS_X)...
			+$ROOT_X + ($x_grid_bandfx - 2)*$GRID_X + $x_px_bandfx)
			
			set_control_par (%bandfx_id[$count],$CONTROL_PAR_POS_Y,get_control_par(%bandfx_id[$count],$CONTROL_PAR_POS_Y)...
			+$ROOT_Y + ($y_grid_bandfx - 2)*$GRID_Y + $y_px_bandfx) 
			end if
			inc($count)
		end while
		
		{Automation}
		
		set_control_par_str(get_ui_id($rev_onoff_bandfx),$CONTROL_PAR_AUTOMATION_NAME,"Reverb")
		set_control_par_str(get_ui_id($cab_onoff_bandfx),$CONTROL_PAR_AUTOMATION_NAME,"Cabinet")
		set_control_par_str(get_ui_id($eq_onoff_bandfx),$CONTROL_PAR_AUTOMATION_NAME,"EQ")
		
		set_control_par_str(get_ui_id($rev_amount_bandfx),$CONTROL_PAR_AUTOMATION_NAME,"Rv Amt")
		set_control_par_str(get_ui_id($cab_air_bandfx),$CONTROL_PAR_AUTOMATION_NAME,"Cb Air")
		set_control_par_str(get_ui_id($eq_lo_bandfx),$CONTROL_PAR_AUTOMATION_NAME,"Lo EQ")
		set_control_par_str(get_ui_id($eq_mid_bandfx),$CONTROL_PAR_AUTOMATION_NAME,"Mid EQ")
		set_control_par_str(get_ui_id($eq_hi_bandfx),$CONTROL_PAR_AUTOMATION_NAME,"Hi EQ")
		
		set_control_par_str(get_ui_id($rev_amount_bandfx),$CONTROL_PAR_LABEL,get_engine_par_disp($ENGINE_PAR_SENDLEVEL_0, -1, $sends_slot, 1) & " dB")
		set_control_par_str(get_ui_id($cab_air_bandfx),$CONTROL_PAR_LABEL,get_engine_par_disp($ENGINE_PAR_CB_AIR, -1, $cab_slot, 1) & " %")
		set_control_par_str(get_ui_id($eq_lo_bandfx),$CONTROL_PAR_LABEL,get_engine_par_disp($ENGINE_PAR_GAIN1, -1, $meq_slot, 1) & " dB")
		set_control_par_str(get_ui_id($eq_mid_bandfx),$CONTROL_PAR_LABEL,get_engine_par_disp($ENGINE_PAR_GAIN2, -1, $meq_slot, 1) & " dB")
		set_control_par_str(get_ui_id($eq_hi_bandfx),$CONTROL_PAR_LABEL,get_engine_par_disp($ENGINE_PAR_GAIN3, -1, $meq_slot, 1) & " dB")
		
	{*** END CONTROL GROUP "BANDFX"}
		
		{Control Help}
		
		set_control_help($solo_instr,"Solo: Turns the instrument to monophonic mode.")
		set_control_help($Position,"Position: Choose a playing position on the fret-board of the guitar.")
		set_control_help($Playing_knob,"Style: Choose a playing style. Mute enables palm muted samples, Harm. enables artifical harmonics, and Flag. natural harmonics. The natural harmonics are not mapped tonally on the keyboard, but according to their position on the guitar string.")
		set_control_help($Pickup,"Pickup: Emulates the sound of different pickup settings.")
		
		set_control_help($comp_fx,"Comp: Turns the compressor on and off.")
		set_control_help($wah_fx,"Wah: Sets the Wah-wah effect. The <Mod Wheel> setting allows you to control the wah effect using the modulation wheel. The <Auto> setting enables an LFO controlled wah effect.")
		set_control_help($distone_fx,"Dist Tone: Sets brightness of the distorted signal.")
		set_control_help($drive_fx,"Drive: Controls the drive amount of the distortion stomp box effect.")
		
		set_control_help($rev_bandfx, "Reverb: Displays the controls for the reverb effect.")
		set_control_help($cab_bandfx, "Cabinet: Displays the controls for the cabinet effect.")
		set_control_help($eq_bandfx, "EQ: Displays the controls for the master equalizer.")
		
		set_control_help($rev_onoff_bandfx, "Reverb On/Off: Turns the reverb effect on or off.")
		set_control_help($cab_onoff_bandfx, "Cabinet On/Off: Turns the cabinet effect on or off.")
		set_control_help($eq_onoff_bandfx, "EQ On/Off: Turns the master equalizer on or off.")
		
		set_control_help($rev_amount_bandfx, "Reverb Amount: Sets the send level of the reverb effect.")
		set_control_help($category_reverb, "Reverb IR Category: Select a category from which you can choose a specific impulse response from the second dropdown menu.")
		set_control_help($hall_reverb, "Concert Hall: Impulse responses in this category are capured from real spaces and represent a variety of large performance spaces.")
		set_control_help($cathedral_reverb, "Cathedral: A mix of real and modelled spaces that offer large and dense reverb tails.")
		set_control_help($club_reverb, "Club: Impulse responses in this category are capured from real spaces and represent a variety of small performance spaces.")
		set_control_help($room_reverb, "Room: Impulse responses in this category are capured from real spaces and cover a variety of smaller rooms.")
		set_control_help($l300_reverb, "L300: Impulse responses taken from the classic studio digital reverb.")
		set_control_help($plate_reverb, "Plate: Impulse responses from classic plate reverb effect units.")
		set_control_help($quadstick_reverb, "Quadstick: Impulse responses taken from the classic studio digital reverb.")
		set_control_help($brt7_reverb, "BRT 7: Impulse responses taken from the classic studio digital reverb.")
		set_control_help($cabinet_reverb, "Cabinet: Impulse responses of several cabinet types.")
		
		set_control_help($cab_air_bandfx,"Air: Controls the volume of the early reflections in the room response, adding space to the sound.")
		set_control_help($cab_type_bandfx,"Type: Selects the type of cabinet that is simulated.")
		
		set_control_help($eq_lo_bandfx, "Low EQ Gain: Controls the gain of the master output's lower frequencies.")
		set_control_help($eq_mid_bandfx, "Mid EQ Gain: Controls the gain of the master output's mid frequencies.")
		set_control_help($eq_hi_bandfx, "High EQ Gain: Controls the gain of the master output's higher frequencies.")
	
	
	if ($CREATE_AUTOMATION_ID = 1)
		

		set_control_par(get_ui_id($solo_instr),$CONTROL_PAR_AUTOMATION_ID,8)
		set_control_par(get_ui_id($Position),$CONTROL_PAR_AUTOMATION_ID,1)
		set_control_par(get_ui_id($Playing_Knob),$CONTROL_PAR_AUTOMATION_ID,2)
		set_control_par(get_ui_id($Pickup),$CONTROL_PAR_AUTOMATION_ID,0)
		
		set_control_par(get_ui_id($comp_fx),$CONTROL_PAR_AUTOMATION_ID,9)
		set_control_par(get_ui_id($wah_fx),$CONTROL_PAR_AUTOMATION_ID,17)
		set_control_par(get_ui_id($distone_fx),$CONTROL_PAR_AUTOMATION_ID,18)
		set_control_par(get_ui_id($drive_fx),$CONTROL_PAR_AUTOMATION_ID,3)	
				
		
		set_control_par(get_ui_id($rev_onoff_bandfx),$CONTROL_PAR_AUTOMATION_ID,12)
		set_control_par(get_ui_id($cab_onoff_bandfx),$CONTROL_PAR_AUTOMATION_ID,13)
		set_control_par(get_ui_id($eq_onoff_bandfx),$CONTROL_PAR_AUTOMATION_ID,14)
		set_control_par(get_ui_id($rev_amount_bandfx),$CONTROL_PAR_AUTOMATION_ID,4)
		set_control_par(get_ui_id($cab_air_bandfx),$CONTROL_PAR_AUTOMATION_ID,5)
		set_control_par(get_ui_id($eq_lo_bandfx),$CONTROL_PAR_AUTOMATION_ID,6)
		set_control_par(get_ui_id($eq_mid_bandfx),$CONTROL_PAR_AUTOMATION_ID,16)
		set_control_par(get_ui_id($eq_hi_bandfx),$CONTROL_PAR_AUTOMATION_ID,7)
	
	end if
	
end on

{*** CONTROL GROUP "INSTR" UI_CONTROL CALLBACKS}
on ui_control ($solo_instr)
	if ($solo_instr = 1)
		_pgs_set_key_val(SOLO_MODE,0,1)
	else
		_pgs_set_key_val(SOLO_MODE,0,0)
	end if
end on

on ui_control ($Playing_Knob)
	set_text($lb_Playing_Knob,!playing_names[$Playing_Knob])
	set_control_par_str(get_ui_id($Playing_Knob),$CONTROL_PAR_LABEL,!playing_names[$Playing_Knob])
	_pgs_set_key_val(STYLE,0,$Playing_Knob)
	
	if ($Playing_Knob = 2 or $Playing_Knob = 3 )
		_pgs_set_key_val(POS,0,0)
	else
		_pgs_set_key_val(POS,0,$Position)
	end if

	$last_time_2 := $ENGINE_UPTIME
	wait($wait_time * 1000)
	if($ENGINE_UPTIME - $last_time_2 > $wait_time -5)
		set_text ($lb_Playing_Knob,"STYLE")
	end if	
end on

on ui_control ($Position)
	if ($Playing_Knob = 3 or $Playing_Knob = 4 )
		exit
	else
		_pgs_set_key_val(POS,0,$Position)
	end if
	set_text($lb_Position,$Position)
	set_control_par_str(get_ui_id($Position),$CONTROL_PAR_LABEL,$Position)
	$last_time_1 := $ENGINE_UPTIME
	wait($wait_time * 1000)
	if($ENGINE_UPTIME - $last_time_1 > $wait_time -5)
		set_text ($lb_Position,"POSITION")
	end if	
end on

on ui_control ($Pickup)
	$count := 0
	while ($count < $NUM_GROUPS)
		_set_engine_par ($ENGINE_PAR_FREQ1,%pickup_settings[$Pickup*9],$count,$eq_slot,-1)
		_set_engine_par ($ENGINE_PAR_BW1,%pickup_settings[$Pickup*9+1],$count,$eq_slot,-1)
		_set_engine_par ($ENGINE_PAR_GAIN1,%pickup_settings[$Pickup*9+2],$count,$eq_slot,-1)
	
		_set_engine_par ($ENGINE_PAR_FREQ2,%pickup_settings[$Pickup*9+3],$count,$eq_slot,-1)
		_set_engine_par ($ENGINE_PAR_BW2,%pickup_settings[$Pickup*9+4],$count,$eq_slot,-1)
		_set_engine_par ($ENGINE_PAR_GAIN2,%pickup_settings[$Pickup*9+5],$count,$eq_slot,-1)
	
		_set_engine_par ($ENGINE_PAR_FREQ3,%pickup_settings[$Pickup*9+6],$count,$eq_slot,-1)
		_set_engine_par ($ENGINE_PAR_BW3,%pickup_settings[$Pickup*9+7],$count,$eq_slot,-1)
		_set_engine_par ($ENGINE_PAR_GAIN3,%pickup_settings[$Pickup*9+8],$count,$eq_slot,-1)
		inc($count)
	end while

	if ($Pickup = 0)
		set_text($lb_Pickup, "OFF")
		set_control_par_str(get_ui_id($Pickup),$CONTROL_PAR_LABEL,"Off")
	else
		set_text($lb_Pickup, $PICKUP)
		set_control_par_str(get_ui_id($Pickup),$CONTROL_PAR_LABEL,$Pickup)
	end if
	
	$last_time_3 := $ENGINE_UPTIME
	wait($wait_time * 1000)
	if($ENGINE_UPTIME - $last_time_3 > $wait_time -5)
		set_text ($lb_Pickup,"PICKUP")
	end if
end on
{*** END CONTROL GROUP "INSTR" UI_CONTROL CALLBACKS}

{*** CONTROL GROUP "FX" UI_CONTROL CALLBACKS}
on ui_control ($comp_fx)
		_set_engine_par($ENGINE_PAR_EFFECT_BYPASS, (($comp_fx + 1) mod 2), -1, $comp_slot, 1)
end on

on ui_control ($wah_fx)
	select ($wah_fx)
		case 0
			$count := 0
			while ($count < $NUM_GROUPS)
				_set_engine_par($ENGINE_PAR_EFFECT_BYPASS, 1, $count, $wah_flt_slot, -1)
				_set_engine_par ($ENGINE_PAR_MOD_TARGET_INTENSITY, 0, $count, find_mod($count, "CC_CUTOFF"), -1)
				_set_engine_par ($ENGINE_PAR_MOD_TARGET_INTENSITY, 0, $count, find_mod($count, "ENV FLW"),...
				find_target($count, find_mod($count, "ENV FLW"),"ENV FLW_CUTOFF"))
				if ($count < ($NUM_GROUPS - 1))
					_set_engine_par ($ENGINE_PAR_MOD_TARGET_INTENSITY, 150000, $count, find_mod($count, "LFO_SINE"),...
					find_target($count, find_mod($count, "LFO_SINE"),"LFO_SINE_PITCH"))
				end if
				set_text ($lb_wah_fx,"OFF")
				set_control_par_str(get_ui_id($wah_fx),$CONTROL_PAR_LABEL,"Off")
				inc($count)
			end while
		case 1
			$count := 0
			while ($count < $NUM_GROUPS)
				_set_engine_par($ENGINE_PAR_EFFECT_BYPASS, 0, $count, $wah_flt_slot, -1)
				_set_engine_par ($ENGINE_PAR_MOD_TARGET_INTENSITY, 600000, $count, find_mod($count, "CC_CUTOFF"), -1)
				_set_engine_par ($ENGINE_PAR_MOD_TARGET_INTENSITY, 0, $count, find_mod($count, "ENV FLW"),...
				find_target($count, find_mod($count, "ENV FLW"), "ENV FLW_CUTOFF"))
				if ($count < ($NUM_GROUPS - 1))
					_set_engine_par ($ENGINE_PAR_MOD_TARGET_INTENSITY, 0, $count, find_mod($count, "LFO_SINE"),...
					find_target($count, find_mod($count, "LFO_SINE"),"LFO_SINE_PITCH"))
				end if
				set_text ($lb_wah_fx,"MOD WHEEL")
				set_control_par_str(get_ui_id($wah_fx),$CONTROL_PAR_LABEL,"Mod Wheel")
				inc($count)
			end while
		case 2
			$count := 0
			while ($count < $NUM_GROUPS)
				_set_engine_par($ENGINE_PAR_EFFECT_BYPASS, 0, $count, $wah_flt_slot, -1)
				_set_engine_par ($ENGINE_PAR_MOD_TARGET_INTENSITY, 0, $count, find_mod($count, "CC_CUTOFF"), -1)
				_set_engine_par ($ENGINE_PAR_MOD_TARGET_INTENSITY, 900000, $count, find_mod($count, "ENV FLW"),...
				find_target($count, find_mod($count, "ENV FLW"), "ENV FLW_CUTOFF"))
				if ($count < ($NUM_GROUPS - 1))
					_set_engine_par ($ENGINE_PAR_MOD_TARGET_INTENSITY, 150000, $count, find_mod($count, "LFO_SINE"),...
					find_target($count, find_mod($count, "LFO_SINE"),"LFO_SINE_PITCH"))
				end if
				set_text ($lb_wah_fx,"AUTO")
				set_control_par_str(get_ui_id($wah_fx),$CONTROL_PAR_LABEL,"Auto")
				inc($count)
			end while
	end select

	$last_time_4 := $ENGINE_UPTIME
	wait($wait_time * 1000)
	if($ENGINE_UPTIME - $last_time_4 > $wait_time -5)
		set_text ($lb_wah_fx,"WAH")
	end if
end on

on ui_control ($drive_fx)
	if ($drive_fx = 0)
		_set_engine_par ($ENGINE_PAR_EFFECT_BYPASS, 1, -1, $skreamer_slot, 1)
	else
		_set_engine_par ($ENGINE_PAR_EFFECT_BYPASS, 0, -1, $skreamer_slot, 1)
		_set_engine_par ($ENGINE_PAR_SK_DRIVE, $drive_fx, -1, $skreamer_slot, 1)
	end if
	set_control_par_str(get_ui_id($drive_fx),$CONTROL_PAR_LABEL,get_engine_par_disp($ENGINE_PAR_SK_DRIVE, -1, $skreamer_slot, 1) & " %")
end on

on ui_control ($distone_fx)
	_set_engine_par ($ENGINE_PAR_SK_TONE, $distone_fx, -1, $skreamer_slot, 1)
	set_control_par_str(get_ui_id($distone_fx),$CONTROL_PAR_LABEL,get_engine_par_disp($ENGINE_PAR_SK_TONE, -1, $skreamer_slot, 1) & " %")
end on
{*** END CONTROL GROUP "FX" UI_CONTROL CALLBACKS}

{*** CONTROL GROUP "BANDFX" UI_CONTROL CALLBACKS}
on ui_control ($rev_bandfx)
	if ($rev_bandfx = 0)
		$rev_bandfx := 1
	else
		$cab_bandfx := 0
		$eq_bandfx := 0
		$count := 5
		while ($count < 9)
			set_control_par(%bandfx_id[$count], $CONTROL_PAR_HIDE, $HIDE_PART_BG)
			set_control_par(%bandfx_id[$count+4], $CONTROL_PAR_HIDE, $HIDE_WHOLE_CONTROL)
			set_control_par(%bandfx_id[$count+8], $CONTROL_PAR_HIDE, $HIDE_WHOLE_CONTROL)
			inc($count)
		end while
		set_control_par(%bandfx_id[8], $CONTROL_PAR_HIDE, $HIDE_PART_NOTHING)
		set_control_par(%bandfx_id[17], $CONTROL_PAR_HIDE, $HIDE_PART_NOTHING)
		set_control_par(%bandfx_id[30], $CONTROL_PAR_HIDE, $HIDE_PART_NOTHING)
		set_control_par(%bandfx_id[32], $CONTROL_PAR_HIDE, $HIDE_PART_NOTHING)
		set_control_par(%bandfx_id[18], $CONTROL_PAR_HIDE, $HIDE_WHOLE_CONTROL)
		set_control_par(%bandfx_id[29], $CONTROL_PAR_HIDE, $HIDE_WHOLE_CONTROL)
		set_control_par(%bandfx_id[19], $CONTROL_PAR_HIDE, $HIDE_WHOLE_CONTROL)
		set_control_par(%bandfx_id[20], $CONTROL_PAR_HIDE, $HIDE_WHOLE_CONTROL)
		set_control_par(%bandfx_id[21], $CONTROL_PAR_HIDE, $HIDE_WHOLE_CONTROL)
		set_control_par(%bandfx_id[31], $CONTROL_PAR_HIDE, $HIDE_WHOLE_CONTROL)
		set_control_par(%bandfx_id[0], $CONTROL_PAR_PICTURE_STATE, 0)

		$count := 0
		while ($count < 9)
			if ($count = $category_reverb)
				set_control_par(%subcat_menu_id[$count],$CONTROL_PAR_HIDE,$HIDE_PART_NOTHING)
			else
				set_control_par(%subcat_menu_id[$count],$CONTROL_PAR_HIDE,$HIDE_WHOLE_CONTROL)
			end if
			inc ($count)
		end while
	end if		
end on

on ui_control ($cab_bandfx)
	if ($cab_bandfx = 0)
		$cab_bandfx := 1
	else
		$rev_bandfx := 0
		$eq_bandfx := 0
		$count := 5
		while ($count < 9)
			set_control_par(%bandfx_id[$count], $CONTROL_PAR_HIDE, $HIDE_WHOLE_CONTROL)
			set_control_par(%bandfx_id[$count+4], $CONTROL_PAR_HIDE, $HIDE_PART_BG)
			set_control_par(%bandfx_id[$count+8], $CONTROL_PAR_HIDE, $HIDE_WHOLE_CONTROL)
			inc($count)
		end while
		set_control_par(%bandfx_id[12], $CONTROL_PAR_HIDE, $HIDE_PART_NOTHING)
		set_control_par(%bandfx_id[17], $CONTROL_PAR_HIDE, $HIDE_WHOLE_CONTROL)
		set_control_par(%bandfx_id[30], $CONTROL_PAR_HIDE, $HIDE_WHOLE_CONTROL)
		set_control_par(%bandfx_id[32], $CONTROL_PAR_HIDE, $HIDE_PART_NOTHING)
		set_control_par(%bandfx_id[18], $CONTROL_PAR_HIDE, $HIDE_PART_NOTHING)
		set_control_par(%bandfx_id[29], $CONTROL_PAR_HIDE, $HIDE_PART_NOTHING)
		set_control_par(%bandfx_id[19], $CONTROL_PAR_HIDE, $HIDE_WHOLE_CONTROL)
		set_control_par(%bandfx_id[20], $CONTROL_PAR_HIDE, $HIDE_WHOLE_CONTROL)
		set_control_par(%bandfx_id[21], $CONTROL_PAR_HIDE, $HIDE_WHOLE_CONTROL)
		set_control_par(%bandfx_id[31], $CONTROL_PAR_HIDE, $HIDE_WHOLE_CONTROL)
		set_control_par(%bandfx_id[0], $CONTROL_PAR_PICTURE_STATE, 1)

		$count := 0
		while ($count < 9)
			set_control_par(%subcat_menu_id[$count],$CONTROL_PAR_HIDE,$HIDE_WHOLE_CONTROL)
			inc ($count)
		end while
	end if	  
end on

on ui_control ($eq_bandfx)
	if ($eq_bandfx = 0)
		$eq_bandfx := 1
	else
		$rev_bandfx := 0
		$cab_bandfx := 0
		$count := 5
		while ($count < 9)
			set_control_par(%bandfx_id[$count], $CONTROL_PAR_HIDE, $HIDE_WHOLE_CONTROL)
			set_control_par(%bandfx_id[$count+4], $CONTROL_PAR_HIDE, $HIDE_WHOLE_CONTROL)
			set_control_par(%bandfx_id[$count+8], $CONTROL_PAR_HIDE, $HIDE_PART_BG)
			inc($count)
		end while
		set_control_par(%bandfx_id[17], $CONTROL_PAR_HIDE, $HIDE_WHOLE_CONTROL)
		set_control_par(%bandfx_id[30], $CONTROL_PAR_HIDE, $HIDE_WHOLE_CONTROL)
		set_control_par(%bandfx_id[32], $CONTROL_PAR_HIDE, $HIDE_WHOLE_CONTROL)
		set_control_par(%bandfx_id[18], $CONTROL_PAR_HIDE, $HIDE_WHOLE_CONTROL)
		set_control_par(%bandfx_id[29], $CONTROL_PAR_HIDE, $HIDE_WHOLE_CONTROL)
		set_control_par(%bandfx_id[19], $CONTROL_PAR_HIDE, $HIDE_PART_NOTHING)
		set_control_par(%bandfx_id[20], $CONTROL_PAR_HIDE, $HIDE_PART_NOTHING)
		set_control_par(%bandfx_id[21], $CONTROL_PAR_HIDE, $HIDE_PART_NOTHING)
		set_control_par(%bandfx_id[31], $CONTROL_PAR_HIDE, $HIDE_PART_NOTHING)
		set_control_par(%bandfx_id[0], $CONTROL_PAR_PICTURE_STATE, 2)

		$count := 0
		while ($count < 9)
			set_control_par(%subcat_menu_id[$count],$CONTROL_PAR_HIDE,$HIDE_WHOLE_CONTROL)
			inc ($count)
		end while
	end if	  
end on

{reverb functionality}
on ui_control ($rev_onoff_bandfx)
	_set_engine_par($ENGINE_PAR_SEND_EFFECT_BYPASS, (($rev_onoff_bandfx + 1) mod 2), -1, $reverb_slot, 0)
end on

on ui_control ($category_reverb)
  
	$count := 0
	while ($count < 9)
		if ($count = $category_reverb)
			set_control_par(%subcat_menu_id[$count],$CONTROL_PAR_HIDE,$HIDE_PART_NOTHING)
		else
			set_control_par(%subcat_menu_id[$count],$CONTROL_PAR_HIDE,$HIDE_WHOLE_CONTROL)
		end if
		inc ($count)
	end while
	
	set_control_par(get_ui_id($image_reverb),$CONTROL_PAR_PICTURE_STATE,$category_reverb)
	
	_load_ir_sample(_get_folder($GET_FOLDER_FACTORY_DIR)&... 
	!ir_path[%offset_reverb[$category_reverb]+get_control_par...
	(%subcat_menu_id[$category_reverb],$CONTROL_PAR_VALUE)],$reverb_slot,0) 
	{change 0 to 1 if reverb is on insert effect}
  
end on

on ui_control ($hall_reverb)
  
	_load_ir_sample(_get_folder($GET_FOLDER_FACTORY_DIR)...
	& !ir_path[$hall_reverb],$reverb_slot,0)
  
end on

on ui_control ($cathedral_reverb)
  
	_load_ir_sample(_get_folder($GET_FOLDER_FACTORY_DIR)...
	& !ir_path[$cathedral_reverb],$reverb_slot,0)
  
end on

on ui_control ($club_reverb)
  
	_load_ir_sample(_get_folder($GET_FOLDER_FACTORY_DIR)...
	& !ir_path[$club_reverb],$reverb_slot,0)
  
end on

on ui_control ($room_reverb)
  
	_load_ir_sample(_get_folder($GET_FOLDER_FACTORY_DIR)...
	& !ir_path[$room_reverb],$reverb_slot,0)
  
end on

on ui_control ($l300_reverb)
  
	_load_ir_sample(_get_folder($GET_FOLDER_FACTORY_DIR)...
	& !ir_path[$l300_reverb],$reverb_slot,0)
  
end on

on ui_control ($quadstick_reverb)
  
	_load_ir_sample(_get_folder($GET_FOLDER_FACTORY_DIR)...
	& !ir_path[$quadstick_reverb],$reverb_slot,0)
  
end on

on ui_control ($brt7_reverb)
  
	_load_ir_sample(_get_folder($GET_FOLDER_FACTORY_DIR)...
	& !ir_path[$brt7_reverb],$reverb_slot,0)
  
end on

on ui_control ($plate_reverb)
  
	_load_ir_sample(_get_folder($GET_FOLDER_FACTORY_DIR)...
	& !ir_path[$plate_reverb],$reverb_slot,0)
  
end on

on ui_control ($cabinet_reverb)
  
	_load_ir_sample(_get_folder($GET_FOLDER_FACTORY_DIR)...
	& !ir_path[$cabinet_reverb],$reverb_slot,0)
  
end on

on ui_control ($rev_amount_bandfx)
	set_engine_par ($ENGINE_PAR_SENDLEVEL_0, $rev_amount_bandfx, -1, $sends_slot, 1)
	set_control_par_str(get_ui_id($rev_amount_bandfx),$CONTROL_PAR_LABEL,get_engine_par_disp($ENGINE_PAR_SENDLEVEL_0, -1, $sends_slot, 1) & " dB")
end on

{cab functionality}
on ui_control ($cab_onoff_bandfx)
	set_engine_par ($ENGINE_PAR_EFFECT_BYPASS, (($cab_onoff_bandfx + 1) mod 2), -1, $cab_slot, 1)
end on

on ui_control ($cab_type_bandfx)
	set_engine_par($ENGINE_PAR_CABINET_TYPE, $cab_type_bandfx, -1, $cab_slot, 1)
	set_control_par(%bandfx_id[12], $CONTROL_PAR_PICTURE_STATE, $cab_type_bandfx)
end on

on ui_control ($cab_air_bandfx)
	set_engine_par ($ENGINE_PAR_CB_AIR,$cab_air_bandfx,-1,$cab_slot,1)
	set_control_par_str(get_ui_id($cab_air_bandfx),$CONTROL_PAR_LABEL,get_engine_par_disp($ENGINE_PAR_CB_AIR, -1, $cab_slot, 1) & " %")
end on

{eq functionality}
on ui_control ($eq_onoff_bandfx)
	set_engine_par ($ENGINE_PAR_EFFECT_BYPASS, (($eq_onoff_bandfx + 1) mod 2), -1, $meq_slot, 1)
end on

on ui_control ($eq_lo_bandfx)
	set_engine_par($ENGINE_PAR_GAIN1, $eq_lo_bandfx, -1, $meq_slot, 1)
	set_control_par_str(get_ui_id($eq_lo_bandfx),$CONTROL_PAR_LABEL,get_engine_par_disp($ENGINE_PAR_GAIN1, -1, $meq_slot, 1) & " dB")
end on

on ui_control ($eq_mid_bandfx)
	set_engine_par($ENGINE_PAR_GAIN2, $eq_mid_bandfx, -1, $meq_slot, 1)
	set_control_par_str(get_ui_id($eq_mid_bandfx),$CONTROL_PAR_LABEL,get_engine_par_disp($ENGINE_PAR_GAIN2, -1, $meq_slot, 1) & " dB")
end on

on ui_control ($eq_hi_bandfx)
	set_engine_par($ENGINE_PAR_GAIN3, $eq_hi_bandfx, -1, $meq_slot, 1)
	set_control_par_str(get_ui_id($eq_hi_bandfx),$CONTROL_PAR_LABEL,get_engine_par_disp($ENGINE_PAR_GAIN3, -1, $meq_slot, 1) & " dB")
end on
{*** END CONTROL GROUP "BANDFX" UI_CONTROL CALLBACKS}