hedgewars/uLandObjects.pas
changeset 12189 31184d9b9bfc
parent 12168 666e18b1ca32
child 12190 4d818abdc00f
equal deleted inserted replaced
12188:099e59894671 12189:31184d9b9bfc
   767             Height:= Surf^.h;
   767             Height:= Surf^.h;
   768             Delete(s, 1, i);
   768             Delete(s, 1, i);
   769             Maxcnt:= StrToInt(Trim(s));
   769             Maxcnt:= StrToInt(Trim(s));
   770             end;
   770             end;
   771         end
   771         end
       
   772     else if key = 'water-animation' then
       
   773         begin
       
   774         i:= Pos(',', s);
       
   775         watFrames:= StrToInt(Trim(Copy(s, 1, Pred(i))));
       
   776         Delete(s, 1, i);
       
   777         i:= Pos(',', s);
       
   778         watFrameTicks:= StrToInt(Trim(Copy(s, 1, Pred(i))));
       
   779         Delete(s, 1, i);
       
   780         watMove:= StrToInt(Trim(Copy(s, 1, Pred(i))));
       
   781         end
       
   782     else if key = 'sd-water-animation' then
       
   783         begin
       
   784         i:= Pos(',', s);
       
   785         watSDFrames:= StrToInt(Trim(Copy(s, 1, Pred(i))));
       
   786         Delete(s, 1, i);
       
   787         i:= Pos(',', s);
       
   788         watSDFrameTicks:= StrToInt(Trim(Copy(s, 1, Pred(i))));
       
   789         Delete(s, 1, i);
       
   790         watSDMove:= StrToInt(Trim(Copy(s, 1, Pred(i))));
       
   791         end
   772     else if key = 'flakes' then
   792     else if key = 'flakes' then
   773         begin
   793         begin
   774         i:= Pos(',', s);
   794         i:= Pos(',', s);
   775         vobCount:= StrToInt(Trim(Copy(s, 1, Pred(i))));
   795         vobCount:= StrToInt(Trim(Copy(s, 1, Pred(i))));
   776         Delete(s, 1, i);
   796         Delete(s, 1, i);