Anyone who has worked with Kurzweil samplers should remember the fantastic "Timbre Shift" option, which allowed dramatic changes of a sound by changing one simple value. Here's the same thing for Kontakt.

The code:

{************************************************* ********
Timbre Shift
Copyright (c) 2006 Marc Halbrügge

This script is free software; you can redistribute it
and/or modify it under the terms of version 2.1 of the
GNU Lesser General Public License as published by the
Free Software Foundation.

This script is distributed in the hope that it will be
useful, but WITHOUT ANY WARRANTY; without even the implied
warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
PURPOSE. See the GNU Lesser General Public License
for more details.
************************************************** *******}
on init
declare ui_label $label (1,1)
set_text ($label, "Timbre Shift:")
move_control ($label,1,1)

declare ui_knob $St(-24,24,1)
$St := 0
make_persistent ($St)

SET_CONDITION(NO_SYS_SCRIPT_RLS_TRIG)
end on

on note
change_note($EVENT_ID, $EVENT_NOTE - $St)
change_tune($EVENT_ID, 100000*$St, 0)
end on

on release
change_tune($EVENT_ID, 100000*$St, 0)
end on

download it here:
http://www-lehre.inf.uos.de/~mhalbrue/Kontakt/Timbre%20Shift.nkp

...have FUN!
Marc

PS: Suggestions, changes and further development are highly appreciated