hedgewars/uLandObjects.pas
branchphysfslayer
changeset 8025 07862ab415c8
parent 7640 e9e6b4d740f6
child 8028 dc30104660d3
equal deleted inserted replaced
8022:10b3b93c1f56 8025:07862ab415c8
   427         WaterColorArray[i].g:= t;
   427         WaterColorArray[i].g:= t;
   428         WaterColorArray[i].b:= t
   428         WaterColorArray[i].b:= t
   429         end
   429         end
   430     end;
   430     end;
   431 
   431 
   432 s:= UserPathz[ptCurrTheme] + '/' + cThemeCFGFilename;
   432 s:= cPathz[ptCurrTheme] + '/' + cThemeCFGFilename;
   433 if not FileExists(s) then
       
   434     s:= Pathz[ptCurrTheme] + '/' + cThemeCFGFilename;
       
   435 WriteLnToConsole('Reading objects info...');
   433 WriteLnToConsole('Reading objects info...');
   436 Assign(f, s);
   434 Assign(f, s);
   437 {$I-}
   435 {$I-}
   438 filemode:= 0; // readonly
   436 filemode:= 0; // readonly
   439 Reset(f);
   437 Reset(f);