code:

---

function FadeToBlack($color, $level)

	Dim $B, $G, $R
	$B=$color/65536
	$G=($color mod 65536)/256
	$R=$color-($B*65536)-($G*256)


	$B = IIF($B>$level, $level, $B)
	$G = IIF($G>$level, $level, $G)
	$R = IIF($R>$level, $level, $R)

;by matching level these checks are no longer required.
	;$B = IIF($B<0, 0, $B)
	;$G = IIF($G<0, 0, $G)
	;$R = IIF($R<0, 0, $R)

	$FadeToBlack = ($B*65536)+($G*256)+$R

endfunction  

---