'Returns a random number between Min (inclusive) Max (exclusive!) Step (Stp number)
Sub RndStep(Minimum As Int, Maximum As Int, Stp As Int) As Int
If Minimum Mod Stp <> 0 Then Minimum = (Floor(Minimum / Stp) + 1) * Stp
Dim i As Int = Rnd(Minimum, Maximum)
i = i - (i mod Stp)
Return i
End Sub