hedgewars/uSound.pas
changeset 11775 ee85798d6974
parent 11772 927c45b83496
child 11776 f2031643fe98
--- a/hedgewars/uSound.pas	Fri Apr 29 15:10:27 2016 +0200
+++ b/hedgewars/uSound.pas	Fri Apr 29 18:18:32 2016 +0200
@@ -582,7 +582,16 @@
     WriteLnToConsole(msgOK);
 
     // display music credits
-    s:= read1stLn(s + '_credits.txt');
+    s:= s + '_credits.txt';
+
+    // if per-file credits not found check general music credits file
+    if pfsExists(s) then
+        s:= read1stLn(s)
+    else if SuddenDeath and (SDMusicFN <> '') then
+        s:= readValueFromINI(SDMusicFN, '/Music/credits.txt')
+    else
+        s:= readValueFromINI(MusicFN, '/Music/credits.txt');
+
     if Length(s) > 0 then
         AddChatString(char(2) + '© Music: ' + s);