diff -r 8789a8f6c016 -r efbc8f80acac hedgewars/uStats.pas --- a/hedgewars/uStats.pas Fri Jan 07 21:41:12 2011 +0300 +++ b/hedgewars/uStats.pas Fri Jan 07 23:08:34 2011 +0300 @@ -29,7 +29,7 @@ procedure freeModule; procedure AmmoUsed(am: TAmmoType); -procedure HedgehogDamaged(Gear: PGear); +procedure HedgehogDamaged(Gear, Attacker: PGear); procedure Skipped; procedure TurnReaction; procedure SendStats; @@ -50,15 +50,13 @@ vpHurtSameClan: PVoicepack = nil; vpHurtEnemy: PVoicepack = nil; -procedure HedgehogDamaged(Gear: PGear); +procedure HedgehogDamaged(Gear, Attacker: PGear); begin -if CurrentHedgehog^.Team^.Clan = Gear^.Hedgehog^.Team^.Clan then +if Attacker^.Hedgehog^.Team^.Clan = Gear^.Hedgehog^.Team^.Clan then vpHurtSameClan:= CurrentHedgehog^.Team^.voicepack else vpHurtEnemy:= Gear^.Hedgehog^.Team^.voicepack; -if bBetweenTurns then exit; - ////////////////////////// if Gear <> CurrentHedgehog^.Gear then