hedgewars/uGears.pas
changeset 4809 9c7d5f802618
parent 4808 7c3e5b52344a
child 4813 53c2f0f92281
--- a/hedgewars/uGears.pas	Sun Jan 02 18:12:16 2011 +0100
+++ b/hedgewars/uGears.pas	Sun Jan 02 19:30:16 2011 +0100
@@ -1125,10 +1125,10 @@
 if (GameFlags and gfArtillery) <> 0 then
     cArtillery:= true;
 
-if not hasBorder and ((Theme = 'Snow') or (Theme = 'Christmas')) then
+if not hasBorder and ((Theme = 'Snow') or (Theme = 'Christmas')) and ((cReducedQuality and rqLowRes) = 0) then
     begin
     for i:= 0 to Pred(vobCount*2) do
-        AddGear(GetRandom(LAND_WIDTH+1024)-512, LAND_HEIGHT - GetRandom(1024), gtFlake, 0, _0, _0, 0);
+        AddGear(GetRandom(LAND_WIDTH+1024)-512, LAND_HEIGHT - GetRandom(LAND_HEIGHT div 2), gtFlake, 0, _0, _0, 0);
     disableLandBack:= true
     end
 end;