hedgewars/uGears.pas
changeset 2611 07b0cc91256c
parent 2608 cebfea02f8b5
child 2619 bc2786a00fb8
equal deleted inserted replaced
2610:8c00c1ee6cac 2611:07b0cc91256c
   627 			else begin
   627 			else begin
   628 				// delayed till after 0.9.12
   628 				// delayed till after 0.9.12
   629 				// reset to default zoom
   629 				// reset to default zoom
   630 				//ZoomValue:= ZoomDefault;
   630 				//ZoomValue:= ZoomDefault;
   631 				with CurrentHedgehog^ do
   631 				with CurrentHedgehog^ do
   632 					if ((Gear^.State and gstAttacked) = 0)
   632 					if (Gear <> nil) 
       
   633                         and ((Gear^.State and gstAttacked) = 0)
   633 						and (MultiShootAttacks > 0) then OnUsedAmmo(CurrentHedgehog^);
   634 						and (MultiShootAttacks > 0) then OnUsedAmmo(CurrentHedgehog^);
   634 				
   635 				
   635 				ResetUtilities;
   636 				ResetUtilities;
   636 
   637 
   637 				FreeActionsList; // could send -left, -right and similar commands, so should be called before /nextturn
   638 				FreeActionsList; // could send -left, -right and similar commands, so should be called before /nextturn