27  * without causing a desynchronisation of different clients when playing over

    27  * without causing a desynchronisation of different clients when playing over

    28  * a network.

    28  * a network.

    29  *)

    29  *)

    30 interface

    30 interface

    31 uses uFloat;

    31 uses uFloat;

    35 

    32 

    36 procedure SetRandomSeed(Seed: shortstring); // Sets the seed that should be used for generating pseudo-random values.

    33 procedure SetRandomSeed(Seed: shortstring); // Sets the seed that should be used for generating pseudo-random values.

    37 function  GetRandomf: hwFloat; overload; // Returns a pseudo-random hwFloat.

    34 function  GetRandomf: hwFloat; overload; // Returns a pseudo-random hwFloat.

    38 function  GetRandom(m: LongWord): LongWord; overload; inline; // Returns a positive pseudo-random integer smaller than m.

    35 function  GetRandom(m: LongWord): LongWord; overload; inline; // Returns a positive pseudo-random integer smaller than m.

    39 procedure AddRandomness(r: LongWord); inline;

    36 procedure AddRandomness(r: LongWord); inline;