1060         cIce:= true

  1060         cIce:= true

  1061     else if key = 'snow' then

  1061     else if key = 'snow' then

  1062         cSnow:= true

  1062         cSnow:= true

  1063     else if key = 'rope-step' then

  1063     else if key = 'rope-step' then

  1064         cRopeNodeStep:= StrToInt(s)

  1064         cRopeNodeStep:= StrToInt(s)

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

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

  1066         begin

  1068         begin

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

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

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

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

  1069         Delete(s, 1, i);

  1071         Delete(s, 1, i);