hedgewars/uLandObjects.pas
changeset 7053 8c9dcaedc7a8
parent 7035 823caba67738
child 7063 a0326412e96a
equal deleted inserted replaced
7052:cefb73639f70 7053:8c9dcaedc7a8
   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         SetMusic(Trim(s))
   554         SetMusicName(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