code:

---

Break ON
Dim $, $c, $x
$= "&00FFFF"
for $x=2 to 6 step 2
	$rc = execute("$$c = &"+ substr($,$x,2))
	? $c
next


exit 0  

---

code:

---

$in= "&00FFFF"
Dim $, $c
for $=1 to 3
	$c = execute("? &"+substr($in,$*2,2))
next

---

should do and be less than hoby's

[ 03. November 2003, 14:59: Message edited by: Lonkero ]

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), $B, $B-17)
	$G = IIF($G<$level), $G, $G-17)
	$R = IIF($R<$level), $R, $R-17) 

	$B = IIF($B<0), 0, $B)
	$G = IIF($G<0), 0, $G)
	$R = IIF($R<0), 0, $R) 
	
	return ($B*65536)+($G*256)+$R

endfunction

---

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

---

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, $B, $B-17)
	$G = IIF($G<$level, $G, $G-17)
	$R = IIF($R<$level, $R, $R-17) 

	$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

---

quote:

---

let me plug both these into my game and see which one works best ...

---

Cool ! A new game. Can't wait to see that one

code:

---

$in= "&00FFFF"
val($in) ?
$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
fadetoblack( "&00FFFF","&DD")

get $

---