--- a/hedgewars/uRandom.pas	Sat Jan 16 17:30:37 2010 +0000
+++ b/hedgewars/uRandom.pas	Mon Jan 18 05:36:08 2010 +0000
@@ -23,6 +23,7 @@
 uses uFloat;
 {$INCLUDE "proto.inc"}
 
+procedure init_uRandom;
 procedure SetRandomSeed(Seed: shortstring);
 function  GetRandom: hwFloat; overload;
 function  GetRandom(m: LongWord): LongWord; overload;
@@ -36,7 +37,7 @@
 uses uMisc;
 {$ENDIF}
 var cirbuf: array[0..63] of Longword;
-    n: byte = 54;
+    n: byte;
 
 function GetNext: Longword;
 begin
@@ -93,4 +94,9 @@
 end;
 {$ENDIF}
 
+procedure init_uRandom;
+begin
+	n:= 54;
+end;
+
 end.