hedgewars/uVariables.pas
changeset 11895 19cb0de79287
parent 11887 083c12795632
child 11912 d3a852554aa7
--- a/hedgewars/uVariables.pas	Wed Nov 16 18:06:02 2016 +0100
+++ b/hedgewars/uVariables.pas	Wed Nov 16 12:26:26 2016 -0500
@@ -206,7 +206,6 @@
 
     WaterColorArray : array[0..7] of HwColor4f;
     SDWaterColorArray : array[0..7] of HwColor4f;
-    SDTint          : LongInt;
 
     TargetCursorPoint     : TPoint;
     CursorPoint           : TPoint;
@@ -2407,7 +2406,7 @@
     bShowFinger: boolean;
     Frames: Longword;
     WaterColor, DeepWaterColor: TSDL_Color;
-    SkyColor, RQSkyColor, SDSkyColor: TSDL_Color;
+    SDTint, SkyColor, RQSkyColor, SDSkyColor: TSDL_Color;
     SkyOffset: LongInt;
 {$IFDEF COUNTTICKS}
     cntTicks: LongWord;
@@ -2592,7 +2591,11 @@
 
     SDWaterOpacity:= $80;
 
-    SDTint:= $80;
+    SDTint.r := $80;
+    SDTint.g := $80;
+    SDTint.b := $80;
+    SDTint.a := $FF;
+
     ExplosionBorderColorR:= 80;
     ExplosionBorderColorG:= 80;
     ExplosionBorderColorB:= 80;