hedgewars/uGearsList.pas
changeset 14621 4638aa2ea8f2
parent 14403 87562a68c41f
child 14739 e57c8ace7d96
--- a/hedgewars/uGearsList.pas	Wed Jan 16 21:32:25 2019 +0100
+++ b/hedgewars/uGearsList.pas	Wed Jan 16 22:39:27 2019 +0100
@@ -866,6 +866,25 @@
                             Hedgehogs[t].GearHidden^.Health:= 0  // hog is still hidden. if tardis should return though, lua, eh...
             end;
 
+        // Update passive status of clan
+        if (not Gear^.Hedgehog^.Team^.Clan^.Passive) then
+            begin
+            Gear^.Hedgehog^.Team^.Clan^.Passive:= true;
+            for i:= 0 to Pred(team^.Clan^.TeamsNumber) do
+                begin
+                with team^.Clan^.Teams[i]^ do
+                    if (not Passive) then
+                        for t:= 0 to cMaxHHIndex do
+                            if (Hedgehogs[t].Gear <> nil) or (Hedgehogs[t].GearHidden <> nil) then
+                                begin
+                                Gear^.Hedgehog^.Team^.Clan^.Passive:= false;
+                                break;
+                                end;
+                if (not Gear^.Hedgehog^.Team^.Clan^.Passive) then
+                    break;
+                end;
+            end;
+
         // should be not CurrentHedgehog, but hedgehog of the last gear which caused damage to this hog
         // same stand for CheckHHDamage
         if (Gear^.LastDamage <> nil) and (CurrentHedgehog <> nil) then