hedgewars/uTeams.pas
changeset 4514 c62e6e522849
parent 4480 fcada5d38b3d
child 4881 35e6269227b6
equal deleted inserted replaced
4512:c6aff8ceada0 4514:c62e6e522849
   377     TeamHealth:= NewTeamHealthBarWidth;
   377     TeamHealth:= NewTeamHealthBarWidth;
   378     if NewTeamHealthBarWidth > MaxTeamHealth then
   378     if NewTeamHealthBarWidth > MaxTeamHealth then
   379         begin
   379         begin
   380         MaxTeamHealth:= NewTeamHealthBarWidth;
   380         MaxTeamHealth:= NewTeamHealthBarWidth;
   381         RecountAllTeamsHealth;
   381         RecountAllTeamsHealth;
   382         end else NewTeamHealthBarWidth:= (NewTeamHealthBarWidth * cTeamHealthWidth) div MaxTeamHealth
   382         end else if NewTeamHealthBarWidth > 0 then NewTeamHealthBarWidth:= (NewTeamHealthBarWidth * cTeamHealthWidth) div MaxTeamHealth
   383     end;
   383     end;
   384 
   384 
   385 RecountClanHealth(team^.Clan);
   385 RecountClanHealth(team^.Clan);
   386 
   386 
   387 AddVisualGear(0, 0, vgtTeamHealthSorter)
   387 AddVisualGear(0, 0, vgtTeamHealthSorter)