diff -r fa58dea8a9ad -r 1cb68f420aa6 hedgewars/uLandObjects.pas --- a/hedgewars/uLandObjects.pas Mon Aug 22 10:56:19 2011 -0400 +++ b/hedgewars/uLandObjects.pas Mon Aug 22 15:35:37 2011 -0400 @@ -409,24 +409,24 @@ if key = 'sky' then begin i:= Pos(',', s); - c1.r:= StrToInt(Trim(Copy(s, 1, Pred(i)))); + SkyColor.r:= StrToInt(Trim(Copy(s, 1, Pred(i)))); Delete(s, 1, i); i:= Pos(',', s); - c1.g:= StrToInt(Trim(Copy(s, 1, Pred(i)))); + SkyColor.g:= StrToInt(Trim(Copy(s, 1, Pred(i)))); Delete(s, 1, i); - c1.b:= StrToInt(Trim(s)); + SkyColor.b:= StrToInt(Trim(s)); if cGrayScale then begin - t:= round(c1.r * RGB_LUMINANCE_RED + c1.g * RGB_LUMINANCE_GREEN + c1.b * RGB_LUMINANCE_BLUE); + t:= round(SkyColor.r * RGB_LUMINANCE_RED + SkyColor.g * RGB_LUMINANCE_GREEN + SkyColor.b * RGB_LUMINANCE_BLUE); if t > 255 then t:= 255; - c1.r:= t; - c1.g:= t; - c1.b:= t + SkyColor.r:= t; + SkyColor.g:= t; + SkyColor.b:= t end; - 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); + glClearColor(SkyColor.r / 255, SkyColor.g / 255, SkyColor.b / 255, 0.99); + SDSkyColor.r:= byte(SkyColor.r * SDTint div 255); + SDSkyColor.g:= byte(SkyColor.g * SDTint div 255); + SDSkyColor.b:= byte(SkyColor.b * SDTint div 255); end else if key = 'border' then begin @@ -646,24 +646,24 @@ if ((cReducedQuality and rqNoBackground) <> 0) then begin i:= Pos(',', s); - c1.r:= StrToInt(Trim(Copy(s, 1, Pred(i)))); + RQSkyColor.r:= StrToInt(Trim(Copy(s, 1, Pred(i)))); Delete(s, 1, i); i:= Pos(',', s); - c1.g:= StrToInt(Trim(Copy(s, 1, Pred(i)))); + RQSkyColor.g:= StrToInt(Trim(Copy(s, 1, Pred(i)))); Delete(s, 1, i); - c1.b:= StrToInt(Trim(s)); + RQSkyColor.b:= StrToInt(Trim(s)); if cGrayScale then begin - t:= round(c1.r * RGB_LUMINANCE_RED + c1.g * RGB_LUMINANCE_GREEN + c1.b * RGB_LUMINANCE_BLUE); + t:= round(RQSkyColor.r * RGB_LUMINANCE_RED + RQSkyColor.g * RGB_LUMINANCE_GREEN + RQSkyColor.b * RGB_LUMINANCE_BLUE); if t > 255 then t:= 255; - c1.r:= t; - c1.g:= t; - c1.b:= t + RQSkyColor.r:= t; + RQSkyColor.g:= t; + RQSkyColor.b:= t end; - 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); + glClearColor(RQSkyColor.r / 255, RQSkyColor.g / 255, RQSkyColor.b / 255, 0.99); + SDSkyColor.r:= byte(RQSkyColor.r * SDTint div 255); + SDSkyColor.g:= byte(RQSkyColor.g * SDTint div 255); + SDSkyColor.b:= byte(RQSkyColor.b * SDTint div 255); end end end;