--- a/hedgewars/uVisualGears.pas	Sun Mar 21 18:42:34 2010 +0000
+++ b/hedgewars/uVisualGears.pas	Sun Mar 21 19:02:03 2010 +0000
@@ -50,8 +50,8 @@
         Text: shortstring
         end;
 
-procedure init_uVisualGears;
-procedure free_uVisualGears;
+procedure initModule;
+procedure freeModule;
 
 function  AddVisualGear(X, Y: LongInt; Kind: TVisualGearType): PVisualGear;
 procedure ProcessVisualGears(Steps: Longword);
@@ -745,12 +745,12 @@
     AddVisualGear( - cScreenWidth + i * ((cScreenWidth * 2 + (LAND_WIDTH+256)) div (cCloudsNumber + 1)), LAND_HEIGHT-1184, vgtCloud)
 end;
 
-procedure init_uVisualGears;
+procedure initModule;
 begin
     VisualGearsList:= nil;
 end;
 
-procedure free_uVisualGears;
+procedure freeModule;
 begin
     while VisualGearsList <> nil do DeleteVisualGear(VisualGearsList);
 end;