hedgewars/uLandObjects.pas
changeset 12915 4d3b52f1ba18
parent 12842 f72c6f64c94c
child 13391 04d1521cb7b8
equal deleted inserted replaced
12914:0de553fb7e89 12915:4d3b52f1ba18
   670         end
   670         end
   671     else if key = 'music' then
   671     else if key = 'music' then
   672         MusicFN:= Trim(s)
   672         MusicFN:= Trim(s)
   673     else if key = 'sd-music' then
   673     else if key = 'sd-music' then
   674         SDMusicFN:= Trim(s)
   674         SDMusicFN:= Trim(s)
       
   675     else if key = 'fallback-music' then
       
   676         FallbackMusicFN:= Trim(s)
       
   677     else if key = 'fallback-sd-music' then
       
   678         FallbackSDMusicFN:= Trim(s)
   675     else if key = 'clouds' then
   679     else if key = 'clouds' then
   676         begin
   680         begin
   677         cCloudsNumber:= Word(StrToInt(Trim(s))) * cScreenSpace div 4096;
   681         cCloudsNumber:= Word(StrToInt(Trim(s))) * cScreenSpace div 4096;
   678         cSDCloudsNumber:= cCloudsNumber
   682         cSDCloudsNumber:= cCloudsNumber
   679         end
   683         end