148         r, rr: TSDL_Rect;

   148         r, rr: TSDL_Rect;

   149         drY: integer;

   149         drY: integer;

   150     begin

   150     begin

   151     r.x:= 0;

   151     r.x:= 0;

   152     r.y:= 272;

   152     r.y:= 272;

   154     Team:= TeamsList;

   154     Team:= TeamsList;

   155     while Team<>nil do

   155     while Team<>nil do

   156       begin

   156       begin

   157       r.w:= 104;

   157       r.w:= 104;

   158       r:= WriteInRoundRect(StoreSurface, r.x, r.y, Team.Color, Font, Team.TeamName);

   158       r:= WriteInRoundRect(StoreSurface, r.x, r.y, Team.Color, Font, Team.TeamName);

   317 for i:= Low(TStuff) to High(TStuff) do

   317 for i:= Low(TStuff) to High(TStuff) do

   318     LoadToSurface(Pathz[StuffLoadData[i].Path] + '/' + StuffLoadData[i].FileName, StoreSurface, StuffPoz[i].x, StuffPoz[i].y);

   318     LoadToSurface(Pathz[StuffLoadData[i].Path] + '/' + StuffLoadData[i].FileName, StoreSurface, StuffPoz[i].x, StuffPoz[i].y);

   319 

   319 

   320 AddProgress;

   320 AddProgress;

   321 WriteNames(fnt16);

   321 WriteNames(fnt16);

   323 LoadGraves;

   323 LoadGraves;

   324 

   324 

   325 GetSkyColor;

   325 GetSkyColor;

   326 

   326 

   327 AddProgress;

   327 AddProgress;