hedgewars/uRandom.pas
changeset 7043 7c080e5ac8d0
parent 7001 89488f5b99ca
child 7389 15c3fb4882df
equal deleted inserted replaced
7042:de20086a6bcc 7043:7c080e5ac8d0
    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;
    32 {$INCLUDE "config.inc"}
       
    33 
    32 
    34 procedure initModule;
    33 procedure initModule;
    35 procedure freeModule;
    34 procedure freeModule;
    36 
    35 
    37 procedure SetRandomSeed(Seed: shortstring); // Sets the seed that should be used for generating pseudo-random values.
    36 procedure SetRandomSeed(Seed: shortstring); // Sets the seed that should be used for generating pseudo-random values.