338         begin

   338         begin

   339         MaxTeamHealth:= TeamHealth;

   339         MaxTeamHealth:= TeamHealth;

   340         RecountAllTeamsHealth;

   340         RecountAllTeamsHealth;

   341         end else TeamHealth:= (TeamHealth * cTeamHealthWidth) div MaxTeamHealth

   341         end else TeamHealth:= (TeamHealth * cTeamHealthWidth) div MaxTeamHealth

   342      end;

   342      end;

   343 AddGear(0, 0, gtTeamHealthSorter, 0)

   344 AddGear(0, 0, gtTeamHealthSorter, 0)

   344 end;

   345 end;

   345 

   346 

   346 procedure RestoreTeamsFromSave;

   347 procedure RestoreTeamsFromSave;

   347 var p: PTeam;

   348 var p: PTeam;