hedgewars/uLandObjects.pas
changeset 4669 296dbccdf376
parent 4639 6de386a42fae
child 4782 603916ddf4b6
--- a/hedgewars/uLandObjects.pas	Fri Dec 24 22:39:20 2010 +0300
+++ b/hedgewars/uLandObjects.pas	Fri Dec 24 16:13:28 2010 -0500
@@ -466,7 +466,7 @@
 if (cReducedQuality and rqKillFlakes) <> 0 then
     numFlakes:= 0;
 
-if Theme <> 'Snow' then
+if ((GameFlags and gfBorder) <> 0) or ((Theme <> 'Snow') and (Theme <> 'Christmas')) then
     for i:= 0 to Pred(numFlakes) do
         AddVisualGear(cLeftScreenBorder + random(cScreenSpace), random(1024+200) - 100 + LAND_HEIGHT, vgtFlake)
 else