1034         cFlattenClouds:= true

  1034         cFlattenClouds:= true

  1035     else if key = 'ice' then

  1035     else if key = 'ice' then

  1036         cIce:= true

  1036         cIce:= true

  1037     else if key = 'snow' then

  1037     else if key = 'snow' then

  1038         cSnow:= true

  1038         cSnow:= true

  1039     else if key = 'sd-water-top' then

  1041     else if key = 'sd-water-top' then

  1040         begin

  1042         begin

  1041         i:= Pos(',', s);

  1043         i:= Pos(',', s);

  1042         SDWaterColorArray[1].r:= StrToInt(Trim(Copy(s, 1, Pred(i))));

  1044         SDWaterColorArray[1].r:= StrToInt(Trim(Copy(s, 1, Pred(i))));

  1043         Delete(s, 1, i);

  1045         Delete(s, 1, i);