hedgewars/uVariables.pas
branchexperimental3D
changeset 4844 20b81fafd236
parent 4814 e19791f08443
parent 4835 a6924450e694
child 4849 e7b1f0aaf36f
--- a/hedgewars/uVariables.pas	Sun Jan 16 05:21:00 2011 +0100
+++ b/hedgewars/uVariables.pas	Mon Jan 17 01:43:10 2011 +0100
@@ -127,6 +127,7 @@
     WaterColorArray : array[0..3] of HwColor4f;
     SDWaterColorArray : array[0..3] of HwColor4f;
     SDMusic         : shortstring;
+    SDTint          : LongInt;
 
     CursorPoint     : TPoint;
     TargetPoint     : TPoint;
@@ -2074,6 +2075,7 @@
     bShowFinger: boolean;
     Frames: Longword;
     WaterColor, DeepWaterColor: TSDL_Color;
+    SDSkyColor: TSDL_Color;
     SkyOffset: LongInt;
     HorizontOffset: LongInt;
 {$IFDEF COUNTTICKS}
@@ -2201,6 +2203,7 @@
     SDWaterColorArray[3]:= SDWaterColorArray[2];
 
     SDMusic:= 'main_theme.ogg';
+    SDTint:= $80;
 
     cDrownSpeed.QWordValue  := 257698038;       // 0.06
     cDrownSpeedf            := 0.06;