Kontakt scripting

EFFECTS PRO KONTAKT SCRIPTING

This is the script of effects control (Reverb-Delay) for peoples Interested in programming who want to benefit from it. Using it or modifying it as needed or create his own kontakt library to edit your music.
Is a very cool and professional script to controlling all reverb and delay elements with intelligent frequency display.

(begining of script)


on init
  message("")   
  make_perfview
  set_ui_height_px(172) 
  set_script_title("EFFECTS")
  set_control_par_str($INST_ICON_ID,$CONTROL_PAR_PICTURE,"pv_choir_logo")
  set_control_par_str($INST_WALLPAPER_ID,$CONTROL_PAR_PICTURE,"background")
 
  declare $i
  declare $wait_time := 500
  declare %lb_last_time[1]
  declare $a
  declare $b
  declare $CC_64
  declare $old_time
  declare $old_time_2
  declare $wwait
 
 { ---------------------------declare revervb-----------------------------------}
    declare ui_label $RV_PreDly_Label (2,6)
    set_control_par_str(get_ui_id($RV_PreDly_Label),$CONTROL_PAR_TEXT,"PreDly")
    set_control_par(get_ui_id($RV_PreDly_Label),$CONTROL_PAR_HIDE,$HIDE_PART_BG)
    set_control_par(get_ui_id($RV_PreDly_Label),$CONTROL_PAR_FONT_TYPE,13)
    set_control_par(get_ui_id($RV_PreDly_Label),$CONTROL_PAR_TEXT_ALIGNMENT,1)

  declare ui_slider $RV_PreDly (0,1000000)
    set_control_par(get_ui_id($RV_PreDly),$CONTROL_PAR_DEFAULT_VALUE,290000) 
    set_control_par_str(get_ui_id($RV_PreDly),$CONTROL_PAR_PICTURE,"pv_urban_knob_orange")
    set_control_par(get_ui_id($RV_PreDly),$CONTROL_PAR_MOUSE_BEHAVIOUR,-750)
    $i := 0
  while($i < $NUM_GROUPS)  
    $RV_PreDly := get_engine_par($ENGINE_PAR_MOD_TARGET_INTENSITY,$i,...
    find_mod($i,"CV_FREQUENCY"),-1)
    inc($i)
  end while
  declare ui_label $RV_Size_Label (2,6)
    set_control_par_str(get_ui_id($RV_Size_Label),$CONTROL_PAR_TEXT,"Size")
    set_control_par(get_ui_id($RV_Size_Label),$CONTROL_PAR_HIDE,$HIDE_PART_BG)
    set_control_par(get_ui_id($RV_Size_Label),$CONTROL_PAR_FONT_TYPE,13)
    set_control_par(get_ui_id($RV_Size_Label),$CONTROL_PAR_TEXT_ALIGNMENT,1)

  declare ui_slider $RV_Size (0,1000000)
    set_control_par(get_ui_id($RV_Size),$CONTROL_PAR_DEFAULT_VALUE,290000) 
    set_control_par_str(get_ui_id($RV_Size),$CONTROL_PAR_PICTURE,"pv_urban_knob_orange")
    set_control_par(get_ui_id($RV_Size),$CONTROL_PAR_MOUSE_BEHAVIOUR,-750)
    $i := 0
  while($i < $NUM_GROUPS)  
    $RV_Size := get_engine_par($ENGINE_PAR_MOD_TARGET_INTENSITY,$i,...
    find_mod($i,"CV_FREQUENCY"),-1)
    inc($i)
  end while
  declare ui_label $RV_Colour_Label (2,6)
    set_control_par_str(get_ui_id($RV_Colour_Label),$CONTROL_PAR_TEXT,"Colour")
    set_control_par(get_ui_id($RV_Colour_Label),$CONTROL_PAR_HIDE,$HIDE_PART_BG)
    set_control_par(get_ui_id($RV_Colour_Label),$CONTROL_PAR_FONT_TYPE,13)
    set_control_par(get_ui_id($RV_Colour_Label),$CONTROL_PAR_TEXT_ALIGNMENT,1)

  declare ui_slider $RV_Colour (0,1000000)
    set_control_par(get_ui_id($RV_Colour),$CONTROL_PAR_DEFAULT_VALUE,290000) 
    set_control_par_str(get_ui_id($RV_Colour),$CONTROL_PAR_PICTURE,"pv_urban_knob_orange")
    set_control_par(get_ui_id($RV_Colour),$CONTROL_PAR_MOUSE_BEHAVIOUR,-750)
    $i := 0
  while($i < $NUM_GROUPS)  
    $RV_Colour := get_engine_par($ENGINE_PAR_MOD_TARGET_INTENSITY,$i,...
    find_mod($i,"CV_FREQUENCY"),-1)
    inc($i)
  end while
   declare ui_label $RV_Damping_Label (2,6)
    set_control_par_str(get_ui_id($RV_Damping_Label),$CONTROL_PAR_TEXT,"Damping")
    set_control_par(get_ui_id($RV_Damping_Label),$CONTROL_PAR_HIDE,$HIDE_PART_BG)
    set_control_par(get_ui_id($RV_Damping_Label),$CONTROL_PAR_FONT_TYPE,13)
    set_control_par(get_ui_id($RV_Damping_Label),$CONTROL_PAR_TEXT_ALIGNMENT,1)

  declare ui_slider $RV_Damping (0,1000000)
    set_control_par(get_ui_id($RV_Damping),$CONTROL_PAR_DEFAULT_VALUE,290000) 
    set_control_par_str(get_ui_id($RV_Damping),$CONTROL_PAR_PICTURE,"pv_urban_knob_orange")
    set_control_par(get_ui_id($RV_Damping),$CONTROL_PAR_MOUSE_BEHAVIOUR,-750)
    $i := 0
  while($i < $NUM_GROUPS)  
    $RV_Damping := get_engine_par($ENGINE_PAR_MOD_TARGET_INTENSITY,$i,...
    find_mod($i,"CV_FREQUENCY"),-1)
    inc($i)
  end while
   declare ui_label $RV_Stereo_Label (2,6)
    set_control_par_str(get_ui_id($RV_Stereo_Label),$CONTROL_PAR_TEXT,"Send")
    set_control_par(get_ui_id($RV_Stereo_Label),$CONTROL_PAR_HIDE,$HIDE_PART_BG)
    set_control_par(get_ui_id($RV_Stereo_Label),$CONTROL_PAR_FONT_TYPE,13)
    set_control_par(get_ui_id($RV_Stereo_Label),$CONTROL_PAR_TEXT_ALIGNMENT,1)

  declare ui_slider $RV_Stereo (0,1000000)
    set_control_par(get_ui_id($RV_Stereo),$CONTROL_PAR_DEFAULT_VALUE,290000) 
    set_control_par_str(get_ui_id($RV_Stereo),$CONTROL_PAR_PICTURE,"pv_urban_knob_orange")
    set_control_par(get_ui_id($RV_Stereo),$CONTROL_PAR_MOUSE_BEHAVIOUR,-750)
    $i := 0
  while($i < $NUM_GROUPS)  
    $RV_Stereo := get_engine_par($ENGINE_PAR_MOD_TARGET_INTENSITY,$i,...
    find_mod($i,"CV_FREQUENCY"),-1)
    inc($i)
  end while
  declare ui_label $RV_Bypass_Label (2,6)
    set_control_par_str(get_ui_id($RV_Bypass_Label),$CONTROL_PAR_TEXT,"Reverb")
    set_control_par(get_ui_id($RV_Bypass_Label),$CONTROL_PAR_HIDE,$HIDE_PART_BG)
    set_control_par(get_ui_id($RV_Bypass_Label),$CONTROL_PAR_FONT_TYPE,13)
    set_control_par(get_ui_id($RV_Bypass_Label),$CONTROL_PAR_TEXT_ALIGNMENT,1)
   
    declare ui_button $RV_Bypass
    set_control_par_str(get_ui_id($RV_Bypass),$CONTROL_PAR_PICTURE,"pv_synth_button_small")  
    set_control_help($RV_Bypass,"") 
    set_control_par(get_ui_id($RV_Bypass),$CONTROL_PAR_WIDTH,26)
    set_control_par(get_ui_id($RV_Bypass),$CONTROL_PAR_WIDTH,62)
    set_control_par_str(get_ui_id($RV_Bypass),$CONTROL_PAR_TEXT,"")
    make_persistent($RV_Bypass)
    _read_persistent_var($RV_Bypass)
    $RV_Bypass := 1

  move_control_px($RV_PreDly_Label, 65, 50)
  move_control_px($RV_PreDly,90,15)
  move_control_px($RV_Size_Label, 120, 50)
  move_control_px($RV_Size,145,15)
  move_control_px($RV_Colour_Label, 175, 50)
  move_control_px($RV_Colour,200,15)
  move_control_px($RV_Damping_Label, 230, 50)
  move_control_px($RV_Damping,255,15)
  move_control_px($RV_Stereo_Label, 285, 50)
  move_control_px($RV_Stereo,310,15)
  move_control_px($RV_Bypass_Label,2,50)

  move_control_px($RV_Bypass,35,25)

{ ---------------------------declare delay-----------------------------------}

 declare ui_label $DLY_Time_Label (2,6)
    set_control_par_str(get_ui_id($DLY_Time_Label),$CONTROL_PAR_TEXT,"Time")
    set_control_par(get_ui_id($DLY_Time_Label),$CONTROL_PAR_HIDE,$HIDE_PART_BG)
    set_control_par(get_ui_id($DLY_Time_Label),$CONTROL_PAR_FONT_TYPE,13)
    set_control_par(get_ui_id($DLY_Time_Label),$CONTROL_PAR_TEXT_ALIGNMENT,1)

  declare ui_slider $DLY_Time (0,1000000)
    set_control_par(get_ui_id($DLY_Time),$CONTROL_PAR_DEFAULT_VALUE,290000) 
    set_control_par_str(get_ui_id($DLY_Time),$CONTROL_PAR_PICTURE,"pv_urban_knob_orange")
    set_control_par(get_ui_id($DLY_Time),$CONTROL_PAR_MOUSE_BEHAVIOUR,-750)
    $i := 0
  while($i < $NUM_GROUPS)  
    $DLY_Time := get_engine_par($ENGINE_PAR_MOD_TARGET_INTENSITY,$i,...
    find_mod($i,"CV_FREQUENCY"),-1)
    inc($i)
  end while
  declare ui_label $DLY_Damping_Label (2,6)
    set_control_par_str(get_ui_id($DLY_Damping_Label),$CONTROL_PAR_TEXT,"Damping")
    set_control_par(get_ui_id($DLY_Damping_Label),$CONTROL_PAR_HIDE,$HIDE_PART_BG)
    set_control_par(get_ui_id($DLY_Damping_Label),$CONTROL_PAR_FONT_TYPE,13)
    set_control_par(get_ui_id($DLY_Damping_Label),$CONTROL_PAR_TEXT_ALIGNMENT,1)

  declare ui_slider $DLY_Damping (0,1000000)
    set_control_par(get_ui_id($DLY_Damping),$CONTROL_PAR_DEFAULT_VALUE,290000) 
    set_control_par_str(get_ui_id($DLY_Damping),$CONTROL_PAR_PICTURE,"pv_urban_knob_orange")
    set_control_par(get_ui_id($DLY_Damping),$CONTROL_PAR_MOUSE_BEHAVIOUR,-750)
    $i := 0
  while($i < $NUM_GROUPS)  
    $DLY_Damping := get_engine_par($ENGINE_PAR_MOD_TARGET_INTENSITY,$i,...
    find_mod($i,"CV_FREQUENCY"),-1)
    inc($i)
  end while
  declare ui_label $DLY_Pan_Label (2,6)
    set_control_par_str(get_ui_id($DLY_Pan_Label),$CONTROL_PAR_TEXT,"Pan")
    set_control_par(get_ui_id($DLY_Pan_Label),$CONTROL_PAR_HIDE,$HIDE_PART_BG)
    set_control_par(get_ui_id($DLY_Pan_Label),$CONTROL_PAR_FONT_TYPE,13)
    set_control_par(get_ui_id($DLY_Pan_Label),$CONTROL_PAR_TEXT_ALIGNMENT,1)

  declare ui_slider $DLY_Pan (0,1000000)
    set_control_par(get_ui_id($DLY_Pan),$CONTROL_PAR_DEFAULT_VALUE,290000) 
    set_control_par_str(get_ui_id($DLY_Pan),$CONTROL_PAR_PICTURE,"pv_urban_knob_orange")
    set_control_par(get_ui_id($DLY_Pan),$CONTROL_PAR_MOUSE_BEHAVIOUR,-750)
    $i := 0
  while($i < $NUM_GROUPS)  
    $DLY_Pan := get_engine_par($ENGINE_PAR_MOD_TARGET_INTENSITY,$i,...
    find_mod($i,"CV_FREQUENCY"),-1)
    inc($i)
  end while
  declare ui_label $DLY_Feedb_Label (2,6)
    set_control_par_str(get_ui_id($DLY_Feedb_Label),$CONTROL_PAR_TEXT,"Feedb")
    set_control_par(get_ui_id($DLY_Feedb_Label),$CONTROL_PAR_HIDE,$HIDE_PART_BG)
    set_control_par(get_ui_id($DLY_Feedb_Label),$CONTROL_PAR_FONT_TYPE,13)
    set_control_par(get_ui_id($DLY_Feedb_Label),$CONTROL_PAR_TEXT_ALIGNMENT,1)

  declare ui_slider $DLY_Feedb (0,1000000)
    set_control_par(get_ui_id($DLY_Feedb),$CONTROL_PAR_DEFAULT_VALUE,290000) 
    set_control_par_str(get_ui_id($DLY_Feedb),$CONTROL_PAR_PICTURE,"pv_urban_knob_orange")
    set_control_par(get_ui_id($DLY_Feedb),$CONTROL_PAR_MOUSE_BEHAVIOUR,-750)
    $i := 0
  while($i < $NUM_GROUPS)  
    $DLY_Feedb := get_engine_par($ENGINE_PAR_MOD_TARGET_INTENSITY,$i,...
    find_mod($i,"CV_FREQUENCY"),-1)
    inc($i)
  end while
  declare ui_label $Stereo_Send_Label (2,6)
    set_control_par_str(get_ui_id($Stereo_Send_Label),$CONTROL_PAR_TEXT,"Send")
    set_control_par(get_ui_id($Stereo_Send_Label),$CONTROL_PAR_HIDE,$HIDE_PART_BG)
    set_control_par(get_ui_id($Stereo_Send_Label),$CONTROL_PAR_FONT_TYPE,13)
    set_control_par(get_ui_id($Stereo_Send_Label),$CONTROL_PAR_TEXT_ALIGNMENT,1)

  declare ui_slider $Stereo_Send (0,1000000)
    set_control_par(get_ui_id($Stereo_Send),$CONTROL_PAR_DEFAULT_VALUE,630000) 
    set_control_par_str(get_ui_id($Stereo_Send),$CONTROL_PAR_PICTURE,"pv_urban_knob_orange")
    set_control_par(get_ui_id($Stereo_Send),$CONTROL_PAR_MOUSE_BEHAVIOUR,-750)
    $i := 0
  while($i < $NUM_GROUPS)  
    $Stereo_Send := get_engine_par($ENGINE_PAR_MOD_TARGET_INTENSITY,$i,...
    find_mod($i,"CV_FREQUENCY"),-1)
    inc($i)
  end while

  declare ui_label $DLY_Bypass_Label (2,6)
    set_control_par_str(get_ui_id($DLY_Bypass_Label),$CONTROL_PAR_TEXT,"Delay")
    set_control_par(get_ui_id($DLY_Bypass_Label),$CONTROL_PAR_HIDE,$HIDE_PART_BG)
    set_control_par(get_ui_id($DLY_Bypass_Label),$CONTROL_PAR_FONT_TYPE,13)
    set_control_par(get_ui_id($DLY_Bypass_Label),$CONTROL_PAR_TEXT_ALIGNMENT,1)
   
    declare ui_button $DLY_Bypass
    set_control_par_str(get_ui_id($DLY_Bypass),$CONTROL_PAR_PICTURE,"pv_synth_button_small")  
    set_control_help($DLY_Bypass,"") 
    set_control_par(get_ui_id($DLY_Bypass),$CONTROL_PAR_WIDTH,26)
    set_control_par(get_ui_id($DLY_Bypass),$CONTROL_PAR_WIDTH,62)
    set_control_par_str(get_ui_id($DLY_Bypass),$CONTROL_PAR_TEXT,"")
    make_persistent($DLY_Bypass)
    _read_persistent_var($DLY_Bypass)
    $DLY_Bypass := 1

  move_control_px($DLY_Time_Label, 65, 115)
  move_control_px($DLY_Time,90,80)
  move_control_px($DLY_Damping_Label, 120, 115)
  move_control_px($DLY_Damping,145,80)
  move_control_px($DLY_Pan_Label, 175, 115)
  move_control_px($DLY_Pan,200,80)
  move_control_px($DLY_Feedb_Label, 230, 115)
  move_control_px($DLY_Feedb,255,80)
   move_control_px($Stereo_Send_Label, 285, 115)  
  move_control_px($Stereo_Send,310,80)
  move_control_px($DLY_Bypass_Label,2,115)
  move_control_px($DLY_Bypass,35,90)
end on



{ ---------------------------control revervb-----------------------------------}
on ui_control ($RV_PreDly)
     set_engine_par($ENGINE_PAR_RV_PREDELAY,$RV_PreDly,-1,0,0)

$i := 0
  while($i < $NUM_GROUPS)  
    set_engine_par($ENGINE_PAR_MOD_TARGET_INTENSITY,$RV_PreDly,$i,...
    find_mod($i,"CV_FREQUENCY"),-1)
    set_text($RV_PreDly_Label, get_engine_par_disp($ENGINE_PAR_MOD_TARGET_INTENSITY,$i,...
    find_mod($i,"CV_FREQUENCY"),-1) & " ms")
    inc($i)
  end while
    %lb_last_time[0] := $ENGINE_UPTIME
        wait($wait_time * 2000)
    if($ENGINE_UPTIME - %lb_last_time[0] > $wait_time -5)
           set_text ($RV_PreDly_Label, "PreDly")
    end if
end on
on ui_control ($RV_Size)
     set_engine_par($ENGINE_PAR_RV_SIZE,$RV_Size,-1,0,0)

$i := 0
  while($i < $NUM_GROUPS)  
    set_engine_par($ENGINE_PAR_MOD_TARGET_INTENSITY,$RV_Size,$i,...
    find_mod($i,"CV_FREQUENCY"),-1)
    set_text($RV_Size_Label, get_engine_par_disp($ENGINE_PAR_MOD_TARGET_INTENSITY,$i,...
    find_mod($i,"CV_FREQUENCY"),-1) & "")
    inc($i)
  end while
    %lb_last_time[0] := $ENGINE_UPTIME
        wait($wait_time * 2000)
    if($ENGINE_UPTIME - %lb_last_time[0] > $wait_time -5)
           set_text ($RV_Size_Label, "Size")
    end if
end on
on ui_control ($RV_Colour)
     set_engine_par($ENGINE_PAR_RV_COLOUR,$RV_Colour,-1,0,0)

$i := 0
  while($i < $NUM_GROUPS)  
    set_engine_par($ENGINE_PAR_MOD_TARGET_INTENSITY,$RV_Colour,$i,...
    find_mod($i,"CV_FREQUENCY"),-1)
    set_text($RV_Colour_Label, get_engine_par_disp($ENGINE_PAR_MOD_TARGET_INTENSITY,$i,...
    find_mod($i,"CV_FREQUENCY"),-1) & "")
    inc($i)
  end while
    %lb_last_time[0] := $ENGINE_UPTIME
        wait($wait_time * 2000)
    if($ENGINE_UPTIME - %lb_last_time[0] > $wait_time -5)
           set_text ($RV_Colour_Label, "Colour")
    end if
end on
on ui_control ($RV_Damping)
     set_engine_par($ENGINE_PAR_RV_DAMPING,$RV_Damping,-1,0,0)

$i := 0
  while($i < $NUM_GROUPS)  
    set_engine_par($ENGINE_PAR_MOD_TARGET_INTENSITY,$RV_Damping,$i,...
    find_mod($i,"CV_FREQUENCY"),-1)
    set_text($RV_Damping_Label, get_engine_par_disp($ENGINE_PAR_MOD_TARGET_INTENSITY,$i,...
    find_mod($i,"CV_FREQUENCY"),-1) & "")
    inc($i)
  end while
    %lb_last_time[0] := $ENGINE_UPTIME
        wait($wait_time * 2000)
    if($ENGINE_UPTIME - %lb_last_time[0] > $wait_time -5)
           set_text ($RV_Damping_Label, "Damping")
    end if
end on
on ui_control ($RV_Stereo)
     set_engine_par($ENGINE_PAR_SENDLEVEL_0,$RV_Stereo,-1,7,-1)

$i := 0
  while($i < $NUM_GROUPS)  
    set_engine_par($ENGINE_PAR_MOD_TARGET_INTENSITY,$RV_Stereo,$i,...
    find_mod($i,"CV_FREQUENCY"),-1)
    set_text($RV_Stereo_Label, get_engine_par_disp($ENGINE_PAR_MOD_TARGET_INTENSITY,$i,...
    find_mod($i,"CV_FREQUENCY"),-1) & "")
    inc($i)
  end while
    %lb_last_time[0] := $ENGINE_UPTIME
        wait($wait_time * 2000)
    if($ENGINE_UPTIME - %lb_last_time[0] > $wait_time -5)
           set_text ($RV_Stereo_Label, "Send")
    end if
end on
on ui_control ($RV_Bypass)

    set_engine_par($ENGINE_PAR_SEND_EFFECT_BYPASS,1 - $RV_Bypass,-1,0,0)
if ($RV_Bypass = 0)
  set_text($RV_Bypass_Label,"Off")
$i := 0
   while($i < 10)

inc($i)
wait (2000)
end while 
$i := 0
  while($i < $NUM_GROUPS)  
       set_engine_par($ENGINE_PAR_INTMOD_BYPASS,$RV_Bypass,$i,...
find_mod($i,"CV_FREQUENCY"),-1)
inc($i)
      end while  
end if 

if ($RV_Bypass = 1)
  set_text($RV_Bypass_Label,"On")
 $i := 0
   while($i < 10)
inc($i)
wait (2000)
end while
$i := 0  
  while($i < $NUM_GROUPS)  
       set_engine_par($ENGINE_PAR_INTMOD_BYPASS,$RV_Bypass,$i,...
find_mod($i,"CV_FREQUENCY"),-1)
inc($i)
      end while
          end if  
 %lb_last_time[0] := $ENGINE_UPTIME
        wait($wait_time * 2000)
        if($ENGINE_UPTIME - %lb_last_time[0] > $wait_time -5)
           set_text ($RV_Bypass_Label, "Reverb")
end if

        end on


{ ---------------------------control delay-----------------------------------}

on ui_control ($DLY_Time)
     set_engine_par($ENGINE_PAR_DL_TIME,$DLY_Time,-1,1,0)

$i := 0
  while($i < $NUM_GROUPS)  
    set_engine_par($ENGINE_PAR_MOD_TARGET_INTENSITY,$DLY_Time,$i,...
    find_mod($i,"CV_FREQUENCY"),-1)
    set_text($DLY_Time_Label, get_engine_par_disp($ENGINE_PAR_MOD_TARGET_INTENSITY,$i,...
    find_mod($i,"CV_FREQUENCY"),-1) & " ms")
    inc($i)
  end while
    %lb_last_time[0] := $ENGINE_UPTIME
        wait($wait_time * 2000)
    if($ENGINE_UPTIME - %lb_last_time[0] > $wait_time -5)
           set_text ($DLY_Time_Label, "Time")
    end if
end on
on ui_control ($DLY_Damping)
     set_engine_par($ENGINE_PAR_DL_DAMPING,$DLY_Damping,-1,1,0)

$i := 0
  while($i < $NUM_GROUPS)  
    set_engine_par($ENGINE_PAR_MOD_TARGET_INTENSITY,$DLY_Damping,$i,...
    find_mod($i,"CV_FREQUENCY"),-1)
    set_text($DLY_Damping_Label, get_engine_par_disp($ENGINE_PAR_MOD_TARGET_INTENSITY,$i,...
    find_mod($i,"CV_FREQUENCY"),-1) & "")
    inc($i)
  end while
    %lb_last_time[0] := $ENGINE_UPTIME
        wait($wait_time * 2000)
    if($ENGINE_UPTIME - %lb_last_time[0] > $wait_time -5)
           set_text ($DLY_Damping_Label, "Damping")
    end if
end on
on ui_control ($DLY_Pan)
     set_engine_par($ENGINE_PAR_DL_PAN,$DLY_Pan,-1,1,0)

$i := 0
  while($i < $NUM_GROUPS)  
    set_engine_par($ENGINE_PAR_MOD_TARGET_INTENSITY,$DLY_Pan,$i,...
    find_mod($i,"CV_FREQUENCY"),-1)
    set_text($DLY_Pan_Label, get_engine_par_disp($ENGINE_PAR_MOD_TARGET_INTENSITY,$i,...
    find_mod($i,"CV_FREQUENCY"),-1) & "")
    inc($i)
  end while
    %lb_last_time[0] := $ENGINE_UPTIME
        wait($wait_time * 2000)
    if($ENGINE_UPTIME - %lb_last_time[0] > $wait_time -5)
           set_text ($DLY_Pan_Label, "Pan")
    end if
end on
on ui_control ($DLY_Feedb)
     set_engine_par($ENGINE_PAR_DL_FEEDBACK,$DLY_Feedb,-1,1,0)

$i := 0
  while($i < $NUM_GROUPS)  
    set_engine_par($ENGINE_PAR_MOD_TARGET_INTENSITY,$DLY_Feedb,$i,...
    find_mod($i,"CV_FREQUENCY"),-1)
    set_text($DLY_Feedb_Label, get_engine_par_disp($ENGINE_PAR_MOD_TARGET_INTENSITY,$i,...
    find_mod($i,"CV_FREQUENCY"),-1) & " %")
    inc($i)
  end while
    %lb_last_time[0] := $ENGINE_UPTIME
        wait($wait_time * 2000)
    if($ENGINE_UPTIME - %lb_last_time[0] > $wait_time -5)
           set_text ($DLY_Feedb_Label, "Feedb")
    end if
end on
on ui_control ($Stereo_Send)
     set_engine_par($ENGINE_PAR_SENDLEVEL_1,$Stereo_Send,-1,7,-1)

$i := 0
  while($i < $NUM_GROUPS)  
    set_engine_par($ENGINE_PAR_MOD_TARGET_INTENSITY,$Stereo_Send,$i,...
    find_mod($i,"CV_FREQUENCY"),-1)
    set_text($Stereo_Send_Label, get_engine_par_disp($ENGINE_PAR_MOD_TARGET_INTENSITY,$i,...
    find_mod($i,"CV_FREQUENCY"),-1) & "")
    inc($i)
  end while
    %lb_last_time[0] := $ENGINE_UPTIME
        wait($wait_time * 2000)
    if($ENGINE_UPTIME - %lb_last_time[0] > $wait_time -5)
           set_text ($Stereo_Send_Label, "Send")
    end if
end on

on ui_control ($DLY_Bypass)

    set_engine_par($ENGINE_PAR_SEND_EFFECT_BYPASS,1 - $DLY_Bypass,-1,1,0)
if ($DLY_Bypass = 0)
  set_text($DLY_Bypass_Label,"Off")
$i := 0
   while($i < 10)

inc($i)
wait (2000)
end while 
$i := 0
  while($i < $NUM_GROUPS)  
       set_engine_par($ENGINE_PAR_INTMOD_BYPASS,$DLY_Bypass,$i,...
find_mod($i,"CV_FREQUENCY"),-1)
inc($i)
      end while  
end if 

if ($DLY_Bypass = 1)
  set_text($DLY_Bypass_Label,"On")
 $i := 0
   while($i < 10)
inc($i)
wait (2000)  
end while
$i := 0 
  while($i < $NUM_GROUPS)  
       set_engine_par($ENGINE_PAR_INTMOD_BYPASS,$DLY_Bypass,$i,...
find_mod($i,"CV_FREQUENCY"),-1)
inc($i)
      end while
          end if  
 %lb_last_time[0] := $ENGINE_UPTIME
        wait($wait_time * 2000)
        if($ENGINE_UPTIME - %lb_last_time[0] > $wait_time -5)
           set_text ($DLY_Bypass_Label, "Delay")
end if
end on

(and of script)

   
 (If you add new knobs don't forget to add their work in control like old knobs and change the control mode in (set_engine_par($ENGINE_PAR_..........................,$DLY_Time,-1,1,0)) don’t past to the script


Do not forget to add the effects in the sandboxes as follows
Reverb in the first square and Delay in the second square like the Image.

Music Production Free Kontakt Library vst vsti sound script


This script is valid for all versions of kontakt just copy it in the slot text and add your wallpaper.
You can use this script alone or you can add it to another script.
This script edited and scripted by BOUZIANE MOHAMMED FAYCEL.