hedgewars/uLandObjects.pas
changeset 2272 c59656d7b1de
parent 2171 8208946331ba
child 2275 3f56c99a70f8
equal deleted inserted replaced
2271:ca0754f0f42b 2272:c59656d7b1de
   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, WaterColorArray[0].r, WaterColorArray[0].g, WaterColorArray[0].b);
   374 Readln(f, WaterColorArray[0].r, WaterColorArray[0].g, WaterColorArray[0].b);
   375 Readln(f, WaterColorArray[2].r, WaterColorArray[2].g, WaterColorArray[2].b);
   375 Readln(f, WaterColorArray[2].r, WaterColorArray[2].g, WaterColorArray[2].b, cWaterOpacity);
   376 WaterColorArray[0].a := 255;
   376 WaterColorArray[0].a := 255;
   377 WaterColorArray[2].a := 255;
   377 WaterColorArray[2].a := 255;
   378 WaterColorArray[1]:= WaterColorArray[0];
   378 WaterColorArray[1]:= WaterColorArray[0];
   379 WaterColorArray[3]:= WaterColorArray[2];
   379 WaterColorArray[3]:= WaterColorArray[2];
   380 
   380