API tools faq
paste
Advertisement
BrandonSpendlove

Kontakt - 3 Scripts merged

BrandonSpendlove
Mar 28th, 2014
95
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 10.08 KB | None | 0 0
raw download clone embed print report
  1. on init
  2.  
  3. make_perfview
  4. set_ui_height (4)
  5.  
  6.  
  7. {here the code for the knobs begins - that control volume on groups eg. mic placements}
  8.  
  9. {groups are indexed, so group one is 0, group two is 1 - and so on. 500000 equals -6dB}
  10.  
  11. message("") { this clears the status line so no error messages will be hidden }
  12. declare const $DefVol := 500000 { default initial volume, you can choose this to be whatever you want }
  13. set_ui_height (4)
  14. declare ui_knob $Volume0(0, 1000000, 1)
  15. make_persistent($Volume0)
  16. set_text($Volume0,"Surround")
  17. $Volume0 := $DefVol
  18. set_knob_defval($Volume0,$DefVol)
  19. move_control_px($volume0,66,2) { you can position this knob wherever you like }
  20. read_persistent_var($Volume0)
  21. set_engine_par($ENGINE_PAR_VOLUME,$Volume0,0,-1,-1)
  22. set_knob_label($Volume0,get_engine_par_disp($ENGINE_PAR_VOLUME,0,-1,-1))
  23. declare ui_knob $Volume1(0, 1000000, 1)
  24. make_persistent($Volume1)
  25. set_text($Volume1,"Out")
  26. $Volume1 := $DefVol
  27. set_knob_defval($Volume1,$DefVol)
  28. move_control_px($Volume1,158,2) { you can position this knob wherever you like }
  29. read_persistent_var($Volume1)
  30. set_engine_par($ENGINE_PAR_VOLUME,$Volume1,1,-1,-1)
  31. set_knob_label($Volume1,get_engine_par_disp($ENGINE_PAR_VOLUME,1,-1,-1))
  32. declare ui_knob $Volume2(0, 1000000, 1)
  33. make_persistent($Volume2)
  34. set_text($Volume2,"Decca")
  35. $Volume2 := $DefVol
  36. set_knob_defval($Volume2,$DefVol)
  37. move_control_px($Volume2,250,2) { you can position this knob wherever you like }
  38. read_persistent_var($Volume2)
  39. set_engine_par($ENGINE_PAR_VOLUME,$Volume2,2,-1,-1)
  40. set_knob_label($Volume2,get_engine_par_disp($ENGINE_PAR_VOLUME,2,-1,-1))
  41. declare ui_knob $Volume3(0, 1000000, 1)
  42. make_persistent($Volume3)
  43. set_text($Volume3,"Close")
  44. $Volume3 := $DefVol
  45. set_knob_defval($Volume3,$DefVol)
  46. move_control_px($Volume3,342,2) { you can position this knob wherever you like }
  47. read_persistent_var($Volume3)
  48. set_engine_par($ENGINE_PAR_VOLUME,$Volume3,3,-1,-1)
  49. set_knob_label($Volume3,get_engine_par_disp($ENGINE_PAR_VOLUME,3,-1,-1))
  50. declare ui_knob $Volume4(0, 1000000, 1)
  51. make_persistent($Volume4)
  52. set_text($Volume4,"Mix S.")
  53. $Volume4 := $DefVol
  54. set_knob_defval($Volume4,$DefVol)
  55. move_control_px($Volume4,433,2) { you can position this knob wherever you like }
  56. read_persistent_var($Volume4)
  57. set_engine_par($ENGINE_PAR_VOLUME,$Volume4,4,-1,-1)
  58. set_knob_label($Volume4,get_engine_par_disp($ENGINE_PAR_VOLUME,4,-1,-1))
  59.  
  60. {Mix buttons}
  61.  
  62. declare ui_button $surroundpower
  63. declare ui_button $outpower
  64. declare ui_button $deccapower
  65. declare ui_button $closepower
  66. declare ui_button $mixpower
  67.  
  68. move_control($surroundpower, 1,3)
  69. move_control($outpower, 2,3)
  70. move_control($deccapower,3,3)
  71. move_control($closepower,4,3)
  72. move_control($mixpower,5,3)
  73.  
  74. set_text($surroundpower, "Surround Off")
  75. set_text($outpower, "Out. Off")
  76. set_text($deccapower, "Decca. Off")
  77. set_text($closepower, "Close. Off")
  78. set_text($mixpower, "Mix. Off")
  79.  
  80. $surroundpower := 0
  81. $outpower := 0
  82. $deccapower := 0
  83. $closepower := 0
  84. $mixpower := 0
  85.  
  86. {AHDSR}
  87.  
  88. declare $count
  89.  
  90. declare ui_knob $Attack (0,1000000,1)
  91. declare ui_knob $Hold (0,1000000,1)
  92. declare ui_knob $Decay (0,1000000,1)
  93. declare ui_knob $Sustain (0,1000000,1)
  94. declare ui_knob $Release (0,1000000,1)
  95.  
  96. set_knob_unit($Attack, $KNOB_UNIT_MS)
  97. set_knob_unit($Hold, $KNOB_UNIT_MS)
  98. set_knob_unit($Decay, $KNOB_UNIT_MS)
  99. set_knob_unit($Sustain, $KNOB_UNIT_DB)
  100. set_knob_unit($Release, $KNOB_UNIT_MS)
  101.  
  102. $Attack := get_engine_par($ENGINE_PAR_ATTACK, 0, find_mod(0,"ENV_AHDSR"), -1)
  103. $Hold := get_engine_par($ENGINE_PAR_HOLD, 0, find_mod(0,"ENV_AHDSR"), -1)
  104. $Decay := get_engine_par($ENGINE_PAR_DECAY, 0, find_mod(0,"ENV_AHDSR"), -1)
  105. $Sustain := get_engine_par($ENGINE_PAR_SUSTAIN, 0, find_mod(0,"ENV_AHDSR"), -1)
  106. $Release := get_engine_par($ENGINE_PAR_RELEASE, 0, find_mod(0,"ENV_AHDSR"), -1)
  107.  
  108. move_control($Attack, 1,5)
  109. move_control($Hold,2,5)
  110. move_control($Decay,3,5)
  111. move_control($Sustain,4,5)
  112. move_control($Release,5,5)
  113.  
  114. make_persistent($Attack)
  115. make_persistent($Hold)
  116. make_persistent($Decay)
  117. make_persistent($Sustain)
  118. make_persistent($Release)
  119.  
  120. read_persistent_var($Attack)
  121. read_persistent_var($Hold)
  122. read_persistent_var($Decay)
  123. read_persistent_var($Sustain)
  124. read_persistent_var($Release)
  125.  
  126. set_knob_label($Attack, get_engine_par_disp($ENGINE_PAR_ATTACK, 0, find_mod(0,"ENV_AHDSR"), -1))
  127. set_knob_label($Hold, get_engine_par_disp($ENGINE_PAR_HOLD, 0, find_mod(0,"ENV_AHDSR"), -1))
  128. set_knob_label($Decay, get_engine_par_disp($ENGINE_PAR_DECAY, 0, find_mod(0,"ENV_AHDSR"), -1))
  129. set_knob_label($Sustain, get_engine_par_disp($ENGINE_PAR_SUSTAIN, 0, find_mod(0,"ENV_AHDSR"), -1))
  130. set_knob_label($Release, get_engine_par_disp($ENGINE_PAR_RELEASE, 0, find_mod(0,"ENV_AHDSR"), -1))
  131.  
  132. {CONVO REVERB}
  133.  
  134. declare ui_slider $ConvSend (0,795000)
  135. declare ui_slider $ConvRecv (0,500000)
  136.  
  137. set_control_par(get_ui_id($ConvRecv),$CONTROL_PAR_DEFAULT_VALUE,397000)
  138.  
  139. make_persistent($ConvSend)
  140. make_persistent($ConvRecv)
  141.  
  142. move_control($ConvSend, 6,2)
  143. move_control($ConvRecv, 6,3)
  144.  
  145. {You can delete these labels if you want!}
  146.  
  147. declare ui_label $ConvInfo (1,1)
  148. set_text($ConvInfo," Conv Settings")
  149.  
  150. move_control($ConvInfo, 6,1)
  151.  
  152. declare ui_label $ahdsrinfo (5,1)
  153. set_text($ahdsrinfo, "------------------------------------------AHDSR-----------------------------------------")
  154.  
  155. move_control($ahdsrinfo, 1,4)
  156.  
  157. end on
  158.  
  159. on ui_control($Volume0)
  160. set_engine_par($ENGINE_PAR_VOLUME,$Volume0,0,-1,-1)
  161. set_knob_label($Volume0,get_engine_par_disp($ENGINE_PAR_VOLUME,0,-1,-1))
  162. end on
  163.  
  164. on ui_control($Volume1)
  165. set_engine_par($ENGINE_PAR_VOLUME,$Volume1,1,-1,-1)
  166. set_knob_label($Volume1,get_engine_par_disp($ENGINE_PAR_VOLUME,1,-1,-1))
  167. end on
  168.  
  169. on ui_control($Volume2)
  170. set_engine_par($ENGINE_PAR_VOLUME,$Volume2,2,-1,-1)
  171. set_knob_label($Volume2,get_engine_par_disp($ENGINE_PAR_VOLUME,2,-1,-1))
  172. end on
  173.  
  174. on ui_control($Volume3)
  175. set_engine_par($ENGINE_PAR_VOLUME,$Volume3,3,-1,-1)
  176. set_knob_label($Volume3,get_engine_par_disp($ENGINE_PAR_VOLUME,3,-1,-1))
  177. end on
  178.  
  179. on ui_control($Volume4)
  180. set_engine_par($ENGINE_PAR_VOLUME,$Volume4,4,-1,-1)
  181. set_knob_label($Volume4,get_engine_par_disp($ENGINE_PAR_VOLUME,4,-1,-1))
  182. end on
  183.  
  184. {MIX Buttons, Purging etc..}
  185.  
  186. on ui_control ($surroundpower)
  187.  
  188. if ($surroundpower = 0)
  189.  
  190. set_text($surroundpower,"Surround Off") {When the button is off, it will say it's off}
  191.  
  192. purge_group(0,0) {Group Index, Mode - Surround Power being the first group, and unloaded if the button is off}
  193.  
  194. else
  195.  
  196. set_text($surroundpower,"Surround On") {When the button is on, it will say it's on!}
  197.  
  198. purge_group(0,1) {Else (if it is on!) then load the samples in group 1}
  199.  
  200. end if
  201.  
  202. end on
  203.  
  204. on ui_control ($outpower)
  205.  
  206. if ($outpower = 0)
  207.  
  208. set_text($outpower, "Out. Off")
  209.  
  210. purge_group(1,0)
  211.  
  212. else
  213.  
  214. set_text($outpower, "Out. On")
  215.  
  216. purge_group(1,1)
  217.  
  218. end if
  219.  
  220. end on
  221.  
  222. on ui_control ($deccapower)
  223.  
  224. if ($deccapower = 0)
  225.  
  226. set_text($deccapower,"Decca. Off")
  227.  
  228. purge_group(2,0)
  229.  
  230. else
  231.  
  232. set_text($deccapower,"Decca. On")
  233.  
  234. purge_group(2,1)
  235.  
  236. end if
  237.  
  238. end on
  239.  
  240. on ui_control ($closepower)
  241.  
  242. if ($closepower = 0)
  243.  
  244. set_text($closepower, "Out. Off")
  245.  
  246. purge_group(3,0)
  247.  
  248. else
  249.  
  250. set_text($closepower, "Close On")
  251.  
  252. purge_group(3,1)
  253.  
  254. end if
  255.  
  256. end on
  257.  
  258. on ui_control ($mixpower)
  259.  
  260. if ($mixpower = 0)
  261.  
  262. set_text($mixpower, "Mix. Off")
  263.  
  264. purge_group(4,0)
  265.  
  266. else
  267.  
  268. set_text($mixpower, "Mix. On")
  269.  
  270. purge_group(4,1)
  271.  
  272. end if
  273.  
  274. end on
  275.  
  276. {AHDSR Workings}
  277.  
  278.  
  279. on ui_control ($Attack)
  280. $count := -1
  281. while ($count < $NUM_GROUPS)
  282. set_engine_par($ENGINE_PAR_ATTACK, $Attack, $count, find_mod(0,"ENV_AHDSR"), -1)
  283. inc($count)
  284. end while
  285.  
  286. set_knob_label($Attack, get_engine_par_disp($ENGINE_PAR_ATTACK, 0, 0, -1))
  287. end on
  288.  
  289. on ui_control ($Hold)
  290. $count := -1
  291. while ($count < $NUM_GROUPS)
  292. set_engine_par($ENGINE_PAR_HOLD, $Hold, $count, find_mod(0,"ENV_AHDSR"), -1)
  293. inc($count)
  294. end while
  295.  
  296. set_knob_label($Hold, get_engine_par_disp($ENGINE_PAR_HOLD, 0, 0, -1))
  297. end on
  298.  
  299. on ui_control ($Decay)
  300. $count := -1
  301. while ($count < $NUM_GROUPS)
  302. set_engine_par($ENGINE_PAR_DECAY, $Decay, $count, find_mod(0,"ENV_AHDSR"), -1)
  303. inc($count)
  304. end while
  305.  
  306. set_knob_label($Decay, get_engine_par_disp($ENGINE_PAR_DECAY, 0, 0, -1))
  307. end on
  308.  
  309. on ui_control ($Sustain)
  310. $count := -1
  311. while ($count < $NUM_GROUPS)
  312. set_engine_par($ENGINE_PAR_SUSTAIN, $Sustain, $count, find_mod(0,"ENV_AHDSR"), -1)
  313. inc($count)
  314. end while
  315.  
  316. set_knob_label($Sustain, get_engine_par_disp($ENGINE_PAR_SUSTAIN, 0, 0, -1))
  317. end on
  318.  
  319. on ui_control ($Release)
  320. $count := -1
  321. while ($count < $NUM_GROUPS)
  322. set_engine_par($ENGINE_PAR_RELEASE, $Release, $count, find_mod(0,"ENV_AHDSR"), -1)
  323. inc($count)
  324. end while
  325.  
  326. set_knob_label($Release, get_engine_par_disp($ENGINE_PAR_RELEASE, 0, 0, -1))
  327. end on
  328.  
  329.  
  330.  
  331. {here begins code for the text, that Kontakt displays when certain notes are pressed down}
  332.  
  333. on note
  334.  
  335. select ($EVENT_NOTE)
  336.  
  337. case 63 {this is just the midi number for the key}
  338.  
  339. message ("Dur3 Eb - G (ori.)")
  340.  
  341. case 62
  342.  
  343. message ("Mol3 D - F (ori.)")
  344.  
  345. case 60
  346.  
  347. message ("Mol3 C - Eb (ori.)")
  348.  
  349. case 58
  350.  
  351. message ("Dur3 Bb - D (Ori.)")
  352.  
  353. case 57
  354.  
  355. message ("Mol3 A - C (Ori.)")
  356.  
  357. case 55
  358.  
  359. message ("Mol3 G - Bb (Ori.)")
  360.  
  361. case 53
  362.  
  363. message ("Dur3 F - A (Ori.)")
  364.  
  365. case 51
  366.  
  367. message ("Dur3 Eb - G (Ori.)")
  368.  
  369. case 50
  370.  
  371. message ("Mol3 D - F (Ori.)")
  372.  
  373. case 64
  374.  
  375. message ("Dur3 E - G#")
  376.  
  377. case 65
  378.  
  379. message ("Dur3 F - A")
  380.  
  381. case 59
  382.  
  383. message ("Mol3 B - D")
  384.  
  385. case 61
  386.  
  387. message ("Mol3 Db - E")
  388.  
  389. case 56
  390.  
  391. message ("Mol3 Ab - B")
  392.  
  393. case 54
  394.  
  395. message ("Mol3 Gb - A")
  396.  
  397. case 52
  398.  
  399. message ("Dur3 E - G#")
  400.  
  401. case 49
  402.  
  403. message ("Mol3 Db - E")
  404.  
  405. case 48
  406.  
  407. message ("Mol3 C - Eb")
  408.  
  409. end select
  410.  
  411. end on
  412.  
  413.  
  414. {here begins code for the text, that Kontakt displays when notes are released}
  415.  
  416. on release
  417.  
  418. message ("Play a note")
  419.  
  420. end on
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!