78             PlayerHash: shortstring;   // md5 hash of player name. For temporary enabling of hats as thank you. Hashed for privacy of players

    78             PlayerHash: shortstring;   // md5 hash of player name. For temporary enabling of hats as thank you. Hashed for privacy of players

    79             end;

    79             end;

    80 

    80 

    81     TClan = record

    81     TClan = record

    82             Color: Longword;

    82             Color: Longword;

    84             Teams: array[0..Pred(cMaxTeams)] of PTeam;

    83             Teams: array[0..Pred(cMaxTeams)] of PTeam;

    85             TeamsNumber: Longword;

    84             TeamsNumber: Longword;

    86             CurrTeam: LongWord;

    85             CurrTeam: LongWord;

    87             ClanHealth: LongInt;

    86             ClanHealth: LongInt;

    88             ClanIndex: LongInt;

    87             ClanIndex: LongInt;

   313    inc(ClansCount);

   312    inc(ClansCount);

   314    with team^.Clan^ do

   313    with team^.Clan^ do

   315         begin

   314         begin

   316         ClanIndex:= Pred(ClansCount);

   315         ClanIndex:= Pred(ClansCount);

   317         Color:= TeamColor;

   316         Color:= TeamColor;

   319         end

   317         end

   320    end else

   318    end else

   321    begin

   319    begin

   322    team^.Clan:= ClansArray[c];

   320    team^.Clan:= ClansArray[c];

   323    end;

   321    end;