--- a/hedgewars/uStats.pas	Wed Jan 12 20:32:44 2011 +0100
+++ b/hedgewars/uStats.pas	Thu Jan 13 21:52:48 2011 +0300
@@ -29,7 +29,7 @@
 procedure freeModule;
 
 procedure AmmoUsed(am: TAmmoType);
-procedure HedgehogDamaged(Gear, Attacker: PGear);
+procedure HedgehogDamaged(Gear: PGear; Attacker: PHedgehog);
 procedure Skipped;
 procedure TurnReaction;
 procedure SendStats;
@@ -50,17 +50,17 @@
     vpHurtSameClan: PVoicepack = nil;
     vpHurtEnemy: PVoicepack = nil;
 
-procedure HedgehogDamaged(Gear, Attacker: PGear);
+procedure HedgehogDamaged(Gear: PGear; Attacker: PHedgehog);
 begin
-if Attacker^.Hedgehog^.Team^.Clan = Gear^.Hedgehog^.Team^.Clan then
+if Attacker^.Team^.Clan = Gear^.Hedgehog^.Team^.Clan then
     vpHurtSameClan:= CurrentHedgehog^.Team^.voicepack
 else
     vpHurtEnemy:= Gear^.Hedgehog^.Team^.voicepack;
 
 //////////////////////////
 
-if Gear <> CurrentHedgehog^.Gear then
-    inc(CurrentHedgehog^.stats.StepDamageGiven, Gear^.Damage);
+if Gear <> Attacker^.Gear then
+    inc(Attacker^.stats.StepDamageGiven, Gear^.Damage);
 
 if CurrentHedgehog^.Team^.Clan = Gear^.Hedgehog^.Team^.Clan then inc(DamageClan, Gear^.Damage);