--- a/hedgewars/uLandObjects.pas	Tue Apr 26 13:13:07 2011 +0200
+++ b/hedgewars/uLandObjects.pas	Wed Apr 27 15:57:23 2011 +0400
@@ -368,7 +368,8 @@
 procedure ReadThemeInfo(var ThemeObjects: TThemeObjects; var SprayObjects: TSprayObjects);
 var s, key: shortstring;
     f: textfile;
-    i, ii: LongInt;
+    i: LongInt;
+    ii: Longword;
     c1, c2: TSDL_Color;
 
     procedure CheckRect(Width, Height, x, y, w, h: LongWord);
@@ -458,7 +459,7 @@
     else if key = 'music' then MusicFN:= Trim(s)
     else if key = 'clouds' then
         begin
-        cCloudsNumber:= StrToInt(Trim(s)) * cScreenSpace div LAND_WIDTH;
+        cCloudsNumber:= Word(StrToInt(Trim(s))) * cScreenSpace div LAND_WIDTH;
         cSDCloudsNumber:= cCloudsNumber
         end
     else if key = 'object' then
@@ -574,7 +575,7 @@
         SDWaterColorArray[3]:= SDWaterColorArray[2];
         end
     else if key = 'sd-water-opacity' then cSDWaterOpacity:= StrToInt(Trim(s))
-    else if key = 'sd-clouds' then cSDCloudsNumber:= StrToInt(Trim(s)) * cScreenSpace div LAND_WIDTH
+    else if key = 'sd-clouds' then cSDCloudsNumber:= Word(StrToInt(Trim(s))) * cScreenSpace div LAND_WIDTH
     else if key = 'sd-flakes' then
         begin
         i:= Pos(',', s);