hedgewars/uStats.pas
branchwebgl
changeset 8833 c13ebed437cb
parent 8026 4a4f21070479
parent 8717 6e1ccd678e8a
child 9127 e350500c4edb
--- a/hedgewars/uStats.pas	Wed Feb 20 02:21:58 2013 +0100
+++ b/hedgewars/uStats.pas	Tue Apr 02 21:00:57 2013 +0200
@@ -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