310      begin

   310      begin

   311      with Hedgehogs[CurrHedgehog] do

   311      with Hedgehogs[CurrHedgehog] do

   312           begin

   312           begin

   313           if ((Gear^.State and (gstAttacking or gstAttacked)) <> 0) or (AttacksNum > 0)

   313           if ((Gear^.State and (gstAttacking or gstAttacked)) <> 0) or (AttacksNum > 0)

   314              or ((Gear^.State and gstHHDriven) = 0) then exit; // во время стрельбы исключает смену оружия

   314              or ((Gear^.State and gstHHDriven) = 0) then exit; // во время стрельбы исключает смену оружия

   315           if CurAmmoGear = nil then begin caSlot:= @CurSlot; caAmmo:= @CurAmmo end

   316           if CurAmmoGear = nil then begin caSlot:= @CurSlot; caAmmo:= @CurAmmo end

   316                                else begin caSlot:= @AltSlot; caAmmo:= @AltAmmo end;

   317                                else begin caSlot:= @AltSlot; caAmmo:= @AltAmmo end;

   317           if caSlot^ = slot then

   318           if caSlot^ = slot then

   318              begin

   319              begin

   319              inc(caAmmo^);

   320              inc(caAmmo^);