hedgewars/HHHandlers.inc
changeset 1645 f010d68adbb7
parent 1639 89b536a3cf3c
child 1658 208a3258afdf
--- a/hedgewars/HHHandlers.inc	Mon Jan 12 14:50:22 2009 +0000
+++ b/hedgewars/HHHandlers.inc	Mon Jan 12 14:55:30 2009 +0000
@@ -499,13 +499,14 @@
    Gear^.Message:= 0;
 
 if (TurnTimeLeft = 0) or (Gear^.Damage > 0) then
-   begin
-   TurnTimeLeft:= 0;
-   Gear^.State:= Gear^.State and not (gstHHDriven or gstAnimation);
-   if Gear^.Damage > 0 then
-      Gear^.State:= Gear^.State and not (gstHHJumping or gstHHHJump);
-   exit
-   end;
+	begin
+	TurnTimeLeft:= 0;
+	isCursorVisible:= false;
+	Gear^.State:= Gear^.State and not (gstHHDriven or gstAnimation);
+	if Gear^.Damage > 0 then
+		Gear^.State:= Gear^.State and not (gstHHJumping or gstHHHJump);
+	exit
+	end;
 
 if (Gear^.State and gstAnimation) <> 0 then
 	begin