hedgewars/uLandObjects.pas
changeset 15032 88e3d1ff67bb
parent 15029 af2f6f4074de
child 15104 07de9e60c305
equal deleted inserted replaced
15031:a479916799ea 15032:88e3d1ff67bb
  1059     else if key = 'ice' then
  1059     else if key = 'ice' then
  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:= max(1, StrToInt(s))
  1065     else if key = 'rope-layers' then
  1065     else if key = 'rope-layers' then
  1066         cRopeLayers:= max(1, min(MAXROPELAYERS, StrToInt(s)))
  1066         cRopeLayers:= max(1, min(MAXROPELAYERS, StrToInt(s)))
  1067     else if key = 'sd-water-top' then
  1067     else if key = 'sd-water-top' then
  1068         begin
  1068         begin
  1069         i:= Pos(',', s);
  1069         i:= Pos(',', s);