hedgewars/uGears.pas
changeset 4695 ac2cb3b99d70
parent 4669 296dbccdf376
child 4704 a07dfebaa497
--- a/hedgewars/uGears.pas	Sun Dec 26 18:56:31 2010 +0300
+++ b/hedgewars/uGears.pas	Sun Dec 26 11:17:01 2010 -0500
@@ -1122,8 +1122,11 @@
     cArtillery:= true;
 
 if not hasBorder and ((Theme = 'Snow') or (Theme = 'Christmas')) 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);
+    disableLandBack:= true
+    end
 end;
 
 procedure doMakeExplosion(X, Y, Radius: LongInt; Mask: LongWord);