procedural fade

Found these two functions in lua_help.script.

function set_snd_volume(number);
function get_snd_volume();

Maybe something like:

new function fade_out
get sound volume
if sound volume != 0
set snd volume (-1)
wait 5 milliseconds
get sound volume
if snd volume = 0
stop
else repeat