hedgewars/uLandObjects.pas
changeset 10254 eb28335df088
parent 10131 4b4a043111f4
child 10261 c81125782cf6
equal deleted inserted replaced
10253:ea57f2f2b98d 10254:eb28335df088
   602         begin
   602         begin
   603         WaterOpacity:= StrToInt(Trim(s));
   603         WaterOpacity:= StrToInt(Trim(s));
   604         SDWaterOpacity:= WaterOpacity
   604         SDWaterOpacity:= WaterOpacity
   605         end
   605         end
   606     else if key = 'music' then
   606     else if key = 'music' then
   607         SetMusicName(Trim(s))
   607         MusicFN:= Trim(s)
       
   608     else if key = 'sd-music' then
       
   609         SDMusicFN:= Trim(s)
   608     else if key = 'clouds' then
   610     else if key = 'clouds' then
   609         begin
   611         begin
   610         cCloudsNumber:= Word(StrToInt(Trim(s))) * cScreenSpace div 4096;
   612         cCloudsNumber:= Word(StrToInt(Trim(s))) * cScreenSpace div 4096;
   611         cSDCloudsNumber:= cCloudsNumber
   613         cSDCloudsNumber:= cCloudsNumber
   612         end
   614         end