B4J Question Do All Platforms Use Same RNG?

You mean B4i and B4J? No.

It will probably return the same sequence on Linux, Mac and Windows though different versions of Java can implement the random algorithm differently.

Yes. I have a game app that works cross-platform but needs to have the exact same RNG on each platform so that the players experience the exact same environment and situation. I want everyone to be able to compete (track high scores) with everyone else, regardless of platform, and that requires they all work with the same sequence of random numbers.

So, if I wanted the same random number sequence across platforms, I would have to use a server solution. Not sure how robust that will be, but it seems the only way to insure everyone plays the exact same levels.

Any other ideas?

Simple solution:
1. Create a "random file" with 250k integers:

2. Create a class named NotRandom:

Usage example:

Erel said:

Create a "random file" with 250k integers

Click to expand...

And here's how Doom made their RNG, using 256 values:

(Erel's way is obviously better, now that we easily can use more data. I thought the Doom solution still could be interesting, for inspiration.)

Also correct solution, perhaps somewhat limited.



https://xkcd.com/221/

Ha! One of my ideas was exactly that: create a huge file of randomly generated integers. But I didn't know what to do if one time I need 0 to 10 and another time I needed 100 to 500. Thanks for the lesson! ?

Erel said:

B4X:

Simple solution:
1. Create a "random file" with 250k integers:
'...
Public Sub NextInt2 (MinValue As Int, MaxValue As Int) As Int
    Dim delta As Int = MaxValue - MinValue
    Dim i As Int = NextInt
    If i < 0 Then i = -i
    Return (i Mod delta) + MinValue
End Sub

Usage example:

B4X:

Dim nr As NotRandom
nr.Initialize(10, 230)
For i = 1 To 100
    Log(nr.NextInt2(0, 10))
Next

Click to expand...

This is slightly off-topic, but it came up: Can the Initialize Sub in a Class be called something else, like New?

Erel said:

2. Create a class named NotRandom:

B4X:

Public Sub New (Start As Int, SkipLength As Int) 'instead of Initialize
    Dim b() As Byte = File.ReadBytes(File.DirAssets, "random.dat")
    raf.Initialize3(b, True)
    mLength = raf.Size / 4
    mIndex = Start Mod mLength
    mSkipLength = SkipLength
End Sub

Click to expand...

cklester said:

This is slightly off-topic, but it came up: Can the Initialize Sub in a Class be called something else, like New?

Click to expand...

This is completely off topic.