added experimental voice playback after singing

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

3 files changed, 80 insertions, 10 deletions

diff --git a/Game/Code/Screens/UScreenScore.pas b/Game/Code/Screens/UScreenScore.pas
index 917e9d04..daeff363 100644
--- a/Game/Code/Screens/UScreenScore.pas
+++ b/Game/Code/Screens/UScreenScore.pas
@@ -53,7 +53,9 @@ type
 

       Animation:    real;

       Fadeout:      boolean;

-      ActualRound: integer;

+      ActualRound:  integer;

+      Voice:        integer;

+

       constructor Create; override;

       function ParseInput(PressedKey: Cardinal; ScanCode: byte; PressedDown: Boolean): Boolean; override;

       procedure onShow; override;

@@ -61,6 +63,7 @@ type
       procedure FillPlayer(Item, P: integer);

       procedure RefreshTexts;

       procedure StartPreview;

+      procedure StartVoice;

   end;

 

 implementation

@@ -118,13 +121,21 @@ begin
 //            Music.StopShuffle;

             if ScreenSong.PartyMedley and (ScreenSong.Mode=smChallenge) then

             begin

-              ScreenSong.SongIndex := -1;

-              Music.FadeStop(Ini.PreviewFading);

+              if not (Ini.SavePlayback=1) then

+              begin

+                ScreenSong.SongIndex := -1;

+                Music.FadeStop(Ini.PreviewFading);

+              end else

+                Music.VoicesClose;

+

               FadeTo(@ScreenPartyNewRoundM2);

             end else if (ScreenSong.Mode <> smMedley) then

               FadeTo(@ScreenTop)

             else

             begin

+              if (Ini.SavePlayback=1) then

+                Music.VoicesClose;

+

               FadeTo(@ScreenSong);

             end;

             Fadeout := true;

@@ -143,7 +154,10 @@ begin
             Music.PlayChange;

             inc(ActualRound);

             RefreshTexts;

-            StartPreview;

+            if not (Ini.SavePlayback=1) then

+              StartPreview

+            else

+              StartVoice;

           end;

         end;

 

@@ -154,7 +168,10 @@ begin
             Music.PlayChange;

             dec(ActualRound);

             RefreshTexts;

-            StartPreview;

+            if not (Ini.SavePlayback=1) then

+              StartPreview

+            else

+              StartVoice;

           end;

         end;

     end;

@@ -356,7 +373,13 @@ begin
   LCD.WriteText(2, 'Score: ' + Text[TextTotalScore[1]].Text);

 

   MP3VolumeHandler.changed := false;

-  StartPreview;

+  if not (Ini.SavePlayback=1) then

+    StartPreview

+  else

+  begin

+    Voice := -1;

+    StartVoice;

+  end;

 end;

 

 function TScreenScore.Draw: boolean;

@@ -581,4 +604,41 @@ begin
   end;

 end;

 

+procedure TScreenSCore.StartVoice;

+var

+  changed:  boolean;

+  files:    array of string;

+  I:        integer;

+

+begin

+  //Music.Close;

+  //ScreenSong.SongIndex := -1;

+  changed := false;

+  if (ScreenSong.Mode = smMedley) or ScreenSong.PartyMedley then

+  begin

+    if (ActualRound<Length(PlaylistMedley.Stats)-1) and (Voice <> ActualRound)  then

+    begin

+      Voice := ActualRound;

+      changed := true;

+      SetLength(files, PlaylistMedley.NumPlayer);

+      for I := 0 to Length(files) - 1 do

+        files[I] := PlaylistMedley.Stats[Voice].Player[I].VoiceFile;

+    end;

+  end else

+  begin

+    Voice := 0;

+    changed := true;

+    SetLength(files, PlayersPlay);

+    for I := 0 to Length(files) - 1 do

+      files[I] := Player[I].VoiceFile;

+  end;

+

+  if changed then

+  begin

+    Music.VoicesClose;

+    if (Music.VoicesOpen(files)>0) then

+      Music.VoicesPlay;

+  end;

+end;

+

 end.

diff --git a/Game/Code/Screens/UScreenSing.pas b/Game/Code/Screens/UScreenSing.pas
index 9bd89339..0469a017 100644
--- a/Game/Code/Screens/UScreenSing.pas
+++ b/Game/Code/Screens/UScreenSing.pas
@@ -814,7 +814,7 @@ end;
 

 procedure TScreenSing.LoadNextSong;

 var

-  P:          integer;

+  P, I:       integer;

   numNotes:   integer;

 begin

   // load notes

@@ -824,6 +824,10 @@ begin
   begin

     CatSongs.Selected := PlaylistMedley.Song[PlaylistMedley.CurrentMedleySong-1];

     Music.Open(CatSongs.Song[CatSongs.Selected].Path + CatSongs.Song[CatSongs.Selected].Mp3);

+  end else

+  begin

+    for I := 0 to PlayersPlay - 1 do

+      Player[I].VoiceFile := '';

   end;

 

   AktSong := CatSongs.Song[CatSongs.Selected];

@@ -1409,13 +1413,14 @@ begin
 

   if Ini.SavePlayback = 1 then begin

     Log.BenchmarkStart(0);

+

     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);

+

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

     end;

 

     Log.BenchmarkEnd(0);

@@ -1433,10 +1438,12 @@ begin
   begin

     if not FadeOut then

     begin

+      for I := 0 to PlayersPlay - 1 do

+          PlaylistMedley.Stats[Length(PlaylistMedley.Stats)-1].Player[I] := Player[I];

+

       inc(PlaylistMedley.CurrentMedleySong);

       if PlaylistMedley.CurrentMedleySong<=PlaylistMedley.NumMedleySongs then

       begin

-        //AudioPlayback.PlaySound(SoundLib.Applause);

         LoadNextSong;

       end else

       begin

diff --git a/Game/Code/Screens/UScreenTop.pas b/Game/Code/Screens/UScreenTop.pas
index e74507b9..a7085b36 100644
--- a/Game/Code/Screens/UScreenTop.pas
+++ b/Game/Code/Screens/UScreenTop.pas
@@ -85,6 +85,9 @@ begin
       SDLK_BACKSPACE,

       SDLK_RETURN:

         begin

+          if (Ini.SavePlayback=1) then

+            Music.VoicesClose;

+            

           if (not Fadeout) then begin

             if(ScreenSong.Mode = smNormal) or (ScreenSong.Mode = smMedley) then

               FadeTo(@ScreenSong)