--- a/hedgewars/uStats.pas	Tue Jan 26 04:13:37 2010 +0000
+++ b/hedgewars/uStats.pas	Tue Jan 26 21:55:51 2010 +0000
@@ -34,16 +34,18 @@
                    FinishedTurns: Longword;
                    end;
 
+var TotalRounds: LongInt;
+    FinishedTurnsTotal: LongInt;
+
+procedure init_uStats;
+procedure free_uStats;
+
 procedure AmmoUsed(am: TAmmoType);
 procedure HedgehogDamaged(Gear: PGear);
 procedure Skipped;
 procedure TurnReaction;
 procedure SendStats;
 
-var
-	TotalRounds: LongInt = -1;
-	FinishedTurnsTotal: LongInt = -1;
-
 implementation
 uses uTeams, uSound, uMisc, uLocale, uWorld;
 var DamageGiven : Longword = 0;
@@ -217,4 +219,15 @@
 if KilledHHs > 0 then SendStat(siKilledHHs, inttostr(KilledHHs));
 end;
 
+procedure init_uStats;
+begin
+	TotalRounds:= -1;
+	FinishedTurnsTotal:= -1;
+end;
+    
+procedure free_uStats;
+begin
+
+end;
+
 end.