hedgewars/HHHandlers.inc
changeset 1645 f010d68adbb7
parent 1639 89b536a3cf3c
child 1658 208a3258afdf
equal deleted inserted replaced
1644:1e51e80c383c 1645:f010d68adbb7
   497    AllInactive:= false
   497    AllInactive:= false
   498 else
   498 else
   499    Gear^.Message:= 0;
   499    Gear^.Message:= 0;
   500 
   500 
   501 if (TurnTimeLeft = 0) or (Gear^.Damage > 0) then
   501 if (TurnTimeLeft = 0) or (Gear^.Damage > 0) then
   502    begin
   502 	begin
   503    TurnTimeLeft:= 0;
   503 	TurnTimeLeft:= 0;
   504    Gear^.State:= Gear^.State and not (gstHHDriven or gstAnimation);
   504 	isCursorVisible:= false;
   505    if Gear^.Damage > 0 then
   505 	Gear^.State:= Gear^.State and not (gstHHDriven or gstAnimation);
   506       Gear^.State:= Gear^.State and not (gstHHJumping or gstHHHJump);
   506 	if Gear^.Damage > 0 then
   507    exit
   507 		Gear^.State:= Gear^.State and not (gstHHJumping or gstHHHJump);
   508    end;
   508 	exit
       
   509 	end;
   509 
   510 
   510 if (Gear^.State and gstAnimation) <> 0 then
   511 if (Gear^.State and gstAnimation) <> 0 then
   511 	begin
   512 	begin
   512 	Gear^.Message:= 0;
   513 	Gear^.Message:= 0;
   513 	inc(Gear^.Timer);
   514 	inc(Gear^.Timer);