hedgewars/uTeams.pas
changeset 5955 07f6fa51ea58
parent 5875 b3e23cb69ab4
child 5965 e529b28d10e9
--- a/hedgewars/uTeams.pas	Sat Sep 17 10:22:35 2011 -0400
+++ b/hedgewars/uTeams.pas	Mon Sep 19 23:55:52 2011 +0400
@@ -435,7 +435,7 @@
                 begin
                 Gear^.Invulnerable:= false;
                 Gear^.Damage:= Gear^.Health;
-                Gear^.State:= Gear^.State or gstHHGone
+                Gear^.State:= (Gear^.State or gstHHGone) and not gstHHDriven
                 end
             end
 end;