Fixed compilation on the mac.

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@972 b956fd51-792f-4845-bead-9b4dfca2ff2c

4 files changed, 1733 insertions, 1714 deletions

diff --git a/Game/Code/Classes/UAudioInput_Bass.pas b/Game/Code/Classes/UAudioInput_Bass.pas
index bf0c916e..adc3bf3e 100644
--- a/Game/Code/Classes/UAudioInput_Bass.pas
+++ b/Game/Code/Classes/UAudioInput_Bass.pas
@@ -1,267 +1,275 @@
-unit UAudioInput_Bass;

-

-interface

-

-{$IFDEF FPC}

-  {$MODE Delphi}

-{$ENDIF}

-

-{$I switches.inc}

-

-

-uses

-  Classes,

-  SysUtils,

-  URecord,

-  UMusic;

-

-implementation

-

-uses

-  UMain,

-  UIni,

-  ULog,

-  UAudioCore_Bass,

-  Windows,

-  bass;

-

-type

-  TAudioInput_Bass = class(TAudioInputBase)

-    public

-      function GetName: String; override;

-      function InitializeRecord: boolean; override;

-      destructor Destroy; override;

-  end;

-

-  TBassInputDevice = class(TAudioInputDevice)

-    public

-      DeviceIndex: integer;  // index in TAudioInputProcessor.Device[]

-      BassDeviceID: integer; // DeviceID used by BASS

-      RecordStream: HSTREAM;

-

-      function Init(): boolean;

-      function Start(): boolean; override;

-      procedure Stop();  override;

-  end;

-

-var

-  singleton_AudioInputBass : IAudioInput;

-

-

-{ Global }

-

-{*

- * Bass input capture callback.

- * Params:

- *   stream - BASS input stream

- *   buffer - buffer of captured samples

- *   len - size of buffer in bytes

- *   user - players associated with left/right channels

- *}

-function MicrophoneCallback(stream: HSTREAM; buffer: Pointer;

-    len: Cardinal; Card: Cardinal): boolean; stdcall;

-begin

-  AudioInputProcessor.HandleMicrophoneData(buffer, len,

-      AudioInputProcessor.Device[Card]);

-  Result := true;

-end;

-

-

-{ TBassInputDevice }

-

-function TBassInputDevice.Init(): boolean;

-begin

-  Result := false;

-

-  // TODO: Call once. Otherwise it's to slow

-  if not BASS_RecordInit(BassDeviceID) then

-  begin

-    Log.LogError('TBassInputDevice.Start: Error initializing device['+IntToStr(DeviceIndex)+']: ' +

-                 TAudioCore_Bass.ErrorGetString());

-    Exit;

-  end;

-

-  Result := true;

-end;

-

-{*

- * Start input-capturing on this device.

- * TODO: call BASS_RecordInit only once

- *}

-function TBassInputDevice.Start(): boolean;

-var

-  flags: Word;

-const

-  latency = 20; // 20ms callback period (= latency)

-begin

-  Result := false;

-

-  // recording already started -> stop first

-  if (RecordStream <> 0) then

-    Stop();

-

-  if not Init() then

-    Exit;

-

-  case AudioFormat.Format of

-    asfS16:   flags := 0;

-    asfFloat: flags := BASS_SAMPLE_FLOAT;

-    asfU8:    flags := BASS_SAMPLE_8BITS;

-    else begin

-      Log.LogError('Unhandled sample-format', 'TBassInputDevice.Start');

-      Exit;

-    end;

-  end;

-

-  // start capturing

-  RecordStream := BASS_RecordStart(AudioFormat.SampleRate, AudioFormat.Channels,

-                    MakeLong(flags, latency),

-                    @MicrophoneCallback, DeviceIndex);

-  if (RecordStream = 0) then

-  begin

-    BASS_RecordFree;

-    Exit;

-  end;

-

-  Result := true;

-end;

-

-{*

- * Stop input-capturing on this device.

- *}

-procedure TBassInputDevice.Stop();

-begin

-  if (RecordStream = 0) then

-    Exit;

-  // TODO: Don't free the device. Do this on close

-  if (BASS_RecordSetDevice(BassDeviceID)) then

-    BASS_RecordFree;

-  RecordStream := 0;

-end;

-

-

-{ TAudioInput_Bass }

-

-function  TAudioInput_Bass.GetName: String;

-begin

-  result := 'BASS_Input';

-end;

-

-function TAudioInput_Bass.InitializeRecord(): boolean;

-var

-  Descr:      PChar;

-  SourceName: PChar;

-  Flags:      integer;

-  BassDeviceID: integer;

-  BassDevice:   TBassInputDevice;

-  DeviceIndex:  integer;

-  SourceIndex:  integer;

-  RecordInfo: BASS_RECORDINFO;

-begin

-  result := false;

-

-  DeviceIndex := 0;

-  BassDeviceID := 0;

-  SetLength(AudioInputProcessor.Device, 0);

-

-  // checks for recording devices and puts them into an array

-  while true do

-  begin

-    Descr := BASS_RecordGetDeviceDescription(BassDeviceID);

-    if (Descr = nil) then

-      break;

-

-    // try to intialize the device

-    if not BASS_RecordInit(BassDeviceID) then

-    begin

-      Log.LogStatus('Failed to initialize BASS Capture-Device['+inttostr(BassDeviceID)+']',

-                    'TAudioInput_Bass.InitializeRecord');

-    end

-    else

-    begin

-      SetLength(AudioInputProcessor.Device, DeviceIndex+1);

-

-      // TODO: free object on termination

-      BassDevice := TBassInputDevice.Create();

-      AudioInputProcessor.Device[DeviceIndex] := BassDevice;

-

-      BassDevice.DeviceIndex := DeviceIndex;

-      BassDevice.BassDeviceID := BassDeviceID;

-      BassDevice.Description := UnifyDeviceName(Descr, DeviceIndex);

-

-      // retrieve recording device info

-      BASS_RecordGetInfo(RecordInfo);

-

-      // FIXME: does BASS use LSB/MSB or system integer values for 16bit?

-

-      // check if BASS has capture-freq. info

-      if (RecordInfo.freq > 0) then

-      begin

-        // use current input sample rate (available only on Windows Vista and OSX).

-        // Recording at this rate will give the best quality and performance, as no resampling is required.

-        BassDevice.AudioFormat := TAudioFormatInfo.Create(2, RecordInfo.freq, asfS16)

-      end

-      else

-      begin

-        // BASS does not provide an explizit input channel count (except BASS_RECORDINFO.formats)

-        // but it doesn't fail if we use stereo input on a mono device

-        // -> use stereo by default

-        BassDevice.AudioFormat := TAudioFormatInfo.Create(2, 44100, asfS16)

-      end;

-

-      SetLength(BassDevice.CaptureChannel, BassDevice.AudioFormat.Channels);

-

-      // get input sources

-      SourceIndex := 0;

-      BassDevice.MicSource := 0;

-

-      // process each input

-      while true do

-      begin

-        SourceName := BASS_RecordGetInputName(SourceIndex);

-        if (SourceName = nil) then

-          break;

-

-        SetLength(BassDevice.Source, SourceIndex+1);

-        BassDevice.Source[SourceIndex].Name :=

-          UnifyDeviceSourceName(SourceName, BassDevice.Description);

-

-        // set mic index

-        Flags := BASS_RecordGetInput(SourceIndex);

-        if ((Flags <> -1) and ((Flags and BASS_INPUT_TYPE_MIC) <> 0)) then

-        begin

-          BassDevice.MicSource := SourceIndex;

-        end;

-

-        Inc(SourceIndex);

-      end;

-

-      //Writeln('BASS_RecordFree');

-      // FIXME: this call hangs in FPC (windows) every 2nd time USDX is called.

-      //   Maybe because the sound-device was not released properly?

-      BASS_RecordFree;

-      //Writeln('BASS_RecordFree - Done');

-

-      Inc(DeviceIndex);

-    end;

-    

-    Inc(BassDeviceID);

-  end;

-

-  result := true;

-end;

-

-destructor TAudioInput_Bass.Destroy;

-begin

-  inherited;

-end;

-

-

-initialization

-  singleton_AudioInputBass := TAudioInput_Bass.create();

-  AudioManager.add( singleton_AudioInputBass );

-

-finalization

-  AudioManager.Remove( singleton_AudioInputBass );

-

-end.

+unit UAudioInput_Bass;
+
+interface
+
+{$IFDEF FPC}
+  {$MODE Delphi}
+{$ENDIF}
+
+{$I switches.inc}
+
+
+uses
+  Classes,
+  SysUtils,
+  URecord,
+  UMusic;
+
+implementation
+
+uses
+  UMain,
+  UIni,
+  ULog,
+  UAudioCore_Bass,
+  Windows,
+  bass;
+
+type
+  TAudioInput_Bass = class(TAudioInputBase)
+    public
+      function GetName: String; override;
+      function InitializeRecord: boolean; override;
+      destructor Destroy; override;
+  end;
+
+  TBassInputDevice = class(TAudioInputDevice)
+    public
+      DeviceIndex: integer;  // index in TAudioInputProcessor.Device[]
+      BassDeviceID: integer; // DeviceID used by BASS
+      RecordStream: HSTREAM;
+
+      function Init(): boolean;
+      function Start(): boolean; override;
+      procedure Stop();  override;
+  end;
+
+var
+  singleton_AudioInputBass : IAudioInput;
+
+
+{ Global }
+
+{*
+ * Bass input capture callback.
+ * Params:
+ *   stream - BASS input stream
+ *   buffer - buffer of captured samples
+ *   len - size of buffer in bytes
+ *   user - players associated with left/right channels
+ *}
+function MicrophoneCallback(stream: HSTREAM; buffer: Pointer;
+    len: Cardinal; Card: Cardinal): boolean; stdcall;
+begin
+  AudioInputProcessor.HandleMicrophoneData(buffer, len,
+      AudioInputProcessor.Device[Card]);
+  Result := true;
+end;
+
+
+{ TBassInputDevice }
+
+function TBassInputDevice.Init(): boolean;
+begin
+  Result := false;
+
+  // TODO: Call once. Otherwise it's to slow
+  if not BASS_RecordInit(BassDeviceID) then
+  begin
+    Log.LogError('TBassInputDevice.Start: Error initializing device['+IntToStr(DeviceIndex)+']: ' +
+                 TAudioCore_Bass.ErrorGetString());
+    Exit;
+  end;
+
+  Result := true;
+end;
+
+{*
+ * Start input-capturing on this device.
+ * TODO: call BASS_RecordInit only once
+ *}
+function TBassInputDevice.Start(): boolean;
+var
+  flags: Word;
+const
+  latency = 20; // 20ms callback period (= latency)
+begin
+  Result := false;
+
+  // recording already started -> stop first
+  if (RecordStream <> 0) then
+    Stop();
+
+  if not Init() then
+    Exit;
+
+  case AudioFormat.Format of
+    asfS16:   flags := 0;
+    asfFloat: flags := BASS_SAMPLE_FLOAT;
+    asfU8:    flags := BASS_SAMPLE_8BITS;
+    else begin
+      Log.LogError('Unhandled sample-format', 'TBassInputDevice.Start');
+      Exit;
+    end;
+  end;
+
+  // start capturing
+  RecordStream := BASS_RecordStart(AudioFormat.SampleRate, AudioFormat.Channels,
+                    MakeLong(flags, latency),
+                    @MicrophoneCallback, DeviceIndex);
+  if (RecordStream = 0) then
+  begin
+    BASS_RecordFree;
+    Exit;
+  end;
+
+  Result := true;
+end;
+
+{*
+ * Stop input-capturing on this device.
+ *}
+procedure TBassInputDevice.Stop();
+begin
+  if (RecordStream = 0) then
+    Exit;
+  // TODO: Don't free the device. Do this on close
+  if (BASS_RecordSetDevice(BassDeviceID)) then
+    BASS_RecordFree;
+  RecordStream := 0;
+end;
+
+
+{ TAudioInput_Bass }
+
+function  TAudioInput_Bass.GetName: String;
+begin
+  result := 'BASS_Input';
+end;
+
+function TAudioInput_Bass.InitializeRecord(): boolean;
+var
+  Descr:      PChar;
+  SourceName: PChar;
+  Flags:      integer;
+  BassDeviceID: integer;
+  BassDevice:   TBassInputDevice;
+  DeviceIndex:  integer;
+  SourceIndex:  integer;
+  RecordInfo: BASS_RECORDINFO;
+begin
+  result := false;
+
+  DeviceIndex := 0;
+  BassDeviceID := 0;
+  SetLength(AudioInputProcessor.Device, 0);
+
+  // checks for recording devices and puts them into an array
+  while true do
+  begin
+    Descr := BASS_RecordGetDeviceDescription(BassDeviceID);
+    if (Descr = nil) then
+      break;
+
+    // try to intialize the device
+    if not BASS_RecordInit(BassDeviceID) then
+    begin
+      Log.LogStatus('Failed to initialize BASS Capture-Device['+inttostr(BassDeviceID)+']',
+                    'TAudioInput_Bass.InitializeRecord');
+    end
+    else
+    begin
+      SetLength(AudioInputProcessor.Device, DeviceIndex+1);
+
+      // TODO: free object on termination
+      BassDevice := TBassInputDevice.Create();
+      AudioInputProcessor.Device[DeviceIndex] := BassDevice;
+
+      BassDevice.DeviceIndex := DeviceIndex;
+      BassDevice.BassDeviceID := BassDeviceID;
+      BassDevice.Description := UnifyDeviceName(Descr, DeviceIndex);
+
+      // retrieve recording device info
+      BASS_RecordGetInfo(RecordInfo);
+
+      // FIXME: does BASS use LSB/MSB or system integer values for 16bit?
+
+      // check if BASS has capture-freq. info
+      if (RecordInfo.freq > 0) then
+      begin
+        // use current input sample rate (available only on Windows Vista and OSX).
+        // Recording at this rate will give the best quality and performance, as no resampling is required.
+        BassDevice.AudioFormat := TAudioFormatInfo.Create(2, RecordInfo.freq, asfS16)
+      end
+      else
+      begin
+        // BASS does not provide an explizit input channel count (except BASS_RECORDINFO.formats)
+        // but it doesn't fail if we use stereo input on a mono device
+        // -> use stereo by default
+        BassDevice.AudioFormat := TAudioFormatInfo.Create(2, 44100, asfS16)
+      end;
+
+      SetLength(BassDevice.CaptureChannel, BassDevice.AudioFormat.Channels);
+
+      // get input sources
+      SourceIndex := 0;
+      BassDevice.MicSource := 0;
+
+      // process each input
+      while true do
+      begin
+        SourceName := BASS_RecordGetInputName(SourceIndex);
+		{$IFDEF DARWIN}
+		  // Patch for SingStar USB-Microphones:
+	      if ((SourceName = nil) and (SourceIndex = 0) and (Pos('Serial#', Descr) > 0)) then
+			SourceName := 'Microphone'
+		  else
+            break;
+		{$ELSE}
+	      if (SourceName = nil) then
+            break;
+		{$ENDIF}
+
+        SetLength(BassDevice.Source, SourceIndex+1);
+        BassDevice.Source[SourceIndex].Name :=
+          UnifyDeviceSourceName(SourceName, BassDevice.Description);
+
+        // set mic index
+        Flags := BASS_RecordGetInput(SourceIndex);
+        if ((Flags <> -1) and ((Flags and BASS_INPUT_TYPE_MIC) <> 0)) then
+        begin
+          BassDevice.MicSource := SourceIndex;
+        end;
+
+        Inc(SourceIndex);
+      end;
+
+      //Writeln('BASS_RecordFree');
+      // FIXME: this call hangs in FPC (windows) every 2nd time USDX is called.
+      //   Maybe because the sound-device was not released properly?
+      BASS_RecordFree;
+      //Writeln('BASS_RecordFree - Done');
+
+      Inc(DeviceIndex);
+    end;
+    
+    Inc(BassDeviceID);
+  end;
+
+  result := true;
+end;
+
+destructor TAudioInput_Bass.Destroy;
+begin
+  inherited;
+end;
+
+
+initialization
+  singleton_AudioInputBass := TAudioInput_Bass.create();
+  AudioManager.add( singleton_AudioInputBass );
+
+finalization
+  AudioManager.Remove( singleton_AudioInputBass );
+
+end.
diff --git a/Game/Code/Classes/UCommon.pas b/Game/Code/Classes/UCommon.pas
index c5dde0c8..62d7df65 100644
--- a/Game/Code/Classes/UCommon.pas
+++ b/Game/Code/Classes/UCommon.pas
@@ -1,281 +1,293 @@
-unit UCommon;

-

-interface

-

-{$IFDEF FPC}

-  {$MODE Delphi}

-{$ENDIF}

-

-{$I switches.inc}

-

-uses

-  SysUtils,

-{$IFDEF LAZARUS}

-   lResources,

-{$ENDIF}

-   ULog,

-{$IFDEF DARWIN}

-  messages,

-{$ENDIF}

-{$IFDEF win32}

-   windows;

-{$ELSE}

-   lcltype,

-   messages;

-{$ENDIF}

-

-{$IFNDEF win32}

-type

-  hStream        = THandle;

-  HGLRC          = THandle;

-  TLargeInteger  = Int64;

-  TWin32FindData = LongInt;

-{$ENDIF}

-

-{$IFDEF LAZARUS}

-  function LazFindResource( const aName, aType : String ): TLResource;

-{$ENDIF}

-

-{$IFDEF FPC}

-

-function RandomRange(aMin: Integer; aMax: Integer) : Integer;

-

-function MaxValue(const Data: array of Double): Double;

-function MinValue(const Data: array of Double): Double;

-

-  {$IFDEF WIN32}

-  type

-    TWndMethod = procedure(var Message: TMessage) of object;

-  function  AllocateHWnd(Method: TWndMethod): HWND;

-  procedure DeallocateHWnd(Wnd: HWND);

-  {$ENDIF} // Win32

-

-{$ENDIF} // FPC Only

-

-function StringReplaceW(text : WideString; search, rep: WideChar):WideString;

-function AdaptFilePaths( const aPath : widestring ): widestring;

-

-

-{$IFNDEF win32}

-(*

-  function QueryPerformanceCounter(lpPerformanceCount:TLARGEINTEGER):Bool;

-  function QueryPerformanceFrequency(lpFrequency:TLARGEINTEGER):Bool;

-*)

-  procedure ZeroMemory( Destination: Pointer; Length: DWORD );

-{$ENDIF}

-

-// eddie: FindFirstW etc are now in UPlatformWindows.pas

-

-(*

- * Character classes

- *)

-

-function IsAlphaChar(ch: WideChar): boolean;

-function IsNumericChar(ch: WideChar): boolean;

-function IsAlphaNumericChar(ch: WideChar): boolean;

-function IsPunctuationChar(ch: WideChar): boolean;

-function IsControlChar(ch: WideChar): boolean;

-

-

-implementation

-

-function StringReplaceW(text : WideString; search, rep: WideChar):WideString;

-var

-  iPos  : integer;

-//  sTemp : WideString;

-begin

-(*

-  result := text;

-  iPos   := Pos(search, result);

-  while (iPos > 0) do

-  begin

-    sTemp  := copy(result, iPos + length(search), length(result));

-    result := copy(result, 1, iPos - 1) + rep + sTEmp;

-    iPos   := Pos(search, result);

-  end;

-*)

-  result := text;

-

-  if search = rep then

-    exit;

-

-  for iPos := 0 to length( result ) - 1 do

-  begin

-    if result[ iPos ] = search then

-      result[ iPos ] := rep;

-  end;

-end;

-

-function AdaptFilePaths( const aPath : widestring ): widestring;

-begin

-  result := StringReplaceW( aPath, '\', PathDelim );//, [rfReplaceAll] );

-end;

-

-

-{$IFNDEF win32}

-procedure ZeroMemory( Destination: Pointer; Length: DWORD );

-begin

-  FillChar( Destination^, Length, 0 );

-end; //ZeroMemory

-

-(*

-function QueryPerformanceCounter(lpPerformanceCount:TLARGEINTEGER):Bool;

-

-  // From http://en.wikipedia.org/wiki/RDTSC

-  function RDTSC: Int64; register;

-  asm

-    rdtsc

-  end;

-

-begin

-  // Use clock_gettime  here maybe ... from libc

-  lpPerformanceCount := RDTSC();

-  result := true;

-end;

-

-function QueryPerformanceFrequency(lpFrequency:TLARGEINTEGER):Bool;

-begin

-  lpFrequency := 0;

-  result := true;

-end;

-*)

-{$ENDIF}

-

-

-{$IFDEF LAZARUS}

-

-function LazFindResource( const aName, aType : String ): TLResource;

-var

-  iCount : Integer;

-begin

-  result := nil;

-

-  for iCount := 0 to LazarusResources.count -1 do

-  begin

-    if ( LazarusResources.items[ iCount ].Name      = aName ) AND

-       ( LazarusResources.items[ iCount ].ValueType = aType ) THEN

-    begin

-      result := LazarusResources.items[ iCount ];

-      exit;

-    end;

-  end;

-end;

-{$ENDIF}

-

-{$IFDEF FPC}

-// FIXME: already exists in FPC

-function MaxValue(const Data: array of Double): Double;

-var

-  I: Integer;

-begin

-  Result := Data[Low(Data)];

-  for I := Low(Data) + 1 to High(Data) do

-    if Result < Data[I] then

-      Result := Data[I];

-end;

-

-// FIXME: already exists in FPC

-function MinValue(const Data: array of Double): Double;

-var

-  I: Integer;

-begin

-  Result := Data[Low(Data)];

-  for I := Low(Data) + 1 to High(Data) do

-    if Result > Data[I] then

-      Result := Data[I];

-end;

-

-function RandomRange(aMin: Integer; aMax: Integer) : Integer;

-begin

-RandomRange := Random(aMax-aMin) + aMin ;

-end;

-

-

-// NOTE !!!!!!!!!!

-// AllocateHWnd is in lclintfh.inc

-

-{$IFDEF MSWINDOWS}

-// TODO : JB this is dodgey and bad... find a REAL solution !

-function AllocateHWnd(Method: TWndMethod): HWND;

-var

-  TempClass: TWndClass;

-  ClassRegistered: Boolean;

-begin

-  Result := CreateWindowEx(WS_EX_TOOLWINDOW, '', '', WS_POPUP , 0, 0, 0, 0, 0, 0, HInstance, nil);

-end;

-

-procedure DeallocateHWnd(Wnd: HWND);

-var

-  Instance: Pointer;

-begin

-  Instance := Pointer(GetWindowLong(Wnd, GWL_WNDPROC));

-  DestroyWindow(Wnd);

-end;

-{$ENDIF}

-{$IFDEF DARWIN}

-// TODO : Situation for the mac isn't better !

-function AllocateHWnd(Method: TWndMethod): HWND;

-begin

-end;

-

-procedure DeallocateHWnd(Wnd: HWND);

-begin

-end;

-{$ENDIF} // IFDEF DARWIN

-

-{$ENDIF} // IFDEF FPC

-

-function IsAlphaChar(ch: WideChar): boolean;

-begin

-  // TODO: add chars > 255 when unicode-fonts work?

-  case ch of

-    'A'..'Z',  // A-Z

-    'a'..'z',  // a-z

-    #170,#181,#186,

-    #192..#214,

-    #216..#246,

-    #248..#255:

-      Result := true;

-    else

-      Result := false;

-  end;

-end;

-

-function IsNumericChar(ch: WideChar): boolean;

-begin

-  case ch of

-    '0'..'9':

-      Result := true;

-    else

-      Result := false;

-  end;

-end;

-

-function IsAlphaNumericChar(ch: WideChar): boolean;

-begin

-  Result := (IsAlphaChar(ch) or IsNumericChar(ch));

-end;

-

-function IsPunctuationChar(ch: WideChar): boolean;

-begin

-  // TODO: add chars outside of Latin1 basic (0..127)?

-  case ch of

-    ' '..'/',':'..'@','['..'`','{'..'~':

-      Result := true;

-    else

-      Result := false;

-  end;

-end;

-

-function IsControlChar(ch: WideChar): boolean;

-begin

-  case ch of

-    #0..#31,

-    #127..#159:

-      Result := true;

-    else

-      Result := false;

-  end;

-end;

-

-end.

+unit UCommon;
+
+interface
+
+{$IFDEF FPC}
+  {$MODE Delphi}
+{$ENDIF}
+
+{$I switches.inc}
+
+uses
+  SysUtils,
+{$IFDEF LAZARUS}
+   lResources,
+{$ENDIF}
+   ULog,
+{$IFDEF DARWIN}
+  messages,
+{$ENDIF}
+{$IFDEF win32}
+   windows;
+{$ELSE}
+   lcltype,
+   messages;
+{$ENDIF}
+
+{$IFNDEF win32}
+type
+  hStream        = THandle;
+  HGLRC          = THandle;
+  TLargeInteger  = Int64;
+  TWin32FindData = LongInt;
+{$ENDIF}
+
+{$IFDEF LAZARUS}
+  function LazFindResource( const aName, aType : String ): TLResource;
+{$ENDIF}
+
+{$IFDEF DARWIN}
+  procedure ShowMessage( const msg : String );
+{$ENDIF}
+
+{$IFDEF FPC}
+
+function RandomRange(aMin: Integer; aMax: Integer) : Integer;
+
+function MaxValue(const Data: array of Double): Double;
+function MinValue(const Data: array of Double): Double;
+
+  {$IFDEF WIN32}
+  type
+    TWndMethod = procedure(var Message: TMessage) of object;
+  function  AllocateHWnd(Method: TWndMethod): HWND;
+  procedure DeallocateHWnd(Wnd: HWND);
+  {$ENDIF} // Win32
+
+{$ENDIF} // FPC Only
+
+function StringReplaceW(text : WideString; search, rep: WideChar):WideString;
+function AdaptFilePaths( const aPath : widestring ): widestring;
+
+
+{$IFNDEF win32}
+(*
+  function QueryPerformanceCounter(lpPerformanceCount:TLARGEINTEGER):Bool;
+  function QueryPerformanceFrequency(lpFrequency:TLARGEINTEGER):Bool;
+*)
+  procedure ZeroMemory( Destination: Pointer; Length: DWORD );
+{$ENDIF}
+
+// eddie: FindFirstW etc are now in UPlatformWindows.pas
+
+(*
+ * Character classes
+ *)
+
+function IsAlphaChar(ch: WideChar): boolean;
+function IsNumericChar(ch: WideChar): boolean;
+function IsAlphaNumericChar(ch: WideChar): boolean;
+function IsPunctuationChar(ch: WideChar): boolean;
+function IsControlChar(ch: WideChar): boolean;
+
+
+implementation
+
+function StringReplaceW(text : WideString; search, rep: WideChar):WideString;
+var
+  iPos  : integer;
+//  sTemp : WideString;
+begin
+(*
+  result := text;
+  iPos   := Pos(search, result);
+  while (iPos > 0) do
+  begin
+    sTemp  := copy(result, iPos + length(search), length(result));
+    result := copy(result, 1, iPos - 1) + rep + sTEmp;
+    iPos   := Pos(search, result);
+  end;
+*)
+  result := text;
+
+  if search = rep then
+    exit;
+
+  for iPos := 0 to length( result ) - 1 do
+  begin
+    if result[ iPos ] = search then
+      result[ iPos ] := rep;
+  end;
+end;
+
+function AdaptFilePaths( const aPath : widestring ): widestring;
+begin
+  result := StringReplaceW( aPath, '\', PathDelim );//, [rfReplaceAll] );
+end;
+
+
+{$IFNDEF win32}
+procedure ZeroMemory( Destination: Pointer; Length: DWORD );
+begin
+  FillChar( Destination^, Length, 0 );
+end; //ZeroMemory
+
+(*
+function QueryPerformanceCounter(lpPerformanceCount:TLARGEINTEGER):Bool;
+
+  // From http://en.wikipedia.org/wiki/RDTSC
+  function RDTSC: Int64; register;
+  asm
+    rdtsc
+  end;
+
+begin
+  // Use clock_gettime  here maybe ... from libc
+  lpPerformanceCount := RDTSC();
+  result := true;
+end;
+
+function QueryPerformanceFrequency(lpFrequency:TLARGEINTEGER):Bool;
+begin
+  lpFrequency := 0;
+  result := true;
+end;
+*)
+{$ENDIF}
+
+
+{$IFDEF LAZARUS}
+
+function LazFindResource( const aName, aType : String ): TLResource;
+var
+  iCount : Integer;
+begin
+  result := nil;
+
+  for iCount := 0 to LazarusResources.count -1 do
+  begin
+    if ( LazarusResources.items[ iCount ].Name      = aName ) AND
+       ( LazarusResources.items[ iCount ].ValueType = aType ) THEN
+    begin
+      result := LazarusResources.items[ iCount ];
+      exit;
+    end;
+  end;
+end;
+{$ENDIF}
+
+{$IFDEF FPC}
+// FIXME: already exists in FPC
+function MaxValue(const Data: array of Double): Double;
+var
+  I: Integer;
+begin
+  Result := Data[Low(Data)];
+  for I := Low(Data) + 1 to High(Data) do
+    if Result < Data[I] then
+      Result := Data[I];
+end;
+
+// FIXME: already exists in FPC
+function MinValue(const Data: array of Double): Double;
+var
+  I: Integer;
+begin
+  Result := Data[Low(Data)];
+  for I := Low(Data) + 1 to High(Data) do
+    if Result > Data[I] then
+      Result := Data[I];
+end;
+
+function RandomRange(aMin: Integer; aMax: Integer) : Integer;
+begin
+RandomRange := Random(aMax-aMin) + aMin ;
+end;
+
+
+// NOTE !!!!!!!!!!
+// AllocateHWnd is in lclintfh.inc
+
+{$IFDEF MSWINDOWS}
+// TODO : JB this is dodgey and bad... find a REAL solution !
+function AllocateHWnd(Method: TWndMethod): HWND;
+var
+  TempClass: TWndClass;
+  ClassRegistered: Boolean;
+begin
+  Result := CreateWindowEx(WS_EX_TOOLWINDOW, '', '', WS_POPUP , 0, 0, 0, 0, 0, 0, HInstance, nil);
+end;
+
+procedure DeallocateHWnd(Wnd: HWND);
+var
+  Instance: Pointer;
+begin
+  Instance := Pointer(GetWindowLong(Wnd, GWL_WNDPROC));
+  DestroyWindow(Wnd);
+end;
+{$ENDIF}
+{$IFDEF DARWIN}
+// TODO : Situation for the mac isn't better !
+function AllocateHWnd(Method: TWndMethod): HWND;
+begin
+end;
+
+procedure DeallocateHWnd(Wnd: HWND);
+begin
+end;
+{$ENDIF} // IFDEF DARWIN
+
+{$ENDIF} // IFDEF FPC
+
+{$IFDEF DARWIN}
+procedure ShowMessage( const msg : String );
+begin
+	//eddie: what to do here?
+end;
+{$ENDIF}
+
+
+function IsAlphaChar(ch: WideChar): boolean;
+begin
+  // TODO: add chars > 255 when unicode-fonts work?
+  case ch of
+    'A'..'Z',  // A-Z
+    'a'..'z',  // a-z
+    #170,#181,#186,
+    #192..#214,
+    #216..#246,
+    #248..#255:
+      Result := true;
+    else
+      Result := false;
+  end;
+end;
+
+function IsNumericChar(ch: WideChar): boolean;
+begin
+  case ch of
+    '0'..'9':
+      Result := true;
+    else
+      Result := false;
+  end;
+end;
+
+function IsAlphaNumericChar(ch: WideChar): boolean;
+begin
+  Result := (IsAlphaChar(ch) or IsNumericChar(ch));
+end;
+
+function IsPunctuationChar(ch: WideChar): boolean;
+begin
+  // TODO: add chars outside of Latin1 basic (0..127)?
+  case ch of
+    ' '..'/',':'..'@','['..'`','{'..'~':
+      Result := true;
+    else
+      Result := false;
+  end;
+end;
+
+function IsControlChar(ch: WideChar): boolean;
+begin
+  case ch of
+    #0..#31,
+    #127..#159:
+      Result := true;
+    else
+      Result := false;
+  end;
+end;
+
+end.
diff --git a/Game/Code/Classes/UConfig.pas b/Game/Code/Classes/UConfig.pas
index ee4685d3..ae9ac150 100644
--- a/Game/Code/Classes/UConfig.pas
+++ b/Game/Code/Classes/UConfig.pas
@@ -196,7 +196,7 @@ function USDXShortVersionStr(): string;
 implementation
 
 uses
-  StrUtils;
+  StrUtils, Math;
 
 function USDXShortVersionStr(): string;
 begin
diff --git a/Game/Code/Classes/UMain.pas b/Game/Code/Classes/UMain.pas
index 879c5c79..f9762c1e 100644
--- a/Game/Code/Classes/UMain.pas
+++ b/Game/Code/Classes/UMain.pas
@@ -1,1165 +1,1164 @@
-unit UMain;

-

-interface

-

-{$IFDEF FPC}

-  {$MODE Delphi}

-{$ENDIF}

-

-{$I switches.inc}

-

-uses

-  SDL,

-  UGraphic,

-  UMusic,

-  URecord,

-  UTime,

-  SysUtils,

-  UDisplay,

-  UIni,

-  ULog,

-  ULyrics,

-  UScreenSing,

-  USong,

-  OpenGL12,

-  {$IFDEF UseSerialPort}

-  //zlportio, //you can disable it and all PortWriteB calls

-  {$ENDIF}

-  //ULCD,  //TODO: maybe LCD Support as Plugin?

-  //ULight, //TODO: maybe Light Support as Plugin?

-  UThemes;

-

-type

-  TPlayer = record

-    Name:         string;

-

-    // Index in Teaminfo record

-    TeamID:       Byte;

-    PlayerID:     Byte;

-

-    // Scores

-    Score:        real;

-    ScoreLine:    real;

-    ScoreGolden:  real;

-

-    ScoreI:       integer;

-    ScoreLineI:   integer;

-    ScoreGoldenI: integer;

-    ScoreTotalI:  integer;

-

-    // LineBonus Mod

-    ScoreLast:    Real;//Last Line Score

-

-    // PerfectLineTwinkle Mod (effect)

-    LastSentencePerfect: Boolean;

-

-    //Meter:        real;

-

-    HighNote:  integer;

-    IlNut:     integer;

-    Note:     array of record

-      Start:     integer;

-      Length:    integer;

-      Detekt:    real;     // accurate place, detected in the note

-      Tone:      real;

-      Perfect:   boolean;  // true if the note matches the original one, lit the star

-

-      // Half size Notes Patch

-      Hit:        boolean; // true if the note Hits the Line

-    end;

-  end;

-

-

-var

-  // Absolute Paths

-  GamePath:         string;

-  SoundPath:        string;

-  SongPath:         string;

-  LogPath:          string;

-  ThemePath:        string;

-  SkinsPath:        string;

-  ScreenshotsPath:  string;

-  CoversPath:       string;

-  LanguagesPath:    string;

-  PluginPath:       string;

-  VisualsPath:      string;

-  PlayListPath:     string;

-

-  UserSongPath:     string = '';

-  UserCoversPath:   string = '';

-  UserPlaylistPath: string = '';

-

-  OGL:      Boolean;

-  Done:     Boolean;

-  Event:    TSDL_event;

-  FileName: string;

-  Restart:  boolean;

-

-  // player and music info

-  Player:       array of TPlayer;

-  PlayersPlay:  integer;

-

-  CurrentSong : TSong;

-

-procedure InitializePaths;

-

-Procedure Main;

-procedure MainLoop;

-procedure CheckEvents;

-procedure Sing(Sender: TScreenSing);

-procedure NewSentence(Sender: TScreenSing);

-procedure NewBeat(Sender: TScreenSing); // executed when on then new beat

-procedure NewBeatC(Sender: TScreenSing); // executed when on then new beat for click

-procedure NewBeatD(Sender: TScreenSing); // executed when on then new beat for detection

-//procedure NewHalf; // executed when in the half between beats

-procedure NewNote(Sender: TScreenSing); // detect note

-function GetMidBeat(Time: real): real;

-function GetTimeFromBeat(Beat: integer): real;

-procedure ClearScores(PlayerNum: integer);

-

-implementation

-

-uses

-  USongs,

-  UJoystick,

-  math,

-  UCommandLine,

-  ULanguage,

-  SDL_ttf,

-  USkins,

-  UCovers,

-  UCatCovers,

-  UDataBase,

-  UPlaylist,

-  UDLLManager,

-  UParty,

-  UConfig,

-  UCore,

-  UGraphicClasses,

-  UPluginDefs,

-  UPlatform;

-

-procedure Main;

-var

-  WndTitle: string;

-begin

-  try

-    WndTitle := USDXVersionStr;

-

-    if Platform.TerminateIfAlreadyRunning( {var} WndTitle) then

-      Exit;

-      

-    //------------------------------

-    //StartUp - Create Classes and Load Files

-    //------------------------------

-    USTime := TTime.Create;

-

-    // Commandline Parameter Parser

-    Params := TCMDParams.Create;

-

-    // Log + Benchmark

-    Log := TLog.Create;

-    Log.Title := WndTitle;

-    Log.Enabled := not Params.NoLog;

-    Log.BenchmarkStart(0);

-

-    // Language

-    Log.BenchmarkStart(1);

-    Log.LogStatus('Initialize Paths', 'Initialization');

-    InitializePaths;

-    Log.LogStatus('Load Language', 'Initialization');

-    Language := TLanguage.Create;

-    

-    // Add Const Values:

-    Language.AddConst('US_VERSION', USDXVersionStr);

-    Log.BenchmarkEnd(1);

-    Log.LogBenchmark('Loading Language', 1);

-

-    // SDL

-    Log.BenchmarkStart(1);

-    Log.LogStatus('Initialize SDL', 'Initialization');

-    SDL_Init(SDL_INIT_VIDEO);

-    Log.BenchmarkEnd(1);

-    Log.LogBenchmark('Initializing SDL', 1);

-

-    // SDL_ttf

-    Log.BenchmarkStart(1);

-    Log.LogStatus('Initialize SDL_ttf', 'Initialization');

-    TTF_Init();

-    Log.BenchmarkEnd(1);

-    Log.LogBenchmark('Initializing SDL_ttf', 1);

-

-    // Skin

-    Log.BenchmarkStart(1);

-    Log.LogStatus('Loading Skin List', 'Initialization');

-    Skin := TSkin.Create;

-    Log.BenchmarkEnd(1);

-    Log.LogBenchmark('Loading Skin List', 1);

-

-    // Ini + Paths

-    Log.BenchmarkStart(1);

-    Log.LogStatus('Load Ini', 'Initialization');

-    Ini := TIni.Create;

-    Ini.Load;

-

-    //Load Languagefile

-    if (Params.Language <> -1) then

-      Language.ChangeLanguage(ILanguage[Params.Language])

-    else

-      Language.ChangeLanguage(ILanguage[Ini.Language]);

-

-    Log.BenchmarkEnd(1);

-    Log.LogBenchmark('Loading Ini', 1);

-

-    // Sound

-    Log.BenchmarkStart(1);

-    Log.LogStatus('Initialize Sound', 'Initialization');

-    InitializeSound();

-    Log.BenchmarkEnd(1);

-    Log.LogBenchmark('Initializing Sound', 1);

-

-    // Load Sound Settings from Ini

-    Log.BenchmarkStart(1);

-    Log.LogStatus('Load Sound Settings', 'Initialization');

-    Ini.LoadSoundSettings;

-    Log.BenchmarkEnd(1);

-    Log.LogBenchmark('Load Sound Settings', 1);

-

-    // LCD         //TODO: maybe LCD Support as Plugin?

-    //Log.BenchmarkStart(1);

-    //Log.LogStatus('Load LCD', 'Initialization');

-    //LCD := TLCD.Create;

-    (*

-    if Ini.LPT = 1 then

-    begin

-      //LCD.HalfInterface := true;

-      LCD.Enable;

-      LCD.Clear;

-      LCD.WriteText(1, '  UltraStar    ');

-      LCD.WriteText(2, '  Loading...   ');

-    end;

-    Log.BenchmarkEnd(1);

-    Log.LogBenchmark('Loading LCD', 1);

-    *)

-    // Light //TODO: maybe Light Support as Plugin?

-    (*

-    Log.BenchmarkStart(1);

-    Log.LogStatus('Load Light', 'Initialization');

-    Light := TLight.Create;

-    if Ini.LPT = 2 then

-    begin

-      Light.Enable;

-    end;

-    Log.BenchmarkEnd(1);

-    Log.LogBenchmark('Loading Light', 1);

-    *)

-

-

-    // Theme

-    Log.BenchmarkStart(1);

-    Log.LogStatus('Load Themes', 'Initialization');

-    Theme := TTheme.Create(ThemePath + ITheme[Ini.Theme] + '.ini', Ini.Color);

-    Log.BenchmarkEnd(1);

-    Log.LogBenchmark('Loading Themes', 1);

-

-    // Covers Cache

-    Log.BenchmarkStart(1);

-    Log.LogStatus('Creating Covers Cache', 'Initialization');

-    Covers := TCovers.Create;

-    Log.LogBenchmark('Loading Covers Cache Array', 1);

-    Log.BenchmarkStart(1);

-

-    // Category Covers

-    Log.BenchmarkStart(1);

-    Log.LogStatus('Creating Category Covers Array', 'Initialization');

-    CatCovers:= TCatCovers.Create;

-    Log.BenchmarkEnd(1);

-    Log.LogBenchmark('Loading Category Covers Array', 1);

-

-    // Songs

-    //Log.BenchmarkStart(1);

-    Log.LogStatus('Creating Song Array', 'Initialization');

-    Songs := TSongs.Create;

-    //Songs.LoadSongList;

-

-    Log.LogStatus('Creating 2nd Song Array', 'Initialization');

-    CatSongs := TCatSongs.Create;

-

-    Log.BenchmarkEnd(1);

-    Log.LogBenchmark('Loading Songs', 1);

-

-    // PluginManager

-    Log.BenchmarkStart(1);

-    Log.LogStatus('PluginManager', 'Initialization');

-    DLLMan := TDLLMan.Create;   // Load PluginList

-    Log.BenchmarkEnd(1);

-    Log.LogBenchmark('Loading PluginManager', 1);

-

-    {// Party Mode Manager

-    Log.BenchmarkStart(1);

-    Log.LogStatus('PartySession Manager', 'Initialization');

-    PartySession := TPartySession.Create;   //Load PartySession

-

-    Log.BenchmarkEnd(1);

-    Log.LogBenchmark('Loading PartySession Manager', 1);      }

-

-    // Graphics

-    Log.BenchmarkStart(1);

-    Log.LogStatus('Initialize 3D', 'Initialization');

-    Initialize3D(WndTitle);

-    Log.BenchmarkEnd(1);

-    Log.LogBenchmark('Initializing 3D', 1);

-

-    // Score Saving System

-    Log.BenchmarkStart(1);

-    Log.LogStatus('DataBase System', 'Initialization');

-    DataBase := TDataBaseSystem.Create;

-

-    if (Params.ScoreFile = '') then

-      DataBase.Init ('Ultrastar.db')

-    else

-      DataBase.Init (Params.ScoreFile);

-

-    Log.BenchmarkEnd(1);

-    Log.LogBenchmark('Loading DataBase System', 1);

-

-    // Playlist Manager

-    Log.BenchmarkStart(1);

-    Log.LogStatus('Playlist Manager', 'Initialization');

-    PlaylistMan := TPlaylistManager.Create;

-    Log.BenchmarkEnd(1);

-    Log.LogBenchmark('Loading Playlist Manager', 1);

-

-    // GoldenStarsTwinkleMod

-    Log.BenchmarkStart(1);

-    Log.LogStatus('Effect Manager', 'Initialization');

-    GoldenRec := TEffectManager.Create;

-    Log.BenchmarkEnd(1);

-    Log.LogBenchmark('Loading Particel System', 1);

-

-    // Joypad

-    if (Ini.Joypad = 1) OR (Params.Joypad) then

-    begin

-      Log.BenchmarkStart(1);

-      Log.LogStatus('Initialize Joystick', 'Initialization');

-      Joy := TJoy.Create;

-      Log.BenchmarkEnd(1);

-      Log.LogBenchmark('Initializing Joystick', 1);

-    end;

-

-    Log.BenchmarkEnd(0);

-    Log.LogBenchmark('Loading Time', 0);

-

-    Log.LogError('Creating Core');

-    Core := TCore.Create(

-      USDXShortVersionStr,

-      MakeVersion(USDX_VERSION_MAJOR,

-                  USDX_VERSION_MINOR,

-                  USDX_VERSION_RELEASE,

-                  chr(0))

-    );

-

-    Log.LogError('Running Core');

-    Core.Run;

-

-    //------------------------------

-    //Start- Mainloop

-    //------------------------------

-    Log.LogStatus('Main Loop', 'Initialization');

-    MainLoop;

-

-  finally

-    //------------------------------

-    //Finish Application

-    //------------------------------

-

-    // TODO:

-    // call an uninitialize routine for every initialize step

-    // or at least use the corresponding Free-Methods

-

-    UnloadOpenGL;

-    //TTF_quit();

-    SDL_Quit();

-

-    (*

-    {$ifdef WIN32}

-      if assigned(LCD) and (Ini.LPT = 1) then

-        LCD.Clear;

-      if assigned(Light) and (Ini.LPT = 2) then

-        Light.TurnOff;

-    {$endif}

-     *)

-

-    if assigned(Log) then

-    begin

-      Log.LogStatus('Main Loop', 'Finished');

-      Log.Free;

-    end;

-  end;

-end;

-

-procedure MainLoop;

-var

-  Delay:    integer;

-begin

-  Delay := 0;

-  SDL_EnableKeyRepeat(125, 125);

-

-  CountSkipTime();  // JB - for some reason this seems to be needed when we use the SDL Timer functions.

-  while not Done do

-  begin

-    // joypad

-    if (Ini.Joypad = 1) or (Params.Joypad) then

-      Joy.Update;

-

-    // keyboard events

-    CheckEvents;

-

-    // display

-    done := not Display.Draw;

-    SwapBuffers;

-

-    // light

-    //Light.Refresh;

-

-    // delay

-    CountMidTime;

-

-    Delay := Floor(1000 / 100 - 1000 * TimeMid);

-

-    if Delay >= 1 then

-      SDL_Delay(Delay); // dynamic, maximum is 100 fps

-

-    CountSkipTime;

-

-    // reinitialization of graphics

-    if Restart then

-    begin

-      Reinitialize3D;

-      Restart := false;

-    end;

-

-  end;

-End;

-

-procedure CheckEvents;

-begin

-  if Assigned(Display.NextScreen) then

-    Exit;

-    

-  while SDL_PollEvent( @event ) = 1 do

-  begin

-    case Event.type_ of

-      SDL_QUITEV:

-      begin

-        Display.Fade := 0;

-        Display.NextScreenWithCheck := nil;

-        Display.CheckOK := True;

-      end;

-      {

-      SDL_MOUSEBUTTONDOWN:

-        with Event.button Do

-        begin

-          if State = SDL_BUTTON_LEFT Then

-          begin

-            //

-          end;

-        end;

-      }

-      SDL_VIDEORESIZE:

-      begin

-        ScreenW := Event.resize.w;

-        ScreenH := Event.resize.h;

-

-        screen  := SDL_SetVideoMode(ScreenW, ScreenH, (Ini.Depth+1) * 16, SDL_OPENGL or SDL_RESIZABLE);

-      end;

-      SDL_KEYDOWN:

-        begin

-          // remap the "keypad enter" key to the "standard enter" key

-          if (Event.key.keysym.sym = SDLK_KP_ENTER) then

-            Event.key.keysym.sym := SDLK_RETURN;

-

-          if (Event.key.keysym.sym = SDLK_F11) or

-             ((Event.key.keysym.sym = SDLK_RETURN) and

-              ((Event.key.keysym.modifier and KMOD_ALT) <> 0)) then // toggle full screen

-          begin

-            Ini.FullScreen := integer( not boolean( Ini.FullScreen ) );

-

-            if boolean( Ini.FullScreen ) then

-            begin

-              SDL_SetVideoMode(ScreenW, ScreenH, (Ini.Depth+1) * 16, SDL_OPENGL or SDL_FULLSCREEN);

-              SDL_ShowCursor(0);

-            end

-            else

-            begin

-              SDL_SetVideoMode(ScreenW, ScreenH, (Ini.Depth+1) * 16, SDL_OPENGL or SDL_RESIZABLE);

-              SDL_ShowCursor(1);

-            end;

-

-            glViewPort(0, 0, ScreenW, ScreenH);

-          end

-          // ScreenShot hack. If Print is pressed-> Make screenshot and Save to Screenshots Path

-          else if (Event.key.keysym.sym = SDLK_SYSREQ) or (Event.key.keysym.sym = SDLK_PRINT) then

-            Display.ScreenShot

-          // popup hack... if there is a visible popup then let it handle input instead of underlying screen

-          // shoud be done in a way to be sure the topmost popup has preference (maybe error, then check)

-          else if (ScreenPopupError <> nil) and (ScreenPopupError.Visible) then

-            done := not ScreenPopupError.ParseInput(Event.key.keysym.sym, WideChar(Event.key.keysym.unicode), True)

-          else if (ScreenPopupCheck <> nil) and (ScreenPopupCheck.Visible) then

-            done := not ScreenPopupCheck.ParseInput(Event.key.keysym.sym, WideChar(Event.key.keysym.unicode), True)

-          // end of popup hack

-          else

-          begin

-            // check for Screen want to Exit

-            done := not Display.CurrentScreen^.ParseInput(Event.key.keysym.sym, WideChar(Event.key.keysym.unicode), True);

-

-            // If Screen wants to Exit

-            if done then

-            begin

-              // If Question Option is enabled then Show Exit Popup

-              if (Ini.AskbeforeDel = 1) then

-              begin

-                Display.CurrentScreen^.CheckFadeTo(nil,'MSG_QUIT_USDX');

-              end

-              else // When asking for exit is disabled then simply exit

-              begin

-                Display.Fade := 0;

-                Display.NextScreenWithCheck := nil;

-                Display.CheckOK := True;

-              end;

-            end;

-

-          end;

-        end;

-      {

-      SDL_JOYAXISMOTION:

-        begin

-          beep

-        end;

-      }

-      SDL_JOYBUTTONDOWN:

-        begin

-          beep

-        end;

-    end; // Case

-  end; // While

-end;

-

-function GetTimeForBeats(BPM, Beats: real): real;

-begin

-  Result := 60 / BPM * Beats;

-end;

-

-function GetBeats(BPM, msTime: real): real;

-begin

-  Result := BPM * msTime / 60;

-end;

-

-procedure GetMidBeatSub(BPMNum: integer; var Time: real; var CurBeat: real);

-var

-  NewTime:  real;

-begin

-  if High(CurrentSong.BPM) = BPMNum then

-  begin

-    // last BPM

-    CurBeat := CurrentSong.BPM[BPMNum].StartBeat + GetBeats(CurrentSong.BPM[BPMNum].BPM, Time);

-    Time := 0;

-  end

-  else

-  begin

-    // not last BPM

-    // count how much time is it for start of the new BPM and store it in NewTime

-    NewTime := GetTimeForBeats(CurrentSong.BPM[BPMNum].BPM, CurrentSong.BPM[BPMNum+1].StartBeat - CurrentSong.BPM[BPMNum].StartBeat);

-

-    // compare it to remaining time

-    if (Time - NewTime) > 0 then

-    begin

-      // there is still remaining time

-      CurBeat := CurrentSong.BPM[BPMNum].StartBeat;

-      Time := Time - NewTime;

-    end

-    else

-    begin

-      // there is no remaining time

-      CurBeat := CurrentSong.BPM[BPMNum].StartBeat + GetBeats(CurrentSong.BPM[BPMNum].BPM, Time);

-      Time := 0;

-    end; // if

-  end; // if

-end;

-

-function GetMidBeat(Time: real): real;

-var

-  CurBeat:  real;

-  CurBPM:   integer;

-//  TopBeat:  real;

-//  TempBeat: real;

-//  TempTime: real;

-begin

-  Result := 0;

-  if Length(CurrentSong.BPM) = 1 then

-    Result := Time * CurrentSong.BPM[0].BPM / 60;

-

-  (* 2 BPMs *)

-{  if Length(CurrentSong.BPM) > 1 then begin

-    (* new system *)

-    CurBeat := 0;

-    TopBeat := GetBeats(CurrentSong.BPM[0].BPM, Time);

-    if TopBeat > CurrentSong.BPM[1].StartBeat then begin

-      // analyze second BPM

-      Time := Time - GetTimeForBeats(CurrentSong.BPM[0].BPM, CurrentSong.BPM[1].StartBeat - CurBeat);

-      CurBeat := CurrentSong.BPM[1].StartBeat;

-      TopBeat := GetBeats(CurrentSong.BPM[1].BPM, Time);

-      Result := CurBeat + TopBeat;

-

-    end

-    else

-    begin

-      (* pierwszy przedzial *)

-      Result := TopBeat;

-    end;

-  end;}

-

-  (* more BPMs *)

-  if Length(CurrentSong.BPM) > 1 then

-  begin

-    CurBeat := 0;

-    CurBPM := 0;

-    while (Time > 0) do

-    begin

-      GetMidBeatSub(CurBPM, Time, CurBeat);

-      Inc(CurBPM);

-    end;

-

-    Result := CurBeat;

-  end;

-end;

-

-function GetTimeFromBeat(Beat: integer): real;

-var

-  CurBPM:   integer;

-begin

-  Result := 0;

-  if Length(CurrentSong.BPM) = 1 then

-    Result := CurrentSong.GAP / 1000 + Beat * 60 / CurrentSong.BPM[0].BPM;

-

-  (* more BPMs *)

-  if Length(CurrentSong.BPM) > 1 then

-  begin

-    Result := CurrentSong.GAP / 1000;

-    CurBPM := 0;

-    while (CurBPM <= High(CurrentSong.BPM)) and

-          (Beat > CurrentSong.BPM[CurBPM].StartBeat) do

-    begin

-      if (CurBPM < High(CurrentSong.BPM)) and

-         (Beat >= CurrentSong.BPM[CurBPM+1].StartBeat) then

-      begin

-        // full range

-        Result := Result + (60 / CurrentSong.BPM[CurBPM].BPM) *

-                           (CurrentSong.BPM[CurBPM+1].StartBeat - CurrentSong.BPM[CurBPM].StartBeat);

-      end;

-

-      if (CurBPM = High(CurrentSong.BPM)) or

-         (Beat < CurrentSong.BPM[CurBPM+1].StartBeat) then

-      begin

-        // in the middle

-        Result := Result + (60 / CurrentSong.BPM[CurBPM].BPM) *

-                           (Beat - CurrentSong.BPM[CurBPM].StartBeat);

-      end;

-      Inc(CurBPM);

-    end;

-

-    {

-    while (Time > 0) do

-    begin

-      GetMidBeatSub(CurBPM, Time, CurBeat);

-      Inc(CurBPM);

-    end;

-    }

-  end; // if}

-end;

-

-procedure Sing(Sender: TScreenSing);

-var

-  Count:    integer;

-  CountGr:  integer;

-  CP:       integer;

-  Done:     real;

-  N:        integer;

-begin

-  LineState.CurrentTime := LineState.CurrentTime + TimeSkip;

-

-  LineState.OldBeat := LineState.CurrentBeat;

-  LineState.MidBeat := GetMidBeat(LineState.CurrentTime - (CurrentSong.Gap{ + 90 I've forgotten for what it is}) / 1000); // new system with variable BPM in function

-  LineState.CurrentBeat := Floor(LineState.MidBeat);

-

-//  LineState.OldHalf := LineState.AktHalf;

-//  LineState.MidHalf := LineState.MidBeat + 0.5;

-//  LineState.AktHalf := Floor(LineState.MidHalf);

-

-  LineState.OldBeatC := LineState.CurrentBeatC;

-  LineState.MidBeatC := GetMidBeat(LineState.CurrentTime - (CurrentSong.Gap) / 1000);

-  LineState.CurrentBeatC := Floor(LineState.MidBeatC);

-

-  LineState.OldBeatD := LineState.CurrentBeatD;

-  LineState.MidBeatD := -0.5+GetMidBeat(LineState.CurrentTime - (CurrentSong.Gap + 120 + 20) / 1000); // MidBeat with addition GAP

-  LineState.CurrentBeatD := Floor(LineState.MidBeatD);

-  LineState.FracBeatD := Frac(LineState.MidBeatD);

-

-  // sentences routines

-  for CountGr := 0 to 0 do //High(Gracz)

-  begin;

-    CP := CountGr;

-    // ustawianie starej parts

-    LineState.OldLine := Lines[CP].Current;

-

-    // wybieranie aktualnej parts

-    for Count := 0 to Lines[CP].High do

-    begin

-      if LineState.CurrentBeat >= Lines[CP].Line[Count].Start then

-        Lines[CP].Current := Count;

-    end;

-

-    // czysczenie nut gracza, gdy to jest nowa plansza

-    // (optymizacja raz na halfbeat jest zla)

-    if Lines[CP].Current <> LineState.OldLine then

-      NewSentence(Sender);

-

-  end; // for CountGr

-

-  // wykonuje operacje raz na beat

-  if (LineState.CurrentBeat >= 0) and (LineState.OldBeat <> LineState.CurrentBeat) then

-    NewBeat(Sender);

-

-  // make some operations on clicks

-  if {(LineState.CurrentBeatC >= 0) and }(LineState.OldBeatC <> LineState.CurrentBeatC) then

-    NewBeatC(Sender);

-

-  // make some operations when detecting new voice pitch

-  if (LineState.CurrentBeatD >= 0) and (LineState.OldBeatD <> LineState.CurrentBeatD) then

-    NewBeatD(Sender);

-

-  // wykonuje operacje w polowie beatu

-//  if (LineState.AktHalf >= 1) and (LineState.OldHalf <> LineState.AktHalf) then

-//    NewHalf;

-

-  // plynnie przesuwa text

-  Done := 1;

-  for N := 0 to Lines[0].Line[Lines[0].Current].HighNote do

-  begin

-    if (Lines[0].Line[Lines[0].Current].Note[N].Start <= LineState.MidBeat) and

-       (Lines[0].Line[Lines[0].Current].Note[N].Start + Lines[0].Line[Lines[0].Current].Note[N].Length >= LineState.MidBeat) then

-    begin

-      Done := (LineState.MidBeat - Lines[0].Line[Lines[0].Current].Note[N].Start) / (Lines[0].Line[Lines[0].Current].Note[N].Length);

-    end;

-  end;

-

-  N := Lines[0].Line[Lines[0].Current].HighNote;

-

-  // wylacza ostatnia nute po przejsciu

-  {// todo: Lyrics

-  if (Ini.LyricsEffect = 1) and (Done = 1) and

-    (LineState.MidBeat > Lines[0].Line[Lines[0].Current].Note[N].Start + Lines[0].Line[Lines[0].Current].Note[N].Length)

-    then Sender.LyricMain.Selected := -1;

-

-  if Done > 1 then Done := 1;

-  Sender.LyricMain.Done := Done;  }

-

-  // use Done with LCD

-{  with ScreenSing do begin

-    if LyricMain.Selected >= 0 then begin

-      LCD.MoveCursor(1, LyricMain.SelectedLetter + Round((LyricMain.SelectedLength-1) * Done));

-      LCD.ShowCursor;

-    end;

-  end;}

-

-

-end;

-

-procedure NewSentence(Sender: TScreenSing);

-var

-G: Integer;

-begin

-  // czyszczenie nut graczy

-  for G := 0 to High(Player) do

-  begin

-    Player[G].IlNut := 0;

-    Player[G].HighNote := -1;

-    SetLength(Player[G].Note, 0);

-  end;

-

-  // Add Words to Lyrics

-  with Sender do

-  begin

-    {LyricMain.AddCzesc(Lines[0].Current);

-    if Lines[0].Current < Lines[0].High then

-      LyricSub.AddCzesc(Lines[0].Current+1)

-    else

-      LyricSub.Clear;}

-    while (not Lyrics.LineinQueue) and (Lyrics.LineCounter <= High(Lines[0].Line)) do

-      Lyrics.AddLine(@Lines[0].Line[Lyrics.LineCounter]);

-  end;

-

-  //Sender.UpdateLCD;

-  

-  //On Sentence Change...

-  Sender.onSentenceChange(Lines[0].Current);

-end;

-

-procedure NewBeat(Sender: TScreenSing);

-var

-  Count:      integer;

-//  TempBeat: integer;

-begin

-  // ustawia zaznaczenie tekstu

-//  SingScreen.LyricMain.Selected := -1;

-  for Count := 0 to Lines[0].Line[Lines[0].Current].HighNote do

-    if (Lines[0].Line[Lines[0].Current].Note[Count].Start = LineState.CurrentBeat) then

-    begin

-      // operates on currently beated note

-      //Todo: Lyrics

-      //Sender.LyricMain.Selected := Count;

-

-//      LCD.MoveCursor(1, ScreenSing.LyricMain.SelectedLetter);

-//      LCD.ShowCursor;

-

-      //LCD.MoveCursorBR(Sender.LyricMain.SelectedLetter);

-      //LCD.ShowCursor;

-    end;

-end;

-

-procedure NewBeatC;

-var

-  Count:    integer;

-//  LPT_1:  integer;

-//  LPT_2:  integer;

-begin

-//  LPT_1 := 1;

-//  LPT_2 := 1;

-

-  // beat click

-  if (Ini.BeatClick = 1) and ((LineState.CurrentBeatC + Lines[0].Resolution + Lines[0].NotesGAP) mod Lines[0].Resolution = 0) then

-    AudioPlayback.PlaySound(SoundLib.Click);

-

-  // debug system on LPT

-  if ((LineState.CurrentBeatC + Lines[0].Resolution + Lines[0].NotesGAP) mod Lines[0].Resolution = 0) then

-  begin

-    //LPT_1 := 0;

-//    Light.LightOne(0, 150);

-

-    (*

-    Light.LightOne(1, 200); // beat light

-    if ParamStr(1) = '-doublelights' then

-      Light.LightOne(0, 200); // beat light

-    *)

-

-

-{    if ((LineState.CurrentBeatC + Lines[0].Resolution + Lines[0].NotesGAP) mod (Lines[0].Resolution * 2) = 0) then

-      Light.LightOne(0, 150)

-    else

-      Light.LightOne(1, 150)}

-  end;

-

-  for Count := 0 to Lines[0].Line[Lines[0].Current].HighNote do

-  begin

-    if (Lines[0].Line[Lines[0].Current].Note[Count].Start = LineState.CurrentBeatC) then

-    begin

-      // click assist

-      if Ini.ClickAssist = 1 then

-        AudioPlayback.PlaySound(SoundLib.Click);

-

-      //LPT_2 := 0;

-      (*

-      if ParamStr(1) <> '-doublelights' then

-        Light.LightOne(0, 150); //125

-      *)

-

-      // drum machine

-      (*

-      TempBeat := LineState.CurrentBeat;// + 2;

-      if (TempBeat mod 8 = 0) then Music.PlayDrum;

-      if (TempBeat mod 8 = 4) then Music.PlayClap;

-//      if (TempBeat mod 4 = 2) then Music.PlayHihat;

-      if (TempBeat mod 4 <> 0) then Music.PlayHihat;

-      *)

-    end;

-  end;

-

-  {$IFDEF UseSerialPort}

-    // PortWriteB($378, LPT_1 + LPT_2 * 2); // 0 zapala

-  {$ENDIF}

-end;

-

-procedure NewBeatD(Sender: TScreenSing);

-begin

-  NewNote(Sender);

-end;

-

-//procedure NewHalf;

-//begin

-//  NewNote;

-//end;

-

-procedure NewNote(Sender: TScreenSing);

-var

-  CP:     integer; // current player

-  S:      integer; // sentence

-  SMin:   integer;

-  SMax:   integer;

-  SDet:   integer; // temporary: sentence of detected note

-  Count:  integer;

-  Mozna:  boolean;

-  New:    boolean;

-  Range:  integer;

-  NoteHit:boolean;

-begin

-//  Log.LogStatus('Beat ' + IntToStr(LineState.CurrentBeat) + ' HalfBeat ' + IntToStr(LineState.AktHalf), 'NewBeat');

-//  beep;

-

-  // On linux we get an AV @ NEWNOTE,  line 600 of Classes/UMain.pas

-  if not assigned( AudioInputProcessor.Sound ) then

-    exit;

-

-  // analizuje dla obu graczy ten sam sygnal (Sound.OneSrcForBoth)

-  // albo juz lepiej nie

-  for CP := 0 to PlayersPlay-1 do

-  begin

-    // analyze buffer

-    AudioInputProcessor.Sound[CP].AnalyzeBuffer;

-

-    // adds some noise

-    //LineState.Tone := LineState.Tone + Round(Random(3)) - 1;

-

-    // count min and max sentence range for checking (detection is delayed to the notes we see on the screen)

-    SMin := Lines[0].Current-1;

-    if SMin < 0 then

-      SMin := 0;

-    SMax := Lines[0].Current;

-

-    // check if we can add new note

-    Mozna := false;

-    SDet:=SMin;

-    for S := SMin to SMax do

-    begin

-      for Count := 0 to Lines[0].Line[S].HighNote do

-      begin

-        if ((Lines[0].Line[S].Note[Count].Start <= LineState.CurrentBeatD)

-          and (Lines[0].Line[S].Note[Count].Start + Lines[0].Line[S].Note[Count].Length - 1 >= LineState.CurrentBeatD))

-          and (not Lines[0].Line[S].Note[Count].FreeStyle) // but don't allow when it's FreeStyle note

-          and (Lines[0].Line[S].Note[Count].Length > 0) then // and make sure the note lengths is at least 1

-        begin

-          SDet := S;

-          Mozna := true;

-          Break;

-        end;

-      end;

-    end;

-

-    S := SDet;

-

-    //Czas.SzczytJest := true;

-    //Czas.Tone := 27;

-

-    // gdy moze, to dodaje nute - When Mozna, it adds note (?)

-    if (AudioInputProcessor.Sound[CP].ToneValid) and (Mozna) then

-    begin

-      // operowanie na ostatniej nucie

-      for Count := 0 to Lines[0].Line[S].HighNote do

-      begin

-        if (Lines[0].Line[S].Note[Count].Start <= LineState.OldBeatD+1) and

-           (Lines[0].Line[S].Note[Count].Start +

-            Lines[0].Line[S].Note[Count].Length > LineState.OldBeatD+1) then

-        begin

-          // to robi, tylko dla pary nut (oryginalnej i gracza)

-

-          // przesuwanie tonu w odpowiednia game

-          while (AudioInputProcessor.Sound[CP].Tone - Lines[0].Line[S].Note[Count].Tone > 6) do

-            AudioInputProcessor.Sound[CP].Tone := AudioInputProcessor.Sound[CP].Tone - 12;

-

-          while (AudioInputProcessor.Sound[CP].Tone - Lines[0].Line[S].Note[Count].Tone < -6) do

-            AudioInputProcessor.Sound[CP].Tone := AudioInputProcessor.Sound[CP].Tone + 12;

-

-          // Half size Notes Patch

-          NoteHit := false;

-

-          //if Ini.Difficulty = 0 then Range := 2;

-          //if Ini.Difficulty = 1 then Range := 1;

-          //if Ini.Difficulty = 2 then Range := 0;

-          Range := 2 - Ini.Difficulty;

-

-          if abs(Lines[0].Line[S].Note[Count].Tone - AudioInputProcessor.Sound[CP].Tone) <= Range then

-          begin

-            AudioInputProcessor.Sound[CP].Tone := Lines[0].Line[S].Note[Count].Tone;

-

-            // Half size Notes Patch

-            NoteHit := true;

-

-            if (Ini.LineBonus = 0) then

-            begin

-              // add points without LineBonus

-              case Lines[0].Line[S].Note[Count].NoteType of

-                1:  Player[CP].Score := Player[CP].Score + 10000 / Lines[0].NoteType *

-                      Lines[0].Line[S].Note[Count].NoteType;

-                2:  Player[CP].ScoreGolden := Player[CP].ScoreGolden + 10000 / Lines[0].NoteType *

-                      Lines[0].Line[S].Note[Count].NoteType;

-              end;

-            end

-            else

-            begin

-              // add points with Line Bonus

-              case Lines[0].Line[S].Note[Count].NoteType of

-                1:  Player[CP].Score := Player[CP].Score + 9000 / Lines[0].NoteType *

-                      Lines[0].Line[S].Note[Count].NoteType;

-                2:  Player[CP].ScoreGolden := Player[CP].ScoreGolden + 9000 / Lines[0].NoteType *

-                      Lines[0].Line[S].Note[Count].NoteType;

-              end;

-            end;

-

-            Player[CP].ScoreI := Floor(Player[CP].Score / 10) * 10;

-            Player[CP].ScoreGoldenI := Floor(Player[CP].ScoreGolden / 10) * 10;

-

-            Player[CP].ScoreTotalI := Player[CP].ScoreI + Player[CP].ScoreGoldenI + Player[CP].ScoreLineI;

-          end;

-

-        end; // operowanie

-      end; // for

-

-      // sprawdzanie czy to nowa nuta, czy przedluzenie

-      if S = SMax then

-      begin

-        New := true;

-        // if last has the same tone

-        if (Player[CP].IlNut > 0 ) and

-           (Player[CP].Note[Player[CP].HighNote].Tone = AudioInputProcessor.Sound[CP].Tone) and

-           (Player[CP].Note[Player[CP].HighNote].Start + Player[CP].Note[Player[CP].HighNote].Length = LineState.CurrentBeatD) then

-        begin

-          New := false;

-        end;

-

-        // if is not as new note to control "beacie" (TODO: translate polish "beacie")

-        for Count := 0 to Lines[0].Line[S].HighNote do

-        begin

-          if (Lines[0].Line[S].Note[Count].Start = LineState.CurrentBeatD) then

-            New := true;

-        end;

-

-        // dodawanie nowej nuty

-        if New then

-        begin

-          // New Note

-          Player[CP].IlNut := Player[CP].IlNut + 1;

-          Player[CP].HighNote := Player[CP].HighNote + 1;

-          SetLength(Player[CP].Note, Player[CP].IlNut);

-          Player[CP].Note[Player[CP].HighNote].Start   := LineState.CurrentBeatD;

-          Player[CP].Note[Player[CP].HighNote].Length := 1;

-          Player[CP].Note[Player[CP].HighNote].Tone     := AudioInputProcessor.Sound[CP].Tone; // Ton || TonDokl

-          Player[CP].Note[Player[CP].HighNote].Detekt  := LineState.MidBeat;

-

-          // Half Note Patch

-          Player[CP].Note[Player[CP].HighNote].Hit := NoteHit;

-

-          //Log.LogStatus('New Note ' + IntToStr(Gracz.Note[Gracz.HighNote].Start), 'NewBeat');

-        end

-        else

-        begin

-          // przedluzenie nuty

-          Player[CP].Note[Player[CP].HighNote].Length := Player[CP].Note[Player[CP].HighNote].Length + 1;

-        end;

-

-        // check for perfect note and then lit the star (on Draw)

-        for Count := 0 to Lines[0].Line[S].HighNote do

-        begin

-          if (Lines[0].Line[S].Note[Count].Start = Player[CP].Note[Player[CP].HighNote].Start) and

-             (Lines[0].Line[S].Note[Count].Length = Player[CP].Note[Player[CP].HighNote].Length) and

-             (Lines[0].Line[S].Note[Count].Tone = Player[CP].Note[Player[CP].HighNote].Tone) then

-          begin

-            Player[CP].Note[Player[CP].HighNote].Perfect := true;

-          end;

-        end;

-      end;// else beep; // if S = SMax

-

-    end; // if moze

-  end; // for CP

-  //  Log.LogStatus('EndBeat', 'NewBeat');

-

-  //On Sentence End -> For LineBonus + SingBar

-  if (sDet >= low(Lines[0].Line)) and (sDet <= high(Lines[0].Line)) then

-  begin

-    if assigned( Sender ) and

-       ((Lines[0].Line[SDet].Note[Lines[0].Line[SDet].HighNote].Start + Lines[0].Line[SDet].Note[Lines[0].Line[SDet].HighNote].Length - 1) = LineState.CurrentBeatD) then

-    begin

-      Sender.onSentenceEnd(sDet);

-    end;

-  end;

-

-end;

-

-procedure ClearScores(PlayerNum: integer);

-begin

-  Player[PlayerNum].Score := 0;

-  Player[PlayerNum].ScoreI := 0;

-  Player[PlayerNum].ScoreLine := 0;

-  Player[PlayerNum].ScoreLineI := 0;

-  Player[PlayerNum].ScoreGolden := 0;

-  Player[PlayerNum].ScoreGoldenI := 0;

-  Player[PlayerNum].ScoreTotalI := 0;

-end;

-

-

-//--------------------

-// Function sets all Absolute Paths e.g. Song Path and makes sure the Directorys exist

-//--------------------

-procedure InitializePaths;

-

-  // Initialize a Path Variable

-  // After Setting Paths, make sure that Paths exist

-  function initialize_path( out aPathVar : string; const aLocation : string ): boolean;

-  var

-    lWriteable: Boolean;

-    lAttrib   : integer;

-  begin

-    lWriteable := false;

-    aPathVar   := aLocation;

-

-    // Make sure the directory is needex

-    ForceDirectories(aPathVar);

-

-    if DirectoryExists(aPathVar) then

-    begin

-      lAttrib := fileGetAttr(aPathVar);

-

-      lWriteable := (lAttrib and faDirectory <> 0) and

-                not (lAttrib and faReadOnly  <> 0)

-    end;

-    

-    if not lWriteable then

-      Log.LogError('Error: Dir ('+ aLocation +') is Readonly');

-

-    result := lWriteable;

-  end;

-

-begin

-  initialize_path( LogPath         , Platform.GetLogPath                             );

-  initialize_path( SoundPath       , Platform.GetGameSharedPath + 'Sounds'      + PathDelim );

-  initialize_path( ThemePath       , Platform.GetGameSharedPath + 'Themes'      + PathDelim );

-  initialize_path( SkinsPath       , Platform.GetGameSharedPath + 'Skins'       + PathDelim );

-  initialize_path( LanguagesPath   , Platform.GetGameSharedPath + 'Languages'   + PathDelim );

-  initialize_path( PluginPath      , Platform.GetGameSharedPath + 'Plugins'     + PathDelim );

-  initialize_path( VisualsPath     , Platform.GetGameSharedPath + 'Visuals'     + PathDelim );

-

-  initialize_path( ScreenshotsPath , Platform.GetGameUserPath + 'Screenshots' + PathDelim );

-

-  // Users Song Path ....

-  initialize_path( UserSongPath        , Platform.GetGameUserPath + 'Songs'       + PathDelim );

-  initialize_path( UserCoversPath      , Platform.GetGameUserPath + 'Covers'      + PathDelim );

-  initialize_path( UserPlaylistPath    , Platform.GetGameUserPath + 'Playlists'   + PathDelim );

-

-  // Shared Song Path ....

-  initialize_path( SongPath        , Platform.GetGameSharedPath + 'Songs'       + PathDelim );

-  initialize_path( CoversPath      , Platform.GetGameSharedPath + 'Covers'      + PathDelim );

-  initialize_path( PlaylistPath    , Platform.GetGameSharedPath + 'Playlists'   + PathDelim );

-

-  DecimalSeparator := '.';

-end;

-

-end.

-

+unit UMain;
+
+interface
+
+{$IFDEF FPC}
+  {$MODE Delphi}
+{$ENDIF}
+
+{$I switches.inc}
+
+uses
+  SDL,
+  UGraphic,
+  UMusic,
+  URecord,
+  UTime,
+  SysUtils,
+  UDisplay,
+  UIni,
+  ULog,
+  ULyrics,
+  UScreenSing,
+  USong,
+  OpenGL12,
+  {$IFDEF UseSerialPort}
+  //zlportio, //you can disable it and all PortWriteB calls
+  {$ENDIF}
+  //ULCD,  //TODO: maybe LCD Support as Plugin?
+  //ULight, //TODO: maybe Light Support as Plugin?
+  UThemes;
+
+type
+  TPlayer = record
+    Name:         string;
+
+    // Index in Teaminfo record
+    TeamID:       Byte;
+    PlayerID:     Byte;
+
+    // Scores
+    Score:        real;
+    ScoreLine:    real;
+    ScoreGolden:  real;
+
+    ScoreI:       integer;
+    ScoreLineI:   integer;
+    ScoreGoldenI: integer;
+    ScoreTotalI:  integer;
+
+    // LineBonus Mod
+    ScoreLast:    Real;//Last Line Score
+
+    // PerfectLineTwinkle Mod (effect)
+    LastSentencePerfect: Boolean;
+
+    //Meter:        real;
+
+    HighNote:  integer;
+    IlNut:     integer;
+    Note:     array of record
+      Start:     integer;
+      Length:    integer;
+      Detekt:    real;     // accurate place, detected in the note
+      Tone:      real;
+      Perfect:   boolean;  // true if the note matches the original one, lit the star
+
+      // Half size Notes Patch
+      Hit:        boolean; // true if the note Hits the Line
+    end;
+  end;
+
+
+var
+  // Absolute Paths
+  GamePath:         string;
+  SoundPath:        string;
+  SongPath:         string;
+  LogPath:          string;
+  ThemePath:        string;
+  SkinsPath:        string;
+  ScreenshotsPath:  string;
+  CoversPath:       string;
+  LanguagesPath:    string;
+  PluginPath:       string;
+  VisualsPath:      string;
+  PlayListPath:     string;
+
+  UserSongPath:     string = '';
+  UserCoversPath:   string = '';
+  UserPlaylistPath: string = '';
+
+  OGL:      Boolean;
+  Done:     Boolean;
+  Event:    TSDL_event;
+  FileName: string;
+  Restart:  boolean;
+
+  // player and music info
+  Player:       array of TPlayer;
+  PlayersPlay:  integer;
+
+  CurrentSong : TSong;
+
+procedure InitializePaths;
+
+Procedure Main;
+procedure MainLoop;
+procedure CheckEvents;
+procedure Sing(Sender: TScreenSing);
+procedure NewSentence(Sender: TScreenSing);
+procedure NewBeat(Sender: TScreenSing); // executed when on then new beat
+procedure NewBeatC(Sender: TScreenSing); // executed when on then new beat for click
+procedure NewBeatD(Sender: TScreenSing); // executed when on then new beat for detection
+//procedure NewHalf; // executed when in the half between beats
+procedure NewNote(Sender: TScreenSing); // detect note
+function GetMidBeat(Time: real): real;
+function GetTimeFromBeat(Beat: integer): real;
+procedure ClearScores(PlayerNum: integer);
+
+implementation
+
+uses
+  USongs,
+  UJoystick,
+  math,
+  UCommandLine,
+  ULanguage,
+  SDL_ttf,
+  USkins,
+  UCovers,
+  UCatCovers,
+  UDataBase,
+  UPlaylist,
+  UDLLManager,
+  UParty,
+  UConfig,
+  UCore,
+  UGraphicClasses,
+  UPluginDefs,
+  UPlatform;
+
+procedure Main;
+var
+  WndTitle: string;
+begin
+  try
+    WndTitle := USDXVersionStr;
+
+    if Platform.TerminateIfAlreadyRunning( {var} WndTitle) then
+      Exit;
+      
+    //------------------------------
+    //StartUp - Create Classes and Load Files
+    //------------------------------
+    USTime := TTime.Create;
+
+    // Commandline Parameter Parser
+    Params := TCMDParams.Create;
+
+    // Log + Benchmark
+    Log := TLog.Create;
+    Log.Title := WndTitle;
+    Log.Enabled := not Params.NoLog;
+    Log.BenchmarkStart(0);
+
+    // Language
+    Log.BenchmarkStart(1);
+    Log.LogStatus('Initialize Paths', 'Initialization');
+    InitializePaths;
+    Log.LogStatus('Load Language', 'Initialization');
+    Language := TLanguage.Create;
+    
+    // Add Const Values:
+    Language.AddConst('US_VERSION', USDXVersionStr);
+    Log.BenchmarkEnd(1);
+    Log.LogBenchmark('Loading Language', 1);
+
+    // SDL
+    Log.BenchmarkStart(1);
+    Log.LogStatus('Initialize SDL', 'Initialization');
+    SDL_Init(SDL_INIT_VIDEO);
+    Log.BenchmarkEnd(1);
+    Log.LogBenchmark('Initializing SDL', 1);
+
+    // SDL_ttf
+    Log.BenchmarkStart(1);
+    Log.LogStatus('Initialize SDL_ttf', 'Initialization');
+    TTF_Init();
+    Log.BenchmarkEnd(1);
+    Log.LogBenchmark('Initializing SDL_ttf', 1);
+
+    // Skin
+    Log.BenchmarkStart(1);
+    Log.LogStatus('Loading Skin List', 'Initialization');
+    Skin := TSkin.Create;
+    Log.BenchmarkEnd(1);
+    Log.LogBenchmark('Loading Skin List', 1);
+
+    // Ini + Paths
+    Log.BenchmarkStart(1);
+    Log.LogStatus('Load Ini', 'Initialization');
+    Ini := TIni.Create;
+    Ini.Load;
+
+    //Load Languagefile
+    if (Params.Language <> -1) then
+      Language.ChangeLanguage(ILanguage[Params.Language])
+    else
+      Language.ChangeLanguage(ILanguage[Ini.Language]);
+
+    Log.BenchmarkEnd(1);
+    Log.LogBenchmark('Loading Ini', 1);
+
+    // Sound
+    Log.BenchmarkStart(1);
+    Log.LogStatus('Initialize Sound', 'Initialization');
+    InitializeSound();
+    Log.BenchmarkEnd(1);
+    Log.LogBenchmark('Initializing Sound', 1);
+
+    // Load Sound Settings from Ini
+    Log.BenchmarkStart(1);
+    Log.LogStatus('Load Sound Settings', 'Initialization');
+    Ini.LoadSoundSettings;
+    Log.BenchmarkEnd(1);
+    Log.LogBenchmark('Load Sound Settings', 1);
+
+    // LCD         //TODO: maybe LCD Support as Plugin?
+    //Log.BenchmarkStart(1);
+    //Log.LogStatus('Load LCD', 'Initialization');
+    //LCD := TLCD.Create;
+    (*
+    if Ini.LPT = 1 then
+    begin
+      //LCD.HalfInterface := true;
+      LCD.Enable;
+      LCD.Clear;
+      LCD.WriteText(1, '  UltraStar    ');
+      LCD.WriteText(2, '  Loading...   ');
+    end;
+    Log.BenchmarkEnd(1);
+    Log.LogBenchmark('Loading LCD', 1);
+    *)
+    // Light //TODO: maybe Light Support as Plugin?
+    (*
+    Log.BenchmarkStart(1);
+    Log.LogStatus('Load Light', 'Initialization');
+    Light := TLight.Create;
+    if Ini.LPT = 2 then
+    begin
+      Light.Enable;
+    end;
+    Log.BenchmarkEnd(1);
+    Log.LogBenchmark('Loading Light', 1);
+    *)
+
+
+    // Theme
+    Log.BenchmarkStart(1);
+    Log.LogStatus('Load Themes', 'Initialization');
+    Theme := TTheme.Create(ThemePath + ITheme[Ini.Theme] + '.ini', Ini.Color);
+    Log.BenchmarkEnd(1);
+    Log.LogBenchmark('Loading Themes', 1);
+
+    // Covers Cache
+    Log.BenchmarkStart(1);
+    Log.LogStatus('Creating Covers Cache', 'Initialization');
+    Covers := TCovers.Create;
+    Log.LogBenchmark('Loading Covers Cache Array', 1);
+    Log.BenchmarkStart(1);
+
+    // Category Covers
+    Log.BenchmarkStart(1);
+    Log.LogStatus('Creating Category Covers Array', 'Initialization');
+    CatCovers:= TCatCovers.Create;
+    Log.BenchmarkEnd(1);
+    Log.LogBenchmark('Loading Category Covers Array', 1);
+
+    // Songs
+    //Log.BenchmarkStart(1);
+    Log.LogStatus('Creating Song Array', 'Initialization');
+    Songs := TSongs.Create;
+    //Songs.LoadSongList;
+
+    Log.LogStatus('Creating 2nd Song Array', 'Initialization');
+    CatSongs := TCatSongs.Create;
+
+    Log.BenchmarkEnd(1);
+    Log.LogBenchmark('Loading Songs', 1);
+
+    // PluginManager
+    Log.BenchmarkStart(1);
+    Log.LogStatus('PluginManager', 'Initialization');
+    DLLMan := TDLLMan.Create;   // Load PluginList
+    Log.BenchmarkEnd(1);
+    Log.LogBenchmark('Loading PluginManager', 1);
+
+    {// Party Mode Manager
+    Log.BenchmarkStart(1);
+    Log.LogStatus('PartySession Manager', 'Initialization');
+    PartySession := TPartySession.Create;   //Load PartySession
+
+    Log.BenchmarkEnd(1);
+    Log.LogBenchmark('Loading PartySession Manager', 1);      }
+
+    // Graphics
+    Log.BenchmarkStart(1);
+    Log.LogStatus('Initialize 3D', 'Initialization');
+    Initialize3D(WndTitle);
+    Log.BenchmarkEnd(1);
+    Log.LogBenchmark('Initializing 3D', 1);
+
+    // Score Saving System
+    Log.BenchmarkStart(1);
+    Log.LogStatus('DataBase System', 'Initialization');
+    DataBase := TDataBaseSystem.Create;
+
+    if (Params.ScoreFile = '') then
+      DataBase.Init ('Ultrastar.db')
+    else
+      DataBase.Init (Params.ScoreFile);
+
+    Log.BenchmarkEnd(1);
+    Log.LogBenchmark('Loading DataBase System', 1);
+
+    // Playlist Manager
+    Log.BenchmarkStart(1);
+    Log.LogStatus('Playlist Manager', 'Initialization');
+    PlaylistMan := TPlaylistManager.Create;
+    Log.BenchmarkEnd(1);
+    Log.LogBenchmark('Loading Playlist Manager', 1);
+
+    // GoldenStarsTwinkleMod
+    Log.BenchmarkStart(1);
+    Log.LogStatus('Effect Manager', 'Initialization');
+    GoldenRec := TEffectManager.Create;
+    Log.BenchmarkEnd(1);
+    Log.LogBenchmark('Loading Particel System', 1);
+
+    // Joypad
+    if (Ini.Joypad = 1) OR (Params.Joypad) then
+    begin
+      Log.BenchmarkStart(1);
+      Log.LogStatus('Initialize Joystick', 'Initialization');
+      Joy := TJoy.Create;
+      Log.BenchmarkEnd(1);
+      Log.LogBenchmark('Initializing Joystick', 1);
+    end;
+
+    Log.BenchmarkEnd(0);
+    Log.LogBenchmark('Loading Time', 0);
+
+    Log.LogError('Creating Core');
+    Core := TCore.Create(
+      USDXShortVersionStr,
+      MakeVersion(USDX_VERSION_MAJOR,
+                  USDX_VERSION_MINOR,
+                  USDX_VERSION_RELEASE,
+                  chr(0))
+    );
+
+    Log.LogError('Running Core');
+    Core.Run;
+
+    //------------------------------
+    //Start- Mainloop
+    //------------------------------
+    Log.LogStatus('Main Loop', 'Initialization');
+    MainLoop;
+
+  finally
+    //------------------------------
+    //Finish Application
+    //------------------------------
+
+    // TODO:
+    // call an uninitialize routine for every initialize step
+    // or at least use the corresponding Free-Methods
+
+    UnloadOpenGL;
+    //TTF_quit();
+    SDL_Quit();
+
+    (*
+    {$ifdef WIN32}
+      if assigned(LCD) and (Ini.LPT = 1) then
+        LCD.Clear;
+      if assigned(Light) and (Ini.LPT = 2) then
+        Light.TurnOff;
+    {$endif}
+     *)
+
+    if assigned(Log) then
+    begin
+      Log.LogStatus('Main Loop', 'Finished');
+      Log.Free;
+    end;
+  end;
+end;
+
+procedure MainLoop;
+var
+  Delay:    integer;
+begin
+  Delay := 0;
+  SDL_EnableKeyRepeat(125, 125);
+
+  CountSkipTime();  // JB - for some reason this seems to be needed when we use the SDL Timer functions.
+  while not Done do
+  begin
+    // joypad
+    if (Ini.Joypad = 1) or (Params.Joypad) then
+      Joy.Update;
+
+    // keyboard events
+    CheckEvents;
+
+    // display
+    done := not Display.Draw;
+    SwapBuffers;
+
+    // light
+    //Light.Refresh;
+
+    // delay
+    CountMidTime;
+
+    Delay := Floor(1000 / 100 - 1000 * TimeMid);
+
+    if Delay >= 1 then
+      SDL_Delay(Delay); // dynamic, maximum is 100 fps
+
+    CountSkipTime;
+
+    // reinitialization of graphics
+    if Restart then
+    begin
+      Reinitialize3D;
+      Restart := false;
+    end;
+
+  end;
+End;
+
+procedure CheckEvents;
+begin
+  if Assigned(Display.NextScreen) then
+    Exit;
+    
+  while SDL_PollEvent( @event ) = 1 do
+  begin
+    case Event.type_ of
+      SDL_QUITEV:
+      begin
+        Display.Fade := 0;
+        Display.NextScreenWithCheck := nil;
+        Display.CheckOK := True;
+      end;
+      {
+      SDL_MOUSEBUTTONDOWN:
+        with Event.button Do
+        begin
+          if State = SDL_BUTTON_LEFT Then
+          begin
+            //
+          end;
+        end;
+      }
+      SDL_VIDEORESIZE:
+      begin
+        ScreenW := Event.resize.w;
+        ScreenH := Event.resize.h;
+
+        screen  := SDL_SetVideoMode(ScreenW, ScreenH, (Ini.Depth+1) * 16, SDL_OPENGL or SDL_RESIZABLE);
+      end;
+      SDL_KEYDOWN:
+        begin
+          // remap the "keypad enter" key to the "standard enter" key
+          if (Event.key.keysym.sym = SDLK_KP_ENTER) then
+            Event.key.keysym.sym := SDLK_RETURN;
+
+          if (Event.key.keysym.sym = SDLK_F11) or
+             ((Event.key.keysym.sym = SDLK_RETURN) and
+              ((Event.key.keysym.modifier and KMOD_ALT) <> 0)) then // toggle full screen
+          begin
+            Ini.FullScreen := integer( not boolean( Ini.FullScreen ) );
+
+            if boolean( Ini.FullScreen ) then
+            begin
+              SDL_SetVideoMode(ScreenW, ScreenH, (Ini.Depth+1) * 16, SDL_OPENGL or SDL_FULLSCREEN);
+              SDL_ShowCursor(0);
+            end
+            else
+            begin
+              SDL_SetVideoMode(ScreenW, ScreenH, (Ini.Depth+1) * 16, SDL_OPENGL or SDL_RESIZABLE);
+              SDL_ShowCursor(1);
+            end;
+
+            glViewPort(0, 0, ScreenW, ScreenH);
+          end
+          // ScreenShot hack. If Print is pressed-> Make screenshot and Save to Screenshots Path
+          else if (Event.key.keysym.sym = SDLK_SYSREQ) or (Event.key.keysym.sym = SDLK_PRINT) then
+            Display.ScreenShot
+          // popup hack... if there is a visible popup then let it handle input instead of underlying screen
+          // shoud be done in a way to be sure the topmost popup has preference (maybe error, then check)
+          else if (ScreenPopupError <> nil) and (ScreenPopupError.Visible) then
+            done := not ScreenPopupError.ParseInput(Event.key.keysym.sym, WideChar(Event.key.keysym.unicode), True)
+          else if (ScreenPopupCheck <> nil) and (ScreenPopupCheck.Visible) then
+            done := not ScreenPopupCheck.ParseInput(Event.key.keysym.sym, WideChar(Event.key.keysym.unicode), True)
+          // end of popup hack
+          else
+          begin
+            // check for Screen want to Exit
+            done := not Display.CurrentScreen^.ParseInput(Event.key.keysym.sym, WideChar(Event.key.keysym.unicode), True);
+
+            // If Screen wants to Exit
+            if done then
+            begin
+              // If Question Option is enabled then Show Exit Popup
+              if (Ini.AskbeforeDel = 1) then
+              begin
+                Display.CurrentScreen^.CheckFadeTo(nil,'MSG_QUIT_USDX');
+              end
+              else // When asking for exit is disabled then simply exit
+              begin
+                Display.Fade := 0;
+                Display.NextScreenWithCheck := nil;
+                Display.CheckOK := True;
+              end;
+            end;
+
+          end;
+        end;
+      {
+      SDL_JOYAXISMOTION:
+        begin
+          beep
+        end;
+      }
+      SDL_JOYBUTTONDOWN:
+        begin
+          beep
+        end;
+    end; // Case
+  end; // While
+end;
+
+function GetTimeForBeats(BPM, Beats: real): real;
+begin
+  Result := 60 / BPM * Beats;
+end;
+
+function GetBeats(BPM, msTime: real): real;
+begin
+  Result := BPM * msTime / 60;
+end;
+
+procedure GetMidBeatSub(BPMNum: integer; var Time: real; var CurBeat: real);
+var
+  NewTime:  real;
+begin
+  if High(CurrentSong.BPM) = BPMNum then
+  begin
+    // last BPM
+    CurBeat := CurrentSong.BPM[BPMNum].StartBeat + GetBeats(CurrentSong.BPM[BPMNum].BPM, Time);
+    Time := 0;
+  end
+  else
+  begin
+    // not last BPM
+    // count how much time is it for start of the new BPM and store it in NewTime
+    NewTime := GetTimeForBeats(CurrentSong.BPM[BPMNum].BPM, CurrentSong.BPM[BPMNum+1].StartBeat - CurrentSong.BPM[BPMNum].StartBeat);
+
+    // compare it to remaining time
+    if (Time - NewTime) > 0 then
+    begin
+      // there is still remaining time
+      CurBeat := CurrentSong.BPM[BPMNum].StartBeat;
+      Time := Time - NewTime;
+    end
+    else
+    begin
+      // there is no remaining time
+      CurBeat := CurrentSong.BPM[BPMNum].StartBeat + GetBeats(CurrentSong.BPM[BPMNum].BPM, Time);
+      Time := 0;
+    end; // if
+  end; // if
+end;
+
+function GetMidBeat(Time: real): real;
+var
+  CurBeat:  real;
+  CurBPM:   integer;
+//  TopBeat:  real;
+//  TempBeat: real;
+//  TempTime: real;
+begin
+  Result := 0;
+  if Length(CurrentSong.BPM) = 1 then
+    Result := Time * CurrentSong.BPM[0].BPM / 60;
+
+  (* 2 BPMs *)
+{  if Length(CurrentSong.BPM) > 1 then begin
+    (* new system *)
+    CurBeat := 0;
+    TopBeat := GetBeats(CurrentSong.BPM[0].BPM, Time);
+    if TopBeat > CurrentSong.BPM[1].StartBeat then begin
+      // analyze second BPM
+      Time := Time - GetTimeForBeats(CurrentSong.BPM[0].BPM, CurrentSong.BPM[1].StartBeat - CurBeat);
+      CurBeat := CurrentSong.BPM[1].StartBeat;
+      TopBeat := GetBeats(CurrentSong.BPM[1].BPM, Time);
+      Result := CurBeat + TopBeat;
+
+    end
+    else
+    begin
+      (* pierwszy przedzial *)
+      Result := TopBeat;
+    end;
+  end;}
+
+  (* more BPMs *)
+  if Length(CurrentSong.BPM) > 1 then
+  begin
+    CurBeat := 0;
+    CurBPM := 0;
+    while (Time > 0) do
+    begin
+      GetMidBeatSub(CurBPM, Time, CurBeat);
+      Inc(CurBPM);
+    end;
+
+    Result := CurBeat;
+  end;
+end;
+
+function GetTimeFromBeat(Beat: integer): real;
+var
+  CurBPM:   integer;
+begin
+  Result := 0;
+  if Length(CurrentSong.BPM) = 1 then
+    Result := CurrentSong.GAP / 1000 + Beat * 60 / CurrentSong.BPM[0].BPM;
+
+  (* more BPMs *)
+  if Length(CurrentSong.BPM) > 1 then
+  begin
+    Result := CurrentSong.GAP / 1000;
+    CurBPM := 0;
+    while (CurBPM <= High(CurrentSong.BPM)) and
+          (Beat > CurrentSong.BPM[CurBPM].StartBeat) do
+    begin
+      if (CurBPM < High(CurrentSong.BPM)) and
+         (Beat >= CurrentSong.BPM[CurBPM+1].StartBeat) then
+      begin
+        // full range
+        Result := Result + (60 / CurrentSong.BPM[CurBPM].BPM) *
+                           (CurrentSong.BPM[CurBPM+1].StartBeat - CurrentSong.BPM[CurBPM].StartBeat);
+      end;
+
+      if (CurBPM = High(CurrentSong.BPM)) or
+         (Beat < CurrentSong.BPM[CurBPM+1].StartBeat) then
+      begin
+        // in the middle
+        Result := Result + (60 / CurrentSong.BPM[CurBPM].BPM) *
+                           (Beat - CurrentSong.BPM[CurBPM].StartBeat);
+      end;
+      Inc(CurBPM);
+    end;
+
+    {
+    while (Time > 0) do
+    begin
+      GetMidBeatSub(CurBPM, Time, CurBeat);
+      Inc(CurBPM);
+    end;
+    }
+  end; // if}
+end;
+
+procedure Sing(Sender: TScreenSing);
+var
+  Count:    integer;
+  CountGr:  integer;
+  CP:       integer;
+  Done:     real;
+  N:        integer;
+begin
+  LineState.CurrentTime := LineState.CurrentTime + TimeSkip;
+
+  LineState.OldBeat := LineState.CurrentBeat;
+  LineState.MidBeat := GetMidBeat(LineState.CurrentTime - (CurrentSong.Gap{ + 90 I've forgotten for what it is}) / 1000); // new system with variable BPM in function
+  LineState.CurrentBeat := Floor(LineState.MidBeat);
+
+//  LineState.OldHalf := LineState.AktHalf;
+//  LineState.MidHalf := LineState.MidBeat + 0.5;
+//  LineState.AktHalf := Floor(LineState.MidHalf);
+
+  LineState.OldBeatC := LineState.CurrentBeatC;
+  LineState.MidBeatC := GetMidBeat(LineState.CurrentTime - (CurrentSong.Gap) / 1000);
+  LineState.CurrentBeatC := Floor(LineState.MidBeatC);
+
+  LineState.OldBeatD := LineState.CurrentBeatD;
+  LineState.MidBeatD := -0.5+GetMidBeat(LineState.CurrentTime - (CurrentSong.Gap + 120 + 20) / 1000); // MidBeat with addition GAP
+  LineState.CurrentBeatD := Floor(LineState.MidBeatD);
+  LineState.FracBeatD := Frac(LineState.MidBeatD);
+
+  // sentences routines
+  for CountGr := 0 to 0 do //High(Gracz)
+  begin;
+    CP := CountGr;
+    // ustawianie starej parts
+    LineState.OldLine := Lines[CP].Current;
+
+    // wybieranie aktualnej parts
+    for Count := 0 to Lines[CP].High do
+    begin
+      if LineState.CurrentBeat >= Lines[CP].Line[Count].Start then
+        Lines[CP].Current := Count;
+    end;
+
+    // czysczenie nut gracza, gdy to jest nowa plansza
+    // (optymizacja raz na halfbeat jest zla)
+    if Lines[CP].Current <> LineState.OldLine then
+      NewSentence(Sender);
+
+  end; // for CountGr
+
+  // wykonuje operacje raz na beat
+  if (LineState.CurrentBeat >= 0) and (LineState.OldBeat <> LineState.CurrentBeat) then
+    NewBeat(Sender);
+
+  // make some operations on clicks
+  if {(LineState.CurrentBeatC >= 0) and }(LineState.OldBeatC <> LineState.CurrentBeatC) then
+    NewBeatC(Sender);
+
+  // make some operations when detecting new voice pitch
+  if (LineState.CurrentBeatD >= 0) and (LineState.OldBeatD <> LineState.CurrentBeatD) then
+    NewBeatD(Sender);
+
+  // wykonuje operacje w polowie beatu
+//  if (LineState.AktHalf >= 1) and (LineState.OldHalf <> LineState.AktHalf) then
+//    NewHalf;
+
+  // plynnie przesuwa text
+  Done := 1;
+  for N := 0 to Lines[0].Line[Lines[0].Current].HighNote do
+  begin
+    if (Lines[0].Line[Lines[0].Current].Note[N].Start <= LineState.MidBeat) and
+       (Lines[0].Line[Lines[0].Current].Note[N].Start + Lines[0].Line[Lines[0].Current].Note[N].Length >= LineState.MidBeat) then
+    begin
+      Done := (LineState.MidBeat - Lines[0].Line[Lines[0].Current].Note[N].Start) / (Lines[0].Line[Lines[0].Current].Note[N].Length);
+    end;
+  end;
+
+  N := Lines[0].Line[Lines[0].Current].HighNote;
+
+  // wylacza ostatnia nute po przejsciu
+  {// todo: Lyrics
+  if (Ini.LyricsEffect = 1) and (Done = 1) and
+    (LineState.MidBeat > Lines[0].Line[Lines[0].Current].Note[N].Start + Lines[0].Line[Lines[0].Current].Note[N].Length)
+    then Sender.LyricMain.Selected := -1;
+
+  if Done > 1 then Done := 1;
+  Sender.LyricMain.Done := Done;  }
+
+  // use Done with LCD
+{  with ScreenSing do begin
+    if LyricMain.Selected >= 0 then begin
+      LCD.MoveCursor(1, LyricMain.SelectedLetter + Round((LyricMain.SelectedLength-1) * Done));
+      LCD.ShowCursor;
+    end;
+  end;}
+
+
+end;
+
+procedure NewSentence(Sender: TScreenSing);
+var
+G: Integer;
+begin
+  // czyszczenie nut graczy
+  for G := 0 to High(Player) do
+  begin
+    Player[G].IlNut := 0;
+    Player[G].HighNote := -1;
+    SetLength(Player[G].Note, 0);
+  end;
+
+  // Add Words to Lyrics
+  with Sender do
+  begin
+    {LyricMain.AddCzesc(Lines[0].Current);
+    if Lines[0].Current < Lines[0].High then
+      LyricSub.AddCzesc(Lines[0].Current+1)
+    else
+      LyricSub.Clear;}
+    while (not Lyrics.LineinQueue) and (Lyrics.LineCounter <= High(Lines[0].Line)) do
+      Lyrics.AddLine(@Lines[0].Line[Lyrics.LineCounter]);
+  end;
+
+  //Sender.UpdateLCD;
+  
+  //On Sentence Change...
+  Sender.onSentenceChange(Lines[0].Current);
+end;
+
+procedure NewBeat(Sender: TScreenSing);
+var
+  Count:      integer;
+//  TempBeat: integer;
+begin
+  // ustawia zaznaczenie tekstu
+//  SingScreen.LyricMain.Selected := -1;
+  for Count := 0 to Lines[0].Line[Lines[0].Current].HighNote do
+    if (Lines[0].Line[Lines[0].Current].Note[Count].Start = LineState.CurrentBeat) then
+    begin
+      // operates on currently beated note
+      //Todo: Lyrics
+      //Sender.LyricMain.Selected := Count;
+
+//      LCD.MoveCursor(1, ScreenSing.LyricMain.SelectedLetter);
+//      LCD.ShowCursor;
+
+      //LCD.MoveCursorBR(Sender.LyricMain.SelectedLetter);
+      //LCD.ShowCursor;
+    end;
+end;
+
+procedure NewBeatC;
+var
+  Count:    integer;
+//  LPT_1:  integer;
+//  LPT_2:  integer;
+begin
+//  LPT_1 := 1;
+//  LPT_2 := 1;
+
+  // beat click
+  if (Ini.BeatClick = 1) and ((LineState.CurrentBeatC + Lines[0].Resolution + Lines[0].NotesGAP) mod Lines[0].Resolution = 0) then
+    AudioPlayback.PlaySound(SoundLib.Click);
+
+  // debug system on LPT
+  if ((LineState.CurrentBeatC + Lines[0].Resolution + Lines[0].NotesGAP) mod Lines[0].Resolution = 0) then
+  begin
+    //LPT_1 := 0;
+//    Light.LightOne(0, 150);
+
+    (*
+    Light.LightOne(1, 200); // beat light
+    if ParamStr(1) = '-doublelights' then
+      Light.LightOne(0, 200); // beat light
+    *)
+
+
+{    if ((LineState.CurrentBeatC + Lines[0].Resolution + Lines[0].NotesGAP) mod (Lines[0].Resolution * 2) = 0) then
+      Light.LightOne(0, 150)
+    else
+      Light.LightOne(1, 150)}
+  end;
+
+  for Count := 0 to Lines[0].Line[Lines[0].Current].HighNote do
+  begin
+    if (Lines[0].Line[Lines[0].Current].Note[Count].Start = LineState.CurrentBeatC) then
+    begin
+      // click assist
+      if Ini.ClickAssist = 1 then
+        AudioPlayback.PlaySound(SoundLib.Click);
+
+      //LPT_2 := 0;
+      (*
+      if ParamStr(1) <> '-doublelights' then
+        Light.LightOne(0, 150); //125
+      *)
+
+      // drum machine
+      (*
+      TempBeat := LineState.CurrentBeat;// + 2;
+      if (TempBeat mod 8 = 0) then Music.PlayDrum;
+      if (TempBeat mod 8 = 4) then Music.PlayClap;
+//      if (TempBeat mod 4 = 2) then Music.PlayHihat;
+      if (TempBeat mod 4 <> 0) then Music.PlayHihat;
+      *)
+    end;
+  end;
+
+  {$IFDEF UseSerialPort}
+    // PortWriteB($378, LPT_1 + LPT_2 * 2); // 0 zapala
+  {$ENDIF}
+end;
+
+procedure NewBeatD(Sender: TScreenSing);
+begin
+  NewNote(Sender);
+end;
+
+//procedure NewHalf;
+//begin
+//  NewNote;
+//end;
+
+procedure NewNote(Sender: TScreenSing);
+var
+  CP:     integer; // current player
+  S:      integer; // sentence
+  SMin:   integer;
+  SMax:   integer;
+  SDet:   integer; // temporary: sentence of detected note
+  Count:  integer;
+  Mozna:  boolean;
+  New:    boolean;
+  Range:  integer;
+  NoteHit:boolean;
+begin
+//  Log.LogStatus('Beat ' + IntToStr(LineState.CurrentBeat) + ' HalfBeat ' + IntToStr(LineState.AktHalf), 'NewBeat');
+//  beep;
+
+  // On linux we get an AV @ NEWNOTE,  line 600 of Classes/UMain.pas
+  if not assigned( AudioInputProcessor.Sound ) then
+    exit;
+
+  // analizuje dla obu graczy ten sam sygnal (Sound.OneSrcForBoth)
+  // albo juz lepiej nie
+  for CP := 0 to PlayersPlay-1 do
+  begin
+    // analyze buffer
+    AudioInputProcessor.Sound[CP].AnalyzeBuffer;
+
+    // adds some noise
+    //LineState.Tone := LineState.Tone + Round(Random(3)) - 1;
+
+    // count min and max sentence range for checking (detection is delayed to the notes we see on the screen)
+    SMin := Lines[0].Current-1;
+    if SMin < 0 then
+      SMin := 0;
+    SMax := Lines[0].Current;
+
+    // check if we can add new note
+    Mozna := false;
+    SDet:=SMin;
+    for S := SMin to SMax do
+    begin
+      for Count := 0 to Lines[0].Line[S].HighNote do
+      begin
+        if ((Lines[0].Line[S].Note[Count].Start <= LineState.CurrentBeatD)
+          and (Lines[0].Line[S].Note[Count].Start + Lines[0].Line[S].Note[Count].Length - 1 >= LineState.CurrentBeatD))
+          and (not Lines[0].Line[S].Note[Count].FreeStyle) // but don't allow when it's FreeStyle note
+          and (Lines[0].Line[S].Note[Count].Length > 0) then // and make sure the note lengths is at least 1
+        begin
+          SDet := S;
+          Mozna := true;
+          Break;
+        end;
+      end;
+    end;
+
+    S := SDet;
+
+    //Czas.SzczytJest := true;
+    //Czas.Tone := 27;
+
+    // gdy moze, to dodaje nute - When Mozna, it adds note (?)
+    if (AudioInputProcessor.Sound[CP].ToneValid) and (Mozna) then
+    begin
+      // operowanie na ostatniej nucie
+      for Count := 0 to Lines[0].Line[S].HighNote do
+      begin
+        if (Lines[0].Line[S].Note[Count].Start <= LineState.OldBeatD+1) and
+           (Lines[0].Line[S].Note[Count].Start +
+            Lines[0].Line[S].Note[Count].Length > LineState.OldBeatD+1) then
+        begin
+          // to robi, tylko dla pary nut (oryginalnej i gracza)
+
+          // przesuwanie tonu w odpowiednia game
+          while (AudioInputProcessor.Sound[CP].Tone - Lines[0].Line[S].Note[Count].Tone > 6) do
+            AudioInputProcessor.Sound[CP].Tone := AudioInputProcessor.Sound[CP].Tone - 12;
+
+          while (AudioInputProcessor.Sound[CP].Tone - Lines[0].Line[S].Note[Count].Tone < -6) do
+            AudioInputProcessor.Sound[CP].Tone := AudioInputProcessor.Sound[CP].Tone + 12;
+
+          // Half size Notes Patch
+          NoteHit := false;
+
+          //if Ini.Difficulty = 0 then Range := 2;
+          //if Ini.Difficulty = 1 then Range := 1;
+          //if Ini.Difficulty = 2 then Range := 0;
+          Range := 2 - Ini.Difficulty;
+
+          if abs(Lines[0].Line[S].Note[Count].Tone - AudioInputProcessor.Sound[CP].Tone) <= Range then
+          begin
+            AudioInputProcessor.Sound[CP].Tone := Lines[0].Line[S].Note[Count].Tone;
+
+            // Half size Notes Patch
+            NoteHit := true;
+
+            if (Ini.LineBonus = 0) then
+            begin
+              // add points without LineBonus
+              case Lines[0].Line[S].Note[Count].NoteType of
+                1:  Player[CP].Score := Player[CP].Score + 10000 / Lines[0].NoteType *
+                      Lines[0].Line[S].Note[Count].NoteType;
+                2:  Player[CP].ScoreGolden := Player[CP].ScoreGolden + 10000 / Lines[0].NoteType *
+                      Lines[0].Line[S].Note[Count].NoteType;
+              end;
+            end
+            else
+            begin
+              // add points with Line Bonus
+              case Lines[0].Line[S].Note[Count].NoteType of
+                1:  Player[CP].Score := Player[CP].Score + 9000 / Lines[0].NoteType *
+                      Lines[0].Line[S].Note[Count].NoteType;
+                2:  Player[CP].ScoreGolden := Player[CP].ScoreGolden + 9000 / Lines[0].NoteType *
+                      Lines[0].Line[S].Note[Count].NoteType;
+              end;
+            end;
+
+            Player[CP].ScoreI := Floor(Player[CP].Score / 10) * 10;
+            Player[CP].ScoreGoldenI := Floor(Player[CP].ScoreGolden / 10) * 10;
+
+            Player[CP].ScoreTotalI := Player[CP].ScoreI + Player[CP].ScoreGoldenI + Player[CP].ScoreLineI;
+          end;
+
+        end; // operowanie
+      end; // for
+
+      // sprawdzanie czy to nowa nuta, czy przedluzenie
+      if S = SMax then
+      begin
+        New := true;
+        // if last has the same tone
+        if (Player[CP].IlNut > 0 ) and
+           (Player[CP].Note[Player[CP].HighNote].Tone = AudioInputProcessor.Sound[CP].Tone) and
+           (Player[CP].Note[Player[CP].HighNote].Start + Player[CP].Note[Player[CP].HighNote].Length = LineState.CurrentBeatD) then
+        begin
+          New := false;
+        end;
+
+        // if is not as new note to control "beacie" (TODO: translate polish "beacie")
+        for Count := 0 to Lines[0].Line[S].HighNote do
+        begin
+          if (Lines[0].Line[S].Note[Count].Start = LineState.CurrentBeatD) then
+            New := true;
+        end;
+
+        // dodawanie nowej nuty
+        if New then
+        begin
+          // New Note
+          Player[CP].IlNut := Player[CP].IlNut + 1;
+          Player[CP].HighNote := Player[CP].HighNote + 1;
+          SetLength(Player[CP].Note, Player[CP].IlNut);
+          Player[CP].Note[Player[CP].HighNote].Start   := LineState.CurrentBeatD;
+          Player[CP].Note[Player[CP].HighNote].Length := 1;
+          Player[CP].Note[Player[CP].HighNote].Tone     := AudioInputProcessor.Sound[CP].Tone; // Ton || TonDokl
+          Player[CP].Note[Player[CP].HighNote].Detekt  := LineState.MidBeat;
+
+          // Half Note Patch
+          Player[CP].Note[Player[CP].HighNote].Hit := NoteHit;
+
+          //Log.LogStatus('New Note ' + IntToStr(Gracz.Note[Gracz.HighNote].Start), 'NewBeat');
+        end
+        else
+        begin
+          // przedluzenie nuty
+          Player[CP].Note[Player[CP].HighNote].Length := Player[CP].Note[Player[CP].HighNote].Length + 1;
+        end;
+
+        // check for perfect note and then lit the star (on Draw)
+        for Count := 0 to Lines[0].Line[S].HighNote do
+        begin
+          if (Lines[0].Line[S].Note[Count].Start = Player[CP].Note[Player[CP].HighNote].Start) and
+             (Lines[0].Line[S].Note[Count].Length = Player[CP].Note[Player[CP].HighNote].Length) and
+             (Lines[0].Line[S].Note[Count].Tone = Player[CP].Note[Player[CP].HighNote].Tone) then
+          begin
+            Player[CP].Note[Player[CP].HighNote].Perfect := true;
+          end;
+        end;
+      end;// else beep; // if S = SMax
+
+    end; // if moze
+  end; // for CP
+  //  Log.LogStatus('EndBeat', 'NewBeat');
+
+  //On Sentence End -> For LineBonus + SingBar
+  if (sDet >= low(Lines[0].Line)) and (sDet <= high(Lines[0].Line)) then
+  begin
+    if assigned( Sender ) and
+       ((Lines[0].Line[SDet].Note[Lines[0].Line[SDet].HighNote].Start + Lines[0].Line[SDet].Note[Lines[0].Line[SDet].HighNote].Length - 1) = LineState.CurrentBeatD) then
+    begin
+      Sender.onSentenceEnd(sDet);
+    end;
+  end;
+
+end;
+
+procedure ClearScores(PlayerNum: integer);
+begin
+  Player[PlayerNum].Score := 0;
+  Player[PlayerNum].ScoreI := 0;
+  Player[PlayerNum].ScoreLine := 0;
+  Player[PlayerNum].ScoreLineI := 0;
+  Player[PlayerNum].ScoreGolden := 0;
+  Player[PlayerNum].ScoreGoldenI := 0;
+  Player[PlayerNum].ScoreTotalI := 0;
+end;
+
+//--------------------
+// Function sets all Absolute Paths e.g. Song Path and makes sure the Directorys exist
+//--------------------
+procedure InitializePaths;
+
+  // Initialize a Path Variable
+  // After Setting Paths, make sure that Paths exist
+  function initialize_path( out aPathVar : string; const aLocation : string ): boolean;
+  var
+    lWriteable: Boolean;
+    lAttrib   : integer;
+  begin
+    lWriteable := false;
+    aPathVar   := aLocation;
+
+    // Make sure the directory is needex
+    ForceDirectories(aPathVar);
+
+    if DirectoryExists(aPathVar) then
+    begin
+      lAttrib := fileGetAttr(aPathVar);
+
+      lWriteable := (lAttrib and faDirectory <> 0) and
+                not (lAttrib and faReadOnly  <> 0)
+    end;
+    
+    if not lWriteable then
+      Log.LogError('Error: Dir ('+ aLocation +') is Readonly');
+
+    result := lWriteable;
+  end;
+
+begin
+  initialize_path( LogPath         , Platform.GetLogPath                             );
+  initialize_path( SoundPath       , Platform.GetGameSharedPath + 'Sounds'      + PathDelim );
+  initialize_path( ThemePath       , Platform.GetGameSharedPath + 'Themes'      + PathDelim );
+  initialize_path( SkinsPath       , Platform.GetGameSharedPath + 'Skins'       + PathDelim );
+  initialize_path( LanguagesPath   , Platform.GetGameSharedPath + 'Languages'   + PathDelim );
+  initialize_path( PluginPath      , Platform.GetGameSharedPath + 'Plugins'     + PathDelim );
+  initialize_path( VisualsPath     , Platform.GetGameSharedPath + 'Visuals'     + PathDelim );
+
+  initialize_path( ScreenshotsPath , Platform.GetGameUserPath + 'Screenshots' + PathDelim );
+
+  // Users Song Path ....
+  initialize_path( UserSongPath        , Platform.GetGameUserPath + 'Songs'       + PathDelim );
+  initialize_path( UserCoversPath      , Platform.GetGameUserPath + 'Covers'      + PathDelim );
+  initialize_path( UserPlaylistPath    , Platform.GetGameUserPath + 'Playlists'   + PathDelim );
+
+  // Shared Song Path ....
+  initialize_path( SongPath        , Platform.GetGameSharedPath + 'Songs'       + PathDelim );
+  initialize_path( CoversPath      , Platform.GetGameSharedPath + 'Covers'      + PathDelim );
+  initialize_path( PlaylistPath    , Platform.GetGameSharedPath + 'Playlists'   + PathDelim );
+
+  DecimalSeparator := '.';
+end;
+
+end.
+