hedgewars/uGears.pas
changeset 2608 cebfea02f8b5
parent 2599 c7153d2348f3
child 2611 07b0cc91256c
equal deleted inserted replaced
2607:dbeaba78e676 2608:cebfea02f8b5
   620 	stSpawn: begin
   620 	stSpawn: begin
   621 			if not isInMultiShoot then SpawnBoxOfSmth;
   621 			if not isInMultiShoot then SpawnBoxOfSmth;
   622 			inc(step)
   622 			inc(step)
   623 			end;
   623 			end;
   624 	stNTurn: begin
   624 	stNTurn: begin
   625 			if isInMultiShoot then isInMultiShoot:= false
   625 			if isInMultiShoot then
       
   626 				isInMultiShoot:= false
   626 			else begin
   627 			else begin
   627 			// delayed till after 0.9.12
   628 				// delayed till after 0.9.12
   628 			// reset to default zoom
   629 				// reset to default zoom
   629 			//ZoomValue:= ZoomDefault;
   630 				//ZoomValue:= ZoomDefault;
   630 			ResetUtilities;
   631 				with CurrentHedgehog^ do
   631 
   632 					if ((Gear^.State and gstAttacked) = 0)
   632 			FreeActionsList; // could send -left, -right and similar commands, so should be called before /nextturn
   633 						and (MultiShootAttacks > 0) then OnUsedAmmo(CurrentHedgehog^);
   633 
   634 				
   634 			ParseCommand('/nextturn', true);
   635 				ResetUtilities;
   635 			SwitchHedgehog;
   636 
   636 
   637 				FreeActionsList; // could send -left, -right and similar commands, so should be called before /nextturn
   637 			inc(step); // FIXME wtf is that, it overflows step, and does nothing
   638 
   638 
   639 				ParseCommand('/nextturn', true);
   639 			AfterSwitchHedgehog;
   640 				SwitchHedgehog;
   640 			bBetweenTurns:= false
   641 
   641 			end;
   642 				AfterSwitchHedgehog;
       
   643 				bBetweenTurns:= false
       
   644 				end;
   642 			step:= Low(step)
   645 			step:= Low(step)
   643 			end;
   646 			end;
   644 	end;
   647 	end;
   645 
   648 
   646 if TurnTimeLeft > 0 then
   649 if TurnTimeLeft > 0 then