OK first attempt here to make a custom function.

What I am trying to do is populate mutiple lines with random values, and trying to create a function, I recieve no values.

Rays 0, 30, 10, 3.0, 0x00EFEFFF, 1.0
Rays 3, 25, 8, 2.5, 0x00EFEFFF, 1.9

Code:
 

srnd(@TICKS*@MSECS*2)
random_var($NumPolys,$NumStreaks,$OuterRadius,$InnerOpacity,$OuterOpacity,$ColourTemp)



WriteLine(5, '# Rays D, NumPolys, NumStreaks, OuterRadius, Colour, ColourTemp'+Chr(13))
WriteLine(5, 'Rays '+ $NumPolys + ', '+ $NumStreaks +', '+ $OuterRadius +', '+ $OuterOpacity +', 0x00'+ $KeyColor[$dd] +', '+ $ColourTemp +''+Chr(13))
WriteLine(5, Chr(13))



function random_var($NumPolys,$NumStreaks,$OuterRadius,$InnerOpacity,$OuterOpacity,$ColourTemp)
$dd = 5 * rnd(30)
formatnumber($NumPolys,0.00) = 0.0
$NumPolys = 1.1 * rnd(10)
$NumStreaks = rnd(20)
$OuterRadius = rnd(10)
$InnerOpacity = 1.1 * rnd(10)
$OuterOpacity = 1.1 * rnd(10)
endfunction




Edited by Microcyb (2004-07-08 11:22 PM)
_________________________
www.microcyb.com