--- a/hedgewars/uLandObjects.pas	Sun Feb 15 20:29:52 2009 +0000
+++ b/hedgewars/uLandObjects.pas	Tue Feb 17 12:58:08 2009 +0000
@@ -376,6 +376,9 @@
 
 ReadLn(f, cCloudsNumber);
 
+// TODO - adjust all the theme cloud numbers. This should not be a permanent fix
+cCloudsNumber:= cCloudsNumber * (LAND_WIDTH div 2048);
+
 Readln(f, ThemeObjects.Count);
 for i:= 0 to Pred(ThemeObjects.Count) do
 	begin