In case anyone needs it, here is a pseudo-random number generator to start with.

Apply whatever modifiers you need to get the required ranges.

I've not tested it exhaustively, beyond making sure that it kind of works.

Code:
$=SetOption("Explicit","ON")
 
Dim $i
$i=rng(@TICKS)
For $i=1 to 50 rng() ? Next
 
Function rng(Optional $iSeed)
	Dim $vDiscard
	If Not IsDeclared($_RNG_PERSISTENT) Global $_RNG_PERSISTENT EndIf
	If VarType($iSeed) $_RNG_PERSISTENT=CInt($iSeed) EndIf
	$_RNG_PERSISTENT=CInt(&FFFFFFFFFF) & CInt($_RNG_PERSISTENT)
	$_RNG_PERSISTENT=CInt($_RNG_PERSISTENT*1103515245 +12345)
	; Emulate 16 bit shift right ($rng>>16)
	$rng=DecToHex($_RNG_PERSISTENT)
	$rng=SubStr($rng,2,Len($rng)-3)
	If $rng="" $rng=0 EndIf
	; Convert hex to Decimal
	$vDiscard=Execute("$$rng=&"+$rng+" & &FFFFFFFF")
EndFunction