--- a/hedgewars/uGearsHedgehog.pas	Wed Sep 05 02:11:51 2012 +0400
+++ b/hedgewars/uGearsHedgehog.pas	Wed Sep 05 02:17:04 2012 +0400
@@ -598,7 +598,6 @@
 ////////////////////////////////////////////////////////////////////////////////
 procedure PickUp(HH, Gear: PGear);
 var s: shortstring;
-    a: TAmmoType;
     i: LongInt;
     vga: PVisualGear;
     ag, gi: PGear;