This is closer to being a proper function. It returns an array of values.

$ArrayOfValues = Random_Var()

Code:
for each $value in Random_Var()

	? $value

next



function Random_Var()



	Dim $NumPolys,

	    $NumStreaks,

	    $OuterRadius,

	    $InnerOpacity,

	    $OuterOpacity,

	    $dd



	srnd(@TICKS*@MSECS*2)

	$dd = 5 * rnd(30)

	$NumPolys = formatnumber(1.1 * rnd(10),2)

	$NumStreaks = rnd(20)

	$OuterRadius = rnd(10)

	$InnerOpacity = 1.1 * rnd(10)

	$OuterOpacity = 1.1 * rnd(10)

	$Random_Var = $NumPolys,$NumStreaks,$OuterRadius,$InnerOpacity,$OuterOpacity

endfunction


Edited by Howard Bullock (2004-07-09 06:04 PM)
_________________________
Home page: http://www.kixhelp.com/hb/