hedgewars/uGears.pas
changeset 4747 095398eba689
parent 4706 fea3b34cf9b0
child 4748 ce9b48de1f52
--- a/hedgewars/uGears.pas	Thu Dec 23 21:45:50 2010 +0100
+++ b/hedgewars/uGears.pas	Tue Dec 28 22:40:12 2010 +0100
@@ -1121,9 +1121,12 @@
 if (GameFlags and gfArtillery) <> 0 then
     cArtillery:= true;
 
-if (Theme = 'Snow') or (Theme = 'Christmas') then
+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);
@@ -1851,7 +1854,7 @@
             Gear^.Text:= text;
             Gear^.FrameTicks:= x
             end
-        else ParseCommand('say ' + text, true)
+        //else ParseCommand('say ' + text, true)
         end
     else if (x >= 4) then
         begin