added own folder for recordings

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/branches/1.0.1 Challenge MOD@2150 b956fd51-792f-4845-bead-9b4dfca2ff2c

1 files changed, 12 insertions, 4 deletions

diff --git a/Game/Code/Screens/UScreenSing.pas b/Game/Code/Screens/UScreenSing.pas
index 202b02c3..9bd89339 100644
--- a/Game/Code/Screens/UScreenSing.pas
+++ b/Game/Code/Screens/UScreenSing.pas
@@ -195,6 +195,7 @@ begin
             PlaylistMedley.CurrentMedleySong:=PlaylistMedley.NumMedleySongs+1;

 

           Finish;

+          FadeOut := true;

           Music.PlayBack;

 

           if ScreenSong.Mode<>smParty then

@@ -1398,8 +1399,9 @@ end;
 

 procedure TScreenSing.Finish;

 var

-  I, J: integer;

+  I, J:     integer;

   len, num: integer;

+  points:   string;

 

 begin

   Music.CaptureStop;

@@ -1407,9 +1409,15 @@ begin
 

   if Ini.SavePlayback = 1 then begin

     Log.BenchmarkStart(0);

-    Log.LogVoice(0);

-    //Log.LogVoice(1);

-    //Log.LogVoice(2);

+    for I := 0 to PlayersPlay - 1 do

+    begin

+      points := IntToStr(Player[I].ScoreTotalI);

+      while Length(points) < 5 do

+        points := '0'+points;

+        

+      Log.LogVoice(I, Ini.Name[I], AktSong.Artist, AktSong.Title, points);

+    end;

+

     Log.BenchmarkEnd(0);

     Log.LogBenchmark('Creating files', 0);

   end;