255         if b then // there is a free item in ammo stack

   255         if b then // there is a free item in ammo stack

   256             begin

   256             begin

   257             Ammo^[Slot, ami]:= Ammo^[Slot, ami + 1];

   257             Ammo^[Slot, ami]:= Ammo^[Slot, ami + 1];

   258             Ammo^[Slot, ami + 1].Count:= 0

   258             Ammo^[Slot, ami + 1].Count:= 0

   259             end;

   259             end;

   261 AmmoMenuInvalidated:= true;

   261 AmmoMenuInvalidated:= true;

   262 end;

   262 end;

   263 

   263 

   264 procedure OnUsedAmmo(var Hedgehog: THedgehog);

   264 procedure OnUsedAmmo(var Hedgehog: THedgehog);

   265 var CurWeapon: PAmmo;

   265 var CurWeapon: PAmmo;