added pitch detection for editor

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

1 files changed, 8 insertions, 0 deletions

diff --git a/Game/Code/Classes/UMusic.pas b/Game/Code/Classes/UMusic.pas
index d192927e..1ce421b8 100644
--- a/Game/Code/Classes/UMusic.pas
+++ b/Game/Code/Classes/UMusic.pas
@@ -60,6 +60,7 @@ type
 

       Loaded:             boolean;

       Loop:               boolean;

+      CaptureStarted:     boolean;

 //    DXSound:  TDXSound;

 //    Player:   TcmxMp3;

       DSP_VocalRemover:   HDSP;

@@ -415,6 +416,7 @@ var
   S:        integer;

 

 begin

+  CaptureStarted := false;

   if RecordSystem = 1 then begin

     SetLength(Sound, 6 {max players});//Ini.Players+1);

     for S := 0 to High(Sound) do begin //Ini.Players do begin

@@ -771,6 +773,9 @@ var
   P1:       integer;

   P2:       integer;

 begin

+  if CaptureStarted then

+    Exit;

+

   for S := 0 to High(Sound) do

     Sound[S].BufferLong[0].Clear;

 

@@ -785,6 +790,8 @@ begin
     if (P1 > 0) or (P2 > 0) then

       CaptureCard(SC);

   end;

+

+  CaptureStarted := true;

 end;

 

 procedure TMusic.CaptureStop;

@@ -800,6 +807,7 @@ begin
     if P2 > PlayersPlay then P2 := 0;

     if (P1 > 0) or (P2 > 0) then StopCard(SC);

   end;

+  CaptureStarted := false;

 end;

 

 //procedure TMusic.CaptureCard(RecordI, SoundNum, PlayerLeft, PlayerRight: byte);