- fix: crash at startup (my fault)

- fix: it was possible to add non-medley songs to the medley playlist -> crash in singscreen
- updated polish language (thx to Pit33)
- deactivate all elements (but not background/video) in singscreen (with "N")

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

1 files changed, 8 insertions, 24 deletions

diff --git a/Game/Code/Classes/URecord.pas b/Game/Code/Classes/URecord.pas
index ebb0f5b8..7354d931 100644
--- a/Game/Code/Classes/URecord.pas
+++ b/Game/Code/Classes/URecord.pas
@@ -301,18 +301,17 @@ var
     end;

   end;

 

-//  mic:      array[0..15] of integer;

 begin

   // checks for recording devices and puts them into array;

+  //Log.LogError('Init recoding devices...');

   SetLength(SoundCard, 0);

   BASS_RecordFree;

   SC := 0;

-  //Descr := BASS_RecordGetDeviceDescription(SC);

   Proceed := BASS_RecordGetDeviceInfo(SC, &Info);

-  Descr := Info.name;

 

-  while {(Descr <> '')} Proceed and not (info.flags and BASS_DEVICE_ENABLED=0) do

+  while Proceed and not (info.flags and BASS_DEVICE_ENABLED=0) do

   begin

+    Descr := Info.name;

     //If there is another SoundCard with the Same ID, Search an available Name

     if (IsDuplicate(Descr)) then

     begin

@@ -325,16 +324,15 @@ begin
     end;

 

     SetLength(SoundCard, SC+1);

-//    Log.LogError('Device #' + IntToStr(SC+1) + ': ' + Descr);

+    //Log.LogError('Device #' + IntToStr(SC+1) + ': ' + Descr);

     SoundCard[SC].Description := Descr;

 

-    // check for recording inputs

-//      mic[device] := -1; // default to no change

+    //check for recording inputs

     SCI := 0;

     BASS_RecordInit(SC);

     Flags := BASS_RecordGetInput(SCI, PSingle(nil)^);

     InputName := BASS_RecordGetInputName(SCI);

-//    Log.LogError('Input #' + IntToStr(SCI) + ' (' + IntToStr(Flags) + '): ' + InputName);

+    //Log.LogError('Input #' + IntToStr(SCI) + ' (' + IntToStr(Flags) + '): ' + InputName);

 

     SetLength(SoundCard[SC].Input, 1);

     SoundCard[SC].Input[SCI].Name := InputName;

@@ -347,33 +345,19 @@ begin
         SetLength(SoundCard[SC].Input, SCI+1);

         InputName := BASS_RecordGetInputName(SCI);

         SoundCard[SC].Input[SCI].Name := InputName;

-//        Log.LogError('Input #' + IntToStr(SCI) + ' (' + IntToStr(Flags) + '): ' + InputName);

+        //Log.LogError('Input #' + IntToStr(SCI) + ' (' + IntToStr(Flags) + '): ' + InputName);

       end;

 

-{        if (flags and BASS_INPUT_TYPE_MASK) = BASS_INPUT_TYPE_MIC then begin

-          mic[device] := input; // auto set microphone

-        end;}

-

       Inc(SCI);

       Flags := BASS_RecordGetInput(SCI, PSingle(nil)^);

     end;

 

-{      if mic[device] <> -1 then begin

-        Log.LogAnalyze('Found the mic at input ' + IntToStr(Mic[device]))

-      end else begin

-        Log.LogAnalyze('Mic not found');

-        mic[device] := 0; // setting to the first one (for kxproject)

-      end;

-      SoundCard[SC].InputSeleceted := Mic[Device];}

-

-

     BASS_RecordFree;

 

     Inc(SC);

-    //Descr := BASS_RecordGetDeviceDescription(SC);

     Proceed := BASS_RecordGetDeviceInfo(SC, &Info);

-    Descr := Info.name;

   end; // while

+  //Log.LogError('End of Init recoding devices.');

 end;

 end.