hedgewars/uTeams.pas
changeset 5829 3ec95dc2b249
parent 5818 d071162d550d
child 5832 f730c8a9777b
--- a/hedgewars/uTeams.pas	Fri Sep 09 15:52:59 2011 +0200
+++ b/hedgewars/uTeams.pas	Fri Sep 09 22:04:40 2011 +0400
@@ -427,11 +427,17 @@
 with Team do
     for i:= 0 to cMaxHHIndex do
         with Hedgehogs[i] do
+            begin
+            if Hedgehogs[i].GearHidden <> nil then
+                RestoreHog(@Hedgehogs[i]);
+
             if Gear <> nil then
                 begin
                 Gear^.Invulnerable:= false;
-                Gear^.Damage:= Gear^.Health
+                Gear^.Damage:= Gear^.Health;
+                Gear^.State:= Gear^.State or gstHHGone
                 end
+            end
 end;
 
 procedure chAddHH(var id: shortstring);