hedgewars/uLandObjects.pas
changeset 12195 4d818abdc00f
parent 12194 31184d9b9bfc
child 12597 00b539e6115d
equal deleted inserted replaced
12194:31184d9b9bfc 12195:4d818abdc00f
   775         watFrames:= StrToInt(Trim(Copy(s, 1, Pred(i))));
   775         watFrames:= StrToInt(Trim(Copy(s, 1, Pred(i))));
   776         Delete(s, 1, i);
   776         Delete(s, 1, i);
   777         i:= Pos(',', s);
   777         i:= Pos(',', s);
   778         watFrameTicks:= StrToInt(Trim(Copy(s, 1, Pred(i))));
   778         watFrameTicks:= StrToInt(Trim(Copy(s, 1, Pred(i))));
   779         Delete(s, 1, i);
   779         Delete(s, 1, i);
   780         watMove:= StrToInt(Trim(Copy(s, 1, Pred(i))));
   780         watMove:= StrToInt(Trim(s));
   781         end
   781         end
   782     else if key = 'sd-water-animation' then
   782     else if key = 'sd-water-animation' then
   783         begin
   783         begin
   784         i:= Pos(',', s);
   784         i:= Pos(',', s);
   785         watSDFrames:= StrToInt(Trim(Copy(s, 1, Pred(i))));
   785         watSDFrames:= StrToInt(Trim(Copy(s, 1, Pred(i))));
   786         Delete(s, 1, i);
   786         Delete(s, 1, i);
   787         i:= Pos(',', s);
   787         i:= Pos(',', s);
   788         watSDFrameTicks:= StrToInt(Trim(Copy(s, 1, Pred(i))));
   788         watSDFrameTicks:= StrToInt(Trim(Copy(s, 1, Pred(i))));
   789         Delete(s, 1, i);
   789         Delete(s, 1, i);
   790         watSDMove:= StrToInt(Trim(Copy(s, 1, Pred(i))));
   790         watSDMove:= StrToInt(Trim(s));
   791         end
   791         end
   792     else if key = 'flakes' then
   792     else if key = 'flakes' then
   793         begin
   793         begin
   794         i:= Pos(',', s);
   794         i:= Pos(',', s);
   795         vobCount:= StrToInt(Trim(Copy(s, 1, Pred(i))));
   795         vobCount:= StrToInt(Trim(Copy(s, 1, Pred(i))));