aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--Game/Code/Screens/UScreenSong.pas6
1 files changed, 4 insertions, 2 deletions
diff --git a/Game/Code/Screens/UScreenSong.pas b/Game/Code/Screens/UScreenSong.pas
index 001ff860..238db5e8 100644
--- a/Game/Code/Screens/UScreenSong.pas
+++ b/Game/Code/Screens/UScreenSong.pas
@@ -2053,7 +2053,9 @@ begin
for I := 1 to 4 do
begin
- if Length(PlaylistMedley.Song)>=I+J then
+ if (Length(PlaylistMedley.Song)>=I+J) and (MakeMedley or
+ ((Mode=smParty) and not PartySession.Rounds[PartySession.CurRound].MedleySurprise) or
+ ((Mode=smChallenge) and not PartySessionM2.Rounds[PartySessionM2.CurRound].MedleySurprise)) then
begin
Text[TextMedley[I]].Visible := true;
Text[TextMedley[I]].Text := IntToStr(I+J)+') ' +
@@ -3134,7 +3136,7 @@ begin
if (CatSongs.Song[I].Medley.Source >= MinS) and not PartyPlayedMedley(I)
and not SongSkipped(I) then
begin
- if (PlaylistMan.Mode<>0) or ((PlaylistMan.Mode=0) and CatSongs.Song[I].Visible) then
+ if (PlaylistMan.Mode=0) or ((PlaylistMan.Mode<>0) and CatSongs.Song[I].Visible) then
begin
SetLength(res, Length(res)+1);
res[Length(res)-1] := I;