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

1 files changed, 3 insertions, 2 deletions

diff --git a/Game/Code/Classes/ULog.pas b/Game/Code/Classes/ULog.pas
index c870a279..ce6d5f07 100644
--- a/Game/Code/Classes/ULog.pas
+++ b/Game/Code/Classes/ULog.pas
@@ -34,7 +34,7 @@ type
     procedure CriticalError(Text: string);

 

     // voice

-    procedure LogVoice(SoundNr: Integer; Player, Artist, Title, Points: string);

+    function LogVoice(SoundNr: Integer; Player, Artist, Title, Points: string): string;

 

     // compability

     procedure LogStatus(Log1, Log2: string);

@@ -172,7 +172,7 @@ begin
   end;

 end;

 

-procedure TLog.LogVoice(SoundNr: Integer; Player, Artist, Title, Points: string);

+function TLog.LogVoice(SoundNr: Integer; Player, Artist, Title, Points: string): string;

 type

   TRiffHeader = record

     riff: Array[0..3] OF Char;

@@ -275,6 +275,7 @@ begin
   end;

 

   FS.Free;

+  LogVoice := FileName;

 end;

 

 procedure TLog.LogStatus(Log1, Log2: string);