code:

---

;$i = color
;$l = level
function fadetoblack($i,$l)
Dim $, $c, $x
$l=right($l,2)
for $x=1 to 3
	$c=substr($i,$x*2,2)
	$=$+iif($l>$c,$c,$l)
next
$fadetoblack=val("&"+$)
endfunction

---