262       ami:= 0;

   262       ami:= 0;

   263       while (not b) and (ami < cMaxSlotAmmoIndex) do

   263       while (not b) and (ami < cMaxSlotAmmoIndex) do

   264           if (Ammo[Slot, ami].Count = 0)

   264           if (Ammo[Slot, ami].Count = 0)

   265              and (Ammo[Slot, ami + 1].Count > 0) then b:= true

   265              and (Ammo[Slot, ami + 1].Count > 0) then b:= true

   266                                                  else inc(ami);

   266                                                  else inc(ami);

   269          Ammo[Slot, ami]:= Ammo[Slot, ami + 1]

   268          Ammo[Slot, ami]:= Ammo[Slot, ami + 1]

   271     until not b;

   269     until not b;

   272 end;

   270 end;

   273 

   271 

   274 procedure OnUsedAmmo(Ammo: PHHAmmo);

   272 procedure OnUsedAmmo(Ammo: PHHAmmo);

   275 var s, a: Longword;

   273 var s, a: Longword;