hedgewars/uStats.pas
changeset 8717 6e1ccd678e8a
parent 7932 ebe1d112e439
child 8833 c13ebed437cb
child 9080 9b42757d7e71
--- a/hedgewars/uStats.pas	Sun Mar 10 15:44:03 2013 +0100
+++ b/hedgewars/uStats.pas	Mon Mar 11 12:20:59 2013 -0400
@@ -40,6 +40,7 @@
 
 var DamageClan  : Longword = 0;
     DamageTotal : Longword = 0;
+    DamageTurn  : Longword = 0;
     KillsClan   : LongWord = 0;
     Kills       : LongWord = 0;
     KillsTotal  : LongWord = 0;
@@ -82,7 +83,8 @@
         inc(KillsClan);
     end;
 
-inc(DamageTotal, Damage)
+inc(DamageTotal, Damage);
+inc(DamageTurn, Damage)
 end;
 
 procedure Skipped;
@@ -112,7 +114,7 @@
         end
 
     else if DamageClan <> 0 then
-        if DamageTotal > DamageClan then
+        if DamageTurn > DamageClan then
             if random(2) = 0 then
                 AddVoice(sndNutter, CurrentTeam^.voicepack)
             else
@@ -170,6 +172,7 @@
 Kills:= 0;
 KillsClan:= 0;
 DamageClan:= 0;
+DamageTurn:= 0;
 AmmoUsedCount:= 0;
 AmmoDamagingUsed:= false;
 isTurnSkipped:= false