hedgewars/uGears.pas
changeset 1918 975d5061712f
parent 1913 73d2da2df3c2
child 1939 4b8e4cd9e7c0
equal deleted inserted replaced
1917:c94045b70142 1918:975d5061712f
   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 				SetAllToActive;
   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