--- a/hedgewars/uWorld.pas	Sun Mar 21 18:42:34 2010 +0000
+++ b/hedgewars/uWorld.pas	Sun Mar 21 19:02:03 2010 +0000
@@ -36,8 +36,8 @@
     cntTicks: LongWord;
 {$ENDIF}
 
-procedure init_uWorld;
-procedure free_uWorld;
+procedure initModule;
+procedure freeModule;
 
 procedure InitWorld;
 procedure DrawWorld(Lag: LongInt);
@@ -933,7 +933,7 @@
     WorldDy:= WorldDy - amount + LongInt(getRandom(1 + amount * 2));
 end;
 
-procedure init_uWorld;
+procedure initModule;
 begin
     fpsTexture:= nil;
     FollowGear:= nil;
@@ -955,7 +955,7 @@
     FillChar(Captions, sizeof(Captions), 0)
 end;
 
-procedure free_uWorld;
+procedure freeModule;
 begin
     if missionTex <> nil then FreeTexture(missionTex);
 end;