hedgewars/uLandObjects.pas
changeset 2747 7889a3a9724f
parent 2705 2b5625c4ec16
child 2783 1532fde15179
equal deleted inserted replaced
2746:55593f8a490b 2747:7889a3a9724f
   369 
   369 
   370 s:= Pathz[ptCurrTheme] + '/' + cThemeCFGFilename;
   370 s:= Pathz[ptCurrTheme] + '/' + cThemeCFGFilename;
   371 WriteLnToConsole('Reading objects info...');
   371 WriteLnToConsole('Reading objects info...');
   372 Assign(f, s);
   372 Assign(f, s);
   373 {$I-}
   373 {$I-}
       
   374 filemode:= 0; // readonly
   374 Reset(f);
   375 Reset(f);
   375 
   376 
   376 // read sky and explosion border colors
   377 // read sky and explosion border colors
   377 Readln(f, c1.r, c1.g, c1. b);
   378 Readln(f, c1.r, c1.g, c1. b);
   378 Readln(f, c2.r, c2.g, c2. b);
   379 Readln(f, c2.r, c2.g, c2. b);