hedgewars/uGears.pas
changeset 4037 0f8ec120e90d
parent 4024 1ffb84b3823d
child 4043 4bf039d637df
equal deleted inserted replaced
4036:69e535a0e43a 4037:0f8ec120e90d
   599             k:= false;
   599             k:= false;
   600             for i:= 0 to Pred(team^.Clan^.TeamsNumber) do
   600             for i:= 0 to Pred(team^.Clan^.TeamsNumber) do
   601                 if (team^.Clan^.Teams[i]^.Hedgehogs[0].Gear <> nil) then k:= true;
   601                 if (team^.Clan^.Teams[i]^.Hedgehogs[0].Gear <> nil) then k:= true;
   602             if not k then
   602             if not k then
   603                 for i:= 0 to Pred(team^.Clan^.TeamsNumber) do
   603                 for i:= 0 to Pred(team^.Clan^.TeamsNumber) do
       
   604                     begin
       
   605                     team^.Clan^.Teams[i]^.hasGone:= true;
   604                     TeamGoneEffect(team^.Clan^.Teams[i]^)
   606                     TeamGoneEffect(team^.Clan^.Teams[i]^)
       
   607                     end
   605             end;
   608             end;
   606         inc(KilledHHs);
   609         inc(KilledHHs);
   607         RecountTeamHealth(team)
   610         RecountTeamHealth(team)
   608         end;
   611         end;
   609 {$IFDEF DEBUGFILE}
   612 {$IFDEF DEBUGFILE}