hedgewars/uSound.pas
changeset 11776 f2031643fe98
parent 11775 ee85798d6974
child 11823 0fba6cb098a1
equal deleted inserted replaced
11775:ee85798d6974 11776:f2031643fe98
   591         s:= readValueFromINI(SDMusicFN, '/Music/credits.txt')
   591         s:= readValueFromINI(SDMusicFN, '/Music/credits.txt')
   592     else
   592     else
   593         s:= readValueFromINI(MusicFN, '/Music/credits.txt');
   593         s:= readValueFromINI(MusicFN, '/Music/credits.txt');
   594 
   594 
   595     if Length(s) > 0 then
   595     if Length(s) > 0 then
   596         AddChatString(char(2) + '© Music: ' + s);
   596         AddChatString(char(#10) + '© Music: ' + s);
   597 
   597 
   598     SDLCheck(Mix_FadeInMusic(Mus, -1, 3000) <> -1, 'Mix_FadeInMusic', false)
   598     SDLCheck(Mix_FadeInMusic(Mus, -1, 3000) <> -1, 'Mix_FadeInMusic', false)
   599 end;
   599 end;
   600 
   600 
   601 procedure SetVolume(vol: LongInt);
   601 procedure SetVolume(vol: LongInt);