hedgewars/uTeams.pas
changeset 5965 e529b28d10e9
parent 5954 2aead3f940b0
parent 5955 07f6fa51ea58
child 5991 c3b7064d9226
--- a/hedgewars/uTeams.pas	Mon Sep 19 14:17:33 2011 -0400
+++ b/hedgewars/uTeams.pas	Mon Sep 19 23:25:13 2011 +0200
@@ -430,7 +430,8 @@
             if Gear <> nil then
                 begin
                 Gear^.Invulnerable:= false;
-                Gear^.Damage:= Gear^.Health
+                Gear^.Damage:= Gear^.Health;
+                Gear^.State:= (Gear^.State or gstHHGone) and not gstHHDriven
                 end
 end;