diff -r 3763a386a427 -r a6924450e694 hedgewars/uLandObjects.pas --- 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);