hedgewars/uLandObjects.pas
changeset 7021 0c75512a8920
parent 6990 40e5af28d026
child 7035 823caba67738
equal deleted inserted replaced
7019:333afe233886 7021:0c75512a8920
   549         begin
   549         begin
   550         WaterOpacity:= StrToInt(Trim(s));
   550         WaterOpacity:= StrToInt(Trim(s));
   551         SDWaterOpacity:= WaterOpacity
   551         SDWaterOpacity:= WaterOpacity
   552         end
   552         end
   553     else if key = 'music' then
   553     else if key = 'music' then
   554         MusicFN:= Trim(s)
   554         SetMusic(Trim(s))
   555     else if key = 'clouds' then
   555     else if key = 'clouds' then
   556         begin
   556         begin
   557         cCloudsNumber:= Word(StrToInt(Trim(s))) * cScreenSpace div LAND_WIDTH;
   557         cCloudsNumber:= Word(StrToInt(Trim(s))) * cScreenSpace div LAND_WIDTH;
   558         cSDCloudsNumber:= cCloudsNumber
   558         cSDCloudsNumber:= cCloudsNumber
   559         end
   559         end