508 			inc(step)

   508 			inc(step)

   509 		end;

   509 		end;

   510 	stChDmg: if CheckNoDamage then inc(step) else step:= stDelay;

   510 	stChDmg: if CheckNoDamage then inc(step) else step:= stDelay;

   511 	stSweep: if SweepDirty then

   511 	stSweep: if SweepDirty then

   512 				begin

   512 				begin

   513 				step:= stChDmg

   514 				step:= stChDmg

   514 				end else inc(step);

   515 				end else inc(step);

   515 	stTurnReact: begin

   516 	stTurnReact: begin

   516 		if (not bBetweenTurns) and (not isInMultiShoot) then

   517 		if (not bBetweenTurns) and (not isInMultiShoot) then

   517 			begin

   518 			begin