--- a/hedgewars/uVisualGears.pas	Tue Aug 24 13:24:37 2010 +0200
+++ b/hedgewars/uVisualGears.pas	Tue Aug 24 17:03:44 2010 +0200
@@ -494,7 +494,7 @@
 var i: LongInt;
 begin
 for i:= 0 to cCloudsNumber - 1 do
-    AddVisualGear( - cScreenWidth + i * ((cScreenWidth * 2 + (LAND_WIDTH+256)) div (cCloudsNumber + 1)), LAND_HEIGHT-1184, vgtCloud)
+    AddVisualGear(cLeftScreenBorder + i * cScreenSpace div (cCloudsNumber + 1), LAND_HEIGHT-1184, vgtCloud)
 end;
 
 procedure initModule;