hedgewars/uGearsList.pas
changeset 11002 01c8e95d2265
parent 10891 a4c454ef80a6
child 11036 6e866be63b1d
--- a/hedgewars/uGearsList.pas	Sat Jul 11 18:28:26 2015 +0200
+++ b/hedgewars/uGearsList.pas	Sat Jul 11 18:36:06 2015 -0400
@@ -733,10 +733,12 @@
                     k:= true;
             if not k then
                 for i:= 0 to Pred(team^.Clan^.TeamsNumber) do
-                    begin
-                    team^.Clan^.Teams[i]^.hasGone:= true;
-                    TeamGoneEffect(team^.Clan^.Teams[i]^)
-                    end
+                    with team^.Clan^.Teams[i]^ do
+                        for t:= 0 to cMaxHHIndex do
+                            if Hedgehogs[t].Gear <> nil then
+                                Hedgehogs[t].Gear^.Health:= 0
+                            else if (Hedgehogs[t].GearHidden <> nil) then
+                                Hedgehogs[t].GearHidden^.Health:= 0  // hog is still hidden. if tardis should return though, lua, eh...
             end;
 
         // should be not CurrentHedgehog, but hedgehog of the last gear which caused damage to this hog