--- a/hedgewars/HHHandlers.inc	Tue Apr 01 15:53:52 2008 +0000
+++ b/hedgewars/HHHandlers.inc	Tue Apr 01 15:57:51 2008 +0000
@@ -125,6 +125,9 @@
                      amTeleport: CurAmmoGear:= AddGear(0, 0, gtTeleport, 0, _0, _0, 0);
                        amSwitch: CurAmmoGear:= AddGear(hwRound(X), hwRound(Y), gtSwitcher, 0, _0, _0, 0);
                   end;
+
+        uStats.AmmoUsed(Ammo^[CurSlot, CurAmmo].AmmoType);
+
         Power:= 0;
         if CurAmmoGear <> nil then
            begin