--- a/hedgewars/uVisualGears.pas	Sun Jul 27 22:26:47 2008 +0000
+++ b/hedgewars/uVisualGears.pas	Sun Jul 27 23:01:41 2008 +0000
@@ -256,8 +256,8 @@
 procedure AddClouds;
 var i: LongInt;
 begin
-for i:= 0 to cCloudsNumber do
-    AddVisualGear( - cScreenWidth + i * ((cScreenWidth * 2 + 2304) div cCloudsNumber), -160, vgtCloud)
+for i:= 0 to cCloudsNumber - 1 do
+    AddVisualGear( - cScreenWidth + i * ((cScreenWidth * 2 + 2304) div (cCloudsNumber + 1)), -160, vgtCloud)
 end;
 
 initialization