63              NameRect, CrossHairRect,

    63              NameRect, CrossHairRect,

    64              GraveRect, HealthRect: TSDL_Rect;

    64              GraveRect, HealthRect: TSDL_Rect;

    65              GraveName: string;

    65              GraveName: string;

    66              FortName: string;

    66              FortName: string;

    67              TeamHealth: integer;

    67              TeamHealth: integer;

    68              AttackBar: LongWord;

    69              AttackBar: LongWord;

    69              end;

    70              end;

    70 

    71 

    71 var CurrentTeam: PTeam = nil;

    72 var CurrentTeam: PTeam = nil;

    72     TeamsList: PTeam = nil;

    73     TeamsList: PTeam = nil;

   305      if TeamHealth > MaxTeamHealth then

   306      if TeamHealth > MaxTeamHealth then

   306         begin

   307         begin

   307         MaxTeamHealth:= TeamHealth;

   308         MaxTeamHealth:= TeamHealth;

   308         RecountAllTeamsHealth;

   309         RecountAllTeamsHealth;

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

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

   311 end;

   313 end;

   312 

   314 

   313 initialization

   315 initialization

   314 

   316 

   315 finalization

   317 finalization