hedgewars/uRandom.pas
changeset 107 b08ce0293a51
parent 105 e7cb9bb4a9de
child 124 75b892eff74d
--- a/hedgewars/uRandom.pas	Thu Aug 10 22:19:35 2006 +0000
+++ b/hedgewars/uRandom.pas	Fri Aug 11 16:17:50 2006 +0000
@@ -35,7 +35,7 @@
 interface
 
 procedure SetRandomSeed(Seed: shortstring);
-function  GetRandom: real; overload;
+function  GetRandom: Double; overload;
 function  GetRandom(m: LongWord): LongWord; overload;
 
 implementation
@@ -66,7 +66,7 @@
 for i:= 0 to 1024 do GetNext;
 end;
 
-function GetRandom: real;
+function GetRandom: Double;
 begin
 Result:= frac( GetNext * 0.0007301 + GetNext * 0.003019)
 end;