From 3e561cd4fd1eb46590cb70aaf940f7775a855966 Mon Sep 17 00:00:00 2001
From: brunzelchen <brunzelchen@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Tue, 21 Dec 2010 17:51:42 +0000
Subject: 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
---
 Game/Code/Classes/UMusic.pas | 8 ++++++++
 1 file changed, 8 insertions(+)

(limited to 'Game/Code/Classes/UMusic.pas')

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);
-- 
cgit v1.2.3