hedgewars/uLandObjects.pas
changeset 3641 98319a621dc8
parent 3595 341e407e3754
child 3697 d5b30d6373fc
--- a/hedgewars/uLandObjects.pas	Tue Jul 13 17:39:00 2010 -0400
+++ b/hedgewars/uLandObjects.pas	Wed Jul 14 00:43:36 2010 +0200
@@ -449,7 +449,10 @@
 // snowflakes
 Readln(f, vobCount);
 if vobCount > 0 then
-   Readln(f, vobFramesCount, vobFrameTicks, vobVelocity, vobFallSpeed);
+    Readln(f, vobFramesCount, vobFrameTicks, vobVelocity, vobFallSpeed);
+if (cReducedQuality and rqKillFlakes) <> 0 then
+    vobCount:= 0;
+
 
 for i:= 0 to Pred(vobCount) do
     AddVisualGear( -cScreenWidth + random(cScreenWidth * 2 + LAND_WIDTH), random(1024+200) - 100 + LAND_HEIGHT, vgtFlake);