From 6db1465f89985e8675db3fdac1aa7d662dda3722 Mon Sep 17 00:00:00 2001
From: s_alexander <s_alexander@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Sat, 19 Apr 2008 15:23:35 +0000
Subject: tried to make songloading working with the old loader and keep all
 changes that were made since starting to work on a new one *hope that worked*

you may delete your existing cover.cache (the cover cache is still NOT working)


git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@1024 b956fd51-792f-4845-bead-9b4dfca2ff2c
---
 Game/Code/Screens/UScreenPartyOptions.pas | 18 +++++++++---------
 1 file changed, 9 insertions(+), 9 deletions(-)

(limited to 'Game/Code/Screens/UScreenPartyOptions.pas')

diff --git a/Game/Code/Screens/UScreenPartyOptions.pas b/Game/Code/Screens/UScreenPartyOptions.pas
index 52e1671f..bd05e653 100644
--- a/Game/Code/Screens/UScreenPartyOptions.pas
+++ b/Game/Code/Screens/UScreenPartyOptions.pas
@@ -98,12 +98,12 @@ begin
           PartySession.Teams.Teaminfo[0].NumPlayers := NumPlayer1+1;
           PartySession.Teams.Teaminfo[1].NumPlayers := NumPlayer2+1;
           PartySession.Teams.Teaminfo[2].NumPlayers := NumPlayer3+1;}
-           // to - do : new Song management
+
           //Save Playlist
           PlaylistMan.Mode := TSingMode( Playlist );
           PlaylistMan.CurPlayList := High(Cardinal);
           //If Category Selected Search Category ID
-          {if Playlist = 1 then
+          if Playlist = 1 then
           begin
             J := -1;
             For I := 0 to high(CatSongs.Song) do
@@ -123,7 +123,7 @@ begin
               Exit;
           end
           else
-            PlaylistMan.CurPlayList := Playlist2;}
+            PlaylistMan.CurPlayList := Playlist2;
 
           //Start Party
           // to-do : Party
@@ -216,7 +216,7 @@ end;
 
 procedure TScreenPartyOptions.SetPlaylist2;
 var I: Integer;
-begin    // to - do : new Song management
+begin
   Case Playlist of
     0:
       begin
@@ -226,14 +226,14 @@ begin    // to - do : new Song management
     1:
       begin
         SetLength(IPlaylist2, 0);
-        {For I := 0 to high(CatSongs.Song) do
+        For I := 0 to high(CatSongs.Song) do
         begin
           If (CatSongs.Song[I].Main) then
           begin
             SetLength(IPlaylist2, Length(IPlaylist2) + 1);
             IPlaylist2[high(IPlaylist2)] := CatSongs.Song[I].Artist;
           end;
-        end; }
+        end;
 
         If (Length(IPlaylist2) = 0) then
         begin
@@ -243,16 +243,16 @@ begin    // to - do : new Song management
       end;
     2:
       begin
-        {if (Length(PlaylistMan.Playlists) > 0) then
+        if (Length(PlaylistMan.Playlists) > 0) then
         begin
           SetLength(IPlaylist2, Length(PlaylistMan.Playlists));
           PlaylistMan.GetNames(IPlaylist2);
         end
         else
-        begin}
+        begin
           SetLength(IPlaylist2, 1);
           IPlaylist2[0] := 'No Playlists found';
-        //end;
+        end;
       end;
   end;
 
-- 
cgit v1.2.3