162 DecodeDate(Date, year, month, md);

   162 DecodeDate(Date, year, month, md);

   163 for t:= 0 to Pred(TeamsCount) do

   163 for t:= 0 to Pred(TeamsCount) do

   164     with TeamsArray[t]^ do

   164     with TeamsArray[t]^ do

   165         begin

   165         begin

   166         NameTagTex:= RenderStringTexLim(TeamName, Clan^.Color, Font, cTeamHealthWidth);

   166         NameTagTex:= RenderStringTexLim(TeamName, Clan^.Color, Font, cTeamHealthWidth);

   167 

   169 

   168         r.x:= 0;

   170         r.x:= 0;

   169         r.y:= 0;

   171         r.y:= 0;

   170         r.w:= 32;

   172         r.w:= 32;

   171         r.h:= 32;

   173         r.h:= 32;