set_engine_par reverb
{IMPORTANT NOTE: Make sure the REVERB FX is in the 1st Insert SLOT in your Instrument NKI

You can download this example at: http://www.newgrounds.com/dump/item/1984f1ed91837de775442b8c00bb276e }



on init

    

    message ("")
set_engine_par reverb How to get it? set_engine_par reverb

    

    make_perfview

    set_ui_height (3)

    

    declare $count
set_engine_par reverb How to dowload it? set_engine_par reverb

    

    $count := 0

    

    {Reverb Parameters}

    
set_engine_par reverb PasteShr set_engine_par reverb

    declare ui_knob $reverbpredelay (0,1000000,1)

    declare ui_knob $reverbsize (0,1000000,1)

    declare ui_knob $reverbcolour (0,1000000,1)

    declare ui_knob $reverbdamping (0,1000000,1)

    declare ui_knob $reverbstereo (0,1000000,1)
set_engine_par reverb How to get it for free? set_engine_par reverb

    declare ui_knob $reverbdry (0,1000000,1)

    declare ui_knob $reverbwet (0,1000000,1)

    

    {Storing the Reverb parameters together, I do this personally, you don't have to..}

    
set_engine_par reverb How to get it? set_engine_par reverb

    declare !reverbcontrols[7]

    

    !reverbcontrols[0] := $reverbpredelay

    !reverbcontrols[1] := $reverbsize

    !reverbcontrols[2] := $reverbcolour
set_engine_par reverb How to get it for free? set_engine_par reverb

    !reverbcontrols[3] := $reverbdamping

    !reverbcontrols[4] := $reverbstereo

    !reverbcontrols[5] := $reverbdry

    !reverbcontrols[6] := $reverbwet

    
set_engine_par reverb How to dowload it? set_engine_par reverb

    {Moving the knobs...}

    

    move_control($reverbpredelay, 1,1)

    move_control($reverbsize, 2,1)

    move_control($reverbcolour, 3,1)
set_engine_par reverb How to dowload it? set_engine_par reverb

    move_control($reverbdamping, 4,1)

    move_control($reverbstereo, 5,1)

    move_control($reverbdry, 1,5)

    move_control($reverbwet, 2,5)

    
set_engine_par reverb How to use it? set_engine_par reverb

    {Neating the text on the knob labels}

    

    set_text($reverbpredelay,"Pre.Delay")

    set_text($reverbsize,"Size")

    set_text($reverbcolour,"Colour")
set_engine_par reverb PasteShr set_engine_par reverb

    set_text($reverbdamping,"Damping")

    set_text($reverbstereo,"Stereo")

    set_text($reverbdry,"Dry")

    set_text($reverbwet,"Wet")

    
set_engine_par reverb How to dowload it? set_engine_par reverb

    {Setting the knob labels to the Reverb when the NKI is loaded}

    

    set_knob_label($reverbpredelay,get_engine_par_disp($ENGINE_PAR_RV_PREDELAY, -1,0,1))

    set_knob_label($reverbsize,get_engine_par_disp($ENGINE_PAR_RV_SIZE, -1,0,1))

    set_knob_label($reverbcolour,get_engine_par_disp($ENGINE_PAR_RV_COLOUR, -1,0,1))
set_engine_par reverb How to use it? set_engine_par reverb

    set_knob_label($reverbdamping,get_engine_par_disp($ENGINE_PAR_RV_DAMPING, -1,0,1))

    set_knob_label($reverbstereo,get_engine_par_disp($ENGINE_PAR_RV_STEREO, -1, 0, 1))

    set_knob_label($reverbdry,get_engine_par_disp($ENGINE_PAR_SEND_EFFECT_DRY_LEVEL, -1,0,1))

    set_knob_label($reverbwet,get_engine_par_disp($ENGINE_PAR_SEND_EFFECT_OUTPUT_GAIN, -1,0,1))
    
    {KNOB UNIT.... Only predelay knob, it need MS in the label, This command should be implemented after set_knob_label !!!}
set_engine_par reverb How to use it? set_engine_par reverb

    
    

    set_knob_unit($reverbpredelay,$KNOB_UNIT_MS)
    

    

    {Setting the Knob itself as the Reverb parameters when someone loads the NKI patch}
set_engine_par reverb How to get it? set_engine_par reverb

    

    set_engine_par($ENGINE_PAR_RV_PREDELAY,$reverbpredelay, -1,0,1)

    set_engine_par($ENGINE_PAR_RV_SIZE,$reverbsize, -1,0,1)

    set_engine_par($ENGINE_PAR_RV_COLOUR,$reverbcolour, -1,0,1)

    set_engine_par($ENGINE_PAR_RV_DAMPING,$reverbdamping, -1,0,1)
set_engine_par reverb How to dowload it? set_engine_par reverb

    set_engine_par($ENGINE_PAR_RV_STEREO,$reverbstereo, -1,0,1)

    set_engine_par($ENGINE_PAR_SEND_EFFECT_DRY_LEVEL,$reverbdry, -1,0,1)

    set_engine_par($ENGINE_PAR_SEND_EFFECT_OUTPUT_GAIN,$reverbwet, -1,0,1)

    

end on
set_engine_par reverb How to get it? set_engine_par reverb



    {NOW we use on ui_control to make the knobs actually work with the Reverb FX}


  {Knob names as we declared them as, not what we set_text to!!!}
  

on ui_control ($reverbpredelay)
set_engine_par reverb How to dowload it? set_engine_par reverb

    

    set_engine_par($ENGINE_PAR_RV_PREDELAY,$reverbpredelay, -1,0,1)

    set_knob_label($reverbpredelay,get_engine_par_disp($ENGINE_PAR_RV_PREDELAY, -1,0,1))

    

end on
set_engine_par reverb How to use it? set_engine_par reverb




on ui_control ($reverbsize)

    

    set_engine_par($ENGINE_PAR_RV_SIZE,$reverbsize, -1,0,1)

set_engine_par reverb PasteShr set_engine_par reverb
    set_knob_label($reverbsize,get_engine_par_disp($ENGINE_PAR_RV_SIZE, -1,0,1))

    

end on




on ui_control ($reverbcolour)
set_engine_par reverb How to get it for free? set_engine_par reverb

    

    set_engine_par($ENGINE_PAR_RV_COLOUR,$reverbcolour, -1,0,1)

    set_knob_label($reverbcolour,get_engine_par_disp($ENGINE_PAR_RV_COLOUR, -1,0,1))

    

end on
set_engine_par reverb How to use it? set_engine_par reverb




on ui_control ($reverbdamping)

    

    set_engine_par($ENGINE_PAR_RV_DAMPING,$reverbdamping, -1,0,1)

set_engine_par reverb How to get it for free? set_engine_par reverb
    set_knob_label($reverbdamping,get_engine_par_disp($ENGINE_PAR_RV_DAMPING, -1,0,1))

    

end on




on ui_control ($reverbstereo)
set_engine_par reverb PasteShr set_engine_par reverb

    

    set_engine_par($ENGINE_PAR_RV_STEREO,$reverbstereo, -1,0,1)

    set_knob_label($reverbstereo,get_engine_par_disp($ENGINE_PAR_RV_STEREO, -1, 0, 1))

    

end on
set_engine_par reverb How to use it? set_engine_par reverb




on ui_control ($reverbdry)

    

    set_engine_par($ENGINE_PAR_SEND_EFFECT_DRY_LEVEL,$reverbdry, -1,0,1)

set_engine_par reverb How to get it? set_engine_par reverb
    set_knob_label($reverbdry,get_engine_par_disp($ENGINE_PAR_SEND_EFFECT_DRY_LEVEL, -1,0,1))

    

end on




on ui_control ($reverbwet)
set_engine_par reverb How to use it? set_engine_par reverb

    

    set_engine_par($ENGINE_PAR_SEND_EFFECT_OUTPUT_GAIN,$reverbwet, -1,0,1)

    set_knob_label($reverbwet,get_engine_par_disp($ENGINE_PAR_SEND_EFFECT_OUTPUT_GAIN, 1,0,1))

    

end on
set_engine_par reverb How to get it for free? set_engine_par reverb
set_engine_par reverb