hedgewars/uLandObjects.pas
changeset 1801 bc0c5c21376e
parent 1792 c30c6944bd49
child 1869 490005509a7b
equal deleted inserted replaced
1800:f1df2eb32a16 1801:bc0c5c21376e
   374 ReadLn(f, s);
   374 ReadLn(f, s);
   375 if MusicFN = '' then MusicFN:= s;
   375 if MusicFN = '' then MusicFN:= s;
   376 
   376 
   377 ReadLn(f, cCloudsNumber);
   377 ReadLn(f, cCloudsNumber);
   378 
   378 
       
   379 // TODO - adjust all the theme cloud numbers. This should not be a permanent fix
       
   380 cCloudsNumber:= cCloudsNumber * (LAND_WIDTH div 2048);
       
   381 
   379 Readln(f, ThemeObjects.Count);
   382 Readln(f, ThemeObjects.Count);
   380 for i:= 0 to Pred(ThemeObjects.Count) do
   383 for i:= 0 to Pred(ThemeObjects.Count) do
   381 	begin
   384 	begin
   382 	Readln(f, s); // filename
   385 	Readln(f, s); // filename
   383 	with ThemeObjects.objs[i] do
   386 	with ThemeObjects.objs[i] do