hedgewars/uLandObjects.pas
changeset 12920 4d3b52f1ba18
parent 12847 f72c6f64c94c
child 13396 04d1521cb7b8
equal deleted inserted replaced
12919:0de553fb7e89 12920: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