hedgewars/uSound.pas
changeset 11777 927c45b83496
parent 11771 abcdb7bc2620
child 11780 ee85798d6974
--- a/hedgewars/uSound.pas	Fri Apr 29 12:26:13 2016 +0200
+++ b/hedgewars/uSound.pas	Fri Apr 29 13:12:26 2016 +0200
@@ -110,7 +110,7 @@
 var Volume: LongInt;
     SoundTimerTicks: Longword;
 implementation
-uses uVariables, uConsole, uCommands, uDebug, uPhysFSLayer;
+uses uVariables, uConsole, uCommands, uChat, uUtils, uDebug, uPhysFSLayer;
 
 const chanTPU = 32;
 var cInitVolume: LongInt;
@@ -581,6 +581,11 @@
     SDLCheck(Mus <> nil, 'Mix_LoadMUS_RW', false);
     WriteLnToConsole(msgOK);
 
+    // display music credits
+    s:= read1stLn(s + '_credits.txt');
+    if Length(s) > 0 then
+        AddChatString(char(2) + '© Music: ' + s);
+
     SDLCheck(Mix_FadeInMusic(Mus, -1, 3000) <> -1, 'Mix_FadeInMusic', false)
 end;