hedgewars/uLandObjects.pas
changeset 780 f45b0e513dfd
parent 393 db01cc79f278
child 802 ed5450a89b96
equal deleted inserted replaced
779:cb18225a150a 780:f45b0e513dfd
   357 s:= Pathz[ptCurrTheme] + '/' + cThemeCFGFilename;
   357 s:= Pathz[ptCurrTheme] + '/' + cThemeCFGFilename;
   358 WriteLnToConsole('Reading objects info...');
   358 WriteLnToConsole('Reading objects info...');
   359 Assign(f, s);
   359 Assign(f, s);
   360 {$I-}
   360 {$I-}
   361 Reset(f);
   361 Reset(f);
   362 Readln(f, s); // skip color
   362 Readln(f, s); // skip sky color
       
   363 Readln(f, s); // skip border color
   363 Readln(f, ThemeObjects.Count);
   364 Readln(f, ThemeObjects.Count);
   364 for i:= 0 to Pred(ThemeObjects.Count) do
   365 for i:= 0 to Pred(ThemeObjects.Count) do
   365     begin
   366     begin
   366     Readln(f, s); // filename
   367     Readln(f, s); // filename
   367     with ThemeObjects.objs[i] do
   368     with ThemeObjects.objs[i] do