# HG changeset patch
# User unc0rr
# Date 1207066267 0
# Node ID 5cfd1096be5f4d62deee2c0b73d8ca251ad4b9ad
# Parent  f0726703219436a68b4fc6ff0dfa63b0d1658c53
 - Fix counting damage given to mines
 - Use damaging ammo info to produce 'missed' sound only if damage should take place

diff -r f07267032194 -r 5cfd1096be5f hedgewars/uGears.pas
--- a/hedgewars/uGears.pas	Tue Apr 01 16:05:19 2008 +0000
+++ b/hedgewars/uGears.pas	Tue Apr 01 16:11:07 2008 +0000
@@ -776,9 +776,11 @@
                           if (Mask and EXPLNoDamage) = 0 then
                              begin
                              inc(Gear^.Damage, dmg);
-                             uStats.HedgehogDamaged(Gear, dmg);
                              if Gear^.Kind = gtHedgehog then
+                                begin
+                                uStats.HedgehogDamaged(Gear, dmg);
                                 AddDamageTag(hwRound(Gear^.X), hwRound(Gear^.Y), dmg, Gear)
+                                end
                              end;
                           if ((Mask and EXPLDoNotTouchHH) = 0) or (Gear^.Kind <> gtHedgehog) then
                              begin
diff -r f07267032194 -r 5cfd1096be5f hedgewars/uStats.pas
--- a/hedgewars/uStats.pas	Tue Apr 01 16:05:19 2008 +0000
+++ b/hedgewars/uStats.pas	Tue Apr 01 16:11:07 2008 +0000
@@ -65,7 +65,7 @@
 else if CurrentHedgehog^.stats.StepDamageRecv > 0 then PlaySound(sndStupid, false)
 else if DamageClan <> 0 then
 else if DamageGiven <> 0 then
-else PlaySound(sndMissed, false);
+else if AmmoDamagingUsed then PlaySound(sndMissed, false);
 
 Gear:= GearsList;
 while Gear <> nil do