hedgewars/uVisualGears.pas
changeset 13334 e8801220c13f
parent 13240 9f5023a5f9e1
child 13638 35d93b1e7fef
--- a/hedgewars/uVisualGears.pas	Tue Apr 17 20:10:10 2018 +0200
+++ b/hedgewars/uVisualGears.pas	Tue Apr 17 15:21:52 2018 -0400
@@ -468,7 +468,7 @@
 var i: LongInt;
 begin
 for i:= 0 to cCloudsNumber - 1 do
-    AddVisualGear(cLeftScreenBorder + i * LongInt(cScreenSpace div (cCloudsNumber + 1)), LAND_HEIGHT-1184, vgtCloud)
+    AddVisualGear(cLeftScreenBorder + i * LongInt(cScreenSpace div (cCloudsNumber + 1)), LAND_HEIGHT-1184, vgtCloud, 0, true)
 end;
 
 procedure ChangeToSDClouds;
@@ -489,7 +489,7 @@
             end
         else vg:= vg^.NextGear;
     for j:= 0 to cSDCloudsNumber - 1 do
-        AddVisualGear(cLeftScreenBorder + j * LongInt(cScreenSpace div (cSDCloudsNumber + 1)), LAND_HEIGHT-1184, vgtCloud)
+        AddVisualGear(cLeftScreenBorder + j * LongInt(cScreenSpace div (cSDCloudsNumber + 1)), LAND_HEIGHT-1184, vgtCloud, 0, true)
     end;
 end;