hedgewars/uGearsList.pas
changeset 11002 01c8e95d2265
parent 10891 a4c454ef80a6
child 11036 6e866be63b1d
equal deleted inserted replaced
11001:84693a1ab10b 11002:01c8e95d2265
   731             for i:= 0 to Pred(team^.Clan^.TeamsNumber) do
   731             for i:= 0 to Pred(team^.Clan^.TeamsNumber) do
   732                 if (team^.Clan^.Teams[i]^.Hedgehogs[0].Gear <> nil) then
   732                 if (team^.Clan^.Teams[i]^.Hedgehogs[0].Gear <> nil) then
   733                     k:= true;
   733                     k:= true;
   734             if not k then
   734             if not k then
   735                 for i:= 0 to Pred(team^.Clan^.TeamsNumber) do
   735                 for i:= 0 to Pred(team^.Clan^.TeamsNumber) do
   736                     begin
   736                     with team^.Clan^.Teams[i]^ do
   737                     team^.Clan^.Teams[i]^.hasGone:= true;
   737                         for t:= 0 to cMaxHHIndex do
   738                     TeamGoneEffect(team^.Clan^.Teams[i]^)
   738                             if Hedgehogs[t].Gear <> nil then
   739                     end
   739                                 Hedgehogs[t].Gear^.Health:= 0
       
   740                             else if (Hedgehogs[t].GearHidden <> nil) then
       
   741                                 Hedgehogs[t].GearHidden^.Health:= 0  // hog is still hidden. if tardis should return though, lua, eh...
   740             end;
   742             end;
   741 
   743 
   742         // should be not CurrentHedgehog, but hedgehog of the last gear which caused damage to this hog
   744         // should be not CurrentHedgehog, but hedgehog of the last gear which caused damage to this hog
   743         // same stand for CheckHHDamage
   745         // same stand for CheckHHDamage
   744         if (Gear^.LastDamage <> nil) and (CurrentHedgehog <> nil) then
   746         if (Gear^.LastDamage <> nil) and (CurrentHedgehog <> nil) then