hedgewars/uVariables.pas
changeset 4835 a6924450e694
parent 4808 7c3e5b52344a
child 4844 20b81fafd236
child 4845 9a0f5377c529
--- a/hedgewars/uVariables.pas	Wed Jan 12 22:02:43 2011 +0300
+++ b/hedgewars/uVariables.pas	Wed Jan 12 20:31:55 2011 +0100
@@ -126,6 +126,7 @@
     WaterColorArray : array[0..3] of HwColor4f;
     SDWaterColorArray : array[0..3] of HwColor4f;
     SDMusic         : shortstring;
+    SDTint          : LongInt;
 
     CursorPoint     : TPoint;
     TargetPoint     : TPoint;
@@ -2071,6 +2072,7 @@
     bShowFinger: boolean;
     Frames: Longword;
     WaterColor, DeepWaterColor: TSDL_Color;
+    SDSkyColor: TSDL_Color;
     SkyOffset: LongInt;
     HorizontOffset: LongInt;
 {$IFDEF COUNTTICKS}
@@ -2191,6 +2193,7 @@
     SDWaterColorArray[3]:= SDWaterColorArray[2];
 
     SDMusic:= 'main_theme.ogg';
+    SDTint:= $80;
 
     cDrownSpeed.QWordValue  := 257698038;       // 0.06
     cDrownSpeedf            := 0.06;