--- a/hedgewars/uStats.pas	Tue Apr 01 15:57:51 2008 +0000
+++ b/hedgewars/uStats.pas	Tue Apr 01 16:05:19 2008 +0000
@@ -40,6 +40,8 @@
 var DamageGiven : Longword = 0;
     DamageClan  : Longword = 0;
     DamageTotal : Longword = 0;
+    AmmoUsedCount : Longword = 0;
+    AmmoDamagingUsed : boolean = false;
 
 procedure HedgehogDamaged(Gear: PGear; Damage: Longword);
 begin
@@ -82,11 +84,15 @@
   end;
 
 DamageGiven:= 0;
-DamageClan:= 0
+DamageClan:= 0;
+AmmoUsedCount:= 0;
+AmmoDamagingUsed:= false
 end;
 
 procedure AmmoUsed(am: TAmmoType);
 begin
+inc(AmmoUsedCount);
+AmmoDamagingUsed:= AmmoDamagingUsed or Ammoz[am].isDamaging
 end;
 
 procedure SendStats;