--- a/hedgewars/uRandom.pas	Wed Aug 22 11:42:42 2012 -0400
+++ b/hedgewars/uRandom.pas	Wed Aug 22 12:35:46 2012 -0400
@@ -65,7 +65,7 @@
 procedure SetRandomSeed(Seed: shortstring);
 var i: Longword;
 begin
-initModule;
+n:= 54;
 
 if Length(Seed) > 54 then
     Seed:= copy(Seed, 1, 54); // not 55 to ensure we have odd numbers in cirbuf
@@ -99,15 +99,4 @@
 rndSign:= num
 end;
 
-procedure initModule;
-begin
-    n:= 54;
-    FillChar(cirbuf, 64*sizeof(Longword), 0);
-end;
-
-procedure freeModule;
-begin
-
-end;
-
 end.