hedgewars/HHHandlers.inc
changeset 1749 7170f626e9d6
parent 1712 f5b916de40f0
child 1849 2a989e5abda6
equal deleted inserted replaced
1748:27dd2967fc65 1749:7170f626e9d6
   508 
   508 
   509 if (TurnTimeLeft = 0) or (Gear^.Damage > 0) then
   509 if (TurnTimeLeft = 0) or (Gear^.Damage > 0) then
   510 	begin
   510 	begin
   511 	TurnTimeLeft:= 0;
   511 	TurnTimeLeft:= 0;
   512 	isCursorVisible:= false;
   512 	isCursorVisible:= false;
   513 	Gear^.State:= Gear^.State and not (gstHHDriven or gstAnimation);
   513 	Gear^.State:= Gear^.State and not (gstHHDriven or gstAnimation or gstAttacking);
       
   514 	AttackBar:= 0;
   514 	if Gear^.Damage > 0 then
   515 	if Gear^.Damage > 0 then
   515 		Gear^.State:= Gear^.State and not (gstHHJumping or gstHHHJump);
   516 		Gear^.State:= Gear^.State and not (gstHHJumping or gstHHHJump);
   516 	exit
   517 	exit
   517 	end;
   518 	end;
   518 
   519