Code:
$seed=SRND(@MSECS)
Dim $array[100]
; fill array
For $i = 0 to 100
$array[$i] = $i
Next
;shuffle array
For $i = 0 to 100
$new = Rnd(100)
$temp = $array[$i]
$array[$i] = $array[$new]
$array[$new] = $temp
Next
;show array
For $i = 0 to 100
? $i " = " $array[$i]
Next
This will shuffle the original array (0 - 100). The last for-next loop is just to show the shuffled array.
source
