hedgewars/uLandObjects.pas
changeset 1911 6283bd8a960b
parent 1906 644f93d8f148
child 1918 975d5061712f
equal deleted inserted replaced
1910:ae0addb05791 1911:6283bd8a960b
   369 
   369 
   370 // read sky and explosion border colors
   370 // read sky and explosion border colors
   371 Readln(f, c1.r, c1.g, c1. b);
   371 Readln(f, c1.r, c1.g, c1. b);
   372 Readln(f, c2.r, c2.g, c2. b);
   372 Readln(f, c2.r, c2.g, c2. b);
   373 // read water gradient colors
   373 // read water gradient colors
   374 Readln(f, WaterColor.r, WaterColor.g, WaterColor. b);
   374 Readln(f, WaterColorArray[0].r, WaterColorArray[0].g, WaterColorArray[0]. b);
   375 Readln(f, DeepWaterColor.r, DeepWaterColor.g, DeepWaterColor. b);
   375 Readln(f, WaterColorArray[2].r, WaterColorArray[2].g, WaterColorArray[2]. b);
       
   376 WaterColorArray[1]:= WaterColorArray[0];
       
   377 WaterColorArray[3]:= WaterColorArray[2];
   376 
   378 
   377 glClearColor(c1.r / 255, c1.g / 255, c1.b / 255, 0.99); // sky color
   379 glClearColor(c1.r / 255, c1.g / 255, c1.b / 255, 0.99); // sky color
   378 cExplosionBorderColor:= c2.value or $FF000000;
   380 cExplosionBorderColor:= c2.value or $FF000000;
   379 
   381 
   380 ReadLn(f, s);
   382 ReadLn(f, s);