hedgewars/uLandObjects.pas
changeset 1256 2754a6a8c8f1
parent 1190 73ec31d8bb6f
child 1276 281f6aa9afba
--- a/hedgewars/uLandObjects.pas	Fri Sep 12 14:57:42 2008 +0000
+++ b/hedgewars/uLandObjects.pas	Fri Sep 12 18:00:49 2008 +0000
@@ -27,7 +27,7 @@
 procedure AddOnLandObjects(Surface: PSDL_Surface);
 
 implementation
-uses uLand, uStore, uConsts, uMisc, uConsole, uRandom, uVisualGears, uFloat, GL, uSound;
+uses uLand, uStore, uConsts, uMisc, uConsole, uRandom, uVisualGears, uFloat, GL, uSound, uWorld;
 const MaxRects = 512;
       MAXOBJECTRECTS = 16;
       MAXTHEMEOBJECTS = 32;
@@ -357,6 +357,9 @@
 // read sky and explosion border colors
 Readln(f, c1.r, c1.g, c1. b);
 Readln(f, c2.r, c2.g, c2. b);
+// read water gradient colors
+Readln(f, WaterColor.r, WaterColor.g, WaterColor. b);
+Readln(f, DeepWaterColor.r, DeepWaterColor.g, DeepWaterColor. b);
 
 glClearColor(c1.r / 255, c1.g / 255, c1.b / 255, 0.99); // sky color
 cExplosionBorderColor:= c2.value or $FF000000;