52              FortName: string;

    52              FortName: string;

    53              TeamHealth: integer;

    53              TeamHealth: integer;

    54              TeamHealthBarWidth: integer;

    54              TeamHealthBarWidth: integer;

    55              DrawHealthY: integer;

    55              DrawHealthY: integer;

    56              AttackBar: LongWord;

    56              AttackBar: LongWord;

    57              end;

    58              end;

    58 

    59 

    59 var CurrentTeam: PTeam = nil;

    60 var CurrentTeam: PTeam = nil;

    60     TeamsList: PTeam = nil;

    61     TeamsList: PTeam = nil;

    61     CurMinAngle, CurMaxAngle: Longword;

    62     CurMinAngle, CurMaxAngle: Longword;

   213 while p <> nil do

   214 while p <> nil do

   214       begin

   215       begin

   215       th:= 0;

   216       th:= 0;

   216       for i:= 0 to cMaxHHIndex do

   217       for i:= 0 to cMaxHHIndex do

   217           if p.Hedgehogs[i].Gear <> nil then

   218           if p.Hedgehogs[i].Gear <> nil then

   222       if th > MaxTeamHealth then MaxTeamHealth:= th;

   220       if th > MaxTeamHealth then MaxTeamHealth:= th;

   223       p:= p.Next

   221       p:= p.Next

   224       end;

   222       end;

   225 RecountAllTeamsHealth

   223 RecountAllTeamsHealth

   226 end;

   224 end;