diff -r 3774ac58e65e -r 20ff80421736 hedgewars/uRandom.pas --- a/hedgewars/uRandom.pas Sat Jun 15 23:45:53 2013 +0400 +++ b/hedgewars/uRandom.pas Sun Jun 16 00:46:11 2013 +0400 @@ -31,8 +31,8 @@ uses uFloat; procedure SetRandomSeed(Seed: shortstring; dropAdditionalPart: boolean); // Sets the seed that should be used for generating pseudo-random values. -function GetRandomf: hwFloat; overload; // Returns a pseudo-random hwFloat. -function GetRandom(m: LongWord): LongWord; overload; inline; // Returns a positive pseudo-random integer smaller than m. +function GetRandomf: hwFloat; // Returns a pseudo-random hwFloat. +function GetRandom(m: LongWord): LongWord; inline; // Returns a positive pseudo-random integer smaller than m. procedure AddRandomness(r: LongWord); inline; function rndSign(num: hwFloat): hwFloat; // Returns num with a random chance of having a inverted sign. @@ -92,7 +92,7 @@ GetRandomf.QWordValue:= GetNext end; -function GetRandom(m: LongWord): LongWord; overload; inline; +function GetRandom(m: LongWord): LongWord; inline; begin GetNext; GetRandom:= GetNext mod m