--- a/hedgewars/uStats.pas	Sun Mar 21 18:42:34 2010 +0000
+++ b/hedgewars/uStats.pas	Sun Mar 21 19:02:03 2010 +0000
@@ -37,8 +37,8 @@
 var TotalRounds: LongInt;
     FinishedTurnsTotal: LongInt;
 
-procedure init_uStats;
-procedure free_uStats;
+procedure initModule;
+procedure freeModule;
 
 procedure AmmoUsed(am: TAmmoType);
 procedure HedgehogDamaged(Gear: PGear);
@@ -219,13 +219,13 @@
 if KilledHHs > 0 then SendStat(siKilledHHs, inttostr(KilledHHs));
 end;
 
-procedure init_uStats;
+procedure initModule;
 begin
     TotalRounds:= -1;
     FinishedTurnsTotal:= -1;
 end;
     
-procedure free_uStats;
+procedure freeModule;
 begin
 
 end;