--- a/hedgewars/uAmmos.pas	Sun May 11 19:21:58 2008 +0000
+++ b/hedgewars/uAmmos.pas	Sun May 11 19:30:40 2008 +0000
@@ -131,13 +131,10 @@
 end;
 
 procedure OnUsedAmmo(var Hedgehog: THedgehog);
-var s, a: Longword;
 begin
 with Hedgehog do
      begin
-     if CurAmmoGear = nil then begin s:= CurSlot; a:= CurAmmo end
-                          else begin s:= AltSlot; a:= AltAmmo end;
-     with Ammo^[s, a] do
+     with Ammo^[CurSlot, CurAmmo] do
           if Count <> AMMO_INFINITE then
              begin
              dec(Count);