hedgewars/uTeams.pas
changeset 4889 f71e30eb1d37
parent 4881 35e6269227b6
child 4900 8ad0e23e6d63
equal deleted inserted replaced
4888:3c96e99468c5 4889:f71e30eb1d37
   370     NewTeamHealthBarWidth:= 0;
   370     NewTeamHealthBarWidth:= 0;
   371 
   371 
   372     if not hasGone then
   372     if not hasGone then
   373         for i:= 0 to cMaxHHIndex do
   373         for i:= 0 to cMaxHHIndex do
   374             if Hedgehogs[i].Gear <> nil then
   374             if Hedgehogs[i].Gear <> nil then
   375                 inc(NewTeamHealthBarWidth, Hedgehogs[i].Gear^.Health);
   375                 inc(NewTeamHealthBarWidth, Hedgehogs[i].Gear^.Health)
       
   376             else if Hedgehogs[i].GearHidden <> nil then
       
   377                 inc(NewTeamHealthBarWidth, Hedgehogs[i].GearHidden^.Health);
   376 
   378 
   377     TeamHealth:= NewTeamHealthBarWidth;
   379     TeamHealth:= NewTeamHealthBarWidth;
   378     if NewTeamHealthBarWidth > MaxTeamHealth then
   380     if NewTeamHealthBarWidth > MaxTeamHealth then
   379         begin
   381         begin
   380         MaxTeamHealth:= NewTeamHealthBarWidth;
   382         MaxTeamHealth:= NewTeamHealthBarWidth;