Kontakt - Reverb Script Example

{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 ("")



    make_perfview

    set_ui_height (3)



    declare $count



    $count := 0



    {Reverb Parameters}



    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)

    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..}



    declare !reverbcontrols[7]



    !reverbcontrols[0] := $reverbpredelay

    !reverbcontrols[1] := $reverbsize

    !reverbcontrols[2] := $reverbcolour

    !reverbcontrols[3] := $reverbdamping

    !reverbcontrols[4] := $reverbstereo

    !reverbcontrols[5] := $reverbdry

    !reverbcontrols[6] := $reverbwet



    {Moving the knobs...}



    move_control($reverbpredelay, 1,1)

    move_control($reverbsize, 2,1)

    move_control($reverbcolour, 3,1)

    move_control($reverbdamping, 4,1)

    move_control($reverbstereo, 5,1)

    move_control($reverbdry, 1,5)

    move_control($reverbwet, 2,5)



    {Neating the text on the knob labels}



    set_text($reverbpredelay,"Pre.Delay")

    set_text($reverbsize,"Size")

    set_text($reverbcolour,"Colour")

    set_text($reverbdamping,"Damping")

    set_text($reverbstereo,"Stereo")

    set_text($reverbdry,"Dry")

    set_text($reverbwet,"Wet")



    {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_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_knob_unit($reverbpredelay,$KNOB_UNIT_MS)




    {Setting the Knob itself as the Reverb parameters when someone loads the NKI patch}



    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($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



    {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($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




on ui_control ($reverbsize)



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

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



end on




on ui_control ($reverbcolour)



    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




on ui_control ($reverbdamping)



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

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



end on




on ui_control ($reverbstereo)



    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




on ui_control ($reverbdry)



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

    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($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