--- a/hedgewars/uLandObjects.pas Sun Nov 27 18:49:15 2016 +0100
+++ b/hedgewars/uLandObjects.pas Mon Nov 28 13:46:25 2016 -0500
@@ -575,7 +575,10 @@
i:= Pos(',', s);
SDTint.g:= StrToInt(Trim(Copy(s, 1, Pred(i))));
Delete(s, 1, i);
- SDTint.b:= StrToInt(Trim(s));
+ i:= Pos(',', s);
+ SDTint.b:= StrToInt(Trim(Copy(s, 1, Pred(i))));
+ Delete(s, 1, i);
+ SDTint.a:= StrToInt(Trim(s));
if GrayScale
then
begin
--- a/hedgewars/uWorld.pas Sun Nov 27 18:49:15 2016 +0100
+++ b/hedgewars/uWorld.pas Mon Nov 28 13:46:25 2016 -0500
@@ -1195,7 +1195,7 @@
// background
ChangeDepth(RM, cStereo_Sky);
if SuddenDeathDmg then
- Tint(SDTint.r, SDTint.g, SDTint.b, $FF);
+ Tint(SDTint.r, SDTint.g, SDTint.b, SDTint.a);
DrawRepeated(sprSky, sprSkyL, sprSkyR, (WorldDx + LAND_WIDTH div 2) * 3 div 8, SkyOffset);
ChangeDepth(RM, -cStereo_Horizon);
DrawRepeated(sprHorizont, sprHorizontL, sprHorizontR, (WorldDx + LAND_WIDTH div 2) * 3 div 5, HorizontOffset);