--- a/hedgewars/uRandom.pas	Sun Mar 21 18:42:34 2010 +0000
+++ b/hedgewars/uRandom.pas	Sun Mar 21 19:02:03 2010 +0000
@@ -23,8 +23,8 @@
 uses uFloat;
 {$INCLUDE "config.inc"}
 
-procedure init_uRandom;
-procedure free_uRandom;
+procedure initModule;
+procedure freeModule;
 
 procedure SetRandomSeed(Seed: shortstring);
 function  GetRandom: hwFloat; overload;
@@ -96,12 +96,12 @@
 end;
 {$ENDIF}
 
-procedure init_uRandom;
+procedure initModule;
 begin
     n:= 54;
 end;
 
-procedure free_uRandom;
+procedure freeModule;
 begin
 
 end;