--- a/hedgewars/uLandObjects.pas	Wed Jan 12 22:02:43 2011 +0300
+++ b/hedgewars/uLandObjects.pas	Wed Jan 12 20:31:55 2011 +0100
@@ -411,6 +411,9 @@
         Delete(s, 1, i);
         c1.b:= StrToInt(Trim(s));
         glClearColor(c1.r / 255, c1.g / 255, c1.b / 255, 0.99);
+        SDSkyColor.r:= byte(c1.r * SDTint div 255);
+        SDSkyColor.g:= byte(c1.g * SDTint div 255);
+        SDSkyColor.b:= byte(c1.b * SDTint div 255);
         end
     else if key = 'border' then
         begin
@@ -593,6 +596,23 @@
             vobSDCount:= vobSDCount * cScreenSpace div LAND_WIDTH;
             end;
         end
+    else if key = 'rq-sky' then
+        begin
+        if ((cReducedQuality and rqNoBackground) <> 0) then
+            begin
+            i:= Pos(',', s);
+            c1.r:= StrToInt(Trim(Copy(s, 1, Pred(i))));
+            Delete(s, 1, i);
+            i:= Pos(',', s);
+            c1.g:= StrToInt(Trim(Copy(s, 1, Pred(i))));
+            Delete(s, 1, i);
+            c1.b:= StrToInt(Trim(s));
+            glClearColor(c1.r / 255, c1.g / 255, c1.b / 255, 0.99);
+            SDSkyColor.r:= byte(c1.r * SDTint div 255);
+            SDSkyColor.g:= byte(c1.g * SDTint div 255);
+            SDSkyColor.b:= byte(c1.b * SDTint div 255);
+            end
+        end
     end;
 
 Close(f);