--- a/hedgewars/uAmmos.pas	Sun Jul 01 20:16:19 2007 +0000
+++ b/hedgewars/uAmmos.pas	Mon Jul 02 16:21:07 2007 +0000
@@ -130,9 +130,7 @@
 
 procedure OnUsedAmmo(var Hedgehog: THedgehog);
 var s, a: Longword;
-    Ammo: PHHAmmo;
 begin
-Ammo:= Hedgehog.Ammo;
 with Hedgehog do
      begin
      if CurAmmoGear = nil then begin s:= CurSlot; a:= CurAmmo end