hedgewars/uLandObjects.pas
changeset 3641 98319a621dc8
parent 3595 341e407e3754
child 3697 d5b30d6373fc
equal deleted inserted replaced
3640:54676a34b9ad 3641:98319a621dc8
   447     end;
   447     end;
   448 
   448 
   449 // snowflakes
   449 // snowflakes
   450 Readln(f, vobCount);
   450 Readln(f, vobCount);
   451 if vobCount > 0 then
   451 if vobCount > 0 then
   452    Readln(f, vobFramesCount, vobFrameTicks, vobVelocity, vobFallSpeed);
   452     Readln(f, vobFramesCount, vobFrameTicks, vobVelocity, vobFallSpeed);
       
   453 if (cReducedQuality and rqKillFlakes) <> 0 then
       
   454     vobCount:= 0;
       
   455 
   453 
   456 
   454 for i:= 0 to Pred(vobCount) do
   457 for i:= 0 to Pred(vobCount) do
   455     AddVisualGear( -cScreenWidth + random(cScreenWidth * 2 + LAND_WIDTH), random(1024+200) - 100 + LAND_HEIGHT, vgtFlake);
   458     AddVisualGear( -cScreenWidth + random(cScreenWidth * 2 + LAND_WIDTH), random(1024+200) - 100 + LAND_HEIGHT, vgtFlake);
   456 
   459 
   457 Close(f);
   460 Close(f);