diff options
| -rw-r--r-- | Game/Code/Screens/UScreenSing.pas | 3 | ||||
| -rw-r--r-- | Game/Code/Screens/UScreenSong.pas | 3 |
2 files changed, 5 insertions, 1 deletions
diff --git a/Game/Code/Screens/UScreenSing.pas b/Game/Code/Screens/UScreenSing.pas index f840a465..e8884329 100644 --- a/Game/Code/Screens/UScreenSing.pas +++ b/Game/Code/Screens/UScreenSing.pas @@ -1344,6 +1344,9 @@ begin Player[I].VoiceFile := '';
end;
+ if not Music.isOpen then
+ Music.Open(CatSongs.Song[CatSongs.Selected].Path + CatSongs.Song[CatSongs.Selected].Mp3);
+
AktSong := CatSongs.Song[CatSongs.Selected];
try
if not LoadSong(CatSongs.Song[CatSongs.Selected].Path + CatSongs.Song[CatSongs.Selected].FileName, SONG_LOAD_COMPLETE) then
diff --git a/Game/Code/Screens/UScreenSong.pas b/Game/Code/Screens/UScreenSong.pas index 33018783..6b5792d2 100644 --- a/Game/Code/Screens/UScreenSong.pas +++ b/Game/Code/Screens/UScreenSong.pas @@ -3639,7 +3639,8 @@ procedure TScreenSong.StartSong; begin
WaitHandler.changed := false;
CatSongs.Selected := Interaction;
- Music.Stop;
+ if (Music.isOpen) then
+ Music.Stop;
//Party Mode
if (Mode = smParty) or (Mode = smChallenge) then
begin
|