add alpha for sd-tint, since CopherNeue thinks the textures might need fading
authornemo
Mon, 28 Nov 2016 13:46:25 -0500
changeset 12102 ebe87b6ed182
parent 12101 a79ab342bc84
child 12103 966a9739812f
add alpha for sd-tint, since CopherNeue thinks the textures might need fading
hedgewars/uLandObjects.pas
hedgewars/uWorld.pas
--- 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);