equal
deleted
inserted
replaced
579 |
579 |
580 Mus:= Mix_LoadMUS_RW(rwopsOpenRead(s)); |
580 Mus:= Mix_LoadMUS_RW(rwopsOpenRead(s)); |
581 SDLCheck(Mus <> nil, 'Mix_LoadMUS_RW', false); |
581 SDLCheck(Mus <> nil, 'Mix_LoadMUS_RW', false); |
582 WriteLnToConsole(msgOK); |
582 WriteLnToConsole(msgOK); |
583 |
583 |
584 // display music credits |
|
585 s:= s + '_credits.txt'; |
|
586 |
|
587 // if per-file credits not found check general music credits file |
|
588 if pfsExists(s) then |
|
589 s:= read1stLn(s) |
|
590 else if SuddenDeath and (SDMusicFN <> '') then |
|
591 s:= readValueFromINI(SDMusicFN, '/Music/credits.txt') |
|
592 else |
|
593 s:= readValueFromINI(MusicFN, '/Music/credits.txt'); |
|
594 |
|
595 if Length(s) > 0 then |
|
596 AddChatString(char(#10) + '© Music: ' + s); |
|
597 |
|
598 SDLCheck(Mix_FadeInMusic(Mus, -1, 3000) <> -1, 'Mix_FadeInMusic', false) |
584 SDLCheck(Mix_FadeInMusic(Mus, -1, 3000) <> -1, 'Mix_FadeInMusic', false) |
599 end; |
585 end; |
600 |
586 |
601 procedure SetVolume(vol: LongInt); |
587 procedure SetVolume(vol: LongInt); |
602 begin |
588 begin |