87      end

    87      end

    88 end;

    88 end;

    89 

    89 

    90 procedure AfterAttack;

    90 procedure AfterAttack;

    91 begin

    91 begin

    94      begin

    94      begin

    95         Inc(AttacksNum);

    95         Inc(AttacksNum);

    96         State:= State and not gstAttacking;

    96         State:= State and not gstAttacking;

    97         if Ammo^[CurSlot, CurAmmo].NumPerTurn >= AttacksNum then isInMultiShoot:= true

    97         if Ammo^[CurSlot, CurAmmo].NumPerTurn >= AttacksNum then isInMultiShoot:= true

    98            else begin

    98            else begin

    99            TurnTimeLeft:= Ammoz[Ammo^[CurSlot, CurAmmo].AmmoType].TimeAfterTurn;

    99            TurnTimeLeft:= Ammoz[Ammo^[CurSlot, CurAmmo].AmmoType].TimeAfterTurn;

   100            State:= State or gstAttacked;

   100            State:= State or gstAttacked;

   102            end;

   102            end;

   103      AttackBar:= 0;

   103      AttackBar:= 0;

   104      end

   104      end

   105 end;

   105 end;

   106 

   106