hedgewars/uLandObjects.pas
changeset 806 d397c502a5dd
parent 805 4d75759b38bd
child 883 07a568ba44e0
equal deleted inserted replaced
805:4d75759b38bd 806:d397c502a5dd
   398 Readln(f, vobCount);
   398 Readln(f, vobCount);
   399 if vobCount > 0 then
   399 if vobCount > 0 then
   400    Readln(f, vobFramesCount, vobFrameTicks, vobVelocity, vobFallSpeed);
   400    Readln(f, vobFramesCount, vobFrameTicks, vobVelocity, vobFallSpeed);
   401 
   401 
   402 for i:= 0 to Pred(vobCount) do
   402 for i:= 0 to Pred(vobCount) do
   403     AddVisualGear( -cScreenWidth + random(cScreenWidth * 2 + 2048), random(1000), vgtFlake);
   403     AddVisualGear( -cScreenWidth + random(cScreenWidth * 2 + 2048), random(1200) - 100, vgtFlake);
   404 
   404 
   405 Close(f);
   405 Close(f);
   406 {$I+}
   406 {$I+}
   407 TryDo(IOResult = 0, 'Bad data or cannot access file ' + cThemeCFGFilename, true)
   407 TryDo(IOResult = 0, 'Bad data or cannot access file ' + cThemeCFGFilename, true)
   408 end;
   408 end;