hedgewars/uLandObjects.pas
changeset 12190 4d818abdc00f
parent 12189 31184d9b9bfc
child 12592 00b539e6115d
--- a/hedgewars/uLandObjects.pas	Sat Apr 08 17:17:28 2017 +0200
+++ b/hedgewars/uLandObjects.pas	Sat Apr 08 17:21:22 2017 +0200
@@ -777,7 +777,7 @@
         i:= Pos(',', s);
         watFrameTicks:= StrToInt(Trim(Copy(s, 1, Pred(i))));
         Delete(s, 1, i);
-        watMove:= StrToInt(Trim(Copy(s, 1, Pred(i))));
+        watMove:= StrToInt(Trim(s));
         end
     else if key = 'sd-water-animation' then
         begin
@@ -787,7 +787,7 @@
         i:= Pos(',', s);
         watSDFrameTicks:= StrToInt(Trim(Copy(s, 1, Pred(i))));
         Delete(s, 1, i);
-        watSDMove:= StrToInt(Trim(Copy(s, 1, Pred(i))));
+        watSDMove:= StrToInt(Trim(s));
         end
     else if key = 'flakes' then
         begin