Ultrastar-DX now compiles in linux

(using lazarus)

Bass etc is commented out..
but it compiles, and im working through the runtime errors.

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

17 files changed, 8174 insertions, 7854 deletions

diff --git a/Game/Code/Classes/TextGL.pas b/Game/Code/Classes/TextGL.pas
index 8a702ca7..ee1a74f3 100644
--- a/Game/Code/Classes/TextGL.pas
+++ b/Game/Code/Classes/TextGL.pas
@@ -1,381 +1,388 @@
-unit TextGL;

-

-interface

-

-{$IFDEF FPC}

-  {$MODE Delphi}

-{$ENDIF}

-

-

-uses  OpenGL12,

-      SDL,

-      UTexture,

-      Classes,

-      ULog;

-

-procedure BuildFont;			                // Build Our Bitmap Font

-procedure KillFont;     		                // Delete The Font

-function  glTextWidth(text: pchar): real;     // Returns Text Width

-procedure glPrintDone(text: pchar; Done: real; ColR, ColG, ColB: real);

-procedure glPrintLetter(letter: char);

-procedure glPrintLetterCut(letter: char; Start, Finish: real);

-procedure glPrint(text: pchar);	                  // Custom GL "Print" Routine

-procedure glPrintCut(text: pchar);

-procedure SetFontPos(X, Y: real);                     // Sets X And Y

-procedure SetFontSize(Size: real);

-procedure SetFontStyle(Style: integer); // sets active font style (normal, bold, etc)

-procedure SetFontItalic(Enable: boolean); // sets italic type letter (works for all fonts)

-procedure SetFontAspectW(Aspect: real);

-

-type

-  TTextGL = record

-    X:        real;

-    Y:        real;

-    Text:     string;

-    Size:     real;

-    ColR:     real;

-    ColG:     real;

-    ColB:     real;

-  end;

-

-  TFont = record

-    Tex:      TTexture;

-    Width:    array[0..255] of byte;

-    AspectW:  real;

-    Centered: boolean;

-    Done:     real;

-    Outline:  real;

-    Italic:   boolean;

-  end;

-

-

-var

-  base:       GLuint;			                // Base Display List For The Font Set

-  Fonts:      array of TFont;

-  ActFont:    integer;

-  PColR:      real;  // temps for glPrintDone

-  PColG:      real;

-  PColB:      real;

-

-implementation

-

-uses UMain,

-     Windows,

-     SysUtils,

-     {$IFDEF FPC}

-     LResources,

-     {$ENDIF}

-     UGraphic;

-

-procedure BuildFont;			                // Build Our Bitmap Font

-

-  procedure loadfont( aID : integer; aType, aResourceName : String);

-  var

-    Rejestr:  TResourceStream;

-  begin

-    {$IFNDEF FPC}

-    Rejestr := TResourceStream.Create(HInstance, aResourceName , pchar( aType ) );

-    try

-      Rejestr.Read(Fonts[ aID ].Width, 256);

-    finally

-      Rejestr.Free;

-    end;

-    {$ENDIF}

-  end;

-

-var

-  font:     HFONT;              	          // Windows Font ID

-  h_dc:     hdc;

-  Pet:      integer;

-begin

-  ActFont := 0;

-

-  SetLength(Fonts, 5);

-  Fonts[0].Tex := Texture.LoadTexture(true, 'Font', 'PNG', 'Font', 0);

-  Fonts[0].Tex.H := 30;

-  Fonts[0].AspectW := 0.9;

-  Fonts[0].Done := -1;

-  Fonts[0].Outline := 0;

-

-  Fonts[1].Tex := Texture.LoadTexture(true, 'FontB', 'PNG', 'Font', 0);

-  Fonts[1].Tex.H := 30;

-  Fonts[1].AspectW := 1;

-  Fonts[1].Done := -1;

-  Fonts[1].Outline := 0;

-

-  Fonts[2].Tex := Texture.LoadTexture(true, 'FontO', 'PNG', 'Font Outline', 0);

-  Fonts[2].Tex.H := 30;

-  Fonts[2].AspectW := 0.95;

-  Fonts[2].Done := -1;

-  Fonts[2].Outline := 5;

-

-  Fonts[3].Tex := Texture.LoadTexture(true, 'FontO2', 'PNG', 'Font Outline 2', 0);

-  Fonts[3].Tex.H := 30;

-  Fonts[3].AspectW := 0.95;

-  Fonts[3].Done := -1;

-  Fonts[3].Outline := 4;

-

-{  Fonts[4].Tex := Texture.LoadTexture('FontO', 'BMP', 'Arrow', 0); // for score screen

-  Fonts[4].Tex.H := 30;

-  Fonts[4].AspectW := 0.95;

-  Fonts[4].Done := -1;

-  Fonts[4].Outline := 5;}

-

-

-

-  {$IFDEF FPC}

-    loadfont( 0, 'DAT', 'eurostar_regular'   );

-    loadfont( 1, 'DAT', 'eurostar_regular_bold'  );

-    loadfont( 2, 'DAT', 'Outline 1'  );

-    loadfont( 3, 'DAT', 'Outline 2' );

-  {$ELSE}

-    loadfont( 0, 'FNT', 'Font'   );

-    loadfont( 1, 'FNT', 'FontB'  );

-    loadfont( 2, 'FNT', 'FontO'  );

-    loadfont( 3, 'FNT', 'FontO2' );

-  {$ENDIF}

-

-

-

-

-{  Rejestr := TResourceStream.Create(HInstance, 'FontO', 'FNT');

-  Rejestr.Read(Fonts[4].Width, 256);

-  Rejestr.Free;}

-

-  for Pet := 0 to 255 do

-    Fonts[1].Width[Pet] := Fonts[1].Width[Pet] div 2;

-

-  for Pet := 0 to 255 do

-    Fonts[2].Width[Pet] := Fonts[2].Width[Pet] div 2 + 2;

-

-  for Pet := 0 to 255 do

-    Fonts[3].Width[Pet] := Fonts[3].Width[Pet] + 1;

-

-{  for Pet := 0 to 255 do

-    Fonts[4].Width[Pet] := Fonts[4].Width[Pet] div 2 + 2;}

-

-end;

-

-procedure KillFont;     		                // Delete The Font

-begin

-//  glDeleteLists(base, 256); 		                // Delete All 96 Characters

-end;

-

-function glTextWidth(text: pchar): real;

-var

-  Letter:       char;

-begin

-//  Log.LogStatus(Text, 'glTextWidth');

-  Result := 0;

-  while (length(text) > 0) do begin

-    Letter := Text[0];

-    text := pchar(Copy(text, 2, Length(text)-1));

-    Result := Result + Fonts[ActFont].Width[Ord(Letter)] * Fonts[ActFont].Tex.H / 30 * Fonts[ActFont].AspectW;

-  end; // while

-end;

-

-procedure glPrintDone(text: pchar; Done: real; ColR, ColG, ColB: real);

-begin

-  Fonts[ActFont].Done := Done;

-  PColR := ColR;

-  PColG := ColG;

-  PColB := ColB;

-  glPrintCut(text);

-  Fonts[ActFont].Done := -1;

-end;

-

-procedure glPrintLetter(Letter: char);

-var

-  TexX, TexY:   real;

-  TexR, TexB:   real;

-  FWidth:       real;

-  PL, PT:       real;

-  PR, PB:       real;

-  XItal:        real; // X shift for italic type letter

-begin

-  with Fonts[ActFont].Tex do begin

-  FWidth := Fonts[ActFont].Width[Ord(Letter)];

-

-  W := FWidth * (H/30) * Fonts[ActFont].AspectW;

-//  H := 30;

-

-  // set texture positions

-  TexX := (ord(Letter) mod 16) * 1/16 + 1/32 - FWidth/1024 - Fonts[ActFont].Outline/1024;

-  TexY := (ord(Letter) div 16) * 1/16 + 2/1024; // 2/1024

-  TexR := (ord(Letter) mod 16) * 1/16 + 1/32 + FWidth/1024 + Fonts[ActFont].Outline/1024;

-  TexB := (1 + ord(Letter) div 16) * 1/16 - 2/1024;

-

-  // set vector positions

-  PL := X - Fonts[ActFont].Outline * (H/30) * Fonts[ActFont].AspectW /2;

-  PT := Y;

-  PR := PL + W + Fonts[ActFont].Outline * (H/30) * Fonts[ActFont].AspectW;

-  PB := PT + H;

-  if Fonts[ActFont].Italic = false then

-    XItal := 0

-  else

-    XItal := 12;

-

-  glEnable(GL_TEXTURE_2D);

-  glEnable(GL_BLEND);

-  glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);

-  glBindTexture(GL_TEXTURE_2D, TexNum);

-  glBegin(GL_QUADS);

-    glTexCoord2f(TexX, TexY); glVertex2f(PL+XItal,  PT);

-    glTexCoord2f(TexX, TexB); glVertex2f(PL,        PB);

-    glTexCoord2f(TexR, TexB); glVertex2f(PR,        PB);

-    glTexCoord2f(TexR, TexY); glVertex2f(PR+XItal,  PT);

-  glEnd;

-  X := X + W;

-  glDisable(GL_BLEND);

-  glDisable(GL_TEXTURE_2D);

-  end; // with

-end;

-

-procedure glPrintLetterCut(letter: char; Start, Finish: real);

-var

-  TexX, TexY:   real;

-  TexR, TexB:   real;

-  TexTemp:      real;

-  FWidth:       real;

-  PL, PT:       real;

-  PR, PB:       real;

-  OutTemp:      real;

-  XItal:        real;

-begin

-  with Fonts[ActFont].Tex do begin

-  FWidth := Fonts[ActFont].Width[Ord(Letter)];

-

-  W := FWidth * (H/30) * Fonts[ActFont].AspectW;

-//  H := 30;

-  OutTemp := Fonts[ActFont].Outline * (H/30) * Fonts[ActFont].AspectW;

-

-  // set texture positions

-  TexX := (ord(Letter) mod 16) * 1/16 + 1/32 - FWidth/1024 - Fonts[ActFont].Outline/1024;

-  TexY := (ord(Letter) div 16) * 1/16 + 2/1024; // 2/1024

-  TexR := (ord(Letter) mod 16) * 1/16 + 1/32 + FWidth/1024 + Fonts[ActFont].Outline/1024;

-  TexB := (1 + ord(Letter) div 16) * 1/16 - 2/1024;

-

-  TexTemp := TexX + Start * (TexR - TexX);

-  TexR := TexX + Finish * (TexR - TexX);

-  TexX := TexTemp;

-

-  // set vector positions

-  PL := X - OutTemp / 2 + OutTemp * Start;

-  PT := Y;

-  PR := PL + (W + OutTemp) * (Finish - Start);

-  PB := PT + H;

-  if Fonts[ActFont].Italic = false then

-    XItal := 0

-  else

-    XItal := 12;

-

-  glEnable(GL_TEXTURE_2D);

-  glEnable(GL_BLEND);

-  glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);

-  glBindTexture(GL_TEXTURE_2D, TexNum);

-  glBegin(GL_QUADS);

-    glTexCoord2f(TexX, TexY); glVertex2f(PL+XItal,  PT);

-    glTexCoord2f(TexX, TexB); glVertex2f(PL,        PB);

-    glTexCoord2f(TexR, TexB); glVertex2f(PR,        PB);

-    glTexCoord2f(TexR, TexY); glVertex2f(PR+XItal,  PT); // not tested with XItal

-  glEnd;

-  X := X + W * (Finish - Start);

-  glDisable(GL_BLEND);

-  glDisable(GL_TEXTURE_2D);

-  end; // with

-

-end;

-

-procedure glPrint(text: pchar);	                // Custom GL "Print" Routine

-var

-  Letter:       char;

-begin

-  if (Text = '') then   			        // If There's No Text

-                Exit;					        // Do Nothing

-

-  while (length(text) > 0) do begin

-    // cut

-    Letter := Text[0];

-    Text := pchar(Copy(Text, 2, Length(Text)-1));

-

-    // print

-    glPrintLetter(Letter);

-  end; // while

-end;

-

-procedure glPrintCut(text: pchar);

-var

-  Letter:       char;

-  PToDo:        real;

-  PTotWidth:    real;

-  PDoingNow:    real;

-  S:            string;

-begin

-  if (Text = '') then   			        // If There's No Text

-                Exit;					        // Do Nothing

-

-  PTotWidth := glTextWidth(Text);

-  PToDo := Fonts[ActFont].Done;

-

-  while (length(text) > 0) do begin

-    // cut

-    Letter := Text[0];

-    Text := pchar(Copy(Text, 2, Length(Text)-1));

-

-    // analyze

-    S := Letter;

-    PDoingNow := glTextWidth(pchar(S)) / PTotWidth;

-

-    // drawing

-    if (PToDo > 0) and (PDoingNow <= PToDo) then

-      glPrintLetter(Letter);

-

-    if (PToDo > 0) and (PDoingNow > PToDo) then begin

-      glPrintLetterCut(Letter, 0, PToDo / PDoingNow);

-      glColor3f(PColR, PColG,  PColB);

-      glPrintLetterCut(Letter, PToDo / PDoingNow, 1);

-    end;

-

-    if (PToDo <= 0) then

-      glPrintLetter(Letter);

-

-    PToDo := PToDo - PDoingNow;

-

-  end; // while

-end;

-

-

-procedure SetFontPos(X, Y: real);

-begin

-  Fonts[ActFont].Tex.X := X;

-  Fonts[ActFont].Tex.Y := Y;

-end;

-

-procedure SetFontSize(Size: real);

-begin

-  Fonts[ActFont].Tex.H := 30 * (Size/10);

-end;

-

-procedure SetFontStyle(Style: integer);

-begin

-  ActFont := Style;

-end;

-

-procedure SetFontItalic(Enable: boolean);

-begin

-  Fonts[ActFont].Italic := Enable;

-end;

-

-procedure SetFontAspectW(Aspect: real);

-begin

-  Fonts[ActFont].AspectW := Aspect;

-end;

-

-{$IFDEF FPC}

-initialization

-  {$I UltraStar.lrs}

-{$ENDIF}

-

-end.

-

-

+unit TextGL;
+
+interface
+
+{$IFDEF FPC}
+  {$MODE Delphi}
+{$ENDIF}
+
+
+uses  OpenGL12,
+      SDL,
+      UTexture,
+      Classes,
+      ULog;
+
+procedure BuildFont;			                // Build Our Bitmap Font
+procedure KillFont;     		                // Delete The Font
+function  glTextWidth(text: pchar): real;     // Returns Text Width
+procedure glPrintDone(text: pchar; Done: real; ColR, ColG, ColB: real);
+procedure glPrintLetter(letter: char);
+procedure glPrintLetterCut(letter: char; Start, Finish: real);
+procedure glPrint(text: pchar);	                  // Custom GL "Print" Routine
+procedure glPrintCut(text: pchar);
+procedure SetFontPos(X, Y: real);                     // Sets X And Y
+procedure SetFontSize(Size: real);
+procedure SetFontStyle(Style: integer); // sets active font style (normal, bold, etc)
+procedure SetFontItalic(Enable: boolean); // sets italic type letter (works for all fonts)
+procedure SetFontAspectW(Aspect: real);
+
+type
+  TTextGL = record
+    X:        real;
+    Y:        real;
+    Text:     string;
+    Size:     real;
+    ColR:     real;
+    ColG:     real;
+    ColB:     real;
+  end;
+
+  TFont = record
+    Tex:      TTexture;
+    Width:    array[0..255] of byte;
+    AspectW:  real;
+    Centered: boolean;
+    Done:     real;
+    Outline:  real;
+    Italic:   boolean;
+  end;
+
+
+var
+  base:       GLuint;			                // Base Display List For The Font Set
+  Fonts:      array of TFont;
+  ActFont:    integer;
+  PColR:      real;  // temps for glPrintDone
+  PColG:      real;
+  PColB:      real;
+
+implementation
+
+uses UMain,
+     {$IFDEF win32}
+     windows,
+     {$ELSE}
+     lclintf,
+     lcltype,
+     {$ENDIF}
+     SysUtils,
+     {$IFDEF FPC}
+     LResources,
+     {$ENDIF}
+     UGraphic;
+
+procedure BuildFont;			                // Build Our Bitmap Font
+
+  procedure loadfont( aID : integer; aType, aResourceName : String);
+  var
+    Rejestr:  TResourceStream;
+  begin
+    {$IFNDEF FPC}
+    Rejestr := TResourceStream.Create(HInstance, aResourceName , pchar( aType ) );
+    try
+      Rejestr.Read(Fonts[ aID ].Width, 256);
+    finally
+      Rejestr.Free;
+    end;
+    {$ENDIF}
+  end;
+
+var
+  font:     HFONT;              	          // Windows Font ID
+  h_dc:     hdc;
+  Pet:      integer;
+begin
+  ActFont := 0;
+
+  SetLength(Fonts, 5);
+  Fonts[0].Tex := Texture.LoadTexture(true, 'Font', 'PNG', 'Font', 0);
+  Fonts[0].Tex.H := 30;
+  Fonts[0].AspectW := 0.9;
+  Fonts[0].Done := -1;
+  Fonts[0].Outline := 0;
+
+  Fonts[1].Tex := Texture.LoadTexture(true, 'FontB', 'PNG', 'Font', 0);
+  Fonts[1].Tex.H := 30;
+  Fonts[1].AspectW := 1;
+  Fonts[1].Done := -1;
+  Fonts[1].Outline := 0;
+
+  Fonts[2].Tex := Texture.LoadTexture(true, 'FontO', 'PNG', 'Font Outline', 0);
+  Fonts[2].Tex.H := 30;
+  Fonts[2].AspectW := 0.95;
+  Fonts[2].Done := -1;
+  Fonts[2].Outline := 5;
+
+  Fonts[3].Tex := Texture.LoadTexture(true, 'FontO2', 'PNG', 'Font Outline 2', 0);
+  Fonts[3].Tex.H := 30;
+  Fonts[3].AspectW := 0.95;
+  Fonts[3].Done := -1;
+  Fonts[3].Outline := 4;
+
+{  Fonts[4].Tex := Texture.LoadTexture('FontO', 'BMP', 'Arrow', 0); // for score screen
+  Fonts[4].Tex.H := 30;
+  Fonts[4].AspectW := 0.95;
+  Fonts[4].Done := -1;
+  Fonts[4].Outline := 5;}
+
+
+
+  {$IFDEF FPC}
+    loadfont( 0, 'DAT', 'eurostar_regular'   );
+    loadfont( 1, 'DAT', 'eurostar_regular_bold'  );
+    loadfont( 2, 'DAT', 'Outline 1'  );
+    loadfont( 3, 'DAT', 'Outline 2' );
+  {$ELSE}
+    loadfont( 0, 'FNT', 'Font'   );
+    loadfont( 1, 'FNT', 'FontB'  );
+    loadfont( 2, 'FNT', 'FontO'  );
+    loadfont( 3, 'FNT', 'FontO2' );
+  {$ENDIF}
+
+
+
+
+{  Rejestr := TResourceStream.Create(HInstance, 'FontO', 'FNT');
+  Rejestr.Read(Fonts[4].Width, 256);
+  Rejestr.Free;}
+
+  for Pet := 0 to 255 do
+    Fonts[1].Width[Pet] := Fonts[1].Width[Pet] div 2;
+
+  for Pet := 0 to 255 do
+    Fonts[2].Width[Pet] := Fonts[2].Width[Pet] div 2 + 2;
+
+  for Pet := 0 to 255 do
+    Fonts[3].Width[Pet] := Fonts[3].Width[Pet] + 1;
+
+{  for Pet := 0 to 255 do
+    Fonts[4].Width[Pet] := Fonts[4].Width[Pet] div 2 + 2;}
+
+end;
+
+procedure KillFont;     		                // Delete The Font
+begin
+//  glDeleteLists(base, 256); 		                // Delete All 96 Characters
+end;
+
+function glTextWidth(text: pchar): real;
+var
+  Letter:       char;
+begin
+//  Log.LogStatus(Text, 'glTextWidth');
+  Result := 0;
+  while (length(text) > 0) do begin
+    Letter := Text[0];
+    text := pchar(Copy(text, 2, Length(text)-1));
+    Result := Result + Fonts[ActFont].Width[Ord(Letter)] * Fonts[ActFont].Tex.H / 30 * Fonts[ActFont].AspectW;
+  end; // while
+end;
+
+procedure glPrintDone(text: pchar; Done: real; ColR, ColG, ColB: real);
+begin
+  Fonts[ActFont].Done := Done;
+  PColR := ColR;
+  PColG := ColG;
+  PColB := ColB;
+  glPrintCut(text);
+  Fonts[ActFont].Done := -1;
+end;
+
+procedure glPrintLetter(Letter: char);
+var
+  TexX, TexY:   real;
+  TexR, TexB:   real;
+  FWidth:       real;
+  PL, PT:       real;
+  PR, PB:       real;
+  XItal:        real; // X shift for italic type letter
+begin
+  with Fonts[ActFont].Tex do begin
+  FWidth := Fonts[ActFont].Width[Ord(Letter)];
+
+  W := FWidth * (H/30) * Fonts[ActFont].AspectW;
+//  H := 30;
+
+  // set texture positions
+  TexX := (ord(Letter) mod 16) * 1/16 + 1/32 - FWidth/1024 - Fonts[ActFont].Outline/1024;
+  TexY := (ord(Letter) div 16) * 1/16 + 2/1024; // 2/1024
+  TexR := (ord(Letter) mod 16) * 1/16 + 1/32 + FWidth/1024 + Fonts[ActFont].Outline/1024;
+  TexB := (1 + ord(Letter) div 16) * 1/16 - 2/1024;
+
+  // set vector positions
+  PL := X - Fonts[ActFont].Outline * (H/30) * Fonts[ActFont].AspectW /2;
+  PT := Y;
+  PR := PL + W + Fonts[ActFont].Outline * (H/30) * Fonts[ActFont].AspectW;
+  PB := PT + H;
+  if Fonts[ActFont].Italic = false then
+    XItal := 0
+  else
+    XItal := 12;
+
+  glEnable(GL_TEXTURE_2D);
+  glEnable(GL_BLEND);
+  glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);
+  glBindTexture(GL_TEXTURE_2D, TexNum);
+  glBegin(GL_QUADS);
+    glTexCoord2f(TexX, TexY); glVertex2f(PL+XItal,  PT);
+    glTexCoord2f(TexX, TexB); glVertex2f(PL,        PB);
+    glTexCoord2f(TexR, TexB); glVertex2f(PR,        PB);
+    glTexCoord2f(TexR, TexY); glVertex2f(PR+XItal,  PT);
+  glEnd;
+  X := X + W;
+  glDisable(GL_BLEND);
+  glDisable(GL_TEXTURE_2D);
+  end; // with
+end;
+
+procedure glPrintLetterCut(letter: char; Start, Finish: real);
+var
+  TexX, TexY:   real;
+  TexR, TexB:   real;
+  TexTemp:      real;
+  FWidth:       real;
+  PL, PT:       real;
+  PR, PB:       real;
+  OutTemp:      real;
+  XItal:        real;
+begin
+  with Fonts[ActFont].Tex do begin
+  FWidth := Fonts[ActFont].Width[Ord(Letter)];
+
+  W := FWidth * (H/30) * Fonts[ActFont].AspectW;
+//  H := 30;
+  OutTemp := Fonts[ActFont].Outline * (H/30) * Fonts[ActFont].AspectW;
+
+  // set texture positions
+  TexX := (ord(Letter) mod 16) * 1/16 + 1/32 - FWidth/1024 - Fonts[ActFont].Outline/1024;
+  TexY := (ord(Letter) div 16) * 1/16 + 2/1024; // 2/1024
+  TexR := (ord(Letter) mod 16) * 1/16 + 1/32 + FWidth/1024 + Fonts[ActFont].Outline/1024;
+  TexB := (1 + ord(Letter) div 16) * 1/16 - 2/1024;
+
+  TexTemp := TexX + Start * (TexR - TexX);
+  TexR := TexX + Finish * (TexR - TexX);
+  TexX := TexTemp;
+
+  // set vector positions
+  PL := X - OutTemp / 2 + OutTemp * Start;
+  PT := Y;
+  PR := PL + (W + OutTemp) * (Finish - Start);
+  PB := PT + H;
+  if Fonts[ActFont].Italic = false then
+    XItal := 0
+  else
+    XItal := 12;
+
+  glEnable(GL_TEXTURE_2D);
+  glEnable(GL_BLEND);
+  glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);
+  glBindTexture(GL_TEXTURE_2D, TexNum);
+  glBegin(GL_QUADS);
+    glTexCoord2f(TexX, TexY); glVertex2f(PL+XItal,  PT);
+    glTexCoord2f(TexX, TexB); glVertex2f(PL,        PB);
+    glTexCoord2f(TexR, TexB); glVertex2f(PR,        PB);
+    glTexCoord2f(TexR, TexY); glVertex2f(PR+XItal,  PT); // not tested with XItal
+  glEnd;
+  X := X + W * (Finish - Start);
+  glDisable(GL_BLEND);
+  glDisable(GL_TEXTURE_2D);
+  end; // with
+
+end;
+
+procedure glPrint(text: pchar);	                // Custom GL "Print" Routine
+var
+  Letter:       char;
+begin
+  if (Text = '') then   			        // If There's No Text
+                Exit;					        // Do Nothing
+
+  while (length(text) > 0) do begin
+    // cut
+    Letter := Text[0];
+    Text := pchar(Copy(Text, 2, Length(Text)-1));
+
+    // print
+    glPrintLetter(Letter);
+  end; // while
+end;
+
+procedure glPrintCut(text: pchar);
+var
+  Letter:       char;
+  PToDo:        real;
+  PTotWidth:    real;
+  PDoingNow:    real;
+  S:            string;
+begin
+  if (Text = '') then   			        // If There's No Text
+                Exit;					        // Do Nothing
+
+  PTotWidth := glTextWidth(Text);
+  PToDo := Fonts[ActFont].Done;
+
+  while (length(text) > 0) do begin
+    // cut
+    Letter := Text[0];
+    Text := pchar(Copy(Text, 2, Length(Text)-1));
+
+    // analyze
+    S := Letter;
+    PDoingNow := glTextWidth(pchar(S)) / PTotWidth;
+
+    // drawing
+    if (PToDo > 0) and (PDoingNow <= PToDo) then
+      glPrintLetter(Letter);
+
+    if (PToDo > 0) and (PDoingNow > PToDo) then begin
+      glPrintLetterCut(Letter, 0, PToDo / PDoingNow);
+      glColor3f(PColR, PColG,  PColB);
+      glPrintLetterCut(Letter, PToDo / PDoingNow, 1);
+    end;
+
+    if (PToDo <= 0) then
+      glPrintLetter(Letter);
+
+    PToDo := PToDo - PDoingNow;
+
+  end; // while
+end;
+
+
+procedure SetFontPos(X, Y: real);
+begin
+  Fonts[ActFont].Tex.X := X;
+  Fonts[ActFont].Tex.Y := Y;
+end;
+
+procedure SetFontSize(Size: real);
+begin
+  Fonts[ActFont].Tex.H := 30 * (Size/10);
+end;
+
+procedure SetFontStyle(Style: integer);
+begin
+  ActFont := Style;
+end;
+
+procedure SetFontItalic(Enable: boolean);
+begin
+  Fonts[ActFont].Italic := Enable;
+end;
+
+procedure SetFontAspectW(Aspect: real);
+begin
+  Fonts[ActFont].AspectW := Aspect;
+end;
+
+{$IFDEF FPC}
+{$IFDEF win32}
+initialization
+  {$I UltraStar.lrs}
+{$ENDIF}
+{$ENDIF}
+
+end.
+
+
diff --git a/Game/Code/Classes/UCommon.pas b/Game/Code/Classes/UCommon.pas
index f25e025b..b7ddd7ba 100644
--- a/Game/Code/Classes/UCommon.pas
+++ b/Game/Code/Classes/UCommon.pas
@@ -1,98 +1,132 @@
-unit UCommon;

-

-interface

-

-{$IFDEF FPC}

-  {$MODE Delphi}

-{$ENDIF}

-

-uses

-  windows;

-

-{$IFDEF FPC}

-

-type

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

-

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

-function  AllocateHWnd(Method: TWndMethod): HWND;

-procedure DeallocateHWnd(Wnd: HWND);

-

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

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

-{$ENDIF}

-

-implementation

-

-{$IFDEF 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;

-

-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;

-

-

-

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

-function AllocateHWnd(Method: TWndMethod): HWND;

-var

-  TempClass: TWndClass;

-  ClassRegistered: Boolean;

-begin

-(*

-  UtilWindowClass.hInstance := HInstance;

-{$IFDEF PIC}

-  UtilWindowClass.lpfnWndProc := @DefWindowProc;

-{$ENDIF}

-  ClassRegistered := GetClassInfo(HInstance, UtilWindowClass.lpszClassName, TempClass);

-  if not ClassRegistered or (TempClass.lpfnWndProc <> @DefWindowProc) then

-  begin

-    if ClassRegistered then

-      Windows.UnregisterClass(UtilWindowClass.lpszClassName, HInstance);

-    Windows.RegisterClass(UtilWindowClass);

-  end;

-  Result := CreateWindowEx(WS_EX_TOOLWINDOW, UtilWindowClass.lpszClassName, '', WS_POPUP {+ 0}, 0, 0, 0, 0, 0, 0, HInstance, nil);

-*)

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

-

-(*

-  if Assigned(Method) then

-    SetWindowLong(Result, GWL_WNDPROC, Longint(MakeObjectInstance(Method)));

-*)

-end;

-

-procedure DeallocateHWnd(Wnd: HWND);

-var

-  Instance: Pointer;

-begin

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

-  DestroyWindow(Wnd);

-  

-//  if Instance <> @DefWindowProc then

-//     FreeObjectInstance(Instance);

-end;

-

-{$ENDIF}

-

-

-end.

+unit UCommon;
+
+interface
+
+{$IFDEF FPC}
+  {$MODE Delphi}
+{$ENDIF}
+
+uses
+
+{$IFDEF win32}
+   windows;
+{$ELSE}
+   lcltype,
+   messages;
+{$ENDIF}
+
+{$IFNDEF win32}
+type
+  hStream        = THandle;
+  HGLRC          = THandle;
+  TLargeInteger  = Int64;
+  TWin32FindData = LongInt;
+{$ENDIF}
+
+{$IFDEF FPC}
+
+type
+  TWndMethod = procedure(var Message: TMessage) of object;
+
+function  RandomRange(aMin: Integer; aMax: Integer) : Integer;
+//function  AllocateHWnd(Method: TWndMethod): HWND;
+//procedure DeallocateHWnd(Wnd: HWND);
+
+function MaxValue(const Data: array of Double): Double;
+function MinValue(const Data: array of Double): Double;
+{$ENDIF}
+
+{$IFNDEF win32}
+(*
+  function QueryPerformanceCounter(lpPerformanceCount:TLARGEINTEGER):Bool;
+  function QueryPerformanceFrequency(lpFrequency:TLARGEINTEGER):Bool;
+*)
+  procedure ZeroMemory( Destination: Pointer; Length: DWORD );
+{$ENDIF}
+
+implementation
+
+{$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 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;
+
+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
+
+{
+// 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}
+
+
+end.
diff --git a/Game/Code/Classes/UCovers.pas b/Game/Code/Classes/UCovers.pas
index efed1435..094fe43c 100644
--- a/Game/Code/Classes/UCovers.pas
+++ b/Game/Code/Classes/UCovers.pas
@@ -1,246 +1,248 @@
-unit UCovers;

-

-interface

-

-{$IFDEF FPC}

-  {$MODE Delphi}

-{$ENDIF}

-

-uses OpenGL12,

-     Windows,

-     Math,

-     Classes,

-     SysUtils,

-     {$IFNDEF FPC}

-     Graphics,

-     {$ENDIF}

-     UThemes,

-     UTexture;

-

-type

-  TCover = record

-    Name:       string;

-    W:          word;

-    H:          word;

-    Size:       integer;

-    Position:   integer; // position of picture in the cache file

-//    Data:       array of byte;

-  end;

-

-  TCovers = class

-    Cover:      array of TCover;

-    W:          word;

-    H:          word;

-    Size:       integer;

-    Data:       array of byte;

-    WritetoFile: Boolean;

-

-    constructor Create;

-    procedure Load;

-    procedure Save;

-    procedure AddCover(Name: string);

-    function CoverExists(Name: string): boolean;

-    function CoverNumber(Name: string): integer;

-    procedure PrepareData(Name: string);

-  end;

-

-var

-  Covers:     TCovers;

-

-implementation

-

-uses UMain,

-     // UFiles,

-     ULog,

-     DateUtils;

-

-constructor TCovers.Create;

-begin

-  W := 128;

-  H := 128;

-  Size := W*H*3;

-  Load;

-  WritetoFile := True;

-end;

-

-procedure TCovers.Load;

-var

-  F:      File;

-  C:      integer; // cover number

-  W:      word;

-  H:      word;

-  Bits:   byte;

-  NLen:   word;

-  Name:   string;

-//  Data:   array of byte;

-begin

-  if FileExists(GamePath + 'covers.cache') then

-  begin

-    AssignFile(F, GamePath + 'covers.cache');

-    Reset(F, 1);

-

-    WritetoFile := not FileIsReadOnly(GamePath + 'covers.cache');

-

-    SetLength(Cover, 0);

-

-    while not EOF(F) do

-    begin

-      SetLength(Cover, Length(Cover)+1);

-

-      BlockRead(F, W, 2);

-      Cover[High(Cover)].W := W;

-

-      BlockRead(F, H, 2);

-      Cover[High(Cover)].H := H;

-

-      BlockRead(F, Bits, 1);

-

-      Cover[High(Cover)].Size := W * H * (Bits div 8);

-

-      // test

-  //    W := 128;

-  //    H := 128;

-  //    Bits := 24;

-  //    Seek(F, FilePos(F) + 3);

-

-      BlockRead(F, NLen, 2);

-      SetLength(Name, NLen);

-

-      BlockRead(F, Name[1], NLen);

-      Cover[High(Cover)].Name := Name;

-

-      Cover[High(Cover)].Position := FilePos(F);

-      Seek(F, FilePos(F) + W*H*(Bits div 8));

-

-  //    SetLength(Cover[High(Cover)].Data, W*H*(Bits div 8));

-  //    BlockRead(F, Cover[High(Cover)].Data[0], W*H*(Bits div 8));

-

-    end; // While

-

-    CloseFile(F);

-  end; // fileexists

-end;

-

-procedure TCovers.Save;

-var

-  F:      File;

-  C:      integer; // cover number

-  W:      word;

-  H:      word;

-  NLen:   word;

-  Bits:   byte;

-begin

-{  AssignFile(F, GamePath + 'covers.cache');

-  Rewrite(F, 1);

-

-  Bits := 24;

-  for C := 0 to High(Cover) do begin

-    W := Cover[C].W;

-    H := Cover[C].H;

-

-    BlockWrite(F, W, 2);

-    BlockWrite(F, H, 2);

-    BlockWrite(F, Bits, 1);

-

-    NLen := Length(Cover[C].Name);

-    BlockWrite(F, NLen, 2);

-    BlockWrite(F, Cover[C].Name[1], NLen);

-    BlockWrite(F, Cover[C].Data[0], W*H*(Bits div 8));

-  end;

-

-  CloseFile(F);}

-end;

-

-procedure TCovers.AddCover(Name: string);

-var

-  B:      integer;

-  F:      File;

-  C:      integer; // cover number

-  NLen:   word;

-  Bits:   byte;

-begin

-  if not CoverExists(Name) then begin

-    SetLength(Cover, Length(Cover)+1);

-    Cover[High(Cover)].Name := Name;

-

-    Cover[High(Cover)].W := W;

-    Cover[High(Cover)].H := H;

-    Cover[High(Cover)].Size := Size;

-

-    // do not copy data. write them directly to file

-//    SetLength(Cover[High(Cover)].Data, Size);

-//    for B := 0 to Size-1 do

-//      Cover[High(Cover)].Data[B] := CacheMipmap[B];

-

-    if WritetoFile then

-    begin

-      AssignFile(F, GamePath + 'covers.cache');

-      if FileExists(GamePath + 'covers.cache') then begin

-        Reset(F, 1);

-        Seek(F, FileSize(F));

-      end else

-        Rewrite(F, 1);

-

-        Bits := 24;

-

-        BlockWrite(F, W, 2);

-        BlockWrite(F, H, 2);

-        BlockWrite(F, Bits, 1);

-

-        NLen := Length(Name);

-        BlockWrite(F, NLen, 2);

-        BlockWrite(F, Name[1], NLen);

-

-        Cover[High(Cover)].Position := FilePos(F);

-        BlockWrite(F, CacheMipmap[0], W*H*(Bits div 8));

-

-        CloseFile(F);

-      end;

-  end

-  else

-    Cover[High(Cover)].Position := 0;

-end;

-

-function TCovers.CoverExists(Name: string): boolean;

-var

-  C:    integer; // cover

-begin

-  Result := false;

-  C := 0;

-  while (C <= High(Cover)) and (Result = false) do begin

-    if Cover[C].Name = Name then Result := true;

-    Inc(C);

-  end;

-end;

-

-function TCovers.CoverNumber(Name: string): integer;

-var

-  C:    integer;

-begin

-  Result := -1;

-  C := 0;

-  while (C <= High(Cover)) and (Result = -1) do begin

-    if Cover[C].Name = Name then Result := C;

-    Inc(C);

-  end;

-end;

-

-procedure TCovers.PrepareData(Name: string);

-var

-  F:  File;

-  C:  integer;

-begin

-  if FileExists(GamePath + 'covers.cache') then begin

-    AssignFile(F, GamePath + 'covers.cache');

-    Reset(F, 1);

-

-    C := CoverNumber(Name);

-    SetLength(Data, Cover[C].Size);

-    if Length(Data) < 6 then beep;

-    Seek(F, Cover[C].Position);

-    BlockRead(F, Data[0], Cover[C].Size);

-    CloseFile(F);

-  end;

-end;

-

-end.

+unit UCovers;
+
+interface
+
+{$IFDEF FPC}
+  {$MODE Delphi}
+{$ENDIF}
+
+uses OpenGL12,
+     {$IFDEF win32}
+     windows,
+     {$ENDIF}
+     Math,
+     Classes,
+     SysUtils,
+     {$IFNDEF FPC}
+     Graphics,
+     {$ENDIF}
+     UThemes,
+     UTexture;
+
+type
+  TCover = record
+    Name:       string;
+    W:          word;
+    H:          word;
+    Size:       integer;
+    Position:   integer; // position of picture in the cache file
+//    Data:       array of byte;
+  end;
+
+  TCovers = class
+    Cover:      array of TCover;
+    W:          word;
+    H:          word;
+    Size:       integer;
+    Data:       array of byte;
+    WritetoFile: Boolean;
+
+    constructor Create;
+    procedure Load;
+    procedure Save;
+    procedure AddCover(Name: string);
+    function CoverExists(Name: string): boolean;
+    function CoverNumber(Name: string): integer;
+    procedure PrepareData(Name: string);
+  end;
+
+var
+  Covers:     TCovers;
+
+implementation
+
+uses UMain,
+     // UFiles,
+     ULog,
+     DateUtils;
+
+constructor TCovers.Create;
+begin
+  W := 128;
+  H := 128;
+  Size := W*H*3;
+  Load;
+  WritetoFile := True;
+end;
+
+procedure TCovers.Load;
+var
+  F:      File;
+  C:      integer; // cover number
+  W:      word;
+  H:      word;
+  Bits:   byte;
+  NLen:   word;
+  Name:   string;
+//  Data:   array of byte;
+begin
+  if FileExists(GamePath + 'covers.cache') then
+  begin
+    AssignFile(F, GamePath + 'covers.cache');
+    Reset(F, 1);
+
+    WritetoFile := not FileIsReadOnly(GamePath + 'covers.cache');
+
+    SetLength(Cover, 0);
+
+    while not EOF(F) do
+    begin
+      SetLength(Cover, Length(Cover)+1);
+
+      BlockRead(F, W, 2);
+      Cover[High(Cover)].W := W;
+
+      BlockRead(F, H, 2);
+      Cover[High(Cover)].H := H;
+
+      BlockRead(F, Bits, 1);
+
+      Cover[High(Cover)].Size := W * H * (Bits div 8);
+
+      // test
+  //    W := 128;
+  //    H := 128;
+  //    Bits := 24;
+  //    Seek(F, FilePos(F) + 3);
+
+      BlockRead(F, NLen, 2);
+      SetLength(Name, NLen);
+
+      BlockRead(F, Name[1], NLen);
+      Cover[High(Cover)].Name := Name;
+
+      Cover[High(Cover)].Position := FilePos(F);
+      Seek(F, FilePos(F) + W*H*(Bits div 8));
+
+  //    SetLength(Cover[High(Cover)].Data, W*H*(Bits div 8));
+  //    BlockRead(F, Cover[High(Cover)].Data[0], W*H*(Bits div 8));
+
+    end; // While
+
+    CloseFile(F);
+  end; // fileexists
+end;
+
+procedure TCovers.Save;
+var
+  F:      File;
+  C:      integer; // cover number
+  W:      word;
+  H:      word;
+  NLen:   word;
+  Bits:   byte;
+begin
+{  AssignFile(F, GamePath + 'covers.cache');
+  Rewrite(F, 1);
+
+  Bits := 24;
+  for C := 0 to High(Cover) do begin
+    W := Cover[C].W;
+    H := Cover[C].H;
+
+    BlockWrite(F, W, 2);
+    BlockWrite(F, H, 2);
+    BlockWrite(F, Bits, 1);
+
+    NLen := Length(Cover[C].Name);
+    BlockWrite(F, NLen, 2);
+    BlockWrite(F, Cover[C].Name[1], NLen);
+    BlockWrite(F, Cover[C].Data[0], W*H*(Bits div 8));
+  end;
+
+  CloseFile(F);}
+end;
+
+procedure TCovers.AddCover(Name: string);
+var
+  B:      integer;
+  F:      File;
+  C:      integer; // cover number
+  NLen:   word;
+  Bits:   byte;
+begin
+  if not CoverExists(Name) then begin
+    SetLength(Cover, Length(Cover)+1);
+    Cover[High(Cover)].Name := Name;
+
+    Cover[High(Cover)].W := W;
+    Cover[High(Cover)].H := H;
+    Cover[High(Cover)].Size := Size;
+
+    // do not copy data. write them directly to file
+//    SetLength(Cover[High(Cover)].Data, Size);
+//    for B := 0 to Size-1 do
+//      Cover[High(Cover)].Data[B] := CacheMipmap[B];
+
+    if WritetoFile then
+    begin
+      AssignFile(F, GamePath + 'covers.cache');
+      if FileExists(GamePath + 'covers.cache') then begin
+        Reset(F, 1);
+        Seek(F, FileSize(F));
+      end else
+        Rewrite(F, 1);
+
+        Bits := 24;
+
+        BlockWrite(F, W, 2);
+        BlockWrite(F, H, 2);
+        BlockWrite(F, Bits, 1);
+
+        NLen := Length(Name);
+        BlockWrite(F, NLen, 2);
+        BlockWrite(F, Name[1], NLen);
+
+        Cover[High(Cover)].Position := FilePos(F);
+        BlockWrite(F, CacheMipmap[0], W*H*(Bits div 8));
+
+        CloseFile(F);
+      end;
+  end
+  else
+    Cover[High(Cover)].Position := 0;
+end;
+
+function TCovers.CoverExists(Name: string): boolean;
+var
+  C:    integer; // cover
+begin
+  Result := false;
+  C := 0;
+  while (C <= High(Cover)) and (Result = false) do begin
+    if Cover[C].Name = Name then Result := true;
+    Inc(C);
+  end;
+end;
+
+function TCovers.CoverNumber(Name: string): integer;
+var
+  C:    integer;
+begin
+  Result := -1;
+  C := 0;
+  while (C <= High(Cover)) and (Result = -1) do begin
+    if Cover[C].Name = Name then Result := C;
+    Inc(C);
+  end;
+end;
+
+procedure TCovers.PrepareData(Name: string);
+var
+  F:  File;
+  C:  integer;
+begin
+  if FileExists(GamePath + 'covers.cache') then begin
+    AssignFile(F, GamePath + 'covers.cache');
+    Reset(F, 1);
+
+    C := CoverNumber(Name);
+    SetLength(Data, Cover[C].Size);
+    if Length(Data) < 6 then beep;
+    Seek(F, Cover[C].Position);
+    BlockRead(F, Data[0], Cover[C].Size);
+    CloseFile(F);
+  end;
+end;
+
+end.
diff --git a/Game/Code/Classes/UDLLManager.pas b/Game/Code/Classes/UDLLManager.pas
index 0d328c37..d25efb35 100644
--- a/Game/Code/Classes/UDLLManager.pas
+++ b/Game/Code/Classes/UDLLManager.pas
@@ -1,233 +1,247 @@
-unit UDLLManager;

-

-{$IFDEF FPC}

-  {$MODE DELPHI}

-{$ENDIF}

-

-

-interface

-

-uses ModiSDK,

-     UFiles;

-

-type

-  TDLLMan = class

-    private

-      hLib: THandle;

-      P_Init:   fModi_Init;

-      P_Draw:   fModi_Draw;

-      P_Finish: fModi_Finish;

-      P_RData:  pModi_RData;

-    public

-      Plugins: array of TPluginInfo;

-      PluginPaths: array of String;

-      Selected: ^TPluginInfo;

-

-      constructor Create;

-

-      procedure GetPluginList;

-      procedure ClearPluginInfo(No: Cardinal);

-      function  LoadPluginInfo(Filename: String; No: Cardinal): boolean;

-

-      function  LoadPlugin(No: Cardinal): boolean;

-      procedure UnLoadPlugin;

-

-      function  PluginInit   (const TeamInfo: TTeamInfo; var Playerinfo: TPlayerinfo; const Sentences: TSentences; const LoadTex: fModi_LoadTex; const Print: fModi_Print; LoadSound: fModi_LoadSound; PlaySound: pModi_PlaySound): boolean;

-      function  PluginDraw   (var Playerinfo: TPlayerinfo; const CurSentence: Cardinal): boolean;

-      function  PluginFinish (var Playerinfo: TPlayerinfo): byte;

-      procedure PluginRData  (handle: HSTREAM; buffer: Pointer; len: DWORD; user: DWORD);

-  end;

-

-var

-  DLLMan: TDLLMan;

-

-const DLLPath = 'Plugins\';

-

-implementation

-uses Windows, ULog, SysUtils;

-

-

-constructor TDLLMan.Create;

-begin

-  SetLength(Plugins, 0);

-  SetLength(PluginPaths, Length(Plugins));

-  GetPluginList;

-end;

-

-procedure TDLLMan.GetPluginList;

-var

-  SR:     TSearchRec;

-begin

-

-  if FindFirst(DLLPath + '*.dll', faAnyFile	, SR) = 0 then

-  begin

-    repeat

-      SetLength(Plugins, Length(Plugins)+1);

-      SetLength(PluginPaths, Length(Plugins));

-

-      if LoadPluginInfo(SR.Name, High(Plugins)) then //Loaded succesful

-      begin

-        PluginPaths[High(PluginPaths)] := SR.Name;

-      end

-      else //Error Loading

-      begin

-        SetLength(Plugins, Length(Plugins)-1);

-        SetLength(PluginPaths, Length(Plugins));

-      end;

-

-    until FindNext(SR) <> 0;

-    FindClose(SR);

-  end;

-end;

-

-procedure TDLLMan.ClearPluginInfo(No: Cardinal);

-begin

-  //Set to Party Modi Plugin

-  Plugins[No].Typ := 8;

-

-  Plugins[No].Name := 'unknown';

-  Plugins[No].NumPlayers := 0;

-

-  Plugins[No].Creator := 'Nobody';

-  Plugins[No].PluginDesc := 'NO_PLUGIN_DESC';

-

-  Plugins[No].LoadSong := True;

-  Plugins[No].ShowScore := True;

-  Plugins[No].ShowBars := False;

-  Plugins[No].ShowNotes := True;

-  Plugins[No].LoadVideo := True;

-  Plugins[No].LoadBack  := True;

-

-  Plugins[No].TeamModeOnly := False;

-  Plugins[No].GetSoundData := False;

-  Plugins[No].Dummy := False;

-

-

-  Plugins[No].BGShowFull := False;

-  Plugins[No].BGShowFull_O := True;

-

-  Plugins[No].ShowRateBar:= False;

-  Plugins[No].ShowRateBar_O := True;

-

-  Plugins[No].EnLineBonus := False;

-  Plugins[No].EnLineBonus_O := True;

-end;

-

-function TDLLMan.LoadPluginInfo(Filename: String; No: Cardinal): boolean;

-var

-  hLibg: THandle;

-  Info: pModi_PluginInfo;

-  I: Integer;

-begin

-  Result := False;

-  //Clear Plugin Info

-  ClearPluginInfo(No);

-

-  {//Workaround Plugins Loaded 2 Times

-  For I := low(PluginPaths) to high(PluginPaths) do

-    if (PluginPaths[I] = Filename) then

-      exit;  }

-

-  //Load Libary

-  hLibg := LoadLibrary(PChar(DLLPath + Filename));

-  //If Loaded

-  if (hLibg <> 0) then

-  begin

-    //Load Info Procedure

-    @Info := GetProcAddress (hLibg, PChar('PluginInfo'));

-

-    //If Loaded

-    if (@Info <> nil) then

-    begin

-      //Load PluginInfo

-      Info (Plugins[No]);

-      Result := True;

-    end

-    else

-      Log.LogError('Could not Load Plugin "' + Filename + '": Info Procedure not Found');

-

-    FreeLibrary (hLibg);

-  end

-    else

-      Log.LogError('Could not Load Plugin "' + Filename + '": Libary not Loaded');

-end;

-

-function TDLLMan.LoadPlugin(No: Cardinal): boolean;

-begin

-  Result := False;

-  //Load Libary

-  hLib := LoadLibrary(PChar(DLLPath + PluginPaths[No]));

-  //If Loaded

-  if (hLib <> 0) then

-  begin

-    //Load Info Procedure

-    @P_Init := GetProcAddress (hLib, PChar('Init'));

-    @P_Draw := GetProcAddress (hLib, PChar('Draw'));

-    @P_Finish := GetProcAddress (hLib, PChar('Finish'));

-

-    //If Loaded

-    if (@P_Init <> nil) And (@P_Draw <> nil) And (@P_Finish <> nil) then

-    begin

-      Selected := @Plugins[No]; 

-      Result := True;

-    end

-    else

-    begin

-      Log.LogError('Could not Load Plugin "' + PluginPaths[No] + '": Procedures not Found');

-

-    end;

-  end

-    else

-      Log.LogError('Could not Load Plugin "' + PluginPaths[No] + '": Libary not Loaded');

-end;

-

-procedure TDLLMan.UnLoadPlugin;

-begin

-if (hLib <> 0) then

-  FreeLibrary (hLib);

-

-//Selected := nil;

-@P_Init := nil;

-@P_Draw := nil;

-@P_Finish := nil;

-@P_RData := nil;

-end;

-

-function TDLLMan.PluginInit (const TeamInfo: TTeamInfo; var Playerinfo: TPlayerinfo; const Sentences: TSentences; const LoadTex: fModi_LoadTex; const Print: fModi_Print; LoadSound: fModi_LoadSound; PlaySound: pModi_PlaySound): boolean;

-var

-  Methods: TMethodRec;

-begin

-  Methods.LoadTex := LoadTex;

-  Methods.Print := Print;

-  Methods.LoadSound := LoadSound;

-  Methods.PlaySound := PlaySound;

-  

-  if (@P_Init <> nil) then

-    Result := P_Init (TeamInfo, PlayerInfo, Sentences, Methods)

-  else

-    Result := False

-end;

-

-function TDLLMan.PluginDraw   (var Playerinfo: TPlayerinfo; const CurSentence: Cardinal): boolean;

-begin

-if (@P_Draw <> nil) then

-  Result := P_Draw (PlayerInfo, CurSentence)

-else

-  Result := False

-end;

-

-function TDLLMan.PluginFinish (var Playerinfo: TPlayerinfo): byte;

-begin

-if (@P_Finish <> nil) then

-  Result := P_Finish (PlayerInfo)

-else

-  Result := 0;

-end;

-

-procedure TDLLMan.PluginRData  (handle: HSTREAM; buffer: Pointer; len: DWORD; user: DWORD);

-begin

-if (@P_RData <> nil) then

-  P_RData (handle, buffer, len, user);

-end;

-

-end.

+unit UDLLManager;
+
+{$IFDEF FPC}
+  {$MODE DELPHI}
+{$ENDIF}
+
+
+interface
+
+uses ModiSDK,
+     UFiles;
+
+type
+  TDLLMan = class
+    private
+      hLib: THandle;
+      P_Init:   fModi_Init;
+      P_Draw:   fModi_Draw;
+      P_Finish: fModi_Finish;
+      P_RData:  pModi_RData;
+    public
+      Plugins: array of TPluginInfo;
+      PluginPaths: array of String;
+      Selected: ^TPluginInfo;
+
+      constructor Create;
+
+      procedure GetPluginList;
+      procedure ClearPluginInfo(No: Cardinal);
+      function  LoadPluginInfo(Filename: String; No: Cardinal): boolean;
+
+      function  LoadPlugin(No: Cardinal): boolean;
+      procedure UnLoadPlugin;
+
+      function  PluginInit   (const TeamInfo: TTeamInfo; var Playerinfo: TPlayerinfo; const Sentences: TSentences; const LoadTex: fModi_LoadTex; const Print: fModi_Print; LoadSound: fModi_LoadSound; PlaySound: pModi_PlaySound): boolean;
+      function  PluginDraw   (var Playerinfo: TPlayerinfo; const CurSentence: Cardinal): boolean;
+      function  PluginFinish (var Playerinfo: TPlayerinfo): byte;
+      procedure PluginRData  (handle: HSTREAM; buffer: Pointer; len: DWORD; user: DWORD);
+  end;
+
+var
+  DLLMan: TDLLMan;
+
+const
+  {$IFDEF win32}
+     DLLPath = 'Plugins\';
+     DLLExt  = '.dll';
+  {$ELSE}
+     DLLPath = 'Plugins/';
+     DLLExt  = '.so';
+  {$ENDIF}
+
+implementation
+
+uses {$IFDEF win32}
+     windows,
+     {$ELSE}
+     dynlibs,
+     {$ENDIF}
+     ULog,
+     SysUtils;
+
+
+constructor TDLLMan.Create;
+begin
+  SetLength(Plugins, 0);
+  SetLength(PluginPaths, Length(Plugins));
+  GetPluginList;
+end;
+
+procedure TDLLMan.GetPluginList;
+var
+  SR:     TSearchRec;
+begin
+
+  if FindFirst(DLLPath + '*' + DLLExt, faAnyFile	, SR) = 0 then
+  begin
+    repeat
+      SetLength(Plugins, Length(Plugins)+1);
+      SetLength(PluginPaths, Length(Plugins));
+
+      if LoadPluginInfo(SR.Name, High(Plugins)) then //Loaded succesful
+      begin
+        PluginPaths[High(PluginPaths)] := SR.Name;
+      end
+      else //Error Loading
+      begin
+        SetLength(Plugins, Length(Plugins)-1);
+        SetLength(PluginPaths, Length(Plugins));
+      end;
+
+    until FindNext(SR) <> 0;
+    FindClose(SR);
+  end;
+end;
+
+procedure TDLLMan.ClearPluginInfo(No: Cardinal);
+begin
+  //Set to Party Modi Plugin
+  Plugins[No].Typ := 8;
+
+  Plugins[No].Name := 'unknown';
+  Plugins[No].NumPlayers := 0;
+
+  Plugins[No].Creator := 'Nobody';
+  Plugins[No].PluginDesc := 'NO_PLUGIN_DESC';
+
+  Plugins[No].LoadSong := True;
+  Plugins[No].ShowScore := True;
+  Plugins[No].ShowBars := False;
+  Plugins[No].ShowNotes := True;
+  Plugins[No].LoadVideo := True;
+  Plugins[No].LoadBack  := True;
+
+  Plugins[No].TeamModeOnly := False;
+  Plugins[No].GetSoundData := False;
+  Plugins[No].Dummy := False;
+
+
+  Plugins[No].BGShowFull := False;
+  Plugins[No].BGShowFull_O := True;
+
+  Plugins[No].ShowRateBar:= False;
+  Plugins[No].ShowRateBar_O := True;
+
+  Plugins[No].EnLineBonus := False;
+  Plugins[No].EnLineBonus_O := True;
+end;
+
+function TDLLMan.LoadPluginInfo(Filename: String; No: Cardinal): boolean;
+var
+  hLibg: THandle;
+  Info: pModi_PluginInfo;
+  I: Integer;
+begin
+  Result := False;
+  //Clear Plugin Info
+  ClearPluginInfo(No);
+
+  {//Workaround Plugins Loaded 2 Times
+  For I := low(PluginPaths) to high(PluginPaths) do
+    if (PluginPaths[I] = Filename) then
+      exit;  }
+
+  //Load Libary
+  hLibg := LoadLibrary(PChar(DLLPath + Filename));
+  //If Loaded
+  if (hLibg <> 0) then
+  begin
+    //Load Info Procedure
+    @Info := GetProcAddress (hLibg, PChar('PluginInfo'));
+
+    //If Loaded
+    if (@Info <> nil) then
+    begin
+      //Load PluginInfo
+      Info (Plugins[No]);
+      Result := True;
+    end
+    else
+      Log.LogError('Could not Load Plugin "' + Filename + '": Info Procedure not Found');
+
+    FreeLibrary (hLibg);
+  end
+    else
+      Log.LogError('Could not Load Plugin "' + Filename + '": Libary not Loaded');
+end;
+
+function TDLLMan.LoadPlugin(No: Cardinal): boolean;
+begin
+  Result := False;
+  //Load Libary
+  hLib := LoadLibrary(PChar(DLLPath + PluginPaths[No]));
+  //If Loaded
+  if (hLib <> 0) then
+  begin
+    //Load Info Procedure
+    @P_Init := GetProcAddress (hLib, PChar('Init'));
+    @P_Draw := GetProcAddress (hLib, PChar('Draw'));
+    @P_Finish := GetProcAddress (hLib, PChar('Finish'));
+
+    //If Loaded
+    if (@P_Init <> nil) And (@P_Draw <> nil) And (@P_Finish <> nil) then
+    begin
+      Selected := @Plugins[No]; 
+      Result := True;
+    end
+    else
+    begin
+      Log.LogError('Could not Load Plugin "' + PluginPaths[No] + '": Procedures not Found');
+
+    end;
+  end
+    else
+      Log.LogError('Could not Load Plugin "' + PluginPaths[No] + '": Libary not Loaded');
+end;
+
+procedure TDLLMan.UnLoadPlugin;
+begin
+if (hLib <> 0) then
+  FreeLibrary (hLib);
+
+//Selected := nil;
+@P_Init := nil;
+@P_Draw := nil;
+@P_Finish := nil;
+@P_RData := nil;
+end;
+
+function TDLLMan.PluginInit (const TeamInfo: TTeamInfo; var Playerinfo: TPlayerinfo; const Sentences: TSentences; const LoadTex: fModi_LoadTex; const Print: fModi_Print; LoadSound: fModi_LoadSound; PlaySound: pModi_PlaySound): boolean;
+var
+  Methods: TMethodRec;
+begin
+  Methods.LoadTex := LoadTex;
+  Methods.Print := Print;
+  Methods.LoadSound := LoadSound;
+  Methods.PlaySound := PlaySound;
+  
+  if (@P_Init <> nil) then
+    Result := P_Init (TeamInfo, PlayerInfo, Sentences, Methods)
+  else
+    Result := False
+end;
+
+function TDLLMan.PluginDraw   (var Playerinfo: TPlayerinfo; const CurSentence: Cardinal): boolean;
+begin
+if (@P_Draw <> nil) then
+  Result := P_Draw (PlayerInfo, CurSentence)
+else
+  Result := False
+end;
+
+function TDLLMan.PluginFinish (var Playerinfo: TPlayerinfo): byte;
+begin
+if (@P_Finish <> nil) then
+  Result := P_Finish (PlayerInfo)
+else
+  Result := 0;
+end;
+
+procedure TDLLMan.PluginRData  (handle: HSTREAM; buffer: Pointer; len: DWORD; user: DWORD);
+begin
+if (@P_RData <> nil) then
+  P_RData (handle, buffer, len, user);
+end;
+
+end.
diff --git a/Game/Code/Classes/UDataBase.pas b/Game/Code/Classes/UDataBase.pas
index 009d0d63..deee85c0 100644
--- a/Game/Code/Classes/UDataBase.pas
+++ b/Game/Code/Classes/UDataBase.pas
@@ -1,299 +1,298 @@
-unit UDataBase;

-

-interface

-

-{$IFDEF FPC}

-  {$MODE DELPHI}

-{$ENDIF}

-

-

-uses USongs, SQLiteTable3;

-

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

-//DataBaseSystem - Class including all DB Methods

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

-type

-  TStatResult = record

-    Case Typ: Byte of

-      0: (Singer:     ShortString;

-          Score:      Word;

-          Difficulty: Byte;

-          SongArtist: ShortString;

-          SongTitle:  ShortString);

-

-      1: (Player:     ShortString;

-          AverageScore: Word);

-

-      2: (Artist: ShortString;

-          Title:  ShortString;

-          TimesSung:  Word);

-

-      3: (ArtistName:   ShortString;

-          TimesSungtot: Word);

-  end;

-  AStatResult = Array of TStatResult;

-  

-  TDataBaseSystem = class

-    private

-      ScoreDB: TSqliteDatabase;

-      sFilename: string;

-    public

-

-

-    property Filename: String read sFilename;

-    

-    Destructor Free;

-

-    Procedure Init(const Filename: string);

-    procedure ReadScore(var Song: TSong);

-    procedure AddScore(var Song: TSong; Level: integer; Name: string; Score: integer);

-    procedure WriteScore(var Song: TSong);

-

-    Function  GetStats(var Stats: AStatResult; const Typ, Count: Byte; const Page: Cardinal; const Reversed: Boolean): Boolean;

-    Function  GetTotalEntrys(const Typ: Byte): Cardinal;

-  end;

-

-var

-  DataBase: TDataBaseSystem;

-

-implementation

-

-uses IniFiles, SysUtils;

-

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

-//Create - Opens Database and Create Tables if not Exist

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

-

-Procedure TDataBaseSystem.Init(const Filename: string);

-begin

-  //Open Database

-  ScoreDB := TSqliteDatabase.Create(Filename);

-  sFilename := Filename;

-

-  try

-  //Look for Tables => When not exist Create them

-  if not ScoreDB.TableExists('US_Scores') then

-    ScoreDB.execsql('CREATE TABLE `US_Scores` (`SongID` INT( 11 ) NOT NULL , `Difficulty` INT( 1 ) NOT NULL , `Player` VARCHAR( 150 ) NOT NULL , `Score` INT( 5 ) NOT NULL );');

-

-  if not ScoreDB.TableExists('US_Songs') then

-    ScoreDB.execsql('CREATE TABLE `US_Songs` (`ID` INTEGER PRIMARY KEY, `Artist` VARCHAR( 255 ) NOT NULL , `Title` VARCHAR( 255 ) NOT NULL , `TimesPlayed` int(5) NOT NULL );');

-   //Not possible because of String Limitation to 255 Chars //Need to rewrite Wrapper 

-  {if not ScoreDB.TableExists('US_SongCache') then

-    ScoreDB.ExecSQL('CREATE TABLE `US_SongCache` (`Path` VARCHAR( 255 ) NOT NULL , `Filename` VARCHAR( 255 ) NOT NULL , `Title` VARCHAR( 255 ) NOT NULL , `Artist` VARCHAR( 255 ) NOT NULL , `Folder` VARCHAR( 255 ) NOT NULL , `Genre` VARCHAR( 255 ) NOT NULL , `Edition` VARCHAR( 255 ) NOT NULL , `Language` VARCHAR( 255 ) NOT NULL , `Creator` VARCHAR( 255 ) NOT NULL , `Cover` VARCHAR( 255 ) NOT NULL , `Background` VARCHAR( 255 ) NOT NULL , `Video` VARCHAR( 255 ) NOT NULL , `VideoGap` FLOAT NOT NULL , `Gap` FLOAT NOT NULL , `Start` FLOAT NOT NULL , `Finish` INT( 11 ) NOT NULL , `BPM` INT( 5 ) NOT NULL , `Relative` BOOLEAN NOT NULL , `NotesGap` INT( 11 ) NOT NULL);');}

-

-

-  finally

-  //ScoreDB.Free;

-  end;

-

-end;

-

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

-//Free - Frees Database

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

-Destructor TDataBaseSystem.Free;

-begin

-  ScoreDB.Free;

-end;

-

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

-//ReadScore - Read Scores into SongArray

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

-procedure TDataBaseSystem.ReadScore(var Song: TSong);

-var

-  TableData: TSqliteTable;

-  Dif: Byte;

-begin

-  //ScoreDB := TSqliteDatabase.Create(sFilename);

-  try

-  try

-  //Search Song in DB

-  TableData := ScoreDB.GetTable('SELECT `Difficulty`, `Player`, `Score` FROM `us_scores` WHERE `SongID` = (SELECT `ID` FROM `us_songs` WHERE `Artist` = "' + Song.Artist + '" AND `Title` = "' + Song.Title + '" LIMIT 1) ORDER BY `Score` DESC  LIMIT 15');

-  //Empty Old Scores

-  SetLength (Song.Score[0], 0);

-  SetLength (Song.Score[1], 0);

-  SetLength (Song.Score[2], 0);

-

-  while not TableData.Eof do//Go through all Entrys

-  begin//Add one Entry to Array

-    Dif := StrtoInt(TableData.FieldAsString(TableData.FieldIndex['Difficulty']));

-    if (Dif>=0) AND (Dif<=2) then

-    begin

-      SetLength(Song.Score[Dif], Length(Song.Score[Dif]) + 1);

-

-      Song.Score[Dif, high(Song.Score[Dif])].Name := TableData.FieldAsString(TableData.FieldIndex['Player']);

-      Song.Score[Dif, high(Song.Score[Dif])].Score:= StrtoInt(TableData.FieldAsString(TableData.FieldIndex['Score']));

-    end;

-    TableData.Next;

-  end;

-

-  except //Im Fehlerfall

-  for Dif := 0 to 2 do

-  begin

-  SetLength(Song.Score[Dif], 1);

-  Song.Score[Dif, 1].Name := 'Error Reading ScoreDB';

-  end;

-  end;

-  finally

-  //ScoreDb.Free;

-  end;

-end;

-

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

-//AddScore - Add one new Score to DB

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

-procedure TDataBaseSystem.AddScore(var Song: TSong; Level: integer; Name: string; Score: integer);

-var

-ID: Integer;

-TableData: TSqliteTable;

-begin

-  //ScoreDB := TSqliteDatabase.Create(sFilename);

-  try

-  //Prevent 0 Scores from being added

-  if (Score > 0) then

-  begin

-

-    ID := ScoreDB.GetTableValue('SELECT `ID` FROM `US_Songs` WHERE `Artist` = "' + Song.Artist + '" AND `Title` = "' + Song.Title + '"');

-    if ID = 0 then //Song doesn't exist -> Create

-    begin

-      ScoreDB.ExecSQL ('INSERT INTO `US_Songs` ( `ID` , `Artist` , `Title` , `TimesPlayed` ) VALUES (NULL , "' + Song.Artist + '", "' + Song.Title + '", "0");');

-      ID := ScoreDB.GetTableValue('SELECT `ID` FROM `US_Songs` WHERE `Artist` = "' + Song.Artist + '" AND `Title` = "' + Song.Title + '"');

-      if ID = 0 then //Could not Create Table

-        exit;

-    end;

-    //Create new Entry

-    ScoreDB.ExecSQL('INSERT INTO `US_Scores` ( `SongID` , `Difficulty` , `Player` , `Score` ) VALUES ("' + InttoStr(ID) + '", "' + InttoStr(Level) + '", "' + Name + '", "' + InttoStr(Score) + '");');

-

-    //Delete Last Position when there are more than 5 Entrys

-    if ScoreDB.GetTableValue('SELECT COUNT(`SongID`) FROM `US_Scores` WHERE `SongID` = "' + InttoStr(ID) + '" AND `Difficulty` = "' + InttoStr(Level) +'"') > 5 then

-    begin

-      TableData := ScoreDB.GetTable('SELECT `Player`, `Score` FROM `US_Scores` WHERE SongID = "' + InttoStr(ID) + '" AND `Difficulty` = "' + InttoStr(Level) +'" ORDER BY `Score` ASC LIMIT 1');

-      ScoreDB.ExecSQL('DELETE FROM `US_Scores` WHERE SongID = "' + InttoStr(ID) + '" AND `Difficulty` = "' + InttoStr(Level) +'" AND `Player` = "' + TableData.FieldAsString(TableData.FieldIndex['Player']) + '" AND `Score` = "' + TableData.FieldAsString(TableData.FieldIndex['Score']) + '"');

-    end;

-

-  end;

-  finally

-  //ScoreDB.Free;

-  end;

-end;

-

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

-//WriteScore - Not needed with new System; But used for Increment Played Count

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

-procedure TDataBaseSystem.WriteScore(var Song: TSong);

-begin

-  try

-    //Increase TimesPlayed

-    ScoreDB.ExecSQL ('UPDATE `us_songs` SET `TimesPlayed` = `TimesPlayed` + "1" WHERE `Title` = "' + Song.Title + '" AND `Artist` = "' + Song.Artist + '";');

-  except

-

-  end;

-end;

-

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

-//GetStats - Write some Stats to Array, Returns True if Chossen Page has Entrys

-//Case Typ of

-//0 - Best Scores

-//1 - Best Singers

-//2 - Most sung Songs

-//3 - Most popular Band

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

-Function TDataBaseSystem.GetStats(var Stats: AStatResult; const Typ, Count: Byte; const Page: Cardinal; const Reversed: Boolean): Boolean;

-var

-  Query: String;

-  TableData: TSqliteTable;

-begin

-  Result := False;

-

-  if (Length(Stats) < Count) then

-    Exit;

-

-  {Todo:

-    Add Prevention that only Players with more than 5 Scores are Selected at Typ 2}

-

-  //Create Query

-  Case Typ of

-    0: Query := 'SELECT `Player` , `Difficulty` , `Score` , `Artist` , `Title` FROM `US_Scores` INNER JOIN `US_Songs` ON (`SongID` = `ID`) ORDER BY `Score`';

-    1: Query := 'SELECT `Player` , ROUND (Sum(`Score`) / COUNT(`Score`)) FROM `US_Scores` GROUP BY `Player` ORDER BY (Sum(`Score`) / COUNT(`Score`))';

-    2: Query := 'SELECT `Artist` , `Title` , `TimesPlayed` FROM `US_Songs` ORDER BY `TimesPlayed`';

-    3: Query := 'SELECT `Artist` , Sum(`TimesPlayed`) FROM `US_Songs` GROUP BY `Artist` ORDER BY Sum(`TimesPlayed`)';

-  end;

-

-  //Add Order Direction

-  If Reversed then

-    Query := Query + ' ASC'

-  else

-    Query := Query + ' DESC';

-

-  //Add Limit

-  Query := Query + ' LIMIT ' + InttoStr(Count * Page) + ', ' + InttoStr(Count) + ';';

-

-  //Execute Query

-  //try

-    TableData := ScoreDB.GetTable(Query);

-  {except

-    exit;

-  end;}

-

-  //if Result empty -> Exit

-  if (TableData.RowCount < 1) then

-    exit;

-

-  //Copy Result to Stats Array

-  while not TableData.Eof do

-  begin

-    Stats[TableData.Row].Typ := Typ;

-

-    Case Typ of

-      0:begin

-          Stats[TableData.Row].Singer := TableData.Fields[0];

-

-          Stats[TableData.Row].Difficulty := StrtoIntDef(TableData.Fields[1], 0);

-

-          Stats[TableData.Row].Score := StrtoIntDef(TableData.Fields[2], 0){TableData.FieldAsInteger(2)};

-          Stats[TableData.Row].SongArtist := TableData.Fields[3];

-          Stats[TableData.Row].SongTitle := TableData.Fields[4];

-        end;

-

-        1:begin

-          Stats[TableData.Row].Player := TableData.Fields[0];

-          Stats[TableData.Row].AverageScore := StrtoIntDef(TableData.Fields[1], 0);

-        end;

-

-        2:begin

-          Stats[TableData.Row].Artist := TableData.Fields[0];

-          Stats[TableData.Row].Title  := TableData.Fields[1];

-          Stats[TableData.Row].TimesSung  := StrtoIntDef(TableData.Fields[2], 0);

-        end;

-

-        3:begin

-          Stats[TableData.Row].ArtistName := TableData.Fields[0];

-          Stats[TableData.Row].TimesSungtot := StrtoIntDef(TableData.Fields[1], 0);

-        end;

-

-    end;

-

-    TableData.Next;

-  end;

-

-  Result := True;

-end;

-

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

-//GetTotalEntrys - Get Total Num of entrys for a Stats Query

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

-Function  TDataBaseSystem.GetTotalEntrys(const Typ: Byte): Cardinal;

-var Query: String;

-begin

-  //Create Query

-  Case Typ of

-    0: Query := 'SELECT COUNT(`SongID`) FROM `US_Scores`;';

-    1: Query := 'SELECT COUNT(DISTINCT `Player`) FROM `US_Scores`;';

-    2: Query := 'SELECT COUNT(`ID`) FROM `US_Songs`;';

-    3: Query := 'SELECT COUNT(DISTINCT `Artist`) FROM `US_Songs`;';

-  end;

-

-  Result := ScoreDB.GetTableValue(Query);

-end;

-

-end.

+unit UDataBase;
+
+interface
+
+{$IFDEF FPC}
+  {$MODE DELPHI}
+{$ENDIF}
+
+
+uses USongs, SQLiteTable3;
+
+//--------------------
+//DataBaseSystem - Class including all DB Methods
+//--------------------
+type
+  TStatResult = record
+    Case Typ: Byte of
+      0: (Singer:     ShortString;
+          Score:      Word;
+          Difficulty: Byte;
+          SongArtist: ShortString;
+          SongTitle:  ShortString);
+
+      1: (Player:     ShortString;
+          AverageScore: Word);
+
+      2: (Artist: ShortString;
+          Title:  ShortString;
+          TimesSung:  Word);
+
+      3: (ArtistName:   ShortString;
+          TimesSungtot: Word);
+  end;
+  AStatResult = Array of TStatResult;
+  
+  TDataBaseSystem = class
+    private
+      ScoreDB: TSqliteDatabase;
+      sFilename: string;
+    public
+
+
+    property Filename: String read sFilename;
+    
+    Destructor Free;
+
+    Procedure Init(const Filename: string);
+    procedure ReadScore(var Song: TSong);
+    procedure AddScore(var Song: TSong; Level: integer; Name: string; Score: integer);
+    procedure WriteScore(var Song: TSong);
+
+    Function  GetStats(var Stats: AStatResult; const Typ, Count: Byte; const Page: Cardinal; const Reversed: Boolean): Boolean;
+    Function  GetTotalEntrys(const Typ: Byte): Cardinal;
+  end;
+
+var
+  DataBase: TDataBaseSystem;
+
+implementation
+
+uses IniFiles, SysUtils;
+
+//--------------------
+//Create - Opens Database and Create Tables if not Exist
+//--------------------
+
+Procedure TDataBaseSystem.Init(const Filename: string);
+begin
+  //Open Database
+  ScoreDB := TSqliteDatabase.Create(Filename);
+  sFilename := Filename;
+
+  try
+  //Look for Tables => When not exist Create them
+  if not ScoreDB.TableExists('US_Scores') then
+    ScoreDB.execsql('CREATE TABLE `US_Scores` (`SongID` INT( 11 ) NOT NULL , `Difficulty` INT( 1 ) NOT NULL , `Player` VARCHAR( 150 ) NOT NULL , `Score` INT( 5 ) NOT NULL );');
+
+  if not ScoreDB.TableExists('US_Songs') then
+    ScoreDB.execsql('CREATE TABLE `US_Songs` (`ID` INTEGER PRIMARY KEY, `Artist` VARCHAR( 255 ) NOT NULL , `Title` VARCHAR( 255 ) NOT NULL , `TimesPlayed` int(5) NOT NULL );');
+   //Not possible because of String Limitation to 255 Chars //Need to rewrite Wrapper 
+  {if not ScoreDB.TableExists('US_SongCache') then
+    ScoreDB.ExecSQL('CREATE TABLE `US_SongCache` (`Path` VARCHAR( 255 ) NOT NULL , `Filename` VARCHAR( 255 ) NOT NULL , `Title` VARCHAR( 255 ) NOT NULL , `Artist` VARCHAR( 255 ) NOT NULL , `Folder` VARCHAR( 255 ) NOT NULL , `Genre` VARCHAR( 255 ) NOT NULL , `Edition` VARCHAR( 255 ) NOT NULL , `Language` VARCHAR( 255 ) NOT NULL , `Creator` VARCHAR( 255 ) NOT NULL , `Cover` VARCHAR( 255 ) NOT NULL , `Background` VARCHAR( 255 ) NOT NULL , `Video` VARCHAR( 255 ) NOT NULL , `VideoGap` FLOAT NOT NULL , `Gap` FLOAT NOT NULL , `Start` FLOAT NOT NULL , `Finish` INT( 11 ) NOT NULL , `BPM` INT( 5 ) NOT NULL , `Relative` BOOLEAN NOT NULL , `NotesGap` INT( 11 ) NOT NULL);');}
+
+
+  finally
+  //ScoreDB.Free;
+  end;
+
+end;
+
+//--------------------
+//Free - Frees Database
+//--------------------
+Destructor TDataBaseSystem.Free;
+begin
+  ScoreDB.Free;
+end;
+
+//--------------------
+//ReadScore - Read Scores into SongArray
+//--------------------
+procedure TDataBaseSystem.ReadScore(var Song: TSong);
+var
+  TableData: TSqliteTable;
+  Dif: Byte;
+begin
+  //ScoreDB := TSqliteDatabase.Create(sFilename);
+  try
+  try
+  //Search Song in DB
+  TableData := ScoreDB.GetTable('SELECT `Difficulty`, `Player`, `Score` FROM `us_scores` WHERE `SongID` = (SELECT `ID` FROM `us_songs` WHERE `Artist` = "' + Song.Artist + '" AND `Title` = "' + Song.Title + '" LIMIT 1) ORDER BY `Score` DESC  LIMIT 15');
+  //Empty Old Scores
+  SetLength (Song.Score[0], 0);
+  SetLength (Song.Score[1], 0);
+  SetLength (Song.Score[2], 0);
+
+  while not TableData.Eof do//Go through all Entrys
+  begin//Add one Entry to Array
+    Dif := StrtoInt(TableData.FieldAsString(TableData.FieldIndex['Difficulty']));
+    if (Dif>=0) AND (Dif<=2) then
+    begin
+      SetLength(Song.Score[Dif], Length(Song.Score[Dif]) + 1);
+
+      Song.Score[Dif, high(Song.Score[Dif])].Name := TableData.FieldAsString(TableData.FieldIndex['Player']);
+      Song.Score[Dif, high(Song.Score[Dif])].Score:= StrtoInt(TableData.FieldAsString(TableData.FieldIndex['Score']));
+    end;
+    TableData.Next;
+  end;
+
+  except //Im Fehlerfall
+  for Dif := 0 to 2 do
+  begin
+  SetLength(Song.Score[Dif], 1);
+  Song.Score[Dif, 1].Name := 'Error Reading ScoreDB';
+  end;
+  end;
+  finally
+  //ScoreDb.Free;
+  end;
+end;
+
+//--------------------
+//AddScore - Add one new Score to DB
+//--------------------
+procedure TDataBaseSystem.AddScore(var Song: TSong; Level: integer; Name: string; Score: integer);
+var
+ID: Integer;
+TableData: TSqliteTable;
+begin
+  //ScoreDB := TSqliteDatabase.Create(sFilename);
+  try
+  //Prevent 0 Scores from being added
+  if (Score > 0) then
+  begin
+
+    ID := ScoreDB.GetTableValue('SELECT `ID` FROM `US_Songs` WHERE `Artist` = "' + Song.Artist + '" AND `Title` = "' + Song.Title + '"');
+    if ID = 0 then //Song doesn't exist -> Create
+    begin
+      ScoreDB.ExecSQL ('INSERT INTO `US_Songs` ( `ID` , `Artist` , `Title` , `TimesPlayed` ) VALUES (NULL , "' + Song.Artist + '", "' + Song.Title + '", "0");');
+      ID := ScoreDB.GetTableValue('SELECT `ID` FROM `US_Songs` WHERE `Artist` = "' + Song.Artist + '" AND `Title` = "' + Song.Title + '"');
+      if ID = 0 then //Could not Create Table
+        exit;
+    end;
+    //Create new Entry
+    ScoreDB.ExecSQL('INSERT INTO `US_Scores` ( `SongID` , `Difficulty` , `Player` , `Score` ) VALUES ("' + InttoStr(ID) + '", "' + InttoStr(Level) + '", "' + Name + '", "' + InttoStr(Score) + '");');
+
+    //Delete Last Position when there are more than 5 Entrys
+    if ScoreDB.GetTableValue('SELECT COUNT(`SongID`) FROM `US_Scores` WHERE `SongID` = "' + InttoStr(ID) + '" AND `Difficulty` = "' + InttoStr(Level) +'"') > 5 then
+    begin
+      TableData := ScoreDB.GetTable('SELECT `Player`, `Score` FROM `US_Scores` WHERE SongID = "' + InttoStr(ID) + '" AND `Difficulty` = "' + InttoStr(Level) +'" ORDER BY `Score` ASC LIMIT 1');
+      ScoreDB.ExecSQL('DELETE FROM `US_Scores` WHERE SongID = "' + InttoStr(ID) + '" AND `Difficulty` = "' + InttoStr(Level) +'" AND `Player` = "' + TableData.FieldAsString(TableData.FieldIndex['Player']) + '" AND `Score` = "' + TableData.FieldAsString(TableData.FieldIndex['Score']) + '"');
+    end;
+
+  end;
+  finally
+  //ScoreDB.Free;
+  end;
+end;
+
+//--------------------
+//WriteScore - Not needed with new System; But used for Increment Played Count
+//--------------------
+procedure TDataBaseSystem.WriteScore(var Song: TSong);
+begin
+  try
+    //Increase TimesPlayed
+    ScoreDB.ExecSQL ('UPDATE `us_songs` SET `TimesPlayed` = `TimesPlayed` + "1" WHERE `Title` = "' + Song.Title + '" AND `Artist` = "' + Song.Artist + '";');
+  except
+
+  end;
+end;
+
+//--------------------
+//GetStats - Write some Stats to Array, Returns True if Chossen Page has Entrys
+//Case Typ of
+//0 - Best Scores
+//1 - Best Singers
+//2 - Most sung Songs
+//3 - Most popular Band
+//--------------------
+Function TDataBaseSystem.GetStats(var Stats: AStatResult; const Typ, Count: Byte; const Page: Cardinal; const Reversed: Boolean): Boolean;
+var
+  Query: String;
+  TableData: TSqliteTable;
+begin
+  Result := False;
+
+  if (Length(Stats) < Count) then
+    Exit;
+
+  {Todo:  Add Prevention that only Players with more than 5 Scores are Selected at Typ 2}
+
+  //Create Query
+  Case Typ of
+    0: Query := 'SELECT `Player` , `Difficulty` , `Score` , `Artist` , `Title` FROM `US_Scores` INNER JOIN `US_Songs` ON (`SongID` = `ID`) ORDER BY `Score`';
+    1: Query := 'SELECT `Player` , ROUND (Sum(`Score`) / COUNT(`Score`)) FROM `US_Scores` GROUP BY `Player` ORDER BY (Sum(`Score`) / COUNT(`Score`))';
+    2: Query := 'SELECT `Artist` , `Title` , `TimesPlayed` FROM `US_Songs` ORDER BY `TimesPlayed`';
+    3: Query := 'SELECT `Artist` , Sum(`TimesPlayed`) FROM `US_Songs` GROUP BY `Artist` ORDER BY Sum(`TimesPlayed`)';
+  end;
+
+  //Add Order Direction
+  If Reversed then
+    Query := Query + ' ASC'
+  else
+    Query := Query + ' DESC';
+
+  //Add Limit
+  Query := Query + ' LIMIT ' + InttoStr(Count * Page) + ', ' + InttoStr(Count) + ';';
+
+  //Execute Query
+  //try
+    TableData := ScoreDB.GetTable(Query);
+  {except
+    exit;
+  end;}
+
+  //if Result empty -> Exit
+  if (TableData.RowCount < 1) then
+    exit;
+
+  //Copy Result to Stats Array
+  while not TableData.Eof do
+  begin
+    Stats[TableData.Row].Typ := Typ;
+
+    Case Typ of
+      0:begin
+          Stats[TableData.Row].Singer := TableData.Fields[0];
+
+          Stats[TableData.Row].Difficulty := StrtoIntDef(TableData.Fields[1], 0);
+
+          Stats[TableData.Row].Score := StrtoIntDef(TableData.Fields[2], 0){TableData.FieldAsInteger(2)};
+          Stats[TableData.Row].SongArtist := TableData.Fields[3];
+          Stats[TableData.Row].SongTitle := TableData.Fields[4];
+        end;
+
+        1:begin
+          Stats[TableData.Row].Player := TableData.Fields[0];
+          Stats[TableData.Row].AverageScore := StrtoIntDef(TableData.Fields[1], 0);
+        end;
+
+        2:begin
+          Stats[TableData.Row].Artist := TableData.Fields[0];
+          Stats[TableData.Row].Title  := TableData.Fields[1];
+          Stats[TableData.Row].TimesSung  := StrtoIntDef(TableData.Fields[2], 0);
+        end;
+
+        3:begin
+          Stats[TableData.Row].ArtistName := TableData.Fields[0];
+          Stats[TableData.Row].TimesSungtot := StrtoIntDef(TableData.Fields[1], 0);
+        end;
+
+    end;
+
+    TableData.Next;
+  end;
+
+  Result := True;
+end;
+
+//--------------------
+//GetTotalEntrys - Get Total Num of entrys for a Stats Query
+//--------------------
+Function  TDataBaseSystem.GetTotalEntrys(const Typ: Byte): Cardinal;
+var Query: String;
+begin
+  //Create Query
+  Case Typ of
+    0: Query := 'SELECT COUNT(`SongID`) FROM `US_Scores`;';
+    1: Query := 'SELECT COUNT(DISTINCT `Player`) FROM `US_Scores`;';
+    2: Query := 'SELECT COUNT(`ID`) FROM `US_Songs`;';
+    3: Query := 'SELECT COUNT(DISTINCT `Artist`) FROM `US_Songs`;';
+  end;
+
+  Result := ScoreDB.GetTableValue(Query);
+end;
+
+end.
diff --git a/Game/Code/Classes/UDraw.pas b/Game/Code/Classes/UDraw.pas
index a28f1efc..ef1f2709 100644
--- a/Game/Code/Classes/UDraw.pas
+++ b/Game/Code/Classes/UDraw.pas
@@ -1,1562 +1,1583 @@
-unit UDraw;

-

-interface

-

-{$IFDEF FPC}

-  {$MODE DELPHI}

-{$ENDIF}

-

-uses UThemes,

-     ModiSDK,

-     UGraphicClasses;

-

-procedure SingDraw;

-procedure SingModiDraw (PlayerInfo: TPlayerInfo);

-procedure SingDrawBackground;

-procedure SingDrawOscilloscope(X, Y, W, H: real; NrSound: integer);

-procedure SingDrawNoteLines(Left, Top, Right: real; Space: integer);

-procedure SingDrawBeatDelimeters(Left, Top, Right: real; NrCzesci: integer);

-procedure SingDrawCzesc(Left, Top, Right: real; NrCzesci: integer; Space: integer);

-procedure SingDrawPlayerCzesc(X, Y, W: real; NrGracza: integer; Space: integer);

-procedure SingDrawPlayerBGCzesc(Left, Top, Right: real; NrCzesci, NrGracza: integer; Space: integer);

-

-// TimeBar 

-procedure SingDrawTimeBar();

-

-// The Singbar

-procedure SingDrawSingbar(X, Y, W, H: real; Percent: integer);

-

-//Phrasen Bonus - Line Bonus

-procedure SingDrawLineBonus( const X, Y: Single; Color: TRGB; Alpha: Single; Text: string; Age: Integer);

-

-//Draw Editor NoteLines

-procedure EditDrawCzesc(Left, Top, Right: real; NrCzesci: integer; Space: integer);

-

-

-type

-  TRecR = record

-    Top:    real;

-    Left:   real;

-    Right:  real;

-    Bottom: real;

-

-    Width:  real;

-    WMid:   real;

-    Height: real;

-    HMid:   real;

-

-    Mid:    real;

-  end;

-

-var

-  NotesW:   real;

-  NotesH:   real;

-  Starfr:   integer;

-  StarfrG:   integer;

-

-  //SingBar

-  TickOld: cardinal;

-  TickOld2:cardinal;

-

-const

-  Przedz = 32;

-

-implementation

-

-uses Windows, OpenGL12, UGraphic, SysUtils, UMusic, URecord, ULog, UScreenSing, UScreenSingModi, ULyrics, UMain, TextGL, UTexture, UDrawTexture, UIni, Math, UDLLManager;

-

-procedure SingDrawBackground;

-var

-  Rec:      TRecR;

-  TexRec:   TRecR;

-begin

-  if ScreenSing.Tex_Background.TexNum >= 1 then begin

-

-  glClearColor (1, 1, 1, 1);

-  glColor4f (1, 1, 1, 1);

-

-    if (Ini.MovieSize <= 1) then  //HalfSize BG

-    begin

-      (* half screen + gradient *)

-      Rec.Top := 110; // 80

-      Rec.Bottom := Rec.Top + 20;

-      Rec.Left := 0;

-      Rec.Right := 800;

-

-      TexRec.Top := (Rec.Top / 600) * ScreenSing.Tex_Background.TexH;

-      TexRec.Bottom := (Rec.Bottom / 600) * ScreenSing.Tex_Background.TexH;

-      TexRec.Left := 0;

-      TexRec.Right := ScreenSing.Tex_Background.TexW;

-

-      glEnable(GL_TEXTURE_2D);

-      glBindTexture(GL_TEXTURE_2D, ScreenSing.Tex_Background.TexNum);

-      glEnable(GL_BLEND);

-      glBegin(GL_QUADS);

-        (* gradient draw *)

-        (* top *)

-        glColor4f(1, 1, 1, 0);

-        glTexCoord2f(TexRec.Right, TexRec.Top);    glVertex2f(Rec.Right, Rec.Top);

-        glTexCoord2f(TexRec.Left,  TexRec.Top);    glVertex2f(Rec.Left,  Rec.Top);

-        glColor4f(1, 1, 1, 1);

-        glTexCoord2f(TexRec.Left,  TexRec.Bottom); glVertex2f(Rec.Left,  Rec.Bottom);

-        glTexCoord2f(TexRec.Right, TexRec.Bottom); glVertex2f(Rec.Right, Rec.Bottom);

-        (* mid *)

-        Rec.Top := Rec.Bottom;

-        Rec.Bottom := 490 - 20; // 490 - 20

-        TexRec.Top := TexRec.Bottom;

-        TexRec.Bottom := (Rec.Bottom / 600) * ScreenSing.Tex_Background.TexH;

-        glTexCoord2f(TexRec.Left,  TexRec.Top);    glVertex2f(Rec.Left,  Rec.Top);

-        glTexCoord2f(TexRec.Left,  TexRec.Bottom); glVertex2f(Rec.Left,  Rec.Bottom);

-        glTexCoord2f(TexRec.Right, TexRec.Bottom); glVertex2f(Rec.Right, Rec.Bottom);

-        glTexCoord2f(TexRec.Right, TexRec.Top);    glVertex2f(Rec.Right, Rec.Top);

-        (* bottom *)

-        Rec.Top := Rec.Bottom;

-        Rec.Bottom := 490; // 490

-        TexRec.Top := TexRec.Bottom;

-        TexRec.Bottom := (Rec.Bottom / 600) * ScreenSing.Tex_Background.TexH;

-        glTexCoord2f(TexRec.Right, TexRec.Top);    glVertex2f(Rec.Right, Rec.Top);

-        glTexCoord2f(TexRec.Left,  TexRec.Top);    glVertex2f(Rec.Left,  Rec.Top);

-        glColor4f(1, 1, 1, 0);

-        glTexCoord2f(TexRec.Left,  TexRec.Bottom); glVertex2f(Rec.Left,  Rec.Bottom);

-        glTexCoord2f(TexRec.Right, TexRec.Bottom); glVertex2f(Rec.Right, Rec.Bottom);

-

-      glEnd;

-      glDisable(GL_TEXTURE_2D);

-      glDisable(GL_BLEND);

-    end

-    else //Full Size BG

-    begin

-      glEnable(GL_TEXTURE_2D);

-      glBindTexture(GL_TEXTURE_2D, ScreenSing.Tex_Background.TexNum);

-      //glEnable(GL_BLEND);

-      glBegin(GL_QUADS);

-

-        glTexCoord2f(0, 0);   glVertex2f(0,  0);

-        glTexCoord2f(0,  ScreenSing.Tex_Background.TexH);   glVertex2f(0,  600);

-        glTexCoord2f( ScreenSing.Tex_Background.TexW,  ScreenSing.Tex_Background.TexH);   glVertex2f(800, 600);

-        glTexCoord2f( ScreenSing.Tex_Background.TexW, 0);   glVertex2f(800, 0);

-

-      glEnd;

-      glDisable(GL_TEXTURE_2D);

-      //glDisable(GL_BLEND);

-    end;

-  end;

-end;

-

-procedure SingDrawOscilloscope(X, Y, W, H: real; NrSound: integer);

-var

-  Pet:    integer;

-begin;

-//  Log.LogStatus('Oscilloscope', 'SingDraw');

-  glColor3f(Skin_OscR, Skin_OscG, Skin_OscB);

-  {if (ParamStr(1) = '-black') or (ParamStr(1) = '-fsblack') then

-    glColor3f(1, 1, 1);  }

-

-  glBegin(GL_LINE_STRIP);

-    glVertex2f(X, -Sound[NrSound].BufferArray[1] / $10000 * H + Y + H/2);

-    for Pet := 2 to Sound[NrSound].n div 1 do begin

-      glVertex2f(X + (Pet-1) * W / (Sound[NrSound].n - 1),

-      -Sound[NrSound].BufferArray[Pet] / $10000 * H + Y + H/2);

-    end;

-  glEnd;

-end;

-

-procedure SingDrawNoteLines(Left, Top, Right: real; Space: integer);

-var

-  Pet:    integer;

-begin

-  glEnable(GL_BLEND);

-  glColor4f(Skin_P1_LinesR, Skin_P1_LinesG, Skin_P1_LinesB, 0.4);

-  glBegin(GL_LINES);

-  for Pet := 0 to 9 do begin

-    glVertex2f(Left,  Top + Pet * Space);

-    glVertex2f(Right, Top + Pet * Space);

-  end;

-  glEnd;

-  glDisable(GL_BLEND);

-end;

-

-procedure SingDrawBeatDelimeters(Left, Top, Right: real; NrCzesci: integer);

-var

-  Pet:    integer;

-  TempR:  real;

-begin

-  TempR := (Right-Left) / (Czesci[NrCzesci].Czesc[Czesci[NrCzesci].Akt].Koniec - Czesci[NrCzesci].Czesc[Czesci[NrCzesci].Akt].StartNote);

-  glEnable(GL_BLEND);

-  glBegin(GL_LINES);

-  for Pet := Czesci[NrCzesci].Czesc[Czesci[NrCzesci].Akt].StartNote to Czesci[NrCzesci].Czesc[Czesci[NrCzesci].Akt].Koniec do begin

-    if (Pet mod Czesci[NrCzesci].Resolution) = Czesci[NrCzesci].NotesGAP then

-      glColor4f(0, 0, 0, 1)

-    else

-      glColor4f(0, 0, 0, 0.3);

-    glVertex2f(Left + TempR * (Pet - Czesci[NrCzesci].Czesc[Czesci[NrCzesci].Akt].StartNote), Top);

-    glVertex2f(Left + TempR * (Pet - Czesci[NrCzesci].Czesc[Czesci[NrCzesci].Akt].StartNote), Top + 135);

-  end;

-  glEnd;

-  glDisable(GL_BLEND);

-end;

-

-// draw blank Notebars

-procedure SingDrawCzesc(Left, Top, Right: real; NrCzesci: integer; Space: integer);

-var

-  Rec:      TRecR;

-  Pet:      integer;

-  TempR:    real;

-  R,G,B:    real;

-

-  PlayerNumber: Integer;

-

-  GoldenStarPos : real;

-begin

-// We actually don't have a playernumber in this procedure, it should reside in NrCzesci - but it's always set to zero

-// So we exploit this behavior a bit - we give NrCzesci the playernumber, keep it in playernumber - and then we set NrCzesci to zero

-// This could also come quite in handy when we do the duet mode, cause just the notes for the player that has to sing should be drawn then

-// BUT this is not implemented yet, all notes are drawn! :D

-

-  PlayerNumber := NrCzesci + 1; // Player 1 is 0

-  NrCzesci     := 0;

-

-// exploit done

-

-  glColor3f(1, 1, 1);

-  glEnable(GL_TEXTURE_2D);

-  glEnable(GL_BLEND);

-  glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);

-  TempR := (Right-Left) / (Czesci[NrCzesci].Czesc[Czesci[NrCzesci].Akt].Koniec - Czesci[NrCzesci].Czesc[Czesci[NrCzesci].Akt].StartNote);

-  with Czesci[NrCzesci].Czesc[Czesci[NrCzesci].Akt] do begin

-    for Pet := 0 to HighNut do begin

-      with Nuta[Pet] do begin

-        if not FreeStyle then begin

-

-

-          if Ini.EffectSing = 0 then

-          // If Golden note Effect of then Change not Color

-          begin

-            case Wartosc of

-              1: glColor4f(1, 1, 1, 1);   // We set alpha to 1, cause we can control the transparency through the png itself

-              2: glColor4f(1, 1, 0.3, 1); // no stars, paint yellow -> glColor4f(1, 1, 0.3, 0.85); - we could

-            end; // case

-          end //Else all Notes same Color

-          else

-            glColor4f(1, 1, 1, 1);        // We set alpha to 1, cause we can control the transparency through the png itself

-                                          // Czesci == teil, element == piece, element | koniec == ende, schluss

-          // lewa czesc  -  left part

-          Rec.Left := (Start-Czesci[NrCzesci].Czesc[Czesci[NrCzesci].Akt].StartNote) * TempR + Left + 0.5 + 10*ScreenX;

-          Rec.Right := Rec.Left + NotesW;

-          Rec.Top := Top - (Ton-BaseNote)*Space/2 - NotesH;

-          Rec.Bottom := Rec.Top + 2 * NotesH;

-          glBindTexture(GL_TEXTURE_2D, Tex_plain_Left[PlayerNumber].TexNum);

-          glBegin(GL_QUADS);

-            glTexCoord2f(0, 0); glVertex2f(Rec.Left,  Rec.Top);

-            glTexCoord2f(0, 1); glVertex2f(Rec.Left,  Rec.Bottom);

-            glTexCoord2f(1, 1); glVertex2f(Rec.Right, Rec.Bottom);

-            glTexCoord2f(1, 0); glVertex2f(Rec.Right, Rec.Top);

-          glEnd;

-

-          //We keep the postion of the top left corner b4 it's overwritten

-            GoldenStarPos := Rec.Left;

-          //done

-

-         // srodkowa czesc  -  middle part

-        Rec.Left := Rec.Right;

-        Rec.Right := (Start+Dlugosc-Czesci[NrCzesci].Czesc[Czesci[NrCzesci].Akt].StartNote) * TempR + Left - NotesW - 0.5 + 10*ScreenX;    // Dlugosc == länge

-

-        glBindTexture(GL_TEXTURE_2D, Tex_plain_Mid[PlayerNumber].TexNum);

-        glTexParameterf( GL_TEXTURE_2D, GL_TEXTURE_WRAP_S, GL_REPEAT );

-        glTexParameterf( GL_TEXTURE_2D, GL_TEXTURE_WRAP_T, GL_REPEAT );

-        glBegin(GL_QUADS);

-          glTexCoord2f(0, 0); glVertex2f(Rec.Left,  Rec.Top);

-          glTexCoord2f(0, 1); glVertex2f(Rec.Left,  Rec.Bottom);

-          glTexCoord2f(round((Rec.Right-Rec.Left)/32), 1); glVertex2f(Rec.Right, Rec.Bottom);

-          glTexCoord2f(round((Rec.Right-Rec.Left)/32), 0); glVertex2f(Rec.Right, Rec.Top);

-        glEnd;

-

-        // prawa czesc  -  right part

-        Rec.Left := Rec.Right;

-        Rec.Right := Rec.Right + NotesW;

-

-        glBindTexture(GL_TEXTURE_2D, Tex_plain_Right[PlayerNumber].TexNum);

-        glBegin(GL_QUADS);

-          glTexCoord2f(0, 0); glVertex2f(Rec.Left,  Rec.Top);

-          glTexCoord2f(0, 1); glVertex2f(Rec.Left,  Rec.Bottom);

-          glTexCoord2f(1, 1); glVertex2f(Rec.Right, Rec.Bottom);

-          glTexCoord2f(1, 0); glVertex2f(Rec.Right, Rec.Top);

-        glEnd;

-

-          // Golden Star Patch

-          if (Wartosc = 2) AND (Ini.EffectSing=1) then

-          begin

-            GoldenRec.SaveGoldenStarsRec(GoldenStarPos, Rec.Top, Rec.Right, Rec.Bottom);

-          end;

-

-        end; // if not FreeStyle

-      end; // with

-    end; // for

-  end; // with

-

-  glDisable(GL_BLEND);

-  glDisable(GL_TEXTURE_2D);

-end;

-

-

-// draw sung notes

-procedure SingDrawPlayerCzesc(X, Y, W: real; NrGracza: integer; Space: integer);

-var

-  TempR:    real;

-  Rec:      TRecR;

-  N:        integer;

-  R:        real;

-  G:        real;

-  B:        real;

-  A:        real;

-  NotesH2:  real;

-  begin

-//  Log.LogStatus('Player notes', 'SingDraw');

-

-//  if NrGracza = 0 then LoadColor(R, G, B, 'P1Light')

-//  else LoadColor(R, G, B, 'P2Light');

-

-//  R := 71/255;

-//  G := 175/255;

-//  B := 247/255;

-

-  glColor3f(1, 1, 1);

-  glEnable(GL_TEXTURE_2D);

-  glEnable(GL_BLEND);

-  glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);

-

-  if Player[NrGracza].IlNut > 0 then

-    begin

-      TempR := W / (Czesci[0].Czesc[Czesci[0].Akt].Koniec - Czesci[0].Czesc[Czesci[0].Akt].StartNote);

-        for N := 0 to Player[NrGracza].HighNut do

-          begin

-            with Player[NrGracza].Nuta[N] do

-              begin

-                // Left part of note

-                Rec.Left := X + (Start-Czesci[0].Czesc[Czesci[0].Akt].StartNote) * TempR + 0.5 + 10*ScreenX;

-                Rec.Right := Rec.Left + NotesW;

-

-                // Draw it in half size, if not hit

-               if Hit then

-                 begin

-                   NotesH2 := NotesH

-                 end

-               else

-                 begin

-                   NotesH2 := int(NotesH * 0.65);

-                 end;

-

-                Rec.Top    := Y - (Ton-Czesci[0].Czesc[Czesci[0].Akt].BaseNote)*Space/2 - NotesH2;

-                Rec.Bottom := Rec.Top + 2 *NotesH2;

-

-                // draw the left part

-                glColor3f(1, 1, 1);

-                glBindTexture(GL_TEXTURE_2D, Tex_Left[NrGracza+1].TexNum);

-                glBegin(GL_QUADS);

-                  glTexCoord2f(0, 0); glVertex2f(Rec.Left,  Rec.Top);

-                  glTexCoord2f(0, 1); glVertex2f(Rec.Left,  Rec.Bottom);

-                  glTexCoord2f(1, 1); glVertex2f(Rec.Right, Rec.Bottom);

-                  glTexCoord2f(1, 0); glVertex2f(Rec.Right, Rec.Top);

-                glEnd;

-

-               // Middle part of the note

-               Rec.Left := Rec.Right;

-               Rec.Right := X + (Start+Dlugosc-Czesci[0].Czesc[Czesci[0].Akt].StartNote) * TempR - NotesW - 0.5  + 10*ScreenX;

-

-               // (nowe) - dunno

-               if (Start+Dlugosc-1 = Czas.AktBeatD) then

-                 Rec.Right := Rec.Right - (1-Frac(Czas.MidBeatD)) * TempR;

-               // the left note is more right than the right note itself, sounds weird - so we fix that xD

-               if Rec.Right <= Rec.Left then Rec.Right := Rec.Left;

-

-               // draw the middle part

-               glBindTexture(GL_TEXTURE_2D, Tex_Mid[NrGracza+1].TexNum);

-               glTexParameterf( GL_TEXTURE_2D, GL_TEXTURE_WRAP_S, GL_REPEAT );

-               glTexParameterf( GL_TEXTURE_2D, GL_TEXTURE_WRAP_T, GL_REPEAT );

-               glBegin(GL_QUADS);

-                 glTexCoord2f(0, 0); glVertex2f(Rec.Left,  Rec.Top);

-                 glTexCoord2f(0, 1); glVertex2f(Rec.Left,  Rec.Bottom);

-                 glTexCoord2f(round((Rec.Right-Rec.Left)/32), 1); glVertex2f(Rec.Right, Rec.Bottom);

-                 glTexCoord2f(round((Rec.Right-Rec.Left)/32), 0); glVertex2f(Rec.Right, Rec.Top);

-               glEnd;

-               glColor3f(1, 1, 1);

-

-               // the right part of the note

-               Rec.Left := Rec.Right;

-               Rec.Right := Rec.Right + NotesW;

-

-               glBindTexture(GL_TEXTURE_2D, Tex_Right[NrGracza+1].TexNum);

-               glBegin(GL_QUADS);

-                 glTexCoord2f(0, 0); glVertex2f(Rec.Left,  Rec.Top);

-                 glTexCoord2f(0, 1); glVertex2f(Rec.Left,  Rec.Bottom);

-                 glTexCoord2f(1, 1); glVertex2f(Rec.Right, Rec.Bottom);

-                 glTexCoord2f(1, 0); glVertex2f(Rec.Right, Rec.Top);

-               glEnd;

-

-            // Perfect note is stored

-            if Perfect and (Ini.EffectSing=1) then

-              begin

-                A := 1 - 2*(Czas.Teraz - GetTimeFromBeat(Start+Dlugosc));

-                  if not (Start+Dlugosc-1 = Czas.AktBeatD) then

-

-                  //Star animation counter

-                  //inc(Starfr);

-                  //Starfr := Starfr mod 128;

-                  GoldenRec.SavePerfectNotePos(Rec.Left, Rec.Top);

-              end;

-            end; // with

-        end; // for

-    // eigentlich brauchen wir hier einen vergleich, um festzustellen, ob wir mit

-    // singen schon weiter wären, als bei Rec.Right, _auch, wenn nicht gesungen wird_

-

-    // passing on NrGracza... hope this is really something like the player-number, not only

-    // some kind of weird index into a colour-table

-

-        if (Ini.EffectSing=1) then

-          GoldenRec.GoldenNoteTwinkle(Rec.Top,Rec.Bottom,Rec.Right, NrGracza);

-  end; // if

-end;

-

-//draw Note glow

-procedure SingDrawPlayerBGCzesc(Left, Top, Right: real; NrCzesci, NrGracza: integer; Space: integer);

-var

-  Rec:      TRecR;

-  Pet:      integer;

-  TempR:    real;

-  R,G,B:    real;

-  X1, X2, X3, X4: real;

-  W, H:     real;

-begin

-  if (Player[NrGracza].ScoreTotalI >= 0) then begin

-  glColor4f(1, 1, 1, sqrt((1+sin(Music.Position * 3))/4)/ 2 + 0.5 );

-  glEnable(GL_TEXTURE_2D);

-  glEnable(GL_BLEND);

-  glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);

-  TempR := (Right-Left) / (Czesci[NrCzesci].Czesc[Czesci[NrCzesci].Akt].Koniec - Czesci[NrCzesci].Czesc[Czesci[NrCzesci].Akt].StartNote);

-  with Czesci[NrCzesci].Czesc[Czesci[NrCzesci].Akt] do begin

-    for Pet := 0 to HighNut do begin

-      with Nuta[Pet] do begin

-        if not FreeStyle then begin

-          // begin: 14, 20

-          // easy: 6, 11

-          W := NotesW * 2 + 2;

-          H := NotesH * 1.5 + 3.5;

-

-          X2 := (Start-Czesci[NrCzesci].Czesc[Czesci[NrCzesci].Akt].StartNote) * TempR + Left + 0.5 + 10*ScreenX + 4; // wciecie

-          X1 := X2-W;

-

-          X3 := (Start+Dlugosc-Czesci[NrCzesci].Czesc[Czesci[NrCzesci].Akt].StartNote) * TempR + Left - 0.5 + 10*ScreenX - 4; // wciecie

-          X4 := X3+W;

-

-          // left

-          Rec.Left := X1;

-          Rec.Right := X2;

-          Rec.Top := Top - (Ton-BaseNote)*Space/2 - H;

-          Rec.Bottom := Rec.Top + 2 * H;

-

-          glBindTexture(GL_TEXTURE_2D, Tex_BG_Left[NrGracza+1].TexNum);

-          glBegin(GL_QUADS);

-            glTexCoord2f(0, 0); glVertex2f(Rec.Left,  Rec.Top);

-            glTexCoord2f(0, 1); glVertex2f(Rec.Left,  Rec.Bottom);

-            glTexCoord2f(1, 1); glVertex2f(Rec.Right, Rec.Bottom);

-            glTexCoord2f(1, 0); glVertex2f(Rec.Right, Rec.Top);

-          glEnd;

-

-

-        // srodkowa czesc

-        Rec.Left := X2;

-        Rec.Right := X3;

-

-        glBindTexture(GL_TEXTURE_2D, Tex_BG_Mid[NrGracza+1].TexNum);

-        glBegin(GL_QUADS);

-          glTexCoord2f(0, 0); glVertex2f(Rec.Left,  Rec.Top);

-          glTexCoord2f(0, 1); glVertex2f(Rec.Left,  Rec.Bottom);

-          glTexCoord2f(1, 1); glVertex2f(Rec.Right, Rec.Bottom);

-          glTexCoord2f(1, 0); glVertex2f(Rec.Right, Rec.Top);

-        glEnd;

-

-        // prawa czesc

-        Rec.Left := X3;

-        Rec.Right := X4;

-

-        glBindTexture(GL_TEXTURE_2D, Tex_BG_Right[NrGracza+1].TexNum);

-        glBegin(GL_QUADS);

-          glTexCoord2f(0, 0); glVertex2f(Rec.Left,  Rec.Top);

-          glTexCoord2f(0, 1); glVertex2f(Rec.Left,  Rec.Bottom);

-          glTexCoord2f(1, 1); glVertex2f(Rec.Right, Rec.Bottom);

-          glTexCoord2f(1, 0); glVertex2f(Rec.Right, Rec.Top);

-        glEnd;

-        end; // if not FreeStyle

-      end; // with

-    end; // for

-  end; // with

-

-  glDisable(GL_BLEND);

-  glDisable(GL_TEXTURE_2D);

-  end;

-end;

-

-procedure SingDraw;

-var

-  Pet:      integer;

-  Pet2:     integer;

-  TempR:    real;

-  Rec:      TRecR;

-  TexRec:   TRecR;

-  NR:       TRecR;

-  FS:       real;

-  BarFrom:  integer;

-  BarAlpha: real;

-  BarWspol: real;

-  TempCol:  real;

-  Tekst:    string;

-  LyricTemp:  string;

-  PetCz:    integer;

-

-  //SingBar Mod

-  A: Integer;

-  E: Integer;

-  I: Integer;

-  //end Singbar Mod

-

-begin

-  // positions

-  if Ini.SingWindow = 0 then begin

-    NR.Left := 120;

-  end else begin

-    NR.Left := 20;

-  end;

-  NR.Right := 780;

-

-  NR.Width := NR.Right - NR.Left;

-  NR.WMid := NR.Width / 2;

-  NR.Mid := NR.Left + NR.WMid;

-

-  // background  //BG Fullsize Mod

-  //SingDrawBackground;

-

-  //TimeBar mod

-  SingDrawTimeBar();

-  //eoa TimeBar mod

-

-  // rysuje paski pod nutami

-  if PlayersPlay = 1 then

-    SingDrawNoteLines(Nr.Left + 10*ScreenX, Skin_P2_NotesB - 105, Nr.Right + 10*ScreenX, 15);

-  if (PlayersPlay = 2) or (PlayersPlay = 4) then begin

-    SingDrawNoteLines(Nr.Left + 10*ScreenX, Skin_P1_NotesB - 105, Nr.Right + 10*ScreenX, 15);

-    SingDrawNoteLines(Nr.Left + 10*ScreenX, Skin_P2_NotesB - 105, Nr.Right + 10*ScreenX, 15);

-  end;

-

-  if (PlayersPlay = 3) or (PlayersPlay = 6) then begin

-    SingDrawNoteLines(Nr.Left + 10*ScreenX, 120, Nr.Right + 10*ScreenX, 12);

-    SingDrawNoteLines(Nr.Left + 10*ScreenX, 245, Nr.Right + 10*ScreenX, 12);

-    SingDrawNoteLines(Nr.Left + 10*ScreenX, 370, Nr.Right + 10*ScreenX, 12);

-  end;

-

-  // rysuje tekst - new Lyric engine

-  ScreenSing.LyricMain.Draw;

-  ScreenSing.LyricSub.Draw;

-

-  // rysuje pasek, podpowiadajacy poczatek spiwania w scenie

-  FS := 1.3;

-  BarFrom := Czesci[0].Czesc[Czesci[0].Akt].StartNote - Czesci[0].Czesc[Czesci[0].Akt].Start;

-  if BarFrom > 40 then BarFrom := 40;

-  if (Czesci[0].Czesc[Czesci[0].Akt].StartNote - Czesci[0].Czesc[Czesci[0].Akt].Start > 8) and  // dluga przerwa //16->12 for more help bars and then 12->8 for even more

-    (Czesci[0].Czesc[Czesci[0].Akt].StartNote - Czas.MidBeat > 0) and                     // przed tekstem

-    (Czesci[0].Czesc[Czesci[0].Akt].StartNote - Czas.MidBeat < 40) then begin            // ale nie za wczesnie

-    BarWspol := (Czas.MidBeat - (Czesci[0].Czesc[Czesci[0].Akt].StartNote - BarFrom)) / BarFrom;

-    Rec.Left := NR.Left + BarWspol *

-//      (NR.WMid - Czesci[0].Czesc[Czesci[0].Akt].LyricWidth / 2 * FS - 50);

-      (ScreenSing.LyricMain.ClientX - NR.Left - 50) + 10*ScreenX;

-    Rec.Right := Rec.Left + 50;

-    Rec.Top := Skin_LyricsT + 3;

-    Rec.Bottom := Rec.Top + 33;//SingScreen.LyricMain.Size * 3;

-{    // zapalanie

-    BarAlpha := (BarWspol*10) * 0.5;

-    if BarAlpha > 0.5 then BarAlpha := 0.5;

-

-    // gaszenie

-    if BarWspol > 0.95 then BarAlpha := 0.5 * (1 - (BarWspol - 0.95) * 20);}

-

-    //Change fuer Crazy Joker

-

-  glEnable(GL_TEXTURE_2D);

-  glEnable(GL_BLEND);

-  glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);

-  glBindTexture(GL_TEXTURE_2D, Tex_Lyric_Help_Bar.TexNum);

-  glBegin(GL_QUADS);

-    glColor4f(1, 1, 1, 0);

-    glTexCoord2f(0, 0); glVertex2f(Rec.Left, Rec.Top);

-    glTexCoord2f(0, 1); glVertex2f(Rec.Left, Rec.Bottom);

-    glColor4f(1, 1, 1, 0.5);

-    glTexCoord2f(1, 1); glVertex2f(Rec.Right, Rec.Bottom);

-    glTexCoord2f(1, 0); glVertex2f(Rec.Right, Rec.Top);

-    glEnd;

-    glDisable(GL_BLEND);

-

-   end;

-

-  // oscilloscope

-  if Ini.Oscilloscope = 1 then begin

-    if PlayersPlay = 1 then

-      SingDrawOscilloscope(190 + 10*ScreenX, 55, 180, 40, 0);

-

-    if PlayersPlay = 2 then begin

-      SingDrawOscilloscope(190 + 10*ScreenX, 55, 180, 40, 0);

-      SingDrawOscilloscope(425 + 10*ScreenX, 55, 180, 40, 1);

-    end;

-

-    if PlayersPlay = 4 then begin

-      if ScreenAct = 1 then begin

-        SingDrawOscilloscope(190 + 10*ScreenX, 55, 180, 40, 0);

-        SingDrawOscilloscope(425 + 10*ScreenX, 55, 180, 40, 1);

-      end;

-      if ScreenAct = 2 then begin

-        SingDrawOscilloscope(190 + 10*ScreenX, 55, 180, 40, 2);

-        SingDrawOscilloscope(425 + 10*ScreenX, 55, 180, 40, 3);

-      end;

-    end;

-

-    if PlayersPlay = 3 then begin

-      SingDrawOscilloscope(75 + 10*ScreenX, 95, 100, 20, 0);

-      SingDrawOscilloscope(370 + 10*ScreenX, 95, 100, 20, 1);

-      SingDrawOscilloscope(670 + 10*ScreenX, 95, 100, 20, 2);

-    end;

-

-    if PlayersPlay = 6 then begin

-      if ScreenAct = 1 then begin

-        SingDrawOscilloscope( 75 + 10*ScreenX, 95, 100, 20, 0);

-        SingDrawOscilloscope(370 + 10*ScreenX, 95, 100, 20, 1);

-        SingDrawOscilloscope(670 + 10*ScreenX, 95, 100, 20, 2);

-      end;

-      if ScreenAct = 2 then begin

-        SingDrawOscilloscope( 75 + 10*ScreenX, 95, 100, 20, 3);

-        SingDrawOscilloscope(370 + 10*ScreenX, 95, 100, 20, 4);

-        SingDrawOscilloscope(670 + 10*ScreenX, 95, 100, 20, 5);

-      end;

-    end;

-

-  end

-

-  //SingBar Mod

-  //modded again to make it moveable: it's working, so why try harder

-  else if Ini.Oscilloscope = 2 then begin

-    A := GetTickCount div 33;

-    if A <> Tickold then begin

-      Tickold := A;

-      for E := 0 to (PlayersPlay - 1) do begin //Set new Pos + Alpha

-        I := Player[E].ScorePercentTarget - Player[E].ScorePercent;

-        if I > 0 then Inc(Player[E].ScorePercent)

-        else if I < 0 then Dec(Player[E].ScorePercent);

-      end; //for

-    end; //if

-

-    if PlayersPlay = 1 then begin

-      SingDrawSingbar(Theme.Sing.StaticP1SingBar.x, Theme.Sing.StaticP1SingBar.y, Theme.Sing.StaticP1SingBar.w, Theme.Sing.StaticP1SingBar.h , Player[0].ScorePercent);

-    end;

-

-    if PlayersPlay = 2 then begin

-      SingDrawSingbar(Theme.Sing.StaticP1TwoPSingBar.x, Theme.Sing.StaticP1TwoPSingBar.y, Theme.Sing.StaticP1TwoPSingBar.w, Theme.Sing.StaticP1TwoPSingBar.h , Player[0].ScorePercent);

-      SingDrawSingbar(Theme.Sing.StaticP2RSingBar.x, Theme.Sing.StaticP2RSingBar.y, Theme.Sing.StaticP2RSingBar.w, Theme.Sing.StaticP2RSingBar.h , Player[1].ScorePercent);

-    end;

-

-    if PlayersPlay = 3 then begin

-      SingDrawSingbar(Theme.Sing.StaticP1ThreePSingBar.x, Theme.Sing.StaticP1ThreePSingBar.y, Theme.Sing.StaticP1ThreePSingBar.w, Theme.Sing.StaticP1ThreePSingBar.h , Player[0].ScorePercent);

-      SingDrawSingbar(Theme.Sing.StaticP2MSingBar.x, Theme.Sing.StaticP2MSingBar.y, Theme.Sing.StaticP2MSingBar.w, Theme.Sing.StaticP2MSingBar.h , Player[1].ScorePercent);

-      SingDrawSingbar(Theme.Sing.StaticP3SingBar.x, Theme.Sing.StaticP3SingBar.y, Theme.Sing.StaticP3SingBar.w, Theme.Sing.StaticP3SingBar.h , Player[2].ScorePercent);

-    end;

-

-    if PlayersPlay = 4 then begin

-      if ScreenAct = 1 then begin

-        SingDrawSingbar(Theme.Sing.StaticP1TwoPSingBar.x, Theme.Sing.StaticP1TwoPSingBar.y, Theme.Sing.StaticP1TwoPSingBar.w, Theme.Sing.StaticP1TwoPSingBar.h , Player[0].ScorePercent);

-        SingDrawSingbar(Theme.Sing.StaticP2RSingBar.x, Theme.Sing.StaticP2RSingBar.y, Theme.Sing.StaticP2RSingBar.w, Theme.Sing.StaticP2RSingBar.h , Player[1].ScorePercent);

-      end;

-      if ScreenAct = 2 then begin

-        SingDrawSingbar(Theme.Sing.StaticP1TwoPSingBar.x, Theme.Sing.StaticP1TwoPSingBar.y, Theme.Sing.StaticP1TwoPSingBar.w, Theme.Sing.StaticP1TwoPSingBar.h , Player[2].ScorePercent);

-        SingDrawSingbar(Theme.Sing.StaticP2RSingBar.x, Theme.Sing.StaticP2RSingBar.y, Theme.Sing.StaticP2RSingBar.w, Theme.Sing.StaticP2RSingBar.h , Player[3].ScorePercent);

-      end;

-    end;

-

-    if PlayersPlay = 6 then begin

-      if ScreenAct = 1 then begin

-        SingDrawSingbar(Theme.Sing.StaticP1ThreePSingBar.x, Theme.Sing.StaticP1ThreePSingBar.y, Theme.Sing.StaticP1ThreePSingBar.w, Theme.Sing.StaticP1ThreePSingBar.h , Player[0].ScorePercent);

-        SingDrawSingbar(Theme.Sing.StaticP2MSingBar.x, Theme.Sing.StaticP2MSingBar.y, Theme.Sing.StaticP2MSingBar.w, Theme.Sing.StaticP2MSingBar.h , Player[1].ScorePercent);

-        SingDrawSingbar(Theme.Sing.StaticP3SingBar.x, Theme.Sing.StaticP3SingBar.y, Theme.Sing.StaticP3SingBar.w, Theme.Sing.StaticP3SingBar.h , Player[2].ScorePercent);

-     end;

-      if ScreenAct = 2 then begin

-        SingDrawSingbar(Theme.Sing.StaticP1ThreePSingBar.x, Theme.Sing.StaticP1ThreePSingBar.y, Theme.Sing.StaticP1ThreePSingBar.w, Theme.Sing.StaticP1ThreePSingBar.h , Player[3].ScorePercent);

-        SingDrawSingbar(Theme.Sing.StaticP2MSingBar.x, Theme.Sing.StaticP2MSingBar.y, Theme.Sing.StaticP2MSingBar.w, Theme.Sing.StaticP2MSingBar.h , Player[4].ScorePercent);

-        SingDrawSingbar(Theme.Sing.StaticP3SingBar.x, Theme.Sing.StaticP3SingBar.y, Theme.Sing.StaticP3SingBar.w, Theme.Sing.StaticP3SingBar.h , Player[5].ScorePercent);

-      end;

-    end;

-  end;

-  //end Singbar Mod

-

-  //PhrasenBonus - Line Bonus Mod

-  if Ini.LineBonus > 0 then begin

-    A := GetTickCount div 33;

-    if (A <> Tickold2) AND (Player[0].LineBonus_Visible) then begin

-      Tickold2 := A;

-      for E := 0 to (PlayersPlay - 1) do begin

-        //Change Alpha

-        Player[E].LineBonus_Alpha := Player[E].LineBonus_Alpha - 0.02;

-          if Player[E].LineBonus_Alpha <= 0 then

-            begin

-              Player[E].LineBonus_Age := 0;

-              Player[E].LineBonus_Visible := False

-            end

-          else

-            begin

-              inc(Player[E].LineBonus_Age, 1);

-              //Change Position

-                if (Player[E].LineBonus_PosX < Player[E].LineBonus_TargetX) then

-                    Player[E].LineBonus_PosX := Player[E].LineBonus_PosX + (2 - Player[E].LineBonus_Alpha * 1.5)

-                else if (Player[E].LineBonus_PosX > Player[E].LineBonus_TargetX) then

-                    Player[E].LineBonus_PosX := Player[E].LineBonus_PosX - (2 - Player[E].LineBonus_Alpha * 1.5);

-

-                if (Player[E].LineBonus_PosY < Player[E].LineBonus_TargetY) then

-                    Player[E].LineBonus_PosY := Player[E].LineBonus_PosY + (2 - Player[E].LineBonus_Alpha * 1.5)

-                else if (Player[E].LineBonus_PosY > Player[E].LineBonus_TargetY) then

-                    Player[E].LineBonus_PosY := Player[E].LineBonus_PosY - (2 - Player[E].LineBonus_Alpha * 1.5);

-

-            end; // shift position of the pop up (if not dead)

-      end;       // loop - for all players

-    end;         // if - linebonus

-

-

-    if      PlayersPlay = 1 then begin

-      SingDrawLineBonus( Player[0].LineBonus_PosX, Player[0].LineBonus_PosY, Player[0].LineBonus_Color, Player[0].LineBonus_Alpha, Player[0].LineBonus_Text, Player[0].LineBonus_Age);

-    end

-

-    else if PlayersPlay = 2 then begin

-      SingDrawLineBonus( Player[0].LineBonus_PosX, Player[0].LineBonus_PosY, Player[0].LineBonus_Color, Player[0].LineBonus_Alpha, Player[0].LineBonus_Text, Player[0].LineBonus_Age);

-      SingDrawLineBonus( Player[1].LineBonus_PosX, Player[1].LineBonus_PosY, Player[1].LineBonus_Color, Player[1].LineBonus_Alpha, Player[1].LineBonus_Text, Player[1].LineBonus_Age);

-   end

-

-   else if PlayersPlay = 3 then begin

-      SingDrawLineBonus( Player[0].LineBonus_PosX, Player[0].LineBonus_PosY, Player[0].LineBonus_Color, Player[0].LineBonus_Alpha, Player[0].LineBonus_Text, Player[0].LineBonus_Age);

-      SingDrawLineBonus( Player[1].LineBonus_PosX, Player[1].LineBonus_PosY, Player[1].LineBonus_Color, Player[1].LineBonus_Alpha, Player[1].LineBonus_Text, Player[1].LineBonus_Age);

-      SingDrawLineBonus( Player[2].LineBonus_PosX, Player[2].LineBonus_PosY, Player[2].LineBonus_Color, Player[2].LineBonus_Alpha, Player[2].LineBonus_Text, Player[2].LineBonus_Age);

-    end

-

-   else if PlayersPlay = 4 then begin

-      if ScreenAct = 1 then begin

-        SingDrawLineBonus( Player[0].LineBonus_PosX, Player[0].LineBonus_PosY, Player[0].LineBonus_Color, Player[0].LineBonus_Alpha, Player[0].LineBonus_Text, Player[0].LineBonus_Age);

-        SingDrawLineBonus( Player[1].LineBonus_PosX, Player[1].LineBonus_PosY, Player[1].LineBonus_Color, Player[1].LineBonus_Alpha, Player[1].LineBonus_Text, Player[1].LineBonus_Age);

-      end;

-      if ScreenAct = 2 then begin

-        SingDrawLineBonus( Player[2].LineBonus_PosX, Player[2].LineBonus_PosY, Player[2].LineBonus_Color, Player[2].LineBonus_Alpha, Player[2].LineBonus_Text, Player[2].LineBonus_Age);

-        SingDrawLineBonus( Player[3].LineBonus_PosX, Player[3].LineBonus_PosY, Player[3].LineBonus_Color, Player[3].LineBonus_Alpha, Player[3].LineBonus_Text, Player[3].LineBonus_Age);

-      end;

-    end;

-

-    if PlayersPlay = 6 then begin

-      if ScreenAct = 1 then begin

-        SingDrawLineBonus( Player[0].LineBonus_PosX, Player[0].LineBonus_PosY, Player[0].LineBonus_Color, Player[0].LineBonus_Alpha, Player[0].LineBonus_Text, Player[0].LineBonus_Age);

-        SingDrawLineBonus( Player[1].LineBonus_PosX, Player[1].LineBonus_PosY, Player[1].LineBonus_Color, Player[1].LineBonus_Alpha, Player[1].LineBonus_Text, Player[1].LineBonus_Age);

-        SingDrawLineBonus( Player[2].LineBonus_PosX, Player[2].LineBonus_PosY, Player[2].LineBonus_Color, Player[2].LineBonus_Alpha, Player[2].LineBonus_Text, Player[2].LineBonus_Age);

-      end;

-      if ScreenAct = 2 then begin

-        SingDrawLineBonus( Player[3].LineBonus_PosX, Player[3].LineBonus_PosY, Player[3].LineBonus_Color, Player[3].LineBonus_Alpha, Player[3].LineBonus_Text, Player[3].LineBonus_Age);

-        SingDrawLineBonus( Player[4].LineBonus_PosX, Player[4].LineBonus_PosY, Player[4].LineBonus_Color, Player[4].LineBonus_Alpha, Player[4].LineBonus_Text, Player[4].LineBonus_Age);

-        SingDrawLineBonus( Player[5].LineBonus_PosX, Player[5].LineBonus_PosY, Player[5].LineBonus_Color, Player[5].LineBonus_Alpha, Player[5].LineBonus_Text, Player[5].LineBonus_Age);

-      end;

-    end;

-  end;

-  //PhrasenBonus - Line Bonus Mod End

-

-// Set the note heights according to the difficulty level

-  case Ini.Difficulty of

-    0:

-      begin

-        NotesH := 11; // 9

-        NotesW := 6; // 5

-      end;

-    1:

-      begin

-        NotesH := 8; // 7

-        NotesW := 4; // 4

-      end;

-    2:

-      begin

-        NotesH := 5;

-        NotesW := 3;

-      end;

-  end;

-

-// Draw the Notes

-  if PlayersPlay = 1 then begin

-    SingDrawPlayerBGCzesc(NR.Left + 20, Skin_P2_NotesB, NR.Right - 20, 0, 0, 15);  // Background glow    - colorized in playercolor

-    SingDrawCzesc(NR.Left + 20, Skin_P2_NotesB, NR.Right - 20, 0, 15);             // Plain unsung notes - colorized in playercolor

-    SingDrawPlayerCzesc(Nr.Left + 20, Skin_P2_NotesB, Nr.Width - 40, 0, 15);       // imho the sung notes

-  end;

-

-  if (PlayersPlay = 2)  then begin

-    SingDrawPlayerBGCzesc(Nr.Left + 20, Skin_P1_NotesB, Nr.Right - 20, 0, 0, 15);

-    SingDrawPlayerBGCzesc(Nr.Left + 20, Skin_P2_NotesB, Nr.Right - 20, 0, 1, 15);

-

-    SingDrawCzesc(NR.Left + 20, Skin_P1_NotesB, NR.Right - 20, 0, 15);

-    SingDrawCzesc(NR.Left + 20, Skin_P2_NotesB, NR.Right - 20, 1, 15);

-

-    SingDrawPlayerCzesc(Nr.Left + 20, Skin_P1_NotesB, Nr.Width - 40, 0, 15);

-    SingDrawPlayerCzesc(Nr.Left + 20, Skin_P2_NotesB, Nr.Width - 40, 1, 15);

-  end;

-

-  if PlayersPlay = 3 then begin

-    NotesW := NotesW * 0.8;

-    NotesH := NotesH * 0.8;

-

-    SingDrawPlayerBGCzesc(Nr.Left + 20, 120+95, Nr.Right - 20, 0, 0, 12);

-    SingDrawPlayerBGCzesc(Nr.Left + 20, 245+95, Nr.Right - 20, 0, 1, 12);

-    SingDrawPlayerBGCzesc(Nr.Left + 20, 370+95, Nr.Right - 20, 0, 2, 12);

-

-    SingDrawCzesc(NR.Left + 20, 120+95, NR.Right - 20, 0, 12);

-    SingDrawCzesc(NR.Left + 20, 245+95, NR.Right - 20, 1, 12);

-    SingDrawCzesc(NR.Left + 20, 370+95, NR.Right - 20, 2, 12);

-

-    SingDrawPlayerCzesc(Nr.Left + 20, 120+95, Nr.Width - 40, 0, 12);

-    SingDrawPlayerCzesc(Nr.Left + 20, 245+95, Nr.Width - 40, 1, 12);

-    SingDrawPlayerCzesc(Nr.Left + 20, 370+95, Nr.Width - 40, 2, 12);

-  end;

-

-  if PlayersPlay = 4 then begin

-    if ScreenAct = 1 then begin

-      SingDrawPlayerBGCzesc(Nr.Left + 20, Skin_P1_NotesB, Nr.Right - 20, 0, 0, 15);

-      SingDrawPlayerBGCzesc(Nr.Left + 20, Skin_P2_NotesB, Nr.Right - 20, 0, 1, 15);

-    end;

-    if ScreenAct = 2 then begin

-      SingDrawPlayerBGCzesc(Nr.Left + 20, Skin_P1_NotesB, Nr.Right - 20, 0, 2, 15);

-      SingDrawPlayerBGCzesc(Nr.Left + 20, Skin_P2_NotesB, Nr.Right - 20, 0, 3, 15);

-    end;

-

-    if ScreenAct = 1 then begin

-      SingDrawCzesc(NR.Left + 20, Skin_P1_NotesB, NR.Right - 20, 0, 15);

-      SingDrawCzesc(NR.Left + 20, Skin_P2_NotesB, NR.Right - 20, 1, 15);

-    end;

-    if ScreenAct = 2 then begin

-      SingDrawCzesc(NR.Left + 20, Skin_P1_NotesB, NR.Right - 20, 2, 15);

-      SingDrawCzesc(NR.Left + 20, Skin_P2_NotesB, NR.Right - 20, 3, 15);

-    end;

-

-    if ScreenAct = 1 then begin

-      SingDrawPlayerCzesc(Nr.Left + 20, Skin_P1_NotesB, Nr.Width - 40, 0, 15);

-      SingDrawPlayerCzesc(Nr.Left + 20, Skin_P2_NotesB, Nr.Width - 40, 1, 15);

-    end;

-    if ScreenAct = 2 then begin

-      SingDrawPlayerCzesc(Nr.Left + 20, Skin_P1_NotesB, Nr.Width - 40, 2, 15);

-      SingDrawPlayerCzesc(Nr.Left + 20, Skin_P2_NotesB, Nr.Width - 40, 3, 15);

-    end;

-  end;

-

-  if PlayersPlay = 6 then begin

-    NotesW := NotesW * 0.8;

-    NotesH := NotesH * 0.8;

-

-    if ScreenAct = 1 then begin

-      SingDrawPlayerBGCzesc(Nr.Left + 20, 120+95, Nr.Right - 20, 0, 0, 12);

-      SingDrawPlayerBGCzesc(Nr.Left + 20, 245+95, Nr.Right - 20, 0, 1, 12);

-      SingDrawPlayerBGCzesc(Nr.Left + 20, 370+95, Nr.Right - 20, 0, 2, 12);

-    end;

-    if ScreenAct = 2 then begin

-      SingDrawPlayerBGCzesc(Nr.Left + 20, 120+95, Nr.Right - 20, 0, 3, 12);

-      SingDrawPlayerBGCzesc(Nr.Left + 20, 245+95, Nr.Right - 20, 0, 4, 12);

-      SingDrawPlayerBGCzesc(Nr.Left + 20, 370+95, Nr.Right - 20, 0, 5, 12);

-    end;

-

-    if ScreenAct = 1 then begin

-      SingDrawCzesc(NR.Left + 20, 120+95, NR.Right - 20, 0, 12);

-      SingDrawCzesc(NR.Left + 20, 245+95, NR.Right - 20, 1, 12);

-      SingDrawCzesc(NR.Left + 20, 370+95, NR.Right - 20, 2, 12);

-    end;

-    if ScreenAct = 2 then begin

-      SingDrawCzesc(NR.Left + 20, 120+95, NR.Right - 20, 3, 12);

-      SingDrawCzesc(NR.Left + 20, 245+95, NR.Right - 20, 4, 12);

-      SingDrawCzesc(NR.Left + 20, 370+95, NR.Right - 20, 5, 12);

-    end;

-

-    if ScreenAct = 1 then begin

-      SingDrawPlayerCzesc(Nr.Left + 20, 120+95, Nr.Width - 40, 0, 12);

-      SingDrawPlayerCzesc(Nr.Left + 20, 245+95, Nr.Width - 40, 1, 12);

-      SingDrawPlayerCzesc(Nr.Left + 20, 370+95, Nr.Width - 40, 2, 12);

-    end;

-    if ScreenAct = 2 then begin

-      SingDrawPlayerCzesc(Nr.Left + 20, 120+95, Nr.Width - 40, 3, 12);

-      SingDrawPlayerCzesc(Nr.Left + 20, 245+95, Nr.Width - 40, 4, 12);

-      SingDrawPlayerCzesc(Nr.Left + 20, 370+95, Nr.Width - 40, 5, 12);

-    end;

-  end;

-  glDisable(GL_BLEND);

-  glDisable(GL_TEXTURE_2D);

-end;

-

-// q'n'd for using the game mode dll's

-procedure SingModiDraw (PlayerInfo: TPlayerInfo);

-var

-  Pet:      integer;

-  Pet2:     integer;

-  TempR:    real;

-  Rec:      TRecR;

-  TexRec:   TRecR;

-  NR:       TRecR;

-  FS:       real;

-  BarFrom:  integer;

-  BarAlpha: real;

-  BarWspol: real;

-  TempCol:  real;

-  Tekst:    string;

-  LyricTemp:  string;

-  PetCz:    integer;

-

-  //SingBar Mod

-  A: Integer;

-  E: Integer;

-  I: Integer;

-  //end Singbar Mod

-

-begin

-  // positions

-  if Ini.SingWindow = 0 then begin

-    NR.Left := 120;

-  end else begin

-    NR.Left := 20;

-  end;

-

-  NR.Right := 780;

-  NR.Width := NR.Right - NR.Left;

-  NR.WMid  := NR.Width / 2;

-  NR.Mid   := NR.Left + NR.WMid;

-

-  // time bar

-  SingDrawTimeBar();

-

-  if DLLMan.Selected.ShowNotes then

-  begin

-    if PlayersPlay = 1 then

-      SingDrawNoteLines(Nr.Left + 10*ScreenX, Skin_P2_NotesB - 105, Nr.Right + 10*ScreenX, 15);

-    if (PlayersPlay = 2) or (PlayersPlay = 4) then begin

-      SingDrawNoteLines(Nr.Left + 10*ScreenX, Skin_P1_NotesB - 105, Nr.Right + 10*ScreenX, 15);

-      SingDrawNoteLines(Nr.Left + 10*ScreenX, Skin_P2_NotesB - 105, Nr.Right + 10*ScreenX, 15);

-    end;

-

-    if (PlayersPlay = 3) or (PlayersPlay = 6) then begin

-      SingDrawNoteLines(Nr.Left + 10*ScreenX, 120, Nr.Right + 10*ScreenX, 12);

-      SingDrawNoteLines(Nr.Left + 10*ScreenX, 245, Nr.Right + 10*ScreenX, 12);

-      SingDrawNoteLines(Nr.Left + 10*ScreenX, 370, Nr.Right + 10*ScreenX, 12);

-    end;

-  end;

-

-    // Lyric engine

-    ScreenSingModi.LyricMain.Draw;

-    ScreenSingModi.LyricSub.Draw;

-

-    // rysuje pasek, podpowiadajacy poczatek spiwania w scenie

-    FS := 1.3;

-    BarFrom := Czesci[0].Czesc[Czesci[0].Akt].StartNote - Czesci[0].Czesc[Czesci[0].Akt].Start;

-    if BarFrom > 40 then BarFrom := 40;

-    if (Czesci[0].Czesc[Czesci[0].Akt].StartNote - Czesci[0].Czesc[Czesci[0].Akt].Start > 8) and  // dluga przerwa //16->12 for more help bars and then 12->8 for even more

-       (Czesci[0].Czesc[Czesci[0].Akt].StartNote - Czas.MidBeat > 0) and                     // przed tekstem

-       (Czesci[0].Czesc[Czesci[0].Akt].StartNote - Czas.MidBeat < 40) then begin            // ale nie za wczesnie

-         BarWspol := (Czas.MidBeat - (Czesci[0].Czesc[Czesci[0].Akt].StartNote - BarFrom)) / BarFrom;

-         Rec.Left := NR.Left + BarWspol * (ScreenSingModi.LyricMain.ClientX - NR.Left - 50) + 10*ScreenX;

-         Rec.Right := Rec.Left + 50;

-         Rec.Top := Skin_LyricsT + 3;

-         Rec.Bottom := Rec.Top + 33;//SingScreen.LyricMain.Size * 3;

-

-           glEnable(GL_TEXTURE_2D);

-           glEnable(GL_BLEND);

-           glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);

-           glBindTexture(GL_TEXTURE_2D, Tex_Lyric_Help_Bar.TexNum);

-           glBegin(GL_QUADS);

-             glColor4f(1, 1, 1, 0);

-               glTexCoord2f(0, 0); glVertex2f(Rec.Left, Rec.Top);

-               glTexCoord2f(0, 1); glVertex2f(Rec.Left, Rec.Bottom);

-             glColor4f(1, 1, 1, 0.5);

-               glTexCoord2f(1, 1); glVertex2f(Rec.Right, Rec.Bottom);

-               glTexCoord2f(1, 0); glVertex2f(Rec.Right, Rec.Top);

-           glEnd;

-           glDisable(GL_BLEND);

-    end;

-

-  // oscilloscope | the thing that moves when you yell into your mic (imho)

-  if (((Ini.Oscilloscope = 1) AND (DLLMan.Selected.ShowRateBar_O)) AND (NOT DLLMan.Selected.ShowRateBar)) then begin

-    if PlayersPlay = 1 then

-      if PlayerInfo.Playerinfo[0].Enabled then

-        SingDrawOscilloscope(190 + 10*ScreenX, 55, 180, 40, 0);

-

-    if PlayersPlay = 2 then begin

-      if PlayerInfo.Playerinfo[0].Enabled then

-        SingDrawOscilloscope(190 + 10*ScreenX, 55, 180, 40, 0);

-      if PlayerInfo.Playerinfo[1].Enabled then

-        SingDrawOscilloscope(425 + 10*ScreenX, 55, 180, 40, 1);

-    end;

-

-    if PlayersPlay = 4 then begin

-      if ScreenAct = 1 then begin

-        if PlayerInfo.Playerinfo[0].Enabled then

-          SingDrawOscilloscope(190 + 10*ScreenX, 55, 180, 40, 0);

-        if PlayerInfo.Playerinfo[1].Enabled then

-          SingDrawOscilloscope(425 + 10*ScreenX, 55, 180, 40, 1);

-      end;

-      if ScreenAct = 2 then begin

-        if PlayerInfo.Playerinfo[2].Enabled then

-          SingDrawOscilloscope(190 + 10*ScreenX, 55, 180, 40, 2);

-        if PlayerInfo.Playerinfo[3].Enabled then

-          SingDrawOscilloscope(425 + 10*ScreenX, 55, 180, 40, 3);

-      end;

-    end;

-

-    if PlayersPlay = 3 then begin

-      if PlayerInfo.Playerinfo[0].Enabled then

-        SingDrawOscilloscope(75 + 10*ScreenX, 95, 100, 20, 0);

-      if PlayerInfo.Playerinfo[1].Enabled then

-        SingDrawOscilloscope(370 + 10*ScreenX, 95, 100, 20, 1);

-      if PlayerInfo.Playerinfo[2].Enabled then

-        SingDrawOscilloscope(670 + 10*ScreenX, 95, 100, 20, 2);

-    end;

-

-    if PlayersPlay = 6 then begin

-      if ScreenAct = 1 then begin

-        if PlayerInfo.Playerinfo[0].Enabled then

-          SingDrawOscilloscope( 75 + 10*ScreenX, 95, 100, 20, 0);

-        if PlayerInfo.Playerinfo[1].Enabled then

-          SingDrawOscilloscope(370 + 10*ScreenX, 95, 100, 20, 1);

-        if PlayerInfo.Playerinfo[2].Enabled then

-          SingDrawOscilloscope(670 + 10*ScreenX, 95, 100, 20, 2);

-      end;

-      if ScreenAct = 2 then begin

-        if PlayerInfo.Playerinfo[3].Enabled then

-          SingDrawOscilloscope( 75 + 10*ScreenX, 95, 100, 20, 3);

-        if PlayerInfo.Playerinfo[4].Enabled then

-          SingDrawOscilloscope(370 + 10*ScreenX, 95, 100, 20, 4);

-        if PlayerInfo.Playerinfo[5].Enabled then

-          SingDrawOscilloscope(670 + 10*ScreenX, 95, 100, 20, 5);

-      end;

-    end;

-

-  end

-

-  //SingBar Mod

-  // seems like we don't want the flicker thing, we want the linebonus rating bar beneath the scores

-  else if ((Ini.Oscilloscope = 2) AND (DLLMan.Selected.ShowRateBar_O)) OR (DLLMan.Selected.ShowRateBar) then begin

-    A := GetTickCount div 33;

-    if A <> Tickold then begin

-      Tickold := A;

-      for E := 0 to (PlayersPlay - 1) do begin //Set new Pos + Alpha

-        I := Player[E].ScorePercentTarget - Player[E].ScorePercent;

-          if      I > 0 then Inc(Player[E].ScorePercent)

-          else if I < 0 then Dec(Player[E].ScorePercent);

-      end; //for

-    end; //if

-

-    if PlayersPlay = 1 then begin

-      if PlayerInfo.Playerinfo[0].Enabled then

-        SingDrawSingbar(Theme.Sing.StaticP1SingBar.x, Theme.Sing.StaticP1SingBar.y, Theme.Sing.StaticP1SingBar.w, Theme.Sing.StaticP1SingBar.h , Player[0].ScorePercent);

-    end;

-

-    if PlayersPlay = 2 then begin

-      if PlayerInfo.Playerinfo[0].Enabled then

-        SingDrawSingbar(Theme.Sing.StaticP1TwoPSingBar.x, Theme.Sing.StaticP1TwoPSingBar.y, Theme.Sing.StaticP1TwoPSingBar.w, Theme.Sing.StaticP1TwoPSingBar.h , Player[0].ScorePercent);

-      if PlayerInfo.Playerinfo[1].Enabled then

-        SingDrawSingbar(Theme.Sing.StaticP2RSingBar.x, Theme.Sing.StaticP2RSingBar.y, Theme.Sing.StaticP2RSingBar.w, Theme.Sing.StaticP2RSingBar.h , Player[1].ScorePercent);

-    end;

-

-    if PlayersPlay = 3 then begin

-      if PlayerInfo.Playerinfo[0].Enabled then

-        SingDrawSingbar(Theme.Sing.StaticP1ThreePSingBar.x, Theme.Sing.StaticP1ThreePSingBar.y, Theme.Sing.StaticP1ThreePSingBar.w, Theme.Sing.StaticP1ThreePSingBar.h , Player[0].ScorePercent);

-      if PlayerInfo.Playerinfo[1].Enabled then

-        SingDrawSingbar(Theme.Sing.StaticP2MSingBar.x, Theme.Sing.StaticP2MSingBar.y, Theme.Sing.StaticP2MSingBar.w, Theme.Sing.StaticP2MSingBar.h , Player[1].ScorePercent);

-      if PlayerInfo.Playerinfo[2].Enabled then

-        SingDrawSingbar(Theme.Sing.StaticP3SingBar.x, Theme.Sing.StaticP3SingBar.y, Theme.Sing.StaticP3SingBar.w, Theme.Sing.StaticP3SingBar.h , Player[2].ScorePercent);

-    end;

-

-    if PlayersPlay = 4 then begin

-      if ScreenAct = 1 then begin

-        if PlayerInfo.Playerinfo[0].Enabled then

-          SingDrawSingbar(Theme.Sing.StaticP1TwoPSingBar.x, Theme.Sing.StaticP1TwoPSingBar.y, Theme.Sing.StaticP1TwoPSingBar.w, Theme.Sing.StaticP1TwoPSingBar.h , Player[0].ScorePercent);

-        if PlayerInfo.Playerinfo[1].Enabled then

-          SingDrawSingbar(Theme.Sing.StaticP2RSingBar.x, Theme.Sing.StaticP2RSingBar.y, Theme.Sing.StaticP2RSingBar.w, Theme.Sing.StaticP2RSingBar.h , Player[1].ScorePercent);

-      end;

-      if ScreenAct = 2 then begin

-        if PlayerInfo.Playerinfo[2].Enabled then

-          SingDrawSingbar(Theme.Sing.StaticP1TwoPSingBar.x, Theme.Sing.StaticP1TwoPSingBar.y, Theme.Sing.StaticP1TwoPSingBar.w, Theme.Sing.StaticP1TwoPSingBar.h , Player[2].ScorePercent);

-        if PlayerInfo.Playerinfo[3].Enabled then

-          SingDrawSingbar(Theme.Sing.StaticP2RSingBar.x, Theme.Sing.StaticP2RSingBar.y, Theme.Sing.StaticP2RSingBar.w, Theme.Sing.StaticP2RSingBar.h , Player[3].ScorePercent);

-      end;

-    end;

-

-    if PlayersPlay = 6 then begin

-      if ScreenAct = 1 then begin

-        if PlayerInfo.Playerinfo[0].Enabled then

-          SingDrawSingbar(Theme.Sing.StaticP1ThreePSingBar.x, Theme.Sing.StaticP1ThreePSingBar.y, Theme.Sing.StaticP1ThreePSingBar.w, Theme.Sing.StaticP1ThreePSingBar.h , Player[0].ScorePercent);

-        if PlayerInfo.Playerinfo[1].Enabled then

-          SingDrawSingbar(Theme.Sing.StaticP2MSingBar.x, Theme.Sing.StaticP2MSingBar.y, Theme.Sing.StaticP2MSingBar.w, Theme.Sing.StaticP2MSingBar.h , Player[1].ScorePercent);

-        if PlayerInfo.Playerinfo[2].Enabled then

-          SingDrawSingbar(Theme.Sing.StaticP3SingBar.x, Theme.Sing.StaticP3SingBar.y, Theme.Sing.StaticP3SingBar.w, Theme.Sing.StaticP3SingBar.h , Player[2].ScorePercent);

-      end;

-      if ScreenAct = 2 then begin

-        if PlayerInfo.Playerinfo[3].Enabled then

-          SingDrawSingbar(Theme.Sing.StaticP1ThreePSingBar.x, Theme.Sing.StaticP1ThreePSingBar.y, Theme.Sing.StaticP1ThreePSingBar.w, Theme.Sing.StaticP1ThreePSingBar.h , Player[3].ScorePercent);

-        if PlayerInfo.Playerinfo[4].Enabled then

-          SingDrawSingbar(Theme.Sing.StaticP2MSingBar.x, Theme.Sing.StaticP2MSingBar.y, Theme.Sing.StaticP2MSingBar.w, Theme.Sing.StaticP2MSingBar.h , Player[4].ScorePercent);

-        if PlayerInfo.Playerinfo[5].Enabled then

-          SingDrawSingbar(Theme.Sing.StaticP3SingBar.x, Theme.Sing.StaticP3SingBar.y, Theme.Sing.StaticP3SingBar.w, Theme.Sing.StaticP3SingBar.h , Player[5].ScorePercent);

-      end;

-    end;

-  end;

-  //end Singbar Mod

-

-  //PhrasenBonus - Line Bonus Mod

-  if ((Ini.LineBonus > 0) AND (DLLMan.Selected.EnLineBonus_O)) OR (DLLMan.Selected.EnLineBonus) then begin

-    A := GetTickCount div 33;

-    if (A <> Tickold2) AND (Player[0].LineBonus_Visible) then begin

-      Tickold2 := A;

-      for E := 0 to (PlayersPlay - 1) do begin

-          //Change Alpha

-          Player[E].LineBonus_Alpha := Player[E].LineBonus_Alpha - 0.02;

-

-          if Player[E].LineBonus_Alpha <= 0 then

-            begin

-              Player[E].LineBonus_Age := 0;

-              Player[E].LineBonus_Visible := False

-            end

-          else

-            begin

-              inc(Player[E].LineBonus_Age, 1);

-              //Change Position

-              if (Player[E].LineBonus_PosX < Player[E].LineBonus_TargetX) then         // pop up has not yet reached it's position -> blend in

-                Player[E].LineBonus_PosX := Player[E].LineBonus_PosX + (2 - Player[E].LineBonus_Alpha * 1.5)

-              else if (Player[E].LineBonus_PosX > Player[E].LineBonus_TargetX) then    // pop up has reached it's position -> blend out

-                Player[E].LineBonus_PosX := Player[E].LineBonus_PosX - (2 - Player[E].LineBonus_Alpha * 1.5);

-

-              if (Player[E].LineBonus_PosY < Player[E].LineBonus_TargetY) then

-                Player[E].LineBonus_PosY := Player[E].LineBonus_PosY + (2 - Player[E].LineBonus_Alpha * 1.5)

-              else if (Player[E].LineBonus_PosY > Player[E].LineBonus_TargetY) then

-                Player[E].LineBonus_PosY := Player[E].LineBonus_PosY - (2 - Player[E].LineBonus_Alpha * 1.5);

-

-            end; // pop up still visible, has not reached it's position - move it

-      end;       // loop through all players

-    end;         // if it's time to draw them

-

-    if      PlayersPlay = 1 then begin

-      if PlayerInfo.Playerinfo[0].Enabled then

-        SingDrawLineBonus( Player[0].LineBonus_PosX, Player[0].LineBonus_PosY, Player[0].LineBonus_Color, Player[0].LineBonus_Alpha, Player[0].LineBonus_Text, Player[0].LineBonus_Age);

-    end

-

-    else if PlayersPlay = 2 then begin

-      if PlayerInfo.Playerinfo[0].Enabled then

-        SingDrawLineBonus( Player[0].LineBonus_PosX, Player[0].LineBonus_PosY, Player[0].LineBonus_Color, Player[0].LineBonus_Alpha, Player[0].LineBonus_Text, Player[0].LineBonus_Age);

-      if PlayerInfo.Playerinfo[1].Enabled then

-        SingDrawLineBonus( Player[1].LineBonus_PosX, Player[1].LineBonus_PosY, Player[1].LineBonus_Color, Player[1].LineBonus_Alpha, Player[1].LineBonus_Text, Player[1].LineBonus_Age);

-    end

-

-    else if PlayersPlay = 3 then begin

-      if PlayerInfo.Playerinfo[0].Enabled then

-        SingDrawLineBonus( Player[0].LineBonus_PosX, Player[0].LineBonus_PosY, Player[0].LineBonus_Color, Player[0].LineBonus_Alpha, Player[0].LineBonus_Text, Player[0].LineBonus_Age);

-      if PlayerInfo.Playerinfo[1].Enabled then

-        SingDrawLineBonus( Player[1].LineBonus_PosX, Player[1].LineBonus_PosY, Player[1].LineBonus_Color, Player[1].LineBonus_Alpha, Player[1].LineBonus_Text, Player[1].LineBonus_Age);

-      if PlayerInfo.Playerinfo[2].Enabled then

-        SingDrawLineBonus( Player[2].LineBonus_PosX, Player[2].LineBonus_PosY, Player[2].LineBonus_Color, Player[2].LineBonus_Alpha, Player[2].LineBonus_Text, Player[2].LineBonus_Age);

-    end

-

-    else if PlayersPlay = 4 then begin

-      if ScreenAct = 1 then begin

-        if PlayerInfo.Playerinfo[0].Enabled then

-          SingDrawLineBonus( Player[0].LineBonus_PosX, Player[0].LineBonus_PosY, Player[0].LineBonus_Color, Player[0].LineBonus_Alpha, Player[0].LineBonus_Text, Player[0].LineBonus_Age);

-        if PlayerInfo.Playerinfo[1].Enabled then

-          SingDrawLineBonus( Player[1].LineBonus_PosX, Player[1].LineBonus_PosY, Player[1].LineBonus_Color, Player[1].LineBonus_Alpha, Player[1].LineBonus_Text, Player[1].LineBonus_Age);

-      end;

-      if ScreenAct = 2 then begin

-        if PlayerInfo.Playerinfo[2].Enabled then

-          SingDrawLineBonus( Player[2].LineBonus_PosX, Player[2].LineBonus_PosY, Player[2].LineBonus_Color, Player[2].LineBonus_Alpha, Player[2].LineBonus_Text, Player[2].LineBonus_Age);

-        if PlayerInfo.Playerinfo[3].Enabled then

-          SingDrawLineBonus( Player[3].LineBonus_PosX, Player[3].LineBonus_PosY, Player[3].LineBonus_Color, Player[3].LineBonus_Alpha, Player[3].LineBonus_Text, Player[3].LineBonus_Age);

-      end;

-    end;

-

-    if PlayersPlay = 6 then begin

-      if ScreenAct = 1 then begin

-        if PlayerInfo.Playerinfo[0].Enabled then

-          SingDrawLineBonus( Player[0].LineBonus_PosX, Player[0].LineBonus_PosY, Player[0].LineBonus_Color, Player[0].LineBonus_Alpha, Player[0].LineBonus_Text, Player[0].LineBonus_Age);

-        if PlayerInfo.Playerinfo[1].Enabled then

-          SingDrawLineBonus( Player[1].LineBonus_PosX, Player[1].LineBonus_PosY, Player[1].LineBonus_Color, Player[1].LineBonus_Alpha, Player[1].LineBonus_Text, Player[1].LineBonus_Age);

-        if PlayerInfo.Playerinfo[2].Enabled then

-          SingDrawLineBonus( Player[2].LineBonus_PosX, Player[2].LineBonus_PosY, Player[2].LineBonus_Color, Player[2].LineBonus_Alpha, Player[2].LineBonus_Text, Player[2].LineBonus_Age);

-      end;

-      if ScreenAct = 2 then begin

-        if PlayerInfo.Playerinfo[3].Enabled then

-          SingDrawLineBonus( Player[3].LineBonus_PosX, Player[3].LineBonus_PosY, Player[3].LineBonus_Color, Player[3].LineBonus_Alpha, Player[3].LineBonus_Text, Player[3].LineBonus_Age);

-        if PlayerInfo.Playerinfo[4].Enabled then

-          SingDrawLineBonus( Player[4].LineBonus_PosX, Player[4].LineBonus_PosY, Player[4].LineBonus_Color, Player[4].LineBonus_Alpha, Player[4].LineBonus_Text, Player[4].LineBonus_Age);

-        if PlayerInfo.Playerinfo[5].Enabled then

-          SingDrawLineBonus( Player[5].LineBonus_PosX, Player[5].LineBonus_PosY, Player[5].LineBonus_Color, Player[5].LineBonus_Alpha, Player[5].LineBonus_Text, Player[5].LineBonus_Age);

-      end;

-    end;

-  end;

-//PhrasenBonus - Line Bonus Mod End

-

-// resize the notes according to the difficulty level

-  case Ini.Difficulty of

-    0:

-      begin

-        NotesH := 11; // 9

-        NotesW := 6; // 5

-      end;

-    1:

-      begin

-        NotesH := 8; // 7

-        NotesW := 4; // 4

-      end;

-    2:

-      begin

-        NotesH := 5;

-        NotesW := 3;

-      end;

-  end;

-

-  if (DLLMAn.Selected.ShowNotes And DLLMan.Selected.LoadSong) then

-  begin

-    if (PlayersPlay = 1) And PlayerInfo.Playerinfo[0].Enabled then begin

-      SingDrawPlayerBGCzesc(NR.Left + 20, Skin_P2_NotesB, NR.Right - 20, 0, 0, 15);

-      SingDrawCzesc(NR.Left + 20, Skin_P2_NotesB, NR.Right - 20, 0, 15);

-      SingDrawPlayerCzesc(Nr.Left + 20, Skin_P2_NotesB, Nr.Width - 40, 0, 15);

-    end;

-

-    if (PlayersPlay = 2)  then begin

-      if PlayerInfo.Playerinfo[0].Enabled then

-      begin

-        SingDrawPlayerBGCzesc(Nr.Left + 20, Skin_P1_NotesB, Nr.Right - 20, 0, 0, 15);

-        SingDrawCzesc(NR.Left + 20, Skin_P1_NotesB, NR.Right - 20, 0, 15);

-        SingDrawPlayerCzesc(Nr.Left + 20, Skin_P1_NotesB, Nr.Width - 40, 0, 15);

-      end;

-      if PlayerInfo.Playerinfo[1].Enabled then

-      begin

-        SingDrawPlayerBGCzesc(Nr.Left + 20, Skin_P2_NotesB, Nr.Right - 20, 0, 1, 15);

-        SingDrawCzesc(NR.Left + 20, Skin_P2_NotesB, NR.Right - 20, 0, 15);

-        SingDrawPlayerCzesc(Nr.Left + 20, Skin_P2_NotesB, Nr.Width - 40, 1, 15);

-      end;

-

-    end;

-

-    if PlayersPlay = 3 then begin

-      NotesW := NotesW * 0.8;

-      NotesH := NotesH * 0.8;

-

-      if PlayerInfo.Playerinfo[0].Enabled then

-      begin

-        SingDrawPlayerBGCzesc(Nr.Left + 20, 120+95, Nr.Right - 20, 0, 0, 12);

-        SingDrawCzesc(NR.Left + 20, 120+95, NR.Right - 20, 0, 12);

-        SingDrawPlayerCzesc(Nr.Left + 20, 120+95, Nr.Width - 40, 0, 12);

-      end;

-

-      if PlayerInfo.Playerinfo[1].Enabled then

-      begin

-        SingDrawPlayerBGCzesc(Nr.Left + 20, 245+95, Nr.Right - 20, 0, 1, 12);

-        SingDrawCzesc(NR.Left + 20, 245+95, NR.Right - 20, 0, 12);

-        SingDrawPlayerCzesc(Nr.Left + 20, 245+95, Nr.Width - 40, 1, 12);

-      end;

-

-      if PlayerInfo.Playerinfo[2].Enabled then

-      begin

-        SingDrawPlayerBGCzesc(Nr.Left + 20, 370+95, Nr.Right - 20, 0, 2, 12);

-        SingDrawCzesc(NR.Left + 20, 370+95, NR.Right - 20, 0, 12);

-        SingDrawPlayerCzesc(Nr.Left + 20, 370+95, Nr.Width - 40, 2, 12);

-      end;

-    end;

-

-    if PlayersPlay = 4 then begin

-      if ScreenAct = 1 then begin

-        SingDrawPlayerBGCzesc(Nr.Left + 20, Skin_P1_NotesB, Nr.Right - 20, 0, 0, 15);

-        SingDrawPlayerBGCzesc(Nr.Left + 20, Skin_P2_NotesB, Nr.Right - 20, 0, 1, 15);

-      end;

-      if ScreenAct = 2 then begin

-        SingDrawPlayerBGCzesc(Nr.Left + 20, Skin_P1_NotesB, Nr.Right - 20, 0, 2, 15);

-        SingDrawPlayerBGCzesc(Nr.Left + 20, Skin_P2_NotesB, Nr.Right - 20, 0, 3, 15);

-      end;

-

-      SingDrawCzesc(NR.Left + 20, Skin_P1_NotesB, NR.Right - 20, 0, 15);

-      SingDrawCzesc(NR.Left + 20, Skin_P2_NotesB, NR.Right - 20, 0, 15);

-

-      if ScreenAct = 1 then begin

-        SingDrawPlayerCzesc(Nr.Left + 20, Skin_P1_NotesB, Nr.Width - 40, 0, 15);

-        SingDrawPlayerCzesc(Nr.Left + 20, Skin_P2_NotesB, Nr.Width - 40, 1, 15);

-      end;

-      if ScreenAct = 2 then begin

-        SingDrawPlayerCzesc(Nr.Left + 20, Skin_P1_NotesB, Nr.Width - 40, 2, 15);

-        SingDrawPlayerCzesc(Nr.Left + 20, Skin_P2_NotesB, Nr.Width - 40, 3, 15);

-      end;

-    end;

-

-    if PlayersPlay = 6 then begin

-      NotesW := NotesW * 0.8;

-      NotesH := NotesH * 0.8;

-

-      if ScreenAct = 1 then begin

-        SingDrawPlayerBGCzesc(Nr.Left + 20, 120+95, Nr.Right - 20, 0, 0, 12);

-        SingDrawPlayerBGCzesc(Nr.Left + 20, 245+95, Nr.Right - 20, 0, 1, 12);

-        SingDrawPlayerBGCzesc(Nr.Left + 20, 370+95, Nr.Right - 20, 0, 2, 12);

-      end;

-      if ScreenAct = 2 then begin

-        SingDrawPlayerBGCzesc(Nr.Left + 20, 120+95, Nr.Right - 20, 0, 3, 12);

-        SingDrawPlayerBGCzesc(Nr.Left + 20, 245+95, Nr.Right - 20, 0, 4, 12);

-        SingDrawPlayerBGCzesc(Nr.Left + 20, 370+95, Nr.Right - 20, 0, 5, 12);

-      end;

-

-      SingDrawCzesc(NR.Left + 20, 120+95, NR.Right - 20, 0, 12);

-      SingDrawCzesc(NR.Left + 20, 245+95, NR.Right - 20, 0, 12);

-      SingDrawCzesc(NR.Left + 20, 370+95, NR.Right - 20, 0, 12);

-

-      if ScreenAct = 1 then begin

-        SingDrawPlayerCzesc(Nr.Left + 20, 120+95, Nr.Width - 40, 0, 12);

-        SingDrawPlayerCzesc(Nr.Left + 20, 245+95, Nr.Width - 40, 1, 12);

-        SingDrawPlayerCzesc(Nr.Left + 20, 370+95, Nr.Width - 40, 2, 12);

-      end;

-      if ScreenAct = 2 then begin

-        SingDrawPlayerCzesc(Nr.Left + 20, 120+95, Nr.Width - 40, 3, 12);

-        SingDrawPlayerCzesc(Nr.Left + 20, 245+95, Nr.Width - 40, 4, 12);

-        SingDrawPlayerCzesc(Nr.Left + 20, 370+95, Nr.Width - 40, 5, 12);

-      end;

-    end;

-  end;

-

-  glDisable(GL_BLEND);

-  glDisable(GL_TEXTURE_2D);

-end;

-

-

-//SingBar Mod

-procedure SingDrawSingbar(X, Y, W, H: real; Percent: integer);

-var

-  R:   Real;

-  G:   Real;

-  B:   Real;

-  A:   cardinal;

-  I:   Integer;

-

-begin;

-

-   //SingBar Background

-  glColor4f(1, 1, 1, 0.8);

-  glEnable(GL_TEXTURE_2D);

-  glEnable(GL_BLEND);

-  glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);

-  glBindTexture(GL_TEXTURE_2D, Tex_SingBar_Back.TexNum);

-  glBegin(GL_QUADS);

-    glTexCoord2f(0, 0); glVertex2f(X, Y);

-    glTexCoord2f(0, 1); glVertex2f(X, Y+H);

-    glTexCoord2f(1, 1); glVertex2f(X+W, Y+H);

-    glTexCoord2f(1, 0); glVertex2f(X+W, Y);

-  glEnd;

-

-  //SingBar coloured Bar

-  Case Percent of

-    0..22: begin

-          R := 1;

-          G := 0;

-          B := 0;

-        end;

-    23..42: begin

-          R := 1;

-          G := ((Percent-23)/100)*5;

-          B := 0;

-        end;

-    43..57: begin

-          R := 1;

-          G := 1;

-          B := 0;

-        end;

-    58..77: begin

-          R := 1-(Percent - 58)/100*5;

-          G := 1;

-          B := 0;

-        end;

-    78..99: begin

-          R := 0;

-          G := 1;

-          B := 0;

-        end;

-    End; //Case

-

-  glColor4f(R, G, B, 1);

-  glEnable(GL_TEXTURE_2D);

-  glEnable(GL_BLEND);

-  glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);

-  glBindTexture(GL_TEXTURE_2D, Tex_SingBar_Bar.TexNum);

-  //Size= Player[PlayerNum].ScorePercent of W

-    glBegin(GL_QUADS);

-    glTexCoord2f(0, 0); glVertex2f(X, Y);

-    glTexCoord2f(0, 1); glVertex2f(X, Y+H);

-    glTexCoord2f(1, 1); glVertex2f(X+(W/100 * (Percent +1)), Y+H);

-    glTexCoord2f(1, 0); glVertex2f(X+(W/100 * (Percent +1)), Y);

-  glEnd;

-

-  //SingBar Front

-  glColor4f(1, 1, 1, 0.6);

-  glEnable(GL_TEXTURE_2D);

-  glEnable(GL_BLEND);

-  glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);

-  glBindTexture(GL_TEXTURE_2D, Tex_SingBar_Front.TexNum);

-  glBegin(GL_QUADS);

-    glTexCoord2f(0, 0); glVertex2f(X, Y);

-    glTexCoord2f(0, 1); glVertex2f(X, Y+H);

-    glTexCoord2f(1, 1); glVertex2f(X+W, Y+H);

-    glTexCoord2f(1, 0); glVertex2f(X+W, Y);

-  glEnd;

-end;

-//end Singbar Mod

-

-//PhrasenBonus - Line Bonus Pop Up

-procedure SingDrawLineBonus( const X, Y: Single; Color: TRGB; Alpha: Single; Text: string; Age: Integer);

-var

-Length, X2: Real; //Length of Text

-Size: Integer;    //Size of Popup

-begin

-if Alpha <> 0 then

-begin

-

-//Set Font Propertys

-SetFontStyle(2); //Font: Outlined1

-if Age < 5 then SetFontSize(Age + 1) else SetFontSize(6);

-SetFontItalic(False);

-

-//Check Font Size

-Length := glTextWidth ( PChar(Text)) + 3; //Little Space for a Better Look ^^

-

-//Text

-SetFontPos (X + 50 - (Length / 2), Y + 12); //Position

-

-

-if Age < 5 then Size := Age * 10 else Size := 50;

-

-  //Draw  Background

-  //glColor4f(Color.R, Color.G, Color.B, Alpha); //Set Color

-  glColor4f(1, 1, 1, Alpha);

-

-

-  glEnable(GL_TEXTURE_2D);

-  glEnable(GL_BLEND);

-  //glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);

-

-

-  //New Method, Not Variable

-  glBindTexture(GL_TEXTURE_2D, Tex_SingLineBonusBack[2].TexNum);

-

-  glBegin(GL_QUADS);

-    glTexCoord2f(0, 0); glVertex2f(X + 50 - Size, Y + 25 - (Size/2));

-    glTexCoord2f(0, 1); glVertex2f(X + 50 - Size, Y + 25 + (Size/2));

-    glTexCoord2f(1, 1); glVertex2f(X + 50 + Size, Y + 25 + (Size/2));

-    glTexCoord2f(1, 0); glVertex2f(X + 50 + Size, Y + 25 - (Size/2));

-  glEnd;

-

-  glColor4f(1, 1, 1, Alpha); //Set Color

-  //Draw Text

-  glPrint (PChar(Text));

-end;

-end;

-//PhrasenBonus - Line Bonus Mod

-

-// Draw Note Bars for Editor

-//There are 11 Resons for a new Procdedure:

-// 1. It don't look good when you Draw the Golden Note Star Effect in the Editor

-// 2. You can see the Freestyle Notes in the Editor SemiTransparent

-// 3. Its easier and Faster then changing the old Procedure

-procedure EditDrawCzesc(Left, Top, Right: real; NrCzesci: integer; Space: integer);

-var

-  Rec:      TRecR;

-  Pet:      integer;

-  TempR:    real;

-begin

-  glColor3f(1, 1, 1);

-  glEnable(GL_TEXTURE_2D);

-  glEnable(GL_BLEND);

-  glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);

-  TempR := (Right-Left) / (Czesci[NrCzesci].Czesc[Czesci[NrCzesci].Akt].Koniec - Czesci[NrCzesci].Czesc[Czesci[NrCzesci].Akt].StartNote);

-  with Czesci[NrCzesci].Czesc[Czesci[NrCzesci].Akt] do begin

-    for Pet := 0 to HighNut do begin

-      with Nuta[Pet] do begin

-

-          // Golden Note Patch

-          case Wartosc of

-            0: glColor4f(1, 1, 1, 0.35);

-            1: glColor4f(1, 1, 1, 0.85);

-            2: glColor4f(1, 1, 0.3, 0.85);

-          end; // case

-

-

-

-          // lewa czesc  -  left part

-          Rec.Left := (Start-Czesci[NrCzesci].Czesc[Czesci[NrCzesci].Akt].StartNote) * TempR + Left + 0.5 + 10*ScreenX;

-          Rec.Right := Rec.Left + NotesW;

-          Rec.Top := Top - (Ton-BaseNote)*Space/2 - NotesH;

-          Rec.Bottom := Rec.Top + 2 * NotesH;

-          glBindTexture(GL_TEXTURE_2D, Tex_Left[Color].TexNum);

-          glBegin(GL_QUADS);

-            glTexCoord2f(0, 0); glVertex2f(Rec.Left,  Rec.Top);

-            glTexCoord2f(0, 1); glVertex2f(Rec.Left,  Rec.Bottom);

-            glTexCoord2f(1, 1); glVertex2f(Rec.Right, Rec.Bottom);

-            glTexCoord2f(1, 0); glVertex2f(Rec.Right, Rec.Top);

-          glEnd;

-

-         // srodkowa czesc  -  middle part

-        Rec.Left := Rec.Right;

-        Rec.Right := (Start+Dlugosc-Czesci[NrCzesci].Czesc[Czesci[NrCzesci].Akt].StartNote) * TempR + Left - NotesW - 0.5 + 10*ScreenX;

-

-        glBindTexture(GL_TEXTURE_2D, Tex_Mid[Color].TexNum);

-        glBegin(GL_QUADS);

-          glTexCoord2f(0, 0); glVertex2f(Rec.Left,  Rec.Top);

-          glTexCoord2f(0, 1); glVertex2f(Rec.Left,  Rec.Bottom);

-          glTexCoord2f(1, 1); glVertex2f(Rec.Right, Rec.Bottom);

-          glTexCoord2f(1, 0); glVertex2f(Rec.Right, Rec.Top);

-        glEnd;

-

-        // prawa czesc  -  right part

-        Rec.Left := Rec.Right;

-        Rec.Right := Rec.Right + NotesW;

-

-        glBindTexture(GL_TEXTURE_2D, Tex_Right[Color].TexNum);

-        glBegin(GL_QUADS);

-          glTexCoord2f(0, 0); glVertex2f(Rec.Left,  Rec.Top);

-          glTexCoord2f(0, 1); glVertex2f(Rec.Left,  Rec.Bottom);

-          glTexCoord2f(1, 1); glVertex2f(Rec.Right, Rec.Bottom);

-          glTexCoord2f(1, 0); glVertex2f(Rec.Right, Rec.Top);

-        glEnd;

-

-      end; // with

-    end; // for

-  end; // with

-

-  glDisable(GL_BLEND);

-  glDisable(GL_TEXTURE_2D);

-end;

-

-procedure SingDrawTimeBar();

-var x,y:           real;

-    width, height: real;

-begin

-  x := Theme.Sing.StaticTimeProgress.x;

-  y := Theme.Sing.StaticTimeProgress.y;

-  width:= Theme.Sing.StaticTimeProgress.w;

-  height:= Theme.Sing.StaticTimeProgress.h;

-

-  glColor4f(Theme.Sing.StaticTimeProgress.ColR,

-  Theme.Sing.StaticTimeProgress.ColG,

-  Theme.Sing.StaticTimeProgress.ColB, 1); //Set Color

-

-  glEnable(GL_TEXTURE_2D);

-  glEnable(GL_BLEND);

-

-  glBindTexture(GL_TEXTURE_2D, Tex_TimeProgress.TexNum);

-

-  glBegin(GL_QUADS);

-    glTexCoord2f(0, 0); glVertex2f(x,y);

-    glTexCoord2f((width*(Czas.Teraz/Czas.Razem))/8, 0); glVertex2f(x+width*(Czas.Teraz/Czas.Razem), y);

-    glTexCoord2f((width*(Czas.Teraz/Czas.Razem))/8, 1); glVertex2f(x+width*(Czas.Teraz/Czas.Razem), y+height);

-    glTexCoord2f(0, 1); glVertex2f(x, y+height);

-  glEnd;

-

- glDisable(GL_TEXTURE_2D);

- glDisable(GL_BLEND);

- glcolor4f(1,1,1,1);

-end;

-

-end.

-

+unit UDraw;
+
+interface
+
+{$IFDEF FPC}
+  {$MODE DELPHI}
+{$ENDIF}
+
+uses UThemes,
+     ModiSDK,
+     UGraphicClasses;
+
+procedure SingDraw;
+procedure SingModiDraw (PlayerInfo: TPlayerInfo);
+procedure SingDrawBackground;
+procedure SingDrawOscilloscope(X, Y, W, H: real; NrSound: integer);
+procedure SingDrawNoteLines(Left, Top, Right: real; Space: integer);
+procedure SingDrawBeatDelimeters(Left, Top, Right: real; NrCzesci: integer);
+procedure SingDrawCzesc(Left, Top, Right: real; NrCzesci: integer; Space: integer);
+procedure SingDrawPlayerCzesc(X, Y, W: real; NrGracza: integer; Space: integer);
+procedure SingDrawPlayerBGCzesc(Left, Top, Right: real; NrCzesci, NrGracza: integer; Space: integer);
+
+// TimeBar 
+procedure SingDrawTimeBar();
+
+// The Singbar
+procedure SingDrawSingbar(X, Y, W, H: real; Percent: integer);
+
+//Phrasen Bonus - Line Bonus
+procedure SingDrawLineBonus( const X, Y: Single; Color: TRGB; Alpha: Single; Text: string; Age: Integer);
+
+//Draw Editor NoteLines
+procedure EditDrawCzesc(Left, Top, Right: real; NrCzesci: integer; Space: integer);
+
+
+type
+  TRecR = record
+    Top:    real;
+    Left:   real;
+    Right:  real;
+    Bottom: real;
+
+    Width:  real;
+    WMid:   real;
+    Height: real;
+    HMid:   real;
+
+    Mid:    real;
+  end;
+
+var
+  NotesW:   real;
+  NotesH:   real;
+  Starfr:   integer;
+  StarfrG:   integer;
+
+  //SingBar
+  TickOld: cardinal;
+  TickOld2:cardinal;
+
+const
+  Przedz = 32;
+
+implementation
+
+uses {$IFDEF Win32}
+     windows,
+     {$ELSE}
+     lclintf,
+     {$ENDIF}
+     OpenGL12,
+     UGraphic,
+     SysUtils,
+     UMusic,
+     URecord,
+     ULog,
+     UScreenSing,
+     UScreenSingModi,
+     ULyrics,
+     UMain,
+     TextGL,
+     UTexture,
+     UDrawTexture,
+     UIni,
+     Math,
+     UDLLManager;
+
+procedure SingDrawBackground;
+var
+  Rec:      TRecR;
+  TexRec:   TRecR;
+begin
+  if ScreenSing.Tex_Background.TexNum >= 1 then begin
+
+  glClearColor (1, 1, 1, 1);
+  glColor4f (1, 1, 1, 1);
+
+    if (Ini.MovieSize <= 1) then  //HalfSize BG
+    begin
+      (* half screen + gradient *)
+      Rec.Top := 110; // 80
+      Rec.Bottom := Rec.Top + 20;
+      Rec.Left := 0;
+      Rec.Right := 800;
+
+      TexRec.Top := (Rec.Top / 600) * ScreenSing.Tex_Background.TexH;
+      TexRec.Bottom := (Rec.Bottom / 600) * ScreenSing.Tex_Background.TexH;
+      TexRec.Left := 0;
+      TexRec.Right := ScreenSing.Tex_Background.TexW;
+
+      glEnable(GL_TEXTURE_2D);
+      glBindTexture(GL_TEXTURE_2D, ScreenSing.Tex_Background.TexNum);
+      glEnable(GL_BLEND);
+      glBegin(GL_QUADS);
+        (* gradient draw *)
+        (* top *)
+        glColor4f(1, 1, 1, 0);
+        glTexCoord2f(TexRec.Right, TexRec.Top);    glVertex2f(Rec.Right, Rec.Top);
+        glTexCoord2f(TexRec.Left,  TexRec.Top);    glVertex2f(Rec.Left,  Rec.Top);
+        glColor4f(1, 1, 1, 1);
+        glTexCoord2f(TexRec.Left,  TexRec.Bottom); glVertex2f(Rec.Left,  Rec.Bottom);
+        glTexCoord2f(TexRec.Right, TexRec.Bottom); glVertex2f(Rec.Right, Rec.Bottom);
+        (* mid *)
+        Rec.Top := Rec.Bottom;
+        Rec.Bottom := 490 - 20; // 490 - 20
+        TexRec.Top := TexRec.Bottom;
+        TexRec.Bottom := (Rec.Bottom / 600) * ScreenSing.Tex_Background.TexH;
+        glTexCoord2f(TexRec.Left,  TexRec.Top);    glVertex2f(Rec.Left,  Rec.Top);
+        glTexCoord2f(TexRec.Left,  TexRec.Bottom); glVertex2f(Rec.Left,  Rec.Bottom);
+        glTexCoord2f(TexRec.Right, TexRec.Bottom); glVertex2f(Rec.Right, Rec.Bottom);
+        glTexCoord2f(TexRec.Right, TexRec.Top);    glVertex2f(Rec.Right, Rec.Top);
+        (* bottom *)
+        Rec.Top := Rec.Bottom;
+        Rec.Bottom := 490; // 490
+        TexRec.Top := TexRec.Bottom;
+        TexRec.Bottom := (Rec.Bottom / 600) * ScreenSing.Tex_Background.TexH;
+        glTexCoord2f(TexRec.Right, TexRec.Top);    glVertex2f(Rec.Right, Rec.Top);
+        glTexCoord2f(TexRec.Left,  TexRec.Top);    glVertex2f(Rec.Left,  Rec.Top);
+        glColor4f(1, 1, 1, 0);
+        glTexCoord2f(TexRec.Left,  TexRec.Bottom); glVertex2f(Rec.Left,  Rec.Bottom);
+        glTexCoord2f(TexRec.Right, TexRec.Bottom); glVertex2f(Rec.Right, Rec.Bottom);
+
+      glEnd;
+      glDisable(GL_TEXTURE_2D);
+      glDisable(GL_BLEND);
+    end
+    else //Full Size BG
+    begin
+      glEnable(GL_TEXTURE_2D);
+      glBindTexture(GL_TEXTURE_2D, ScreenSing.Tex_Background.TexNum);
+      //glEnable(GL_BLEND);
+      glBegin(GL_QUADS);
+
+        glTexCoord2f(0, 0);   glVertex2f(0,  0);
+        glTexCoord2f(0,  ScreenSing.Tex_Background.TexH);   glVertex2f(0,  600);
+        glTexCoord2f( ScreenSing.Tex_Background.TexW,  ScreenSing.Tex_Background.TexH);   glVertex2f(800, 600);
+        glTexCoord2f( ScreenSing.Tex_Background.TexW, 0);   glVertex2f(800, 0);
+
+      glEnd;
+      glDisable(GL_TEXTURE_2D);
+      //glDisable(GL_BLEND);
+    end;
+  end;
+end;
+
+procedure SingDrawOscilloscope(X, Y, W, H: real; NrSound: integer);
+var
+  Pet:    integer;
+begin;
+//  Log.LogStatus('Oscilloscope', 'SingDraw');
+  glColor3f(Skin_OscR, Skin_OscG, Skin_OscB);
+  {if (ParamStr(1) = '-black') or (ParamStr(1) = '-fsblack') then
+    glColor3f(1, 1, 1);  }
+
+  glBegin(GL_LINE_STRIP);
+    glVertex2f(X, -Sound[NrSound].BufferArray[1] / $10000 * H + Y + H/2);
+    for Pet := 2 to Sound[NrSound].n div 1 do begin
+      glVertex2f(X + (Pet-1) * W / (Sound[NrSound].n - 1),
+      -Sound[NrSound].BufferArray[Pet] / $10000 * H + Y + H/2);
+    end;
+  glEnd;
+end;
+
+procedure SingDrawNoteLines(Left, Top, Right: real; Space: integer);
+var
+  Pet:    integer;
+begin
+  glEnable(GL_BLEND);
+  glColor4f(Skin_P1_LinesR, Skin_P1_LinesG, Skin_P1_LinesB, 0.4);
+  glBegin(GL_LINES);
+  for Pet := 0 to 9 do begin
+    glVertex2f(Left,  Top + Pet * Space);
+    glVertex2f(Right, Top + Pet * Space);
+  end;
+  glEnd;
+  glDisable(GL_BLEND);
+end;
+
+procedure SingDrawBeatDelimeters(Left, Top, Right: real; NrCzesci: integer);
+var
+  Pet:    integer;
+  TempR:  real;
+begin
+  TempR := (Right-Left) / (Czesci[NrCzesci].Czesc[Czesci[NrCzesci].Akt].Koniec - Czesci[NrCzesci].Czesc[Czesci[NrCzesci].Akt].StartNote);
+  glEnable(GL_BLEND);
+  glBegin(GL_LINES);
+  for Pet := Czesci[NrCzesci].Czesc[Czesci[NrCzesci].Akt].StartNote to Czesci[NrCzesci].Czesc[Czesci[NrCzesci].Akt].Koniec do begin
+    if (Pet mod Czesci[NrCzesci].Resolution) = Czesci[NrCzesci].NotesGAP then
+      glColor4f(0, 0, 0, 1)
+    else
+      glColor4f(0, 0, 0, 0.3);
+    glVertex2f(Left + TempR * (Pet - Czesci[NrCzesci].Czesc[Czesci[NrCzesci].Akt].StartNote), Top);
+    glVertex2f(Left + TempR * (Pet - Czesci[NrCzesci].Czesc[Czesci[NrCzesci].Akt].StartNote), Top + 135);
+  end;
+  glEnd;
+  glDisable(GL_BLEND);
+end;
+
+// draw blank Notebars
+procedure SingDrawCzesc(Left, Top, Right: real; NrCzesci: integer; Space: integer);
+var
+  Rec:      TRecR;
+  Pet:      integer;
+  TempR:    real;
+  R,G,B:    real;
+
+  PlayerNumber: Integer;
+
+  GoldenStarPos : real;
+begin
+// We actually don't have a playernumber in this procedure, it should reside in NrCzesci - but it's always set to zero
+// So we exploit this behavior a bit - we give NrCzesci the playernumber, keep it in playernumber - and then we set NrCzesci to zero
+// This could also come quite in handy when we do the duet mode, cause just the notes for the player that has to sing should be drawn then
+// BUT this is not implemented yet, all notes are drawn! :D
+
+  PlayerNumber := NrCzesci + 1; // Player 1 is 0
+  NrCzesci     := 0;
+
+// exploit done
+
+  glColor3f(1, 1, 1);
+  glEnable(GL_TEXTURE_2D);
+  glEnable(GL_BLEND);
+  glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);
+  TempR := (Right-Left) / (Czesci[NrCzesci].Czesc[Czesci[NrCzesci].Akt].Koniec - Czesci[NrCzesci].Czesc[Czesci[NrCzesci].Akt].StartNote);
+  with Czesci[NrCzesci].Czesc[Czesci[NrCzesci].Akt] do begin
+    for Pet := 0 to HighNut do begin
+      with Nuta[Pet] do begin
+        if not FreeStyle then begin
+
+
+          if Ini.EffectSing = 0 then
+          // If Golden note Effect of then Change not Color
+          begin
+            case Wartosc of
+              1: glColor4f(1, 1, 1, 1);   // We set alpha to 1, cause we can control the transparency through the png itself
+              2: glColor4f(1, 1, 0.3, 1); // no stars, paint yellow -> glColor4f(1, 1, 0.3, 0.85); - we could
+            end; // case
+          end //Else all Notes same Color
+          else
+            glColor4f(1, 1, 1, 1);        // We set alpha to 1, cause we can control the transparency through the png itself
+                                          // Czesci == teil, element == piece, element | koniec == ende, schluss
+          // lewa czesc  -  left part
+          Rec.Left := (Start-Czesci[NrCzesci].Czesc[Czesci[NrCzesci].Akt].StartNote) * TempR + Left + 0.5 + 10*ScreenX;
+          Rec.Right := Rec.Left + NotesW;
+          Rec.Top := Top - (Ton-BaseNote)*Space/2 - NotesH;
+          Rec.Bottom := Rec.Top + 2 * NotesH;
+          glBindTexture(GL_TEXTURE_2D, Tex_plain_Left[PlayerNumber].TexNum);
+          glBegin(GL_QUADS);
+            glTexCoord2f(0, 0); glVertex2f(Rec.Left,  Rec.Top);
+            glTexCoord2f(0, 1); glVertex2f(Rec.Left,  Rec.Bottom);
+            glTexCoord2f(1, 1); glVertex2f(Rec.Right, Rec.Bottom);
+            glTexCoord2f(1, 0); glVertex2f(Rec.Right, Rec.Top);
+          glEnd;
+
+          //We keep the postion of the top left corner b4 it's overwritten
+            GoldenStarPos := Rec.Left;
+          //done
+
+         // srodkowa czesc  -  middle part
+        Rec.Left := Rec.Right;
+        Rec.Right := (Start+Dlugosc-Czesci[NrCzesci].Czesc[Czesci[NrCzesci].Akt].StartNote) * TempR + Left - NotesW - 0.5 + 10*ScreenX;    // Dlugosc == länge
+
+        glBindTexture(GL_TEXTURE_2D, Tex_plain_Mid[PlayerNumber].TexNum);
+        glTexParameterf( GL_TEXTURE_2D, GL_TEXTURE_WRAP_S, GL_REPEAT );
+        glTexParameterf( GL_TEXTURE_2D, GL_TEXTURE_WRAP_T, GL_REPEAT );
+        glBegin(GL_QUADS);
+          glTexCoord2f(0, 0); glVertex2f(Rec.Left,  Rec.Top);
+          glTexCoord2f(0, 1); glVertex2f(Rec.Left,  Rec.Bottom);
+          glTexCoord2f(round((Rec.Right-Rec.Left)/32), 1); glVertex2f(Rec.Right, Rec.Bottom);
+          glTexCoord2f(round((Rec.Right-Rec.Left)/32), 0); glVertex2f(Rec.Right, Rec.Top);
+        glEnd;
+
+        // prawa czesc  -  right part
+        Rec.Left := Rec.Right;
+        Rec.Right := Rec.Right + NotesW;
+
+        glBindTexture(GL_TEXTURE_2D, Tex_plain_Right[PlayerNumber].TexNum);
+        glBegin(GL_QUADS);
+          glTexCoord2f(0, 0); glVertex2f(Rec.Left,  Rec.Top);
+          glTexCoord2f(0, 1); glVertex2f(Rec.Left,  Rec.Bottom);
+          glTexCoord2f(1, 1); glVertex2f(Rec.Right, Rec.Bottom);
+          glTexCoord2f(1, 0); glVertex2f(Rec.Right, Rec.Top);
+        glEnd;
+
+          // Golden Star Patch
+          if (Wartosc = 2) AND (Ini.EffectSing=1) then
+          begin
+            GoldenRec.SaveGoldenStarsRec(GoldenStarPos, Rec.Top, Rec.Right, Rec.Bottom);
+          end;
+
+        end; // if not FreeStyle
+      end; // with
+    end; // for
+  end; // with
+
+  glDisable(GL_BLEND);
+  glDisable(GL_TEXTURE_2D);
+end;
+
+
+// draw sung notes
+procedure SingDrawPlayerCzesc(X, Y, W: real; NrGracza: integer; Space: integer);
+var
+  TempR:    real;
+  Rec:      TRecR;
+  N:        integer;
+  R:        real;
+  G:        real;
+  B:        real;
+  A:        real;
+  NotesH2:  real;
+  begin
+//  Log.LogStatus('Player notes', 'SingDraw');
+
+//  if NrGracza = 0 then LoadColor(R, G, B, 'P1Light')
+//  else LoadColor(R, G, B, 'P2Light');
+
+//  R := 71/255;
+//  G := 175/255;
+//  B := 247/255;
+
+  glColor3f(1, 1, 1);
+  glEnable(GL_TEXTURE_2D);
+  glEnable(GL_BLEND);
+  glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);
+
+  if Player[NrGracza].IlNut > 0 then
+    begin
+      TempR := W / (Czesci[0].Czesc[Czesci[0].Akt].Koniec - Czesci[0].Czesc[Czesci[0].Akt].StartNote);
+        for N := 0 to Player[NrGracza].HighNut do
+          begin
+            with Player[NrGracza].Nuta[N] do
+              begin
+                // Left part of note
+                Rec.Left := X + (Start-Czesci[0].Czesc[Czesci[0].Akt].StartNote) * TempR + 0.5 + 10*ScreenX;
+                Rec.Right := Rec.Left + NotesW;
+
+                // Draw it in half size, if not hit
+               if Hit then
+                 begin
+                   NotesH2 := NotesH
+                 end
+               else
+                 begin
+                   NotesH2 := int(NotesH * 0.65);
+                 end;
+
+                Rec.Top    := Y - (Ton-Czesci[0].Czesc[Czesci[0].Akt].BaseNote)*Space/2 - NotesH2;
+                Rec.Bottom := Rec.Top + 2 *NotesH2;
+
+                // draw the left part
+                glColor3f(1, 1, 1);
+                glBindTexture(GL_TEXTURE_2D, Tex_Left[NrGracza+1].TexNum);
+                glBegin(GL_QUADS);
+                  glTexCoord2f(0, 0); glVertex2f(Rec.Left,  Rec.Top);
+                  glTexCoord2f(0, 1); glVertex2f(Rec.Left,  Rec.Bottom);
+                  glTexCoord2f(1, 1); glVertex2f(Rec.Right, Rec.Bottom);
+                  glTexCoord2f(1, 0); glVertex2f(Rec.Right, Rec.Top);
+                glEnd;
+
+               // Middle part of the note
+               Rec.Left := Rec.Right;
+               Rec.Right := X + (Start+Dlugosc-Czesci[0].Czesc[Czesci[0].Akt].StartNote) * TempR - NotesW - 0.5  + 10*ScreenX;
+
+               // (nowe) - dunno
+               if (Start+Dlugosc-1 = Czas.AktBeatD) then
+                 Rec.Right := Rec.Right - (1-Frac(Czas.MidBeatD)) * TempR;
+               // the left note is more right than the right note itself, sounds weird - so we fix that xD
+               if Rec.Right <= Rec.Left then Rec.Right := Rec.Left;
+
+               // draw the middle part
+               glBindTexture(GL_TEXTURE_2D, Tex_Mid[NrGracza+1].TexNum);
+               glTexParameterf( GL_TEXTURE_2D, GL_TEXTURE_WRAP_S, GL_REPEAT );
+               glTexParameterf( GL_TEXTURE_2D, GL_TEXTURE_WRAP_T, GL_REPEAT );
+               glBegin(GL_QUADS);
+                 glTexCoord2f(0, 0); glVertex2f(Rec.Left,  Rec.Top);
+                 glTexCoord2f(0, 1); glVertex2f(Rec.Left,  Rec.Bottom);
+                 glTexCoord2f(round((Rec.Right-Rec.Left)/32), 1); glVertex2f(Rec.Right, Rec.Bottom);
+                 glTexCoord2f(round((Rec.Right-Rec.Left)/32), 0); glVertex2f(Rec.Right, Rec.Top);
+               glEnd;
+               glColor3f(1, 1, 1);
+
+               // the right part of the note
+               Rec.Left := Rec.Right;
+               Rec.Right := Rec.Right + NotesW;
+
+               glBindTexture(GL_TEXTURE_2D, Tex_Right[NrGracza+1].TexNum);
+               glBegin(GL_QUADS);
+                 glTexCoord2f(0, 0); glVertex2f(Rec.Left,  Rec.Top);
+                 glTexCoord2f(0, 1); glVertex2f(Rec.Left,  Rec.Bottom);
+                 glTexCoord2f(1, 1); glVertex2f(Rec.Right, Rec.Bottom);
+                 glTexCoord2f(1, 0); glVertex2f(Rec.Right, Rec.Top);
+               glEnd;
+
+            // Perfect note is stored
+            if Perfect and (Ini.EffectSing=1) then
+              begin
+                A := 1 - 2*(Czas.Teraz - GetTimeFromBeat(Start+Dlugosc));
+                  if not (Start+Dlugosc-1 = Czas.AktBeatD) then
+
+                  //Star animation counter
+                  //inc(Starfr);
+                  //Starfr := Starfr mod 128;
+                  GoldenRec.SavePerfectNotePos(Rec.Left, Rec.Top);
+              end;
+            end; // with
+        end; // for
+    // eigentlich brauchen wir hier einen vergleich, um festzustellen, ob wir mit
+    // singen schon weiter wären, als bei Rec.Right, _auch, wenn nicht gesungen wird_
+
+    // passing on NrGracza... hope this is really something like the player-number, not only
+    // some kind of weird index into a colour-table
+
+        if (Ini.EffectSing=1) then
+          GoldenRec.GoldenNoteTwinkle(Rec.Top,Rec.Bottom,Rec.Right, NrGracza);
+  end; // if
+end;
+
+//draw Note glow
+procedure SingDrawPlayerBGCzesc(Left, Top, Right: real; NrCzesci, NrGracza: integer; Space: integer);
+var
+  Rec:      TRecR;
+  Pet:      integer;
+  TempR:    real;
+  R,G,B:    real;
+  X1, X2, X3, X4: real;
+  W, H:     real;
+begin
+  if (Player[NrGracza].ScoreTotalI >= 0) then begin
+  glColor4f(1, 1, 1, sqrt((1+sin(Music.Position * 3))/4)/ 2 + 0.5 );
+  glEnable(GL_TEXTURE_2D);
+  glEnable(GL_BLEND);
+  glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);
+  TempR := (Right-Left) / (Czesci[NrCzesci].Czesc[Czesci[NrCzesci].Akt].Koniec - Czesci[NrCzesci].Czesc[Czesci[NrCzesci].Akt].StartNote);
+  with Czesci[NrCzesci].Czesc[Czesci[NrCzesci].Akt] do begin
+    for Pet := 0 to HighNut do begin
+      with Nuta[Pet] do begin
+        if not FreeStyle then begin
+          // begin: 14, 20
+          // easy: 6, 11
+          W := NotesW * 2 + 2;
+          H := NotesH * 1.5 + 3.5;
+
+          X2 := (Start-Czesci[NrCzesci].Czesc[Czesci[NrCzesci].Akt].StartNote) * TempR + Left + 0.5 + 10*ScreenX + 4; // wciecie
+          X1 := X2-W;
+
+          X3 := (Start+Dlugosc-Czesci[NrCzesci].Czesc[Czesci[NrCzesci].Akt].StartNote) * TempR + Left - 0.5 + 10*ScreenX - 4; // wciecie
+          X4 := X3+W;
+
+          // left
+          Rec.Left := X1;
+          Rec.Right := X2;
+          Rec.Top := Top - (Ton-BaseNote)*Space/2 - H;
+          Rec.Bottom := Rec.Top + 2 * H;
+
+          glBindTexture(GL_TEXTURE_2D, Tex_BG_Left[NrGracza+1].TexNum);
+          glBegin(GL_QUADS);
+            glTexCoord2f(0, 0); glVertex2f(Rec.Left,  Rec.Top);
+            glTexCoord2f(0, 1); glVertex2f(Rec.Left,  Rec.Bottom);
+            glTexCoord2f(1, 1); glVertex2f(Rec.Right, Rec.Bottom);
+            glTexCoord2f(1, 0); glVertex2f(Rec.Right, Rec.Top);
+          glEnd;
+
+
+        // srodkowa czesc
+        Rec.Left := X2;
+        Rec.Right := X3;
+
+        glBindTexture(GL_TEXTURE_2D, Tex_BG_Mid[NrGracza+1].TexNum);
+        glBegin(GL_QUADS);
+          glTexCoord2f(0, 0); glVertex2f(Rec.Left,  Rec.Top);
+          glTexCoord2f(0, 1); glVertex2f(Rec.Left,  Rec.Bottom);
+          glTexCoord2f(1, 1); glVertex2f(Rec.Right, Rec.Bottom);
+          glTexCoord2f(1, 0); glVertex2f(Rec.Right, Rec.Top);
+        glEnd;
+
+        // prawa czesc
+        Rec.Left := X3;
+        Rec.Right := X4;
+
+        glBindTexture(GL_TEXTURE_2D, Tex_BG_Right[NrGracza+1].TexNum);
+        glBegin(GL_QUADS);
+          glTexCoord2f(0, 0); glVertex2f(Rec.Left,  Rec.Top);
+          glTexCoord2f(0, 1); glVertex2f(Rec.Left,  Rec.Bottom);
+          glTexCoord2f(1, 1); glVertex2f(Rec.Right, Rec.Bottom);
+          glTexCoord2f(1, 0); glVertex2f(Rec.Right, Rec.Top);
+        glEnd;
+        end; // if not FreeStyle
+      end; // with
+    end; // for
+  end; // with
+
+  glDisable(GL_BLEND);
+  glDisable(GL_TEXTURE_2D);
+  end;
+end;
+
+procedure SingDraw;
+var
+  Pet:      integer;
+  Pet2:     integer;
+  TempR:    real;
+  Rec:      TRecR;
+  TexRec:   TRecR;
+  NR:       TRecR;
+  FS:       real;
+  BarFrom:  integer;
+  BarAlpha: real;
+  BarWspol: real;
+  TempCol:  real;
+  Tekst:    string;
+  LyricTemp:  string;
+  PetCz:    integer;
+
+  //SingBar Mod
+  A: Integer;
+  E: Integer;
+  I: Integer;
+  //end Singbar Mod
+
+begin
+  // positions
+  if Ini.SingWindow = 0 then begin
+    NR.Left := 120;
+  end else begin
+    NR.Left := 20;
+  end;
+  NR.Right := 780;
+
+  NR.Width := NR.Right - NR.Left;
+  NR.WMid := NR.Width / 2;
+  NR.Mid := NR.Left + NR.WMid;
+
+  // background  //BG Fullsize Mod
+  //SingDrawBackground;
+
+  //TimeBar mod
+  SingDrawTimeBar();
+  //eoa TimeBar mod
+
+  // rysuje paski pod nutami
+  if PlayersPlay = 1 then
+    SingDrawNoteLines(Nr.Left + 10*ScreenX, Skin_P2_NotesB - 105, Nr.Right + 10*ScreenX, 15);
+  if (PlayersPlay = 2) or (PlayersPlay = 4) then begin
+    SingDrawNoteLines(Nr.Left + 10*ScreenX, Skin_P1_NotesB - 105, Nr.Right + 10*ScreenX, 15);
+    SingDrawNoteLines(Nr.Left + 10*ScreenX, Skin_P2_NotesB - 105, Nr.Right + 10*ScreenX, 15);
+  end;
+
+  if (PlayersPlay = 3) or (PlayersPlay = 6) then begin
+    SingDrawNoteLines(Nr.Left + 10*ScreenX, 120, Nr.Right + 10*ScreenX, 12);
+    SingDrawNoteLines(Nr.Left + 10*ScreenX, 245, Nr.Right + 10*ScreenX, 12);
+    SingDrawNoteLines(Nr.Left + 10*ScreenX, 370, Nr.Right + 10*ScreenX, 12);
+  end;
+
+  // rysuje tekst - new Lyric engine
+  ScreenSing.LyricMain.Draw;
+  ScreenSing.LyricSub.Draw;
+
+  // rysuje pasek, podpowiadajacy poczatek spiwania w scenie
+  FS := 1.3;
+  BarFrom := Czesci[0].Czesc[Czesci[0].Akt].StartNote - Czesci[0].Czesc[Czesci[0].Akt].Start;
+  if BarFrom > 40 then BarFrom := 40;
+  if (Czesci[0].Czesc[Czesci[0].Akt].StartNote - Czesci[0].Czesc[Czesci[0].Akt].Start > 8) and  // dluga przerwa //16->12 for more help bars and then 12->8 for even more
+    (Czesci[0].Czesc[Czesci[0].Akt].StartNote - Czas.MidBeat > 0) and                     // przed tekstem
+    (Czesci[0].Czesc[Czesci[0].Akt].StartNote - Czas.MidBeat < 40) then begin            // ale nie za wczesnie
+    BarWspol := (Czas.MidBeat - (Czesci[0].Czesc[Czesci[0].Akt].StartNote - BarFrom)) / BarFrom;
+    Rec.Left := NR.Left + BarWspol *
+//      (NR.WMid - Czesci[0].Czesc[Czesci[0].Akt].LyricWidth / 2 * FS - 50);
+      (ScreenSing.LyricMain.ClientX - NR.Left - 50) + 10*ScreenX;
+    Rec.Right := Rec.Left + 50;
+    Rec.Top := Skin_LyricsT + 3;
+    Rec.Bottom := Rec.Top + 33;//SingScreen.LyricMain.Size * 3;
+{    // zapalanie
+    BarAlpha := (BarWspol*10) * 0.5;
+    if BarAlpha > 0.5 then BarAlpha := 0.5;
+
+    // gaszenie
+    if BarWspol > 0.95 then BarAlpha := 0.5 * (1 - (BarWspol - 0.95) * 20);}
+
+    //Change fuer Crazy Joker
+
+  glEnable(GL_TEXTURE_2D);
+  glEnable(GL_BLEND);
+  glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);
+  glBindTexture(GL_TEXTURE_2D, Tex_Lyric_Help_Bar.TexNum);
+  glBegin(GL_QUADS);
+    glColor4f(1, 1, 1, 0);
+    glTexCoord2f(0, 0); glVertex2f(Rec.Left, Rec.Top);
+    glTexCoord2f(0, 1); glVertex2f(Rec.Left, Rec.Bottom);
+    glColor4f(1, 1, 1, 0.5);
+    glTexCoord2f(1, 1); glVertex2f(Rec.Right, Rec.Bottom);
+    glTexCoord2f(1, 0); glVertex2f(Rec.Right, Rec.Top);
+    glEnd;
+    glDisable(GL_BLEND);
+
+   end;
+
+  // oscilloscope
+  if Ini.Oscilloscope = 1 then begin
+    if PlayersPlay = 1 then
+      SingDrawOscilloscope(190 + 10*ScreenX, 55, 180, 40, 0);
+
+    if PlayersPlay = 2 then begin
+      SingDrawOscilloscope(190 + 10*ScreenX, 55, 180, 40, 0);
+      SingDrawOscilloscope(425 + 10*ScreenX, 55, 180, 40, 1);
+    end;
+
+    if PlayersPlay = 4 then begin
+      if ScreenAct = 1 then begin
+        SingDrawOscilloscope(190 + 10*ScreenX, 55, 180, 40, 0);
+        SingDrawOscilloscope(425 + 10*ScreenX, 55, 180, 40, 1);
+      end;
+      if ScreenAct = 2 then begin
+        SingDrawOscilloscope(190 + 10*ScreenX, 55, 180, 40, 2);
+        SingDrawOscilloscope(425 + 10*ScreenX, 55, 180, 40, 3);
+      end;
+    end;
+
+    if PlayersPlay = 3 then begin
+      SingDrawOscilloscope(75 + 10*ScreenX, 95, 100, 20, 0);
+      SingDrawOscilloscope(370 + 10*ScreenX, 95, 100, 20, 1);
+      SingDrawOscilloscope(670 + 10*ScreenX, 95, 100, 20, 2);
+    end;
+
+    if PlayersPlay = 6 then begin
+      if ScreenAct = 1 then begin
+        SingDrawOscilloscope( 75 + 10*ScreenX, 95, 100, 20, 0);
+        SingDrawOscilloscope(370 + 10*ScreenX, 95, 100, 20, 1);
+        SingDrawOscilloscope(670 + 10*ScreenX, 95, 100, 20, 2);
+      end;
+      if ScreenAct = 2 then begin
+        SingDrawOscilloscope( 75 + 10*ScreenX, 95, 100, 20, 3);
+        SingDrawOscilloscope(370 + 10*ScreenX, 95, 100, 20, 4);
+        SingDrawOscilloscope(670 + 10*ScreenX, 95, 100, 20, 5);
+      end;
+    end;
+
+  end
+
+  //SingBar Mod
+  //modded again to make it moveable: it's working, so why try harder
+  else if Ini.Oscilloscope = 2 then
+  begin
+    A := GetTickCount div 33;
+    if A <> Tickold then begin
+      Tickold := A;
+      for E := 0 to (PlayersPlay - 1) do begin //Set new Pos + Alpha
+        I := Player[E].ScorePercentTarget - Player[E].ScorePercent;
+        if I > 0 then Inc(Player[E].ScorePercent)
+        else if I < 0 then Dec(Player[E].ScorePercent);
+      end; //for
+    end; //if
+
+    if PlayersPlay = 1 then begin
+      SingDrawSingbar(Theme.Sing.StaticP1SingBar.x, Theme.Sing.StaticP1SingBar.y, Theme.Sing.StaticP1SingBar.w, Theme.Sing.StaticP1SingBar.h , Player[0].ScorePercent);
+    end;
+
+    if PlayersPlay = 2 then begin
+      SingDrawSingbar(Theme.Sing.StaticP1TwoPSingBar.x, Theme.Sing.StaticP1TwoPSingBar.y, Theme.Sing.StaticP1TwoPSingBar.w, Theme.Sing.StaticP1TwoPSingBar.h , Player[0].ScorePercent);
+      SingDrawSingbar(Theme.Sing.StaticP2RSingBar.x, Theme.Sing.StaticP2RSingBar.y, Theme.Sing.StaticP2RSingBar.w, Theme.Sing.StaticP2RSingBar.h , Player[1].ScorePercent);
+    end;
+
+    if PlayersPlay = 3 then begin
+      SingDrawSingbar(Theme.Sing.StaticP1ThreePSingBar.x, Theme.Sing.StaticP1ThreePSingBar.y, Theme.Sing.StaticP1ThreePSingBar.w, Theme.Sing.StaticP1ThreePSingBar.h , Player[0].ScorePercent);
+      SingDrawSingbar(Theme.Sing.StaticP2MSingBar.x, Theme.Sing.StaticP2MSingBar.y, Theme.Sing.StaticP2MSingBar.w, Theme.Sing.StaticP2MSingBar.h , Player[1].ScorePercent);
+      SingDrawSingbar(Theme.Sing.StaticP3SingBar.x, Theme.Sing.StaticP3SingBar.y, Theme.Sing.StaticP3SingBar.w, Theme.Sing.StaticP3SingBar.h , Player[2].ScorePercent);
+    end;
+
+    if PlayersPlay = 4 then begin
+      if ScreenAct = 1 then begin
+        SingDrawSingbar(Theme.Sing.StaticP1TwoPSingBar.x, Theme.Sing.StaticP1TwoPSingBar.y, Theme.Sing.StaticP1TwoPSingBar.w, Theme.Sing.StaticP1TwoPSingBar.h , Player[0].ScorePercent);
+        SingDrawSingbar(Theme.Sing.StaticP2RSingBar.x, Theme.Sing.StaticP2RSingBar.y, Theme.Sing.StaticP2RSingBar.w, Theme.Sing.StaticP2RSingBar.h , Player[1].ScorePercent);
+      end;
+      if ScreenAct = 2 then begin
+        SingDrawSingbar(Theme.Sing.StaticP1TwoPSingBar.x, Theme.Sing.StaticP1TwoPSingBar.y, Theme.Sing.StaticP1TwoPSingBar.w, Theme.Sing.StaticP1TwoPSingBar.h , Player[2].ScorePercent);
+        SingDrawSingbar(Theme.Sing.StaticP2RSingBar.x, Theme.Sing.StaticP2RSingBar.y, Theme.Sing.StaticP2RSingBar.w, Theme.Sing.StaticP2RSingBar.h , Player[3].ScorePercent);
+      end;
+    end;
+
+    if PlayersPlay = 6 then begin
+      if ScreenAct = 1 then begin
+        SingDrawSingbar(Theme.Sing.StaticP1ThreePSingBar.x, Theme.Sing.StaticP1ThreePSingBar.y, Theme.Sing.StaticP1ThreePSingBar.w, Theme.Sing.StaticP1ThreePSingBar.h , Player[0].ScorePercent);
+        SingDrawSingbar(Theme.Sing.StaticP2MSingBar.x, Theme.Sing.StaticP2MSingBar.y, Theme.Sing.StaticP2MSingBar.w, Theme.Sing.StaticP2MSingBar.h , Player[1].ScorePercent);
+        SingDrawSingbar(Theme.Sing.StaticP3SingBar.x, Theme.Sing.StaticP3SingBar.y, Theme.Sing.StaticP3SingBar.w, Theme.Sing.StaticP3SingBar.h , Player[2].ScorePercent);
+     end;
+      if ScreenAct = 2 then begin
+        SingDrawSingbar(Theme.Sing.StaticP1ThreePSingBar.x, Theme.Sing.StaticP1ThreePSingBar.y, Theme.Sing.StaticP1ThreePSingBar.w, Theme.Sing.StaticP1ThreePSingBar.h , Player[3].ScorePercent);
+        SingDrawSingbar(Theme.Sing.StaticP2MSingBar.x, Theme.Sing.StaticP2MSingBar.y, Theme.Sing.StaticP2MSingBar.w, Theme.Sing.StaticP2MSingBar.h , Player[4].ScorePercent);
+        SingDrawSingbar(Theme.Sing.StaticP3SingBar.x, Theme.Sing.StaticP3SingBar.y, Theme.Sing.StaticP3SingBar.w, Theme.Sing.StaticP3SingBar.h , Player[5].ScorePercent);
+      end;
+    end;
+  end;
+  //end Singbar Mod
+
+  //PhrasenBonus - Line Bonus Mod
+  if Ini.LineBonus > 0 then begin
+    A := GetTickCount div 33;
+    if (A <> Tickold2) AND (Player[0].LineBonus_Visible) then begin
+      Tickold2 := A;
+      for E := 0 to (PlayersPlay - 1) do begin
+        //Change Alpha
+        Player[E].LineBonus_Alpha := Player[E].LineBonus_Alpha - 0.02;
+          if Player[E].LineBonus_Alpha <= 0 then
+            begin
+              Player[E].LineBonus_Age := 0;
+              Player[E].LineBonus_Visible := False
+            end
+          else
+            begin
+              inc(Player[E].LineBonus_Age, 1);
+              //Change Position
+                if (Player[E].LineBonus_PosX < Player[E].LineBonus_TargetX) then
+                    Player[E].LineBonus_PosX := Player[E].LineBonus_PosX + (2 - Player[E].LineBonus_Alpha * 1.5)
+                else if (Player[E].LineBonus_PosX > Player[E].LineBonus_TargetX) then
+                    Player[E].LineBonus_PosX := Player[E].LineBonus_PosX - (2 - Player[E].LineBonus_Alpha * 1.5);
+
+                if (Player[E].LineBonus_PosY < Player[E].LineBonus_TargetY) then
+                    Player[E].LineBonus_PosY := Player[E].LineBonus_PosY + (2 - Player[E].LineBonus_Alpha * 1.5)
+                else if (Player[E].LineBonus_PosY > Player[E].LineBonus_TargetY) then
+                    Player[E].LineBonus_PosY := Player[E].LineBonus_PosY - (2 - Player[E].LineBonus_Alpha * 1.5);
+
+            end; // shift position of the pop up (if not dead)
+      end;       // loop - for all players
+    end;         // if - linebonus
+
+
+    if      PlayersPlay = 1 then begin
+      SingDrawLineBonus( Player[0].LineBonus_PosX, Player[0].LineBonus_PosY, Player[0].LineBonus_Color, Player[0].LineBonus_Alpha, Player[0].LineBonus_Text, Player[0].LineBonus_Age);
+    end
+
+    else if PlayersPlay = 2 then begin
+      SingDrawLineBonus( Player[0].LineBonus_PosX, Player[0].LineBonus_PosY, Player[0].LineBonus_Color, Player[0].LineBonus_Alpha, Player[0].LineBonus_Text, Player[0].LineBonus_Age);
+      SingDrawLineBonus( Player[1].LineBonus_PosX, Player[1].LineBonus_PosY, Player[1].LineBonus_Color, Player[1].LineBonus_Alpha, Player[1].LineBonus_Text, Player[1].LineBonus_Age);
+   end
+
+   else if PlayersPlay = 3 then begin
+      SingDrawLineBonus( Player[0].LineBonus_PosX, Player[0].LineBonus_PosY, Player[0].LineBonus_Color, Player[0].LineBonus_Alpha, Player[0].LineBonus_Text, Player[0].LineBonus_Age);
+      SingDrawLineBonus( Player[1].LineBonus_PosX, Player[1].LineBonus_PosY, Player[1].LineBonus_Color, Player[1].LineBonus_Alpha, Player[1].LineBonus_Text, Player[1].LineBonus_Age);
+      SingDrawLineBonus( Player[2].LineBonus_PosX, Player[2].LineBonus_PosY, Player[2].LineBonus_Color, Player[2].LineBonus_Alpha, Player[2].LineBonus_Text, Player[2].LineBonus_Age);
+    end
+
+   else if PlayersPlay = 4 then begin
+      if ScreenAct = 1 then begin
+        SingDrawLineBonus( Player[0].LineBonus_PosX, Player[0].LineBonus_PosY, Player[0].LineBonus_Color, Player[0].LineBonus_Alpha, Player[0].LineBonus_Text, Player[0].LineBonus_Age);
+        SingDrawLineBonus( Player[1].LineBonus_PosX, Player[1].LineBonus_PosY, Player[1].LineBonus_Color, Player[1].LineBonus_Alpha, Player[1].LineBonus_Text, Player[1].LineBonus_Age);
+      end;
+      if ScreenAct = 2 then begin
+        SingDrawLineBonus( Player[2].LineBonus_PosX, Player[2].LineBonus_PosY, Player[2].LineBonus_Color, Player[2].LineBonus_Alpha, Player[2].LineBonus_Text, Player[2].LineBonus_Age);
+        SingDrawLineBonus( Player[3].LineBonus_PosX, Player[3].LineBonus_PosY, Player[3].LineBonus_Color, Player[3].LineBonus_Alpha, Player[3].LineBonus_Text, Player[3].LineBonus_Age);
+      end;
+    end;
+
+    if PlayersPlay = 6 then begin
+      if ScreenAct = 1 then begin
+        SingDrawLineBonus( Player[0].LineBonus_PosX, Player[0].LineBonus_PosY, Player[0].LineBonus_Color, Player[0].LineBonus_Alpha, Player[0].LineBonus_Text, Player[0].LineBonus_Age);
+        SingDrawLineBonus( Player[1].LineBonus_PosX, Player[1].LineBonus_PosY, Player[1].LineBonus_Color, Player[1].LineBonus_Alpha, Player[1].LineBonus_Text, Player[1].LineBonus_Age);
+        SingDrawLineBonus( Player[2].LineBonus_PosX, Player[2].LineBonus_PosY, Player[2].LineBonus_Color, Player[2].LineBonus_Alpha, Player[2].LineBonus_Text, Player[2].LineBonus_Age);
+      end;
+      if ScreenAct = 2 then begin
+        SingDrawLineBonus( Player[3].LineBonus_PosX, Player[3].LineBonus_PosY, Player[3].LineBonus_Color, Player[3].LineBonus_Alpha, Player[3].LineBonus_Text, Player[3].LineBonus_Age);
+        SingDrawLineBonus( Player[4].LineBonus_PosX, Player[4].LineBonus_PosY, Player[4].LineBonus_Color, Player[4].LineBonus_Alpha, Player[4].LineBonus_Text, Player[4].LineBonus_Age);
+        SingDrawLineBonus( Player[5].LineBonus_PosX, Player[5].LineBonus_PosY, Player[5].LineBonus_Color, Player[5].LineBonus_Alpha, Player[5].LineBonus_Text, Player[5].LineBonus_Age);
+      end;
+    end;
+  end;
+  //PhrasenBonus - Line Bonus Mod End
+
+// Set the note heights according to the difficulty level
+  case Ini.Difficulty of
+    0:
+      begin
+        NotesH := 11; // 9
+        NotesW := 6; // 5
+      end;
+    1:
+      begin
+        NotesH := 8; // 7
+        NotesW := 4; // 4
+      end;
+    2:
+      begin
+        NotesH := 5;
+        NotesW := 3;
+      end;
+  end;
+
+// Draw the Notes
+  if PlayersPlay = 1 then begin
+    SingDrawPlayerBGCzesc(NR.Left + 20, Skin_P2_NotesB, NR.Right - 20, 0, 0, 15);  // Background glow    - colorized in playercolor
+    SingDrawCzesc(NR.Left + 20, Skin_P2_NotesB, NR.Right - 20, 0, 15);             // Plain unsung notes - colorized in playercolor
+    SingDrawPlayerCzesc(Nr.Left + 20, Skin_P2_NotesB, Nr.Width - 40, 0, 15);       // imho the sung notes
+  end;
+
+  if (PlayersPlay = 2)  then begin
+    SingDrawPlayerBGCzesc(Nr.Left + 20, Skin_P1_NotesB, Nr.Right - 20, 0, 0, 15);
+    SingDrawPlayerBGCzesc(Nr.Left + 20, Skin_P2_NotesB, Nr.Right - 20, 0, 1, 15);
+
+    SingDrawCzesc(NR.Left + 20, Skin_P1_NotesB, NR.Right - 20, 0, 15);
+    SingDrawCzesc(NR.Left + 20, Skin_P2_NotesB, NR.Right - 20, 1, 15);
+
+    SingDrawPlayerCzesc(Nr.Left + 20, Skin_P1_NotesB, Nr.Width - 40, 0, 15);
+    SingDrawPlayerCzesc(Nr.Left + 20, Skin_P2_NotesB, Nr.Width - 40, 1, 15);
+  end;
+
+  if PlayersPlay = 3 then begin
+    NotesW := NotesW * 0.8;
+    NotesH := NotesH * 0.8;
+
+    SingDrawPlayerBGCzesc(Nr.Left + 20, 120+95, Nr.Right - 20, 0, 0, 12);
+    SingDrawPlayerBGCzesc(Nr.Left + 20, 245+95, Nr.Right - 20, 0, 1, 12);
+    SingDrawPlayerBGCzesc(Nr.Left + 20, 370+95, Nr.Right - 20, 0, 2, 12);
+
+    SingDrawCzesc(NR.Left + 20, 120+95, NR.Right - 20, 0, 12);
+    SingDrawCzesc(NR.Left + 20, 245+95, NR.Right - 20, 1, 12);
+    SingDrawCzesc(NR.Left + 20, 370+95, NR.Right - 20, 2, 12);
+
+    SingDrawPlayerCzesc(Nr.Left + 20, 120+95, Nr.Width - 40, 0, 12);
+    SingDrawPlayerCzesc(Nr.Left + 20, 245+95, Nr.Width - 40, 1, 12);
+    SingDrawPlayerCzesc(Nr.Left + 20, 370+95, Nr.Width - 40, 2, 12);
+  end;
+
+  if PlayersPlay = 4 then begin
+    if ScreenAct = 1 then begin
+      SingDrawPlayerBGCzesc(Nr.Left + 20, Skin_P1_NotesB, Nr.Right - 20, 0, 0, 15);
+      SingDrawPlayerBGCzesc(Nr.Left + 20, Skin_P2_NotesB, Nr.Right - 20, 0, 1, 15);
+    end;
+    if ScreenAct = 2 then begin
+      SingDrawPlayerBGCzesc(Nr.Left + 20, Skin_P1_NotesB, Nr.Right - 20, 0, 2, 15);
+      SingDrawPlayerBGCzesc(Nr.Left + 20, Skin_P2_NotesB, Nr.Right - 20, 0, 3, 15);
+    end;
+
+    if ScreenAct = 1 then begin
+      SingDrawCzesc(NR.Left + 20, Skin_P1_NotesB, NR.Right - 20, 0, 15);
+      SingDrawCzesc(NR.Left + 20, Skin_P2_NotesB, NR.Right - 20, 1, 15);
+    end;
+    if ScreenAct = 2 then begin
+      SingDrawCzesc(NR.Left + 20, Skin_P1_NotesB, NR.Right - 20, 2, 15);
+      SingDrawCzesc(NR.Left + 20, Skin_P2_NotesB, NR.Right - 20, 3, 15);
+    end;
+
+    if ScreenAct = 1 then begin
+      SingDrawPlayerCzesc(Nr.Left + 20, Skin_P1_NotesB, Nr.Width - 40, 0, 15);
+      SingDrawPlayerCzesc(Nr.Left + 20, Skin_P2_NotesB, Nr.Width - 40, 1, 15);
+    end;
+    if ScreenAct = 2 then begin
+      SingDrawPlayerCzesc(Nr.Left + 20, Skin_P1_NotesB, Nr.Width - 40, 2, 15);
+      SingDrawPlayerCzesc(Nr.Left + 20, Skin_P2_NotesB, Nr.Width - 40, 3, 15);
+    end;
+  end;
+
+  if PlayersPlay = 6 then begin
+    NotesW := NotesW * 0.8;
+    NotesH := NotesH * 0.8;
+
+    if ScreenAct = 1 then begin
+      SingDrawPlayerBGCzesc(Nr.Left + 20, 120+95, Nr.Right - 20, 0, 0, 12);
+      SingDrawPlayerBGCzesc(Nr.Left + 20, 245+95, Nr.Right - 20, 0, 1, 12);
+      SingDrawPlayerBGCzesc(Nr.Left + 20, 370+95, Nr.Right - 20, 0, 2, 12);
+    end;
+    if ScreenAct = 2 then begin
+      SingDrawPlayerBGCzesc(Nr.Left + 20, 120+95, Nr.Right - 20, 0, 3, 12);
+      SingDrawPlayerBGCzesc(Nr.Left + 20, 245+95, Nr.Right - 20, 0, 4, 12);
+      SingDrawPlayerBGCzesc(Nr.Left + 20, 370+95, Nr.Right - 20, 0, 5, 12);
+    end;
+
+    if ScreenAct = 1 then begin
+      SingDrawCzesc(NR.Left + 20, 120+95, NR.Right - 20, 0, 12);
+      SingDrawCzesc(NR.Left + 20, 245+95, NR.Right - 20, 1, 12);
+      SingDrawCzesc(NR.Left + 20, 370+95, NR.Right - 20, 2, 12);
+    end;
+    if ScreenAct = 2 then begin
+      SingDrawCzesc(NR.Left + 20, 120+95, NR.Right - 20, 3, 12);
+      SingDrawCzesc(NR.Left + 20, 245+95, NR.Right - 20, 4, 12);
+      SingDrawCzesc(NR.Left + 20, 370+95, NR.Right - 20, 5, 12);
+    end;
+
+    if ScreenAct = 1 then begin
+      SingDrawPlayerCzesc(Nr.Left + 20, 120+95, Nr.Width - 40, 0, 12);
+      SingDrawPlayerCzesc(Nr.Left + 20, 245+95, Nr.Width - 40, 1, 12);
+      SingDrawPlayerCzesc(Nr.Left + 20, 370+95, Nr.Width - 40, 2, 12);
+    end;
+    if ScreenAct = 2 then begin
+      SingDrawPlayerCzesc(Nr.Left + 20, 120+95, Nr.Width - 40, 3, 12);
+      SingDrawPlayerCzesc(Nr.Left + 20, 245+95, Nr.Width - 40, 4, 12);
+      SingDrawPlayerCzesc(Nr.Left + 20, 370+95, Nr.Width - 40, 5, 12);
+    end;
+  end;
+  glDisable(GL_BLEND);
+  glDisable(GL_TEXTURE_2D);
+end;
+
+// q'n'd for using the game mode dll's
+procedure SingModiDraw (PlayerInfo: TPlayerInfo);
+var
+  Pet:      integer;
+  Pet2:     integer;
+  TempR:    real;
+  Rec:      TRecR;
+  TexRec:   TRecR;
+  NR:       TRecR;
+  FS:       real;
+  BarFrom:  integer;
+  BarAlpha: real;
+  BarWspol: real;
+  TempCol:  real;
+  Tekst:    string;
+  LyricTemp:  string;
+  PetCz:    integer;
+
+  //SingBar Mod
+  A: Integer;
+  E: Integer;
+  I: Integer;
+  //end Singbar Mod
+
+begin
+  // positions
+  if Ini.SingWindow = 0 then begin
+    NR.Left := 120;
+  end else begin
+    NR.Left := 20;
+  end;
+
+  NR.Right := 780;
+  NR.Width := NR.Right - NR.Left;
+  NR.WMid  := NR.Width / 2;
+  NR.Mid   := NR.Left + NR.WMid;
+
+  // time bar
+  SingDrawTimeBar();
+
+  if DLLMan.Selected.ShowNotes then
+  begin
+    if PlayersPlay = 1 then
+      SingDrawNoteLines(Nr.Left + 10*ScreenX, Skin_P2_NotesB - 105, Nr.Right + 10*ScreenX, 15);
+    if (PlayersPlay = 2) or (PlayersPlay = 4) then begin
+      SingDrawNoteLines(Nr.Left + 10*ScreenX, Skin_P1_NotesB - 105, Nr.Right + 10*ScreenX, 15);
+      SingDrawNoteLines(Nr.Left + 10*ScreenX, Skin_P2_NotesB - 105, Nr.Right + 10*ScreenX, 15);
+    end;
+
+    if (PlayersPlay = 3) or (PlayersPlay = 6) then begin
+      SingDrawNoteLines(Nr.Left + 10*ScreenX, 120, Nr.Right + 10*ScreenX, 12);
+      SingDrawNoteLines(Nr.Left + 10*ScreenX, 245, Nr.Right + 10*ScreenX, 12);
+      SingDrawNoteLines(Nr.Left + 10*ScreenX, 370, Nr.Right + 10*ScreenX, 12);
+    end;
+  end;
+
+    // Lyric engine
+    ScreenSingModi.LyricMain.Draw;
+    ScreenSingModi.LyricSub.Draw;
+
+    // rysuje pasek, podpowiadajacy poczatek spiwania w scenie
+    FS := 1.3;
+    BarFrom := Czesci[0].Czesc[Czesci[0].Akt].StartNote - Czesci[0].Czesc[Czesci[0].Akt].Start;
+    if BarFrom > 40 then BarFrom := 40;
+    if (Czesci[0].Czesc[Czesci[0].Akt].StartNote - Czesci[0].Czesc[Czesci[0].Akt].Start > 8) and  // dluga przerwa //16->12 for more help bars and then 12->8 for even more
+       (Czesci[0].Czesc[Czesci[0].Akt].StartNote - Czas.MidBeat > 0) and                     // przed tekstem
+       (Czesci[0].Czesc[Czesci[0].Akt].StartNote - Czas.MidBeat < 40) then begin            // ale nie za wczesnie
+         BarWspol := (Czas.MidBeat - (Czesci[0].Czesc[Czesci[0].Akt].StartNote - BarFrom)) / BarFrom;
+         Rec.Left := NR.Left + BarWspol * (ScreenSingModi.LyricMain.ClientX - NR.Left - 50) + 10*ScreenX;
+         Rec.Right := Rec.Left + 50;
+         Rec.Top := Skin_LyricsT + 3;
+         Rec.Bottom := Rec.Top + 33;//SingScreen.LyricMain.Size * 3;
+
+           glEnable(GL_TEXTURE_2D);
+           glEnable(GL_BLEND);
+           glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);
+           glBindTexture(GL_TEXTURE_2D, Tex_Lyric_Help_Bar.TexNum);
+           glBegin(GL_QUADS);
+             glColor4f(1, 1, 1, 0);
+               glTexCoord2f(0, 0); glVertex2f(Rec.Left, Rec.Top);
+               glTexCoord2f(0, 1); glVertex2f(Rec.Left, Rec.Bottom);
+             glColor4f(1, 1, 1, 0.5);
+               glTexCoord2f(1, 1); glVertex2f(Rec.Right, Rec.Bottom);
+               glTexCoord2f(1, 0); glVertex2f(Rec.Right, Rec.Top);
+           glEnd;
+           glDisable(GL_BLEND);
+    end;
+
+  // oscilloscope | the thing that moves when you yell into your mic (imho)
+  if (((Ini.Oscilloscope = 1) AND (DLLMan.Selected.ShowRateBar_O)) AND (NOT DLLMan.Selected.ShowRateBar)) then begin
+    if PlayersPlay = 1 then
+      if PlayerInfo.Playerinfo[0].Enabled then
+        SingDrawOscilloscope(190 + 10*ScreenX, 55, 180, 40, 0);
+
+    if PlayersPlay = 2 then begin
+      if PlayerInfo.Playerinfo[0].Enabled then
+        SingDrawOscilloscope(190 + 10*ScreenX, 55, 180, 40, 0);
+      if PlayerInfo.Playerinfo[1].Enabled then
+        SingDrawOscilloscope(425 + 10*ScreenX, 55, 180, 40, 1);
+    end;
+
+    if PlayersPlay = 4 then begin
+      if ScreenAct = 1 then begin
+        if PlayerInfo.Playerinfo[0].Enabled then
+          SingDrawOscilloscope(190 + 10*ScreenX, 55, 180, 40, 0);
+        if PlayerInfo.Playerinfo[1].Enabled then
+          SingDrawOscilloscope(425 + 10*ScreenX, 55, 180, 40, 1);
+      end;
+      if ScreenAct = 2 then begin
+        if PlayerInfo.Playerinfo[2].Enabled then
+          SingDrawOscilloscope(190 + 10*ScreenX, 55, 180, 40, 2);
+        if PlayerInfo.Playerinfo[3].Enabled then
+          SingDrawOscilloscope(425 + 10*ScreenX, 55, 180, 40, 3);
+      end;
+    end;
+
+    if PlayersPlay = 3 then begin
+      if PlayerInfo.Playerinfo[0].Enabled then
+        SingDrawOscilloscope(75 + 10*ScreenX, 95, 100, 20, 0);
+      if PlayerInfo.Playerinfo[1].Enabled then
+        SingDrawOscilloscope(370 + 10*ScreenX, 95, 100, 20, 1);
+      if PlayerInfo.Playerinfo[2].Enabled then
+        SingDrawOscilloscope(670 + 10*ScreenX, 95, 100, 20, 2);
+    end;
+
+    if PlayersPlay = 6 then begin
+      if ScreenAct = 1 then begin
+        if PlayerInfo.Playerinfo[0].Enabled then
+          SingDrawOscilloscope( 75 + 10*ScreenX, 95, 100, 20, 0);
+        if PlayerInfo.Playerinfo[1].Enabled then
+          SingDrawOscilloscope(370 + 10*ScreenX, 95, 100, 20, 1);
+        if PlayerInfo.Playerinfo[2].Enabled then
+          SingDrawOscilloscope(670 + 10*ScreenX, 95, 100, 20, 2);
+      end;
+      if ScreenAct = 2 then begin
+        if PlayerInfo.Playerinfo[3].Enabled then
+          SingDrawOscilloscope( 75 + 10*ScreenX, 95, 100, 20, 3);
+        if PlayerInfo.Playerinfo[4].Enabled then
+          SingDrawOscilloscope(370 + 10*ScreenX, 95, 100, 20, 4);
+        if PlayerInfo.Playerinfo[5].Enabled then
+          SingDrawOscilloscope(670 + 10*ScreenX, 95, 100, 20, 5);
+      end;
+    end;
+
+  end
+
+  //SingBar Mod
+  // seems like we don't want the flicker thing, we want the linebonus rating bar beneath the scores
+  else if ((Ini.Oscilloscope = 2) AND (DLLMan.Selected.ShowRateBar_O)) OR (DLLMan.Selected.ShowRateBar) then begin
+    A := GetTickCount div 33;
+    if A <> Tickold then begin
+      Tickold := A;
+      for E := 0 to (PlayersPlay - 1) do begin //Set new Pos + Alpha
+        I := Player[E].ScorePercentTarget - Player[E].ScorePercent;
+          if      I > 0 then Inc(Player[E].ScorePercent)
+          else if I < 0 then Dec(Player[E].ScorePercent);
+      end; //for
+    end; //if
+
+    if PlayersPlay = 1 then begin
+      if PlayerInfo.Playerinfo[0].Enabled then
+        SingDrawSingbar(Theme.Sing.StaticP1SingBar.x, Theme.Sing.StaticP1SingBar.y, Theme.Sing.StaticP1SingBar.w, Theme.Sing.StaticP1SingBar.h , Player[0].ScorePercent);
+    end;
+
+    if PlayersPlay = 2 then begin
+      if PlayerInfo.Playerinfo[0].Enabled then
+        SingDrawSingbar(Theme.Sing.StaticP1TwoPSingBar.x, Theme.Sing.StaticP1TwoPSingBar.y, Theme.Sing.StaticP1TwoPSingBar.w, Theme.Sing.StaticP1TwoPSingBar.h , Player[0].ScorePercent);
+      if PlayerInfo.Playerinfo[1].Enabled then
+        SingDrawSingbar(Theme.Sing.StaticP2RSingBar.x, Theme.Sing.StaticP2RSingBar.y, Theme.Sing.StaticP2RSingBar.w, Theme.Sing.StaticP2RSingBar.h , Player[1].ScorePercent);
+    end;
+
+    if PlayersPlay = 3 then begin
+      if PlayerInfo.Playerinfo[0].Enabled then
+        SingDrawSingbar(Theme.Sing.StaticP1ThreePSingBar.x, Theme.Sing.StaticP1ThreePSingBar.y, Theme.Sing.StaticP1ThreePSingBar.w, Theme.Sing.StaticP1ThreePSingBar.h , Player[0].ScorePercent);
+      if PlayerInfo.Playerinfo[1].Enabled then
+        SingDrawSingbar(Theme.Sing.StaticP2MSingBar.x, Theme.Sing.StaticP2MSingBar.y, Theme.Sing.StaticP2MSingBar.w, Theme.Sing.StaticP2MSingBar.h , Player[1].ScorePercent);
+      if PlayerInfo.Playerinfo[2].Enabled then
+        SingDrawSingbar(Theme.Sing.StaticP3SingBar.x, Theme.Sing.StaticP3SingBar.y, Theme.Sing.StaticP3SingBar.w, Theme.Sing.StaticP3SingBar.h , Player[2].ScorePercent);
+    end;
+
+    if PlayersPlay = 4 then begin
+      if ScreenAct = 1 then begin
+        if PlayerInfo.Playerinfo[0].Enabled then
+          SingDrawSingbar(Theme.Sing.StaticP1TwoPSingBar.x, Theme.Sing.StaticP1TwoPSingBar.y, Theme.Sing.StaticP1TwoPSingBar.w, Theme.Sing.StaticP1TwoPSingBar.h , Player[0].ScorePercent);
+        if PlayerInfo.Playerinfo[1].Enabled then
+          SingDrawSingbar(Theme.Sing.StaticP2RSingBar.x, Theme.Sing.StaticP2RSingBar.y, Theme.Sing.StaticP2RSingBar.w, Theme.Sing.StaticP2RSingBar.h , Player[1].ScorePercent);
+      end;
+      if ScreenAct = 2 then begin
+        if PlayerInfo.Playerinfo[2].Enabled then
+          SingDrawSingbar(Theme.Sing.StaticP1TwoPSingBar.x, Theme.Sing.StaticP1TwoPSingBar.y, Theme.Sing.StaticP1TwoPSingBar.w, Theme.Sing.StaticP1TwoPSingBar.h , Player[2].ScorePercent);
+        if PlayerInfo.Playerinfo[3].Enabled then
+          SingDrawSingbar(Theme.Sing.StaticP2RSingBar.x, Theme.Sing.StaticP2RSingBar.y, Theme.Sing.StaticP2RSingBar.w, Theme.Sing.StaticP2RSingBar.h , Player[3].ScorePercent);
+      end;
+    end;
+
+    if PlayersPlay = 6 then begin
+      if ScreenAct = 1 then begin
+        if PlayerInfo.Playerinfo[0].Enabled then
+          SingDrawSingbar(Theme.Sing.StaticP1ThreePSingBar.x, Theme.Sing.StaticP1ThreePSingBar.y, Theme.Sing.StaticP1ThreePSingBar.w, Theme.Sing.StaticP1ThreePSingBar.h , Player[0].ScorePercent);
+        if PlayerInfo.Playerinfo[1].Enabled then
+          SingDrawSingbar(Theme.Sing.StaticP2MSingBar.x, Theme.Sing.StaticP2MSingBar.y, Theme.Sing.StaticP2MSingBar.w, Theme.Sing.StaticP2MSingBar.h , Player[1].ScorePercent);
+        if PlayerInfo.Playerinfo[2].Enabled then
+          SingDrawSingbar(Theme.Sing.StaticP3SingBar.x, Theme.Sing.StaticP3SingBar.y, Theme.Sing.StaticP3SingBar.w, Theme.Sing.StaticP3SingBar.h , Player[2].ScorePercent);
+      end;
+      if ScreenAct = 2 then begin
+        if PlayerInfo.Playerinfo[3].Enabled then
+          SingDrawSingbar(Theme.Sing.StaticP1ThreePSingBar.x, Theme.Sing.StaticP1ThreePSingBar.y, Theme.Sing.StaticP1ThreePSingBar.w, Theme.Sing.StaticP1ThreePSingBar.h , Player[3].ScorePercent);
+        if PlayerInfo.Playerinfo[4].Enabled then
+          SingDrawSingbar(Theme.Sing.StaticP2MSingBar.x, Theme.Sing.StaticP2MSingBar.y, Theme.Sing.StaticP2MSingBar.w, Theme.Sing.StaticP2MSingBar.h , Player[4].ScorePercent);
+        if PlayerInfo.Playerinfo[5].Enabled then
+          SingDrawSingbar(Theme.Sing.StaticP3SingBar.x, Theme.Sing.StaticP3SingBar.y, Theme.Sing.StaticP3SingBar.w, Theme.Sing.StaticP3SingBar.h , Player[5].ScorePercent);
+      end;
+    end;
+  end;
+  //end Singbar Mod
+
+  //PhrasenBonus - Line Bonus Mod
+  if ((Ini.LineBonus > 0) AND (DLLMan.Selected.EnLineBonus_O)) OR (DLLMan.Selected.EnLineBonus) then begin
+    A := GetTickCount div 33;
+    if (A <> Tickold2) AND (Player[0].LineBonus_Visible) then begin
+      Tickold2 := A;
+      for E := 0 to (PlayersPlay - 1) do begin
+          //Change Alpha
+          Player[E].LineBonus_Alpha := Player[E].LineBonus_Alpha - 0.02;
+
+          if Player[E].LineBonus_Alpha <= 0 then
+            begin
+              Player[E].LineBonus_Age := 0;
+              Player[E].LineBonus_Visible := False
+            end
+          else
+            begin
+              inc(Player[E].LineBonus_Age, 1);
+              //Change Position
+              if (Player[E].LineBonus_PosX < Player[E].LineBonus_TargetX) then         // pop up has not yet reached it's position -> blend in
+                Player[E].LineBonus_PosX := Player[E].LineBonus_PosX + (2 - Player[E].LineBonus_Alpha * 1.5)
+              else if (Player[E].LineBonus_PosX > Player[E].LineBonus_TargetX) then    // pop up has reached it's position -> blend out
+                Player[E].LineBonus_PosX := Player[E].LineBonus_PosX - (2 - Player[E].LineBonus_Alpha * 1.5);
+
+              if (Player[E].LineBonus_PosY < Player[E].LineBonus_TargetY) then
+                Player[E].LineBonus_PosY := Player[E].LineBonus_PosY + (2 - Player[E].LineBonus_Alpha * 1.5)
+              else if (Player[E].LineBonus_PosY > Player[E].LineBonus_TargetY) then
+                Player[E].LineBonus_PosY := Player[E].LineBonus_PosY - (2 - Player[E].LineBonus_Alpha * 1.5);
+
+            end; // pop up still visible, has not reached it's position - move it
+      end;       // loop through all players
+    end;         // if it's time to draw them
+
+    if      PlayersPlay = 1 then begin
+      if PlayerInfo.Playerinfo[0].Enabled then
+        SingDrawLineBonus( Player[0].LineBonus_PosX, Player[0].LineBonus_PosY, Player[0].LineBonus_Color, Player[0].LineBonus_Alpha, Player[0].LineBonus_Text, Player[0].LineBonus_Age);
+    end
+
+    else if PlayersPlay = 2 then begin
+      if PlayerInfo.Playerinfo[0].Enabled then
+        SingDrawLineBonus( Player[0].LineBonus_PosX, Player[0].LineBonus_PosY, Player[0].LineBonus_Color, Player[0].LineBonus_Alpha, Player[0].LineBonus_Text, Player[0].LineBonus_Age);
+      if PlayerInfo.Playerinfo[1].Enabled then
+        SingDrawLineBonus( Player[1].LineBonus_PosX, Player[1].LineBonus_PosY, Player[1].LineBonus_Color, Player[1].LineBonus_Alpha, Player[1].LineBonus_Text, Player[1].LineBonus_Age);
+    end
+
+    else if PlayersPlay = 3 then begin
+      if PlayerInfo.Playerinfo[0].Enabled then
+        SingDrawLineBonus( Player[0].LineBonus_PosX, Player[0].LineBonus_PosY, Player[0].LineBonus_Color, Player[0].LineBonus_Alpha, Player[0].LineBonus_Text, Player[0].LineBonus_Age);
+      if PlayerInfo.Playerinfo[1].Enabled then
+        SingDrawLineBonus( Player[1].LineBonus_PosX, Player[1].LineBonus_PosY, Player[1].LineBonus_Color, Player[1].LineBonus_Alpha, Player[1].LineBonus_Text, Player[1].LineBonus_Age);
+      if PlayerInfo.Playerinfo[2].Enabled then
+        SingDrawLineBonus( Player[2].LineBonus_PosX, Player[2].LineBonus_PosY, Player[2].LineBonus_Color, Player[2].LineBonus_Alpha, Player[2].LineBonus_Text, Player[2].LineBonus_Age);
+    end
+
+    else if PlayersPlay = 4 then begin
+      if ScreenAct = 1 then begin
+        if PlayerInfo.Playerinfo[0].Enabled then
+          SingDrawLineBonus( Player[0].LineBonus_PosX, Player[0].LineBonus_PosY, Player[0].LineBonus_Color, Player[0].LineBonus_Alpha, Player[0].LineBonus_Text, Player[0].LineBonus_Age);
+        if PlayerInfo.Playerinfo[1].Enabled then
+          SingDrawLineBonus( Player[1].LineBonus_PosX, Player[1].LineBonus_PosY, Player[1].LineBonus_Color, Player[1].LineBonus_Alpha, Player[1].LineBonus_Text, Player[1].LineBonus_Age);
+      end;
+      if ScreenAct = 2 then begin
+        if PlayerInfo.Playerinfo[2].Enabled then
+          SingDrawLineBonus( Player[2].LineBonus_PosX, Player[2].LineBonus_PosY, Player[2].LineBonus_Color, Player[2].LineBonus_Alpha, Player[2].LineBonus_Text, Player[2].LineBonus_Age);
+        if PlayerInfo.Playerinfo[3].Enabled then
+          SingDrawLineBonus( Player[3].LineBonus_PosX, Player[3].LineBonus_PosY, Player[3].LineBonus_Color, Player[3].LineBonus_Alpha, Player[3].LineBonus_Text, Player[3].LineBonus_Age);
+      end;
+    end;
+
+    if PlayersPlay = 6 then begin
+      if ScreenAct = 1 then begin
+        if PlayerInfo.Playerinfo[0].Enabled then
+          SingDrawLineBonus( Player[0].LineBonus_PosX, Player[0].LineBonus_PosY, Player[0].LineBonus_Color, Player[0].LineBonus_Alpha, Player[0].LineBonus_Text, Player[0].LineBonus_Age);
+        if PlayerInfo.Playerinfo[1].Enabled then
+          SingDrawLineBonus( Player[1].LineBonus_PosX, Player[1].LineBonus_PosY, Player[1].LineBonus_Color, Player[1].LineBonus_Alpha, Player[1].LineBonus_Text, Player[1].LineBonus_Age);
+        if PlayerInfo.Playerinfo[2].Enabled then
+          SingDrawLineBonus( Player[2].LineBonus_PosX, Player[2].LineBonus_PosY, Player[2].LineBonus_Color, Player[2].LineBonus_Alpha, Player[2].LineBonus_Text, Player[2].LineBonus_Age);
+      end;
+      if ScreenAct = 2 then begin
+        if PlayerInfo.Playerinfo[3].Enabled then
+          SingDrawLineBonus( Player[3].LineBonus_PosX, Player[3].LineBonus_PosY, Player[3].LineBonus_Color, Player[3].LineBonus_Alpha, Player[3].LineBonus_Text, Player[3].LineBonus_Age);
+        if PlayerInfo.Playerinfo[4].Enabled then
+          SingDrawLineBonus( Player[4].LineBonus_PosX, Player[4].LineBonus_PosY, Player[4].LineBonus_Color, Player[4].LineBonus_Alpha, Player[4].LineBonus_Text, Player[4].LineBonus_Age);
+        if PlayerInfo.Playerinfo[5].Enabled then
+          SingDrawLineBonus( Player[5].LineBonus_PosX, Player[5].LineBonus_PosY, Player[5].LineBonus_Color, Player[5].LineBonus_Alpha, Player[5].LineBonus_Text, Player[5].LineBonus_Age);
+      end;
+    end;
+  end;
+//PhrasenBonus - Line Bonus Mod End
+
+// resize the notes according to the difficulty level
+  case Ini.Difficulty of
+    0:
+      begin
+        NotesH := 11; // 9
+        NotesW := 6; // 5
+      end;
+    1:
+      begin
+        NotesH := 8; // 7
+        NotesW := 4; // 4
+      end;
+    2:
+      begin
+        NotesH := 5;
+        NotesW := 3;
+      end;
+  end;
+
+  if (DLLMAn.Selected.ShowNotes And DLLMan.Selected.LoadSong) then
+  begin
+    if (PlayersPlay = 1) And PlayerInfo.Playerinfo[0].Enabled then begin
+      SingDrawPlayerBGCzesc(NR.Left + 20, Skin_P2_NotesB, NR.Right - 20, 0, 0, 15);
+      SingDrawCzesc(NR.Left + 20, Skin_P2_NotesB, NR.Right - 20, 0, 15);
+      SingDrawPlayerCzesc(Nr.Left + 20, Skin_P2_NotesB, Nr.Width - 40, 0, 15);
+    end;
+
+    if (PlayersPlay = 2)  then begin
+      if PlayerInfo.Playerinfo[0].Enabled then
+      begin
+        SingDrawPlayerBGCzesc(Nr.Left + 20, Skin_P1_NotesB, Nr.Right - 20, 0, 0, 15);
+        SingDrawCzesc(NR.Left + 20, Skin_P1_NotesB, NR.Right - 20, 0, 15);
+        SingDrawPlayerCzesc(Nr.Left + 20, Skin_P1_NotesB, Nr.Width - 40, 0, 15);
+      end;
+      if PlayerInfo.Playerinfo[1].Enabled then
+      begin
+        SingDrawPlayerBGCzesc(Nr.Left + 20, Skin_P2_NotesB, Nr.Right - 20, 0, 1, 15);
+        SingDrawCzesc(NR.Left + 20, Skin_P2_NotesB, NR.Right - 20, 0, 15);
+        SingDrawPlayerCzesc(Nr.Left + 20, Skin_P2_NotesB, Nr.Width - 40, 1, 15);
+      end;
+
+    end;
+
+    if PlayersPlay = 3 then begin
+      NotesW := NotesW * 0.8;
+      NotesH := NotesH * 0.8;
+
+      if PlayerInfo.Playerinfo[0].Enabled then
+      begin
+        SingDrawPlayerBGCzesc(Nr.Left + 20, 120+95, Nr.Right - 20, 0, 0, 12);
+        SingDrawCzesc(NR.Left + 20, 120+95, NR.Right - 20, 0, 12);
+        SingDrawPlayerCzesc(Nr.Left + 20, 120+95, Nr.Width - 40, 0, 12);
+      end;
+
+      if PlayerInfo.Playerinfo[1].Enabled then
+      begin
+        SingDrawPlayerBGCzesc(Nr.Left + 20, 245+95, Nr.Right - 20, 0, 1, 12);
+        SingDrawCzesc(NR.Left + 20, 245+95, NR.Right - 20, 0, 12);
+        SingDrawPlayerCzesc(Nr.Left + 20, 245+95, Nr.Width - 40, 1, 12);
+      end;
+
+      if PlayerInfo.Playerinfo[2].Enabled then
+      begin
+        SingDrawPlayerBGCzesc(Nr.Left + 20, 370+95, Nr.Right - 20, 0, 2, 12);
+        SingDrawCzesc(NR.Left + 20, 370+95, NR.Right - 20, 0, 12);
+        SingDrawPlayerCzesc(Nr.Left + 20, 370+95, Nr.Width - 40, 2, 12);
+      end;
+    end;
+
+    if PlayersPlay = 4 then begin
+      if ScreenAct = 1 then begin
+        SingDrawPlayerBGCzesc(Nr.Left + 20, Skin_P1_NotesB, Nr.Right - 20, 0, 0, 15);
+        SingDrawPlayerBGCzesc(Nr.Left + 20, Skin_P2_NotesB, Nr.Right - 20, 0, 1, 15);
+      end;
+      if ScreenAct = 2 then begin
+        SingDrawPlayerBGCzesc(Nr.Left + 20, Skin_P1_NotesB, Nr.Right - 20, 0, 2, 15);
+        SingDrawPlayerBGCzesc(Nr.Left + 20, Skin_P2_NotesB, Nr.Right - 20, 0, 3, 15);
+      end;
+
+      SingDrawCzesc(NR.Left + 20, Skin_P1_NotesB, NR.Right - 20, 0, 15);
+      SingDrawCzesc(NR.Left + 20, Skin_P2_NotesB, NR.Right - 20, 0, 15);
+
+      if ScreenAct = 1 then begin
+        SingDrawPlayerCzesc(Nr.Left + 20, Skin_P1_NotesB, Nr.Width - 40, 0, 15);
+        SingDrawPlayerCzesc(Nr.Left + 20, Skin_P2_NotesB, Nr.Width - 40, 1, 15);
+      end;
+      if ScreenAct = 2 then begin
+        SingDrawPlayerCzesc(Nr.Left + 20, Skin_P1_NotesB, Nr.Width - 40, 2, 15);
+        SingDrawPlayerCzesc(Nr.Left + 20, Skin_P2_NotesB, Nr.Width - 40, 3, 15);
+      end;
+    end;
+
+    if PlayersPlay = 6 then begin
+      NotesW := NotesW * 0.8;
+      NotesH := NotesH * 0.8;
+
+      if ScreenAct = 1 then begin
+        SingDrawPlayerBGCzesc(Nr.Left + 20, 120+95, Nr.Right - 20, 0, 0, 12);
+        SingDrawPlayerBGCzesc(Nr.Left + 20, 245+95, Nr.Right - 20, 0, 1, 12);
+        SingDrawPlayerBGCzesc(Nr.Left + 20, 370+95, Nr.Right - 20, 0, 2, 12);
+      end;
+      if ScreenAct = 2 then begin
+        SingDrawPlayerBGCzesc(Nr.Left + 20, 120+95, Nr.Right - 20, 0, 3, 12);
+        SingDrawPlayerBGCzesc(Nr.Left + 20, 245+95, Nr.Right - 20, 0, 4, 12);
+        SingDrawPlayerBGCzesc(Nr.Left + 20, 370+95, Nr.Right - 20, 0, 5, 12);
+      end;
+
+      SingDrawCzesc(NR.Left + 20, 120+95, NR.Right - 20, 0, 12);
+      SingDrawCzesc(NR.Left + 20, 245+95, NR.Right - 20, 0, 12);
+      SingDrawCzesc(NR.Left + 20, 370+95, NR.Right - 20, 0, 12);
+
+      if ScreenAct = 1 then begin
+        SingDrawPlayerCzesc(Nr.Left + 20, 120+95, Nr.Width - 40, 0, 12);
+        SingDrawPlayerCzesc(Nr.Left + 20, 245+95, Nr.Width - 40, 1, 12);
+        SingDrawPlayerCzesc(Nr.Left + 20, 370+95, Nr.Width - 40, 2, 12);
+      end;
+      if ScreenAct = 2 then begin
+        SingDrawPlayerCzesc(Nr.Left + 20, 120+95, Nr.Width - 40, 3, 12);
+        SingDrawPlayerCzesc(Nr.Left + 20, 245+95, Nr.Width - 40, 4, 12);
+        SingDrawPlayerCzesc(Nr.Left + 20, 370+95, Nr.Width - 40, 5, 12);
+      end;
+    end;
+  end;
+
+  glDisable(GL_BLEND);
+  glDisable(GL_TEXTURE_2D);
+end;
+
+
+//SingBar Mod
+procedure SingDrawSingbar(X, Y, W, H: real; Percent: integer);
+var
+  R:   Real;
+  G:   Real;
+  B:   Real;
+  A:   cardinal;
+  I:   Integer;
+
+begin;
+
+   //SingBar Background
+  glColor4f(1, 1, 1, 0.8);
+  glEnable(GL_TEXTURE_2D);
+  glEnable(GL_BLEND);
+  glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);
+  glBindTexture(GL_TEXTURE_2D, Tex_SingBar_Back.TexNum);
+  glBegin(GL_QUADS);
+    glTexCoord2f(0, 0); glVertex2f(X, Y);
+    glTexCoord2f(0, 1); glVertex2f(X, Y+H);
+    glTexCoord2f(1, 1); glVertex2f(X+W, Y+H);
+    glTexCoord2f(1, 0); glVertex2f(X+W, Y);
+  glEnd;
+
+  //SingBar coloured Bar
+  Case Percent of
+    0..22: begin
+          R := 1;
+          G := 0;
+          B := 0;
+        end;
+    23..42: begin
+          R := 1;
+          G := ((Percent-23)/100)*5;
+          B := 0;
+        end;
+    43..57: begin
+          R := 1;
+          G := 1;
+          B := 0;
+        end;
+    58..77: begin
+          R := 1-(Percent - 58)/100*5;
+          G := 1;
+          B := 0;
+        end;
+    78..99: begin
+          R := 0;
+          G := 1;
+          B := 0;
+        end;
+    End; //Case
+
+  glColor4f(R, G, B, 1);
+  glEnable(GL_TEXTURE_2D);
+  glEnable(GL_BLEND);
+  glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);
+  glBindTexture(GL_TEXTURE_2D, Tex_SingBar_Bar.TexNum);
+  //Size= Player[PlayerNum].ScorePercent of W
+    glBegin(GL_QUADS);
+    glTexCoord2f(0, 0); glVertex2f(X, Y);
+    glTexCoord2f(0, 1); glVertex2f(X, Y+H);
+    glTexCoord2f(1, 1); glVertex2f(X+(W/100 * (Percent +1)), Y+H);
+    glTexCoord2f(1, 0); glVertex2f(X+(W/100 * (Percent +1)), Y);
+  glEnd;
+
+  //SingBar Front
+  glColor4f(1, 1, 1, 0.6);
+  glEnable(GL_TEXTURE_2D);
+  glEnable(GL_BLEND);
+  glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);
+  glBindTexture(GL_TEXTURE_2D, Tex_SingBar_Front.TexNum);
+  glBegin(GL_QUADS);
+    glTexCoord2f(0, 0); glVertex2f(X, Y);
+    glTexCoord2f(0, 1); glVertex2f(X, Y+H);
+    glTexCoord2f(1, 1); glVertex2f(X+W, Y+H);
+    glTexCoord2f(1, 0); glVertex2f(X+W, Y);
+  glEnd;
+end;
+//end Singbar Mod
+
+//PhrasenBonus - Line Bonus Pop Up
+procedure SingDrawLineBonus( const X, Y: Single; Color: TRGB; Alpha: Single; Text: string; Age: Integer);
+var
+Length, X2: Real; //Length of Text
+Size: Integer;    //Size of Popup
+begin
+if Alpha <> 0 then
+begin
+
+//Set Font Propertys
+SetFontStyle(2); //Font: Outlined1
+if Age < 5 then SetFontSize(Age + 1) else SetFontSize(6);
+SetFontItalic(False);
+
+//Check Font Size
+Length := glTextWidth ( PChar(Text)) + 3; //Little Space for a Better Look ^^
+
+//Text
+SetFontPos (X + 50 - (Length / 2), Y + 12); //Position
+
+
+if Age < 5 then Size := Age * 10 else Size := 50;
+
+  //Draw  Background
+  //glColor4f(Color.R, Color.G, Color.B, Alpha); //Set Color
+  glColor4f(1, 1, 1, Alpha);
+
+
+  glEnable(GL_TEXTURE_2D);
+  glEnable(GL_BLEND);
+  //glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);
+
+
+  //New Method, Not Variable
+  glBindTexture(GL_TEXTURE_2D, Tex_SingLineBonusBack[2].TexNum);
+
+  glBegin(GL_QUADS);
+    glTexCoord2f(0, 0); glVertex2f(X + 50 - Size, Y + 25 - (Size/2));
+    glTexCoord2f(0, 1); glVertex2f(X + 50 - Size, Y + 25 + (Size/2));
+    glTexCoord2f(1, 1); glVertex2f(X + 50 + Size, Y + 25 + (Size/2));
+    glTexCoord2f(1, 0); glVertex2f(X + 50 + Size, Y + 25 - (Size/2));
+  glEnd;
+
+  glColor4f(1, 1, 1, Alpha); //Set Color
+  //Draw Text
+  glPrint (PChar(Text));
+end;
+end;
+//PhrasenBonus - Line Bonus Mod
+
+// Draw Note Bars for Editor
+//There are 11 Resons for a new Procdedure:
+// 1. It don't look good when you Draw the Golden Note Star Effect in the Editor
+// 2. You can see the Freestyle Notes in the Editor SemiTransparent
+// 3. Its easier and Faster then changing the old Procedure
+procedure EditDrawCzesc(Left, Top, Right: real; NrCzesci: integer; Space: integer);
+var
+  Rec:      TRecR;
+  Pet:      integer;
+  TempR:    real;
+begin
+  glColor3f(1, 1, 1);
+  glEnable(GL_TEXTURE_2D);
+  glEnable(GL_BLEND);
+  glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);
+  TempR := (Right-Left) / (Czesci[NrCzesci].Czesc[Czesci[NrCzesci].Akt].Koniec - Czesci[NrCzesci].Czesc[Czesci[NrCzesci].Akt].StartNote);
+  with Czesci[NrCzesci].Czesc[Czesci[NrCzesci].Akt] do begin
+    for Pet := 0 to HighNut do begin
+      with Nuta[Pet] do begin
+
+          // Golden Note Patch
+          case Wartosc of
+            0: glColor4f(1, 1, 1, 0.35);
+            1: glColor4f(1, 1, 1, 0.85);
+            2: glColor4f(1, 1, 0.3, 0.85);
+          end; // case
+
+
+
+          // lewa czesc  -  left part
+          Rec.Left := (Start-Czesci[NrCzesci].Czesc[Czesci[NrCzesci].Akt].StartNote) * TempR + Left + 0.5 + 10*ScreenX;
+          Rec.Right := Rec.Left + NotesW;
+          Rec.Top := Top - (Ton-BaseNote)*Space/2 - NotesH;
+          Rec.Bottom := Rec.Top + 2 * NotesH;
+          glBindTexture(GL_TEXTURE_2D, Tex_Left[Color].TexNum);
+          glBegin(GL_QUADS);
+            glTexCoord2f(0, 0); glVertex2f(Rec.Left,  Rec.Top);
+            glTexCoord2f(0, 1); glVertex2f(Rec.Left,  Rec.Bottom);
+            glTexCoord2f(1, 1); glVertex2f(Rec.Right, Rec.Bottom);
+            glTexCoord2f(1, 0); glVertex2f(Rec.Right, Rec.Top);
+          glEnd;
+
+         // srodkowa czesc  -  middle part
+        Rec.Left := Rec.Right;
+        Rec.Right := (Start+Dlugosc-Czesci[NrCzesci].Czesc[Czesci[NrCzesci].Akt].StartNote) * TempR + Left - NotesW - 0.5 + 10*ScreenX;
+
+        glBindTexture(GL_TEXTURE_2D, Tex_Mid[Color].TexNum);
+        glBegin(GL_QUADS);
+          glTexCoord2f(0, 0); glVertex2f(Rec.Left,  Rec.Top);
+          glTexCoord2f(0, 1); glVertex2f(Rec.Left,  Rec.Bottom);
+          glTexCoord2f(1, 1); glVertex2f(Rec.Right, Rec.Bottom);
+          glTexCoord2f(1, 0); glVertex2f(Rec.Right, Rec.Top);
+        glEnd;
+
+        // prawa czesc  -  right part
+        Rec.Left := Rec.Right;
+        Rec.Right := Rec.Right + NotesW;
+
+        glBindTexture(GL_TEXTURE_2D, Tex_Right[Color].TexNum);
+        glBegin(GL_QUADS);
+          glTexCoord2f(0, 0); glVertex2f(Rec.Left,  Rec.Top);
+          glTexCoord2f(0, 1); glVertex2f(Rec.Left,  Rec.Bottom);
+          glTexCoord2f(1, 1); glVertex2f(Rec.Right, Rec.Bottom);
+          glTexCoord2f(1, 0); glVertex2f(Rec.Right, Rec.Top);
+        glEnd;
+
+      end; // with
+    end; // for
+  end; // with
+
+  glDisable(GL_BLEND);
+  glDisable(GL_TEXTURE_2D);
+end;
+
+procedure SingDrawTimeBar();
+var x,y:           real;
+    width, height: real;
+begin
+  x := Theme.Sing.StaticTimeProgress.x;
+  y := Theme.Sing.StaticTimeProgress.y;
+  width:= Theme.Sing.StaticTimeProgress.w;
+  height:= Theme.Sing.StaticTimeProgress.h;
+
+  glColor4f(Theme.Sing.StaticTimeProgress.ColR,
+  Theme.Sing.StaticTimeProgress.ColG,
+  Theme.Sing.StaticTimeProgress.ColB, 1); //Set Color
+
+  glEnable(GL_TEXTURE_2D);
+  glEnable(GL_BLEND);
+
+  glBindTexture(GL_TEXTURE_2D, Tex_TimeProgress.TexNum);
+
+  glBegin(GL_QUADS);
+    glTexCoord2f(0, 0); glVertex2f(x,y);
+    glTexCoord2f((width*(Czas.Teraz/Czas.Razem))/8, 0); glVertex2f(x+width*(Czas.Teraz/Czas.Razem), y);
+    glTexCoord2f((width*(Czas.Teraz/Czas.Razem))/8, 1); glVertex2f(x+width*(Czas.Teraz/Czas.Razem), y+height);
+    glTexCoord2f(0, 1); glVertex2f(x, y+height);
+  glEnd;
+
+ glDisable(GL_TEXTURE_2D);
+ glDisable(GL_BLEND);
+ glcolor4f(1,1,1,1);
+end;
+
+end.
+
diff --git a/Game/Code/Classes/UGraphic.pas b/Game/Code/Classes/UGraphic.pas
index eb7dde8e..aaa4b3d7 100644
--- a/Game/Code/Classes/UGraphic.pas
+++ b/Game/Code/Classes/UGraphic.pas
@@ -1,607 +1,611 @@
-unit UGraphic;

-

-interface

-

-{$IFDEF FPC}

-  {$MODE DELPHI}

-{$ENDIF}

-

-uses

-  SDL,

-  OpenGL12,

-  UTexture,

-  TextGL,

-  ULog,

-  SysUtils,

-  ULyrics,

-  UScreenLoading,

-  UScreenWelcome,

-  UScreenMain,

-  UScreenName,

-  UScreenLevel,

-  UScreenOptions,

-  UScreenOptionsGame,

-  UScreenOptionsGraphics,

-  UScreenOptionsSound,

-  UScreenOptionsLyrics,

-  UScreenOptionsThemes,

-  UScreenOptionsRecord,

-  UScreenOptionsAdvanced,

-  UScreenSong,

-  UScreenSing,

-  UScreenScore,

-  UScreenTop5,

-  UScreenEditSub,

-  UScreenEdit,

-  UScreenEditConvert,

-  UScreenEditHeader,

-  UScreenOpen,

-  UThemes,

-  USkins,

-  UScreenSongMenu,

-  UScreenSongJumpto,

-  {Party Screens}

-  UScreenSingModi,

-  UScreenPartyNewRound,

-  UScreenPartyScore,

-  UScreenPartyOptions,

-  UScreenPartyWin,

-  UScreenPartyPlayer,

-  {Stats Screens}

-  UScreenStatMain,

-  UScreenStatDetail,

-  {CreditsScreen}

-  UScreenCredits,

-  {Popup for errors, etc.}

-  UScreenPopup;

-

-type

-  TRecR = record

-    Top:    real;

-    Left:   real;

-    Right:  real;

-    Bottom: real;

-  end;

-

-var

-  Screen:             PSDL_Surface;

-

-  LoadingThread:         PSDL_Thread;

-  Mutex:          PSDL_Mutex;

-

-  RenderW:    integer;

-  RenderH:    integer;

-  ScreenW:    integer;

-  ScreenH:    integer;

-  Screens:    integer;

-  ScreenAct:  integer;

-  ScreenX:    integer;

-

-  ScreenLoading:      TScreenLoading;

-  ScreenWelcome:      TScreenWelcome;

-  ScreenMain:         TScreenMain;

-  ScreenName:         TScreenName;

-  ScreenLevel:        TScreenLevel;

-  ScreenSong:         TScreenSong;

-  ScreenSing:         TScreenSing;

-  ScreenScore:        TScreenScore;

-  ScreenTop5:         TScreenTop5;

-  ScreenOptions:          TScreenOptions;

-  ScreenOptionsGame:      TScreenOptionsGame;

-  ScreenOptionsGraphics:  TScreenOptionsGraphics;

-  ScreenOptionsSound:     TScreenOptionsSound;

-  ScreenOptionsLyrics:    TScreenOptionsLyrics;

-  ScreenOptionsThemes:    TScreenOptionsThemes;

-  ScreenOptionsRecord:    TScreenOptionsRecord;

-  ScreenOptionsAdvanced:  TScreenOptionsAdvanced;

-  ScreenEditSub:      TScreenEditSub;

-  ScreenEdit:         TScreenEdit;

-  ScreenEditConvert:  TScreenEditConvert;

-  ScreenEditHeader:   TScreenEditHeader;

-  ScreenOpen:         TScreenOpen;

-

-  ScreenSongMenu:     TScreenSongMenu;

-  ScreenSongJumpto:     TScreenSongJumpto;

-

-  //Party Screens

-  ScreenSingModi:         TScreenSingModi;

-  ScreenPartyNewRound:    TScreenPartyNewRound;

-  ScreenPartyScore:       TScreenPartyScore;

-  ScreenPartyWin:         TScreenPartyWin;

-  ScreenPartyOptions:     TScreenPartyOptions;

-  ScreenPartyPlayer:      TScreenPartyPlayer;

-

-  //StatsScreens

-  ScreenStatMain:         TScreenStatMain;

-  ScreenStatDetail:       TScreenStatDetail;

-

-  //CreditsScreen

-  ScreenCredits: TScreenCredits;

-

-  //popup mod

-  ScreenPopupCheck: TScreenPopupCheck;

-  ScreenPopupError: TScreenPopupError;

-

-  //Notes

-  Tex_Left:        array[0..6] of TTexture;   //rename to tex_note_left

-  Tex_Mid:         array[0..6] of TTexture;   //rename to tex_note_mid

-  Tex_Right:       array[0..6] of TTexture;   //rename to tex_note_right

-

-  Tex_plain_Left:  array[1..6] of TTexture;   //rename to tex_notebg_left

-  Tex_plain_Mid:   array[1..6] of TTexture;   //rename to tex_notebg_mid

-  Tex_plain_Right: array[1..6] of TTexture;   //rename to tex_notebg_right

-

-  Tex_BG_Left:     array[1..6] of TTexture;   //rename to tex_noteglow_left

-  Tex_BG_Mid:      array[1..6] of TTexture;   //rename to tex_noteglow_mid

-  Tex_BG_Right:    array[1..6] of TTexture;   //rename to tex_noteglow_right

-

-  Tex_Note_Star:  TTexture;

-  Tex_Note_Perfect_Star: TTexture;

-

-

-  Tex_Ball:       TTexture;

-  Tex_Lyric_Help_Bar: TTexture;

-  FullScreen:     boolean;

-

-  Tex_TimeProgress: TTexture;

-

-  //Sing Bar Mod

-  Tex_SingBar_Back:  TTexture;

-  Tex_SingBar_Bar:  TTexture;

-  Tex_SingBar_Front:  TTexture;

-  //end Singbar Mod

-

-  //PhrasenBonus - Line Bonus Mod

-  Tex_SingLineBonusBack: array[0..8] of TTexture;

-  //End PhrasenBonus - Line Bonus Mod

-

-const

-  Skin_BGColorR = 1;

-  Skin_BGColorG = 1;

-  Skin_BGColorB = 1;

-

-  Skin_SpectrumR = 0;

-  Skin_SpectrumG = 0;

-  Skin_SpectrumB = 0;

-

-  Skin_Spectograph1R = 0.6;

-  Skin_Spectograph1G = 0.8;

-  Skin_Spectograph1B = 1;

-

-  Skin_Spectograph2R = 0;

-  Skin_Spectograph2G = 0;

-  Skin_Spectograph2B = 0.2;

-

-  Skin_SzczytR = 0.8;

-  Skin_SzczytG = 0;

-  Skin_SzczytB = 0;

-

-  Skin_SzczytLimitR = 0;

-  Skin_SzczytLimitG = 0.8;

-  Skin_SzczytLimitB = 0;

-

-  Skin_FontR = 0;

-  Skin_FontG = 0;

-  Skin_FontB = 0;

-

-  Skin_FontHighlightR = 0.3; // 0.3

-  Skin_FontHighlightG = 0.3; // 0.3

-  Skin_FontHighlightB = 1;   // 1

-

-  Skin_TimeR = 0.25; //0,0,0

-  Skin_TimeG = 0.25;

-  Skin_TimeB = 0.25;

-

-  Skin_OscR = 0;

-  Skin_OscG = 0;

-  Skin_OscB = 0;

-

-  Skin_LyricsT = 494; // 500 / 510 / 400

-  Skin_SpectrumT = 470;

-  Skin_SpectrumBot = 570;

-  Skin_SpectrumH = 100;

-

-  Skin_P1_LinesR = 0.5;  // 0.6 0.6 1

-  Skin_P1_LinesG = 0.5;

-  Skin_P1_LinesB = 0.5;

-

-  Skin_P2_LinesR = 0.5; // 1 0.6 0.6

-  Skin_P2_LinesG = 0.5;

-  Skin_P2_LinesB = 0.5;

-

-  Skin_P1_NotesB = 250;

-  Skin_P2_NotesB = 430; // 430 / 300

-

-  Skin_P1_ScoreT = 50;

-  Skin_P1_ScoreL = 20;

-

-  Skin_P2_ScoreT = 50;

-  Skin_P2_ScoreL = 640;

-

-procedure Initialize3D (Title: string);

-procedure Reinitialize3D;

-procedure SwapBuffers;

-

-procedure LoadTextures;

-procedure InitializeScreen;

-procedure LoadLoadingScreen;

-procedure LoadScreens;

-

-function LoadingThreadFunction: integer;

-

-

-implementation

-

-uses  UMain,

-      UIni,

-      UDisplay,

-      UCommandLine,

-      {$IFNDEF FPC}

-      Graphics,

-      {$ENDIF}

-      Classes,

-      Windows;

-

-procedure LoadTextures;

-

-

-var

-  P:        integer;

-  R, G, B:  real;

-  Col:      integer;

-begin

-   // zaladowanie tekstur

-  Log.LogStatus('Loading Textures', 'LoadTextures');

-  Tex_Left[0]  := Texture.LoadTexture(pchar(Skin.GetTextureFileName('GrayLeft')),  'BMP', 'Transparent', 0);     //brauch man die noch?

-  Tex_Mid[0]   := Texture.LoadTexture(pchar(Skin.GetTextureFileName('GrayMid')),   'BMP', 'Plain', 0);           //brauch man die noch?

-  Tex_Right[0] := Texture.LoadTexture(pchar(Skin.GetTextureFileName('GrayRight')), 'BMP', 'Transparent', 0);     //brauch man die noch?

-

-  // P1-6

-  for P := 1 to 6 do begin

-    LoadColor(R, G, B, 'P' + IntToStr(P) + 'Light');

-    Col := $10000 * Round(R*255) + $100 * Round(G*255) + Round(B*255);

-    Tex_Left[P]        :=  Texture.LoadTexture(pchar(Skin.GetTextureFileName('GrayLeft')),  'PNG', 'Colorized', Col);

-    Tex_Mid[P]         :=  Texture.LoadTexture(pchar(Skin.GetTextureFileName('GrayMid')),   'PNG', 'Colorized', Col);

-    Tex_Right[P]       :=  Texture.LoadTexture(pchar(Skin.GetTextureFileName('GrayRight')), 'PNG', 'Colorized', Col);

-

-    Tex_plain_Left[P]  :=  Texture.LoadTexture(pchar(Skin.GetTextureFileName('NotePlainLeft')),  'PNG', 'Colorized', Col);

-    Tex_plain_Mid[P]   :=  Texture.LoadTexture(pchar(Skin.GetTextureFileName('NotePlainMid')),   'PNG', 'Colorized', Col);

-    Tex_plain_Right[P] :=  Texture.LoadTexture(pchar(Skin.GetTextureFileName('NotePlainRight')), 'PNG', 'Colorized', Col);

-

-    Tex_BG_Left[P]     := Texture.LoadTexture(pchar(Skin.GetTextureFileName('NoteBGLeft')),  'PNG', 'Colorized', Col);

-    Tex_BG_Mid[P]      := Texture.LoadTexture(pchar(Skin.GetTextureFileName('NoteBGMid')),   'PNG', 'Colorized', Col);

-    Tex_BG_Right[P]    := Texture.LoadTexture(pchar(Skin.GetTextureFileName('NoteBGRight')), 'PNG', 'Colorized', Col);

-  end;

-

-  Tex_Note_Perfect_Star := Texture.LoadTexture(pchar(Skin.GetTextureFileName('NotePerfectStar')), 'JPG', 'Font Black', 0);

-  Tex_Note_Star :=   Texture.LoadTexture(pchar(Skin.GetTextureFileName('NoteStar')) , 'JPG', 'Alpha Black Colored', $FFFFFF);

-  Tex_Ball :=        Texture.LoadTexture(pchar(Skin.GetTextureFileName('Ball')), 'BMP', 'Transparent', $FF00FF);

-  Tex_Lyric_Help_Bar := Texture.LoadTexture(pchar(Skin.GetTextureFileName('LyricHelpBar')), 'BMP', 'Transparent', $FF00FF);

-

-

-  //TimeBar mod

-  Tex_TimeProgress :=  Texture.LoadTexture(pchar(Skin.GetTextureFileName('TimeBar')));

-  //eoa TimeBar mod

-

-  //SingBar Mod

-  Tex_SingBar_Back :=  Texture.LoadTexture(pchar(Skin.GetTextureFileName('SingBarBack')),   'JPG', 'Plain', 0);

-  Tex_SingBar_Bar :=  Texture.LoadTexture(pchar(Skin.GetTextureFileName('SingBarBar')),   'JPG', 'Plain', 0);

-  Tex_SingBar_Front :=  Texture.LoadTexture(pchar(Skin.GetTextureFileName('SingBarFront')),   'JPG', 'Font', 0);

-  //end Singbar Mod

-

-  //Line Bonus PopUp

-  for P := 0 to 8 do

-    begin

-      Tex_SingLineBonusBack[P] :=  Texture.LoadTexture(pchar(Skin.GetTextureFileName('LineBonusBack')), 'PNG', 'Colorized', $FFFFFF);

-    end;

-  {//Set Texture to Font High

-  Tex_SingLineBonusL.H := 32; Tex_SingLineBonusL.W := 8;

-  Tex_SingLineBonusM.H := 32; //Tex_SingLineBonusM.TexW := Tex_SingLineBonusM.TexW/2;

-  Tex_SingLineBonusR.H := 32; Tex_SingLineBonusR.W := 8;  }

-  //PhrasenBonus - Line Bonus Mod End

-

-  // tworzenie czcionek

-  Log.LogStatus('Building Fonts', 'LoadTextures');

-  BuildFont;

-end;

-

-procedure Initialize3D (Title: string);

-var

-//  Icon: TIcon;

-  Res:  TResourceStream;

-  ISurface: PSDL_Surface;

-  Pixel: PByteArray;

-  I: Integer;

-begin

-  Log.LogStatus('LoadOpenGL', 'Initialize3D');

-  Log.BenchmarkStart(2);

-

-  LoadOpenGL;

-

-  Log.LogStatus('SDL_Init', 'Initialize3D');

-  if ( SDL_Init(SDL_INIT_VIDEO or SDL_INIT_AUDIO)= -1 ) then begin

-    Log.LogError('SDL_Init Failed', 'Initialize3D');

-    exit;

-  end;

-

- { //Load Icon

-  Res := TResourceStream.CreateFromID(HInstance, 3, RT_ICON);

-  Icon := TIcon.Create;

-  Icon.LoadFromStream(Res);

-  Res.Free;

-  Icon.

-  //Create icon Surface

-  SDL_CreateRGBSurfaceFrom (

-  SDL_SWSURFACE,

-  Icon.Width,

-  Icon.Height,

-  32,

-  128 or 64,

-  32 or 16,

-  8 or 4,

-  2 or 1);

-  //SDL_BlitSurface(

-

-

-  SDL_WM_SetIcon(SDL_LoadBMP('DEFAULT_WINDOW_ICON'), 0); //}

-

-  SDL_WM_SetCaption(PChar(Title), nil);

-

-  InitializeScreen;

-

-  Log.BenchmarkEnd(2);

-  Log.LogBenchmark('--> Setting Screen', 2);

-

-  // ladowanie tekstur

-  Log.BenchmarkStart(2);

-  Texture := TTextureUnit.Create;

-  Texture.Limit := 1024*1024;

-

-  LoadTextures;

-  Log.BenchmarkEnd(2);

-  Log.LogBenchmark('--> Loading Textures', 2);

-

-  Log.BenchmarkStart(2);

-  Lyric := TLyric.Create;

-  Log.BenchmarkEnd(2);

-  Log.LogBenchmark('--> Loading Fonts', 2);

-

-  Log.BenchmarkStart(2);

-  Display := TDisplay.Create;

-  SDL_EnableUnicode(1);

-  Log.BenchmarkEnd(2); Log.LogBenchmark('====> Creating Display', 2);

-

-  Log.LogStatus('Loading Screens', 'Initialize3D');

-  Log.BenchmarkStart(3);

-

-  LoadLoadingScreen;

-  // now that we have something to display while loading,

-  // start thread that loads the rest of ultrastar

-//  Mutex   := SDL_CreateMutex;

-//  SDL_UnLockMutex(Mutex);

-

-  // funktioniert so noch nicht, da der ladethread unverändert auf opengl zugreifen will

-  // siehe dazu kommentar unten

-  //LoadingThread  := SDL_CreateThread(@LoadingThread, nil);

-

-  // das hier würde dann im ladethread ausgeführt

-  LoadScreens;

-

-

-  // TODO!!!!!!1

-  // hier käme jetzt eine schleife, die

-  // * den ladescreen malt (ab und zu)

-  // * den "fortschritt" des ladescreens steuert

-  // * zwischendrin schaut, ob der ladethread texturen geladen hat (mutex prüfen) und

-  //   * die texturen in die opengl lädt, sowie

-  //   * dem ladethread signalisiert, dass der speicher für die textur

-  //     zum laden der nächsten textur weiterverwendet werden kann (über weiteren mutex)

-  // * über einen 3. mutex so lange läuft, bis der ladethread signalisiert,

-  //   dass er alles geladen hat fertig ist

-  //

-  // dafür muss loadtexture so umgeschrieben werden, dass es, statt selbst irgendwelche

-  // opengl funktionen aufzurufen, entsprechend mutexe verändert

-  // der hauptthread muss auch irgendwoher erfahren, was an opengl funktionen auszuführen ist,

-  // mit welchen parametern (texturtyp, entspr. texturobjekt, textur-zwischenspeicher-adresse, ...

-

-

-  //wait for loading thread to finish

-  // funktioniert so auch noch nicht

-  //SDL_WaitThread(LoadingThread, I);

-//  SDL_DestroyMutex(Mutex);

-

-  Display.ActualScreen^.FadeTo(@ScreenMain);

-

-  Log.BenchmarkEnd(2);

-  Log.LogBenchmark('--> Loading Screens', 2);

-

-  Log.LogStatus('Finish', 'Initialize3D');

-end;

-

-procedure SwapBuffers;

-begin

-  SDL_GL_SwapBuffers;

-  glMatrixMode(GL_PROJECTION);

-    glLoadIdentity;

-    glOrtho(0, RenderW, RenderH, 0, -1, 100);

-  glMatrixMode(GL_MODELVIEW);

-end;

-

-procedure Reinitialize3D;

-begin

-//  InitializeScreen;

-//  LoadTextures;

-//  LoadScreens;

-end;

-

-procedure InitializeScreen;

-var

-  S:      string;

-  I:      integer;

-  W, H:   integer;

-  Depth:  Integer;

-begin

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

-    Screens := Params.Screens + 1

-  else

-    Screens := Ini.Screens + 1;

-

-  SDL_GL_SetAttribute(SDL_GL_RED_SIZE,      5);

-  SDL_GL_SetAttribute(SDL_GL_GREEN_SIZE,    5);

-  SDL_GL_SetAttribute(SDL_GL_BLUE_SIZE,     5);

-  SDL_GL_SetAttribute(SDL_GL_DEPTH_SIZE,    16);

-  SDL_GL_SetAttribute(SDL_GL_DOUBLEBUFFER,  1);

-

-  // If there is a resolution in Parameters, use it, else use the Ini value

-  I := Params.Resolution;

-  if (I <> -1) then

-    S := IResolution[I]

-  else

-    S := IResolution[Ini.Resolution];

-

-  I := Pos('x', S);

-  W := StrToInt(Copy(S, 1, I-1)) * Screens;

-  H := StrToInt(Copy(S, I+1, 1000));

-

-  {if ParamStr(1) = '-fsblack' then begin

-    W := 800;

-    H := 600;

-  end;

-  if ParamStr(1) = '-320x240' then begin

-    W := 320;

-    H := 240;

-  end; }

-

-  If (Params.Depth <> -1) then

-    Depth := Params.Depth

-  else

-    Depth := Ini.Depth;

-

-

-  Log.LogStatus('SDL_SetVideoMode', 'Initialize3D');

-//  SDL_SetRefreshrate(85);

-//  SDL_GL_SetAttribute( SDL_GL_DOUBLEBUFFER, 1 );

-  if (Ini.FullScreen = 0) and (Not Params.FullScreen) then

-    screen := SDL_SetVideoMode(W, H, (Depth+1) * 16, SDL_OPENGL)

-  else begin

-    screen := SDL_SetVideoMode(W, H, (Depth+1) * 16, SDL_OPENGL or SDL_FULLSCREEN);

-    SDL_ShowCursor(0);

-  end;

-  if (screen = nil) then begin

-    Log.LogError('SDL_SetVideoMode Failed', 'Initialize3D');

-    exit;

-  end;

-

-  // clear screen once window is being shown

-  glClearColor(1, 1, 1, 1);

-  glClear(GL_COLOR_BUFFER_BIT);

-  SwapBuffers;

-

-  // zmienne

-  RenderW := 800;

-  RenderH := 600;

-  ScreenW := W;

-  ScreenH := H;

-end;

-

-procedure LoadLoadingScreen;

-begin

-  ScreenLoading := TScreenLoading.Create;

-  ScreenLoading.onShow;

-  Display.ActualScreen := @ScreenLoading;

-  swapbuffers;

-  ScreenLoading.Draw;

-  Display.Draw;

-  SwapBuffers;

-end;

-

-procedure LoadScreens;

-begin

-{  ScreenLoading := TScreenLoading.Create;

-  ScreenLoading.onShow;

-  Display.ActualScreen := @ScreenLoading;

-  ScreenLoading.Draw;

-  Display.Draw;

-  SwapBuffers;

-}

-  Log.BenchmarkEnd(3); Log.LogBenchmark('====> Screen Loading', 3); Log.BenchmarkStart(3);

-{ ScreenWelcome :=          TScreenWelcome.Create; //'BG', 4, 3);

-  Log.BenchmarkEnd(3); Log.LogBenchmark('====> Screen Welcome', 3); Log.BenchmarkStart(3);}

-  ScreenMain :=             TScreenMain.Create;

-  Log.BenchmarkEnd(3); Log.LogBenchmark('====> Screen Main', 3); Log.BenchmarkStart(3);

-  ScreenName :=             TScreenName.Create;

-  Log.BenchmarkEnd(3); Log.LogBenchmark('====> Screen Name', 3); Log.BenchmarkStart(3);

-  ScreenLevel :=            TScreenLevel.Create;

-  Log.BenchmarkEnd(3); Log.LogBenchmark('====> Screen Level', 3); Log.BenchmarkStart(3);

-  ScreenSong :=             TScreenSong.Create;

-  Log.BenchmarkEnd(3); Log.LogBenchmark('====> Screen Song', 3); Log.BenchmarkStart(3);

-  ScreenSongMenu :=             TScreenSongMenu.Create;

-  Log.BenchmarkEnd(3); Log.LogBenchmark('====> Screen Song Menu', 3); Log.BenchmarkStart(3);

-  ScreenSing :=             TScreenSing.Create;

-  Log.BenchmarkEnd(3); Log.LogBenchmark('====> Screen Sing', 3); Log.BenchmarkStart(3);

-  ScreenScore :=            TScreenScore.Create;

-  Log.BenchmarkEnd(3); Log.LogBenchmark('====> Screen Score', 3); Log.BenchmarkStart(3);

-  ScreenTop5 :=             TScreenTop5.Create;

-  Log.BenchmarkEnd(3); Log.LogBenchmark('====> Screen Top5', 3); Log.BenchmarkStart(3);

-  ScreenOptions :=          TScreenOptions.Create;

-  Log.BenchmarkEnd(3); Log.LogBenchmark('====> Screen Options', 3); Log.BenchmarkStart(3);

-  ScreenOptionsGame :=      TScreenOptionsGame.Create;

-  Log.BenchmarkEnd(3); Log.LogBenchmark('====> Screen Options Game', 3); Log.BenchmarkStart(3);

-  ScreenOptionsGraphics  :=  TScreenOptionsGraphics.Create;

-  Log.BenchmarkEnd(3); Log.LogBenchmark('====> Screen Options Graphics', 3); Log.BenchmarkStart(3);

-  ScreenOptionsSound    :=     TScreenOptionsSound.Create;

-  Log.BenchmarkEnd(3); Log.LogBenchmark('====> Screen Options Sound', 3); Log.BenchmarkStart(3);

-  ScreenOptionsLyrics   :=    TScreenOptionsLyrics.Create;

-  Log.BenchmarkEnd(3); Log.LogBenchmark('====> Screen Options Lyrics', 3); Log.BenchmarkStart(3);

-  ScreenOptionsThemes   :=    TScreenOptionsThemes.Create;

-  Log.BenchmarkEnd(3); Log.LogBenchmark('====> Screen Options Themes', 3); Log.BenchmarkStart(3);

-  ScreenOptionsRecord   :=    TScreenOptionsRecord.Create;

-  Log.BenchmarkEnd(3); Log.LogBenchmark('====> Screen Options Record', 3); Log.BenchmarkStart(3);

-  ScreenOptionsAdvanced :=    TScreenOptionsAdvanced.Create;

-  Log.BenchmarkEnd(3); Log.LogBenchmark('====> Screen Options Advanced', 3); Log.BenchmarkStart(3);

-  ScreenEditSub :=          TScreenEditSub.Create;

-  Log.BenchmarkEnd(3); Log.LogBenchmark('====> Screen Edit Sub', 3); Log.BenchmarkStart(3);

-  ScreenEdit :=             TScreenEdit.Create;

-  Log.BenchmarkEnd(3); Log.LogBenchmark('====> Screen Edit', 3); Log.BenchmarkStart(3);

-  ScreenEditConvert :=      TScreenEditConvert.Create;

-  Log.BenchmarkEnd(3); Log.LogBenchmark('====> Screen EditConvert', 3); Log.BenchmarkStart(3);

-//  ScreenEditHeader :=       TScreenEditHeader.Create(Skin.ScoreBG);

-//  Log.BenchmarkEnd(3); Log.LogBenchmark('====> Screen Edit Header', 3); Log.BenchmarkStart(3);

-  ScreenOpen :=             TScreenOpen.Create;

-  Log.BenchmarkEnd(3); Log.LogBenchmark('====> Screen Open', 3); Log.BenchmarkStart(3);

-  ScreenSingModi :=         TScreenSingModi.Create;

-  Log.BenchmarkEnd(3); Log.LogBenchmark('====> Screen Sing with Modi support', 3); Log.BenchmarkStart(3);

-  ScreenSongMenu :=         TScreenSongMenu.Create;

-  Log.BenchmarkEnd(3); Log.LogBenchmark('====> Screen SongMenu', 3); Log.BenchmarkStart(3);

-  ScreenSongJumpto :=         TScreenSongJumpto.Create;

-  Log.BenchmarkEnd(3); Log.LogBenchmark('====> Screen SongJumpto', 3); Log.BenchmarkStart(3);

-  ScreenPopupCheck := TScreenPopupCheck.Create;

-  Log.BenchmarkEnd(3); Log.LogBenchmark('====> Screen Popup (Check)', 3); Log.BenchmarkStart(3);

-  ScreenPopupError := TScreenPopupError.Create;

-  Log.BenchmarkEnd(3); Log.LogBenchmark('====> Screen Popup (Error)', 3); Log.BenchmarkStart(3);

-  ScreenPartyNewRound :=    TScreenPartyNewRound.Create;

-  Log.BenchmarkEnd(3); Log.LogBenchmark('====> Screen PartyNewRound', 3); Log.BenchmarkStart(3);

-  ScreenPartyScore :=       TScreenPartyScore.Create;

-  Log.BenchmarkEnd(3); Log.LogBenchmark('====> Screen PartyScore', 3); Log.BenchmarkStart(3);

-  ScreenPartyWin :=         TScreenPartyWin.Create;

-  Log.BenchmarkEnd(3); Log.LogBenchmark('====> Screen PartyWin', 3); Log.BenchmarkStart(3);

-  ScreenPartyOptions :=     TScreenPartyOptions.Create;

-  Log.BenchmarkEnd(3); Log.LogBenchmark('====> Screen PartyOptions', 3); Log.BenchmarkStart(3);

-  ScreenPartyPlayer :=      TScreenPartyPlayer.Create;

-  Log.BenchmarkEnd(3); Log.LogBenchmark('====> Screen PartyPlayer', 3); Log.BenchmarkStart(3);

-  ScreenStatMain :=         TScreenStatMain.Create;

-  Log.BenchmarkEnd(3); Log.LogBenchmark('====> Screen Stat Main', 3); Log.BenchmarkStart(3);

-  ScreenStatDetail :=       TScreenStatDetail.Create;

-  Log.BenchmarkEnd(3); Log.LogBenchmark('====> Screen Stat Detail', 3); Log.BenchmarkStart(3);

-  ScreenCredits    :=       TScreenCredits.Create;

-  Log.BenchmarkEnd(3); Log.LogBenchmark('====> Screen Credits', 3); Log.BenchmarkStart(3);

-

-  end;

-

-function LoadingThreadFunction: integer;

-begin

-  LoadScreens;

-  Result:= 1;

-end;

-

-end.

+unit UGraphic;
+
+interface
+
+{$I switches.inc}
+
+{$IFDEF FPC}
+  {$MODE DELPHI}
+{$ENDIF}
+
+uses
+  SDL,
+  OpenGL12,
+  UTexture,
+  TextGL,
+  ULog,
+  SysUtils,
+  ULyrics,
+  UScreenLoading,
+  UScreenWelcome,
+  UScreenMain,
+  UScreenName,
+  UScreenLevel,
+  UScreenOptions,
+  UScreenOptionsGame,
+  UScreenOptionsGraphics,
+  UScreenOptionsSound,
+  UScreenOptionsLyrics,
+  UScreenOptionsThemes,
+  UScreenOptionsRecord,
+  UScreenOptionsAdvanced,
+  UScreenSong,
+  UScreenSing,
+  UScreenScore,
+  UScreenTop5,
+  UScreenEditSub,
+  UScreenEdit,
+  UScreenEditConvert,
+  UScreenEditHeader,
+  UScreenOpen,
+  UThemes,
+  USkins,
+  UScreenSongMenu,
+  UScreenSongJumpto,
+  {Party Screens}
+  UScreenSingModi,
+  UScreenPartyNewRound,
+  UScreenPartyScore,
+  UScreenPartyOptions,
+  UScreenPartyWin,
+  UScreenPartyPlayer,
+  {Stats Screens}
+  UScreenStatMain,
+  UScreenStatDetail,
+  {CreditsScreen}
+  UScreenCredits,
+  {Popup for errors, etc.}
+  UScreenPopup;
+
+type
+  TRecR = record
+    Top:    real;
+    Left:   real;
+    Right:  real;
+    Bottom: real;
+  end;
+
+var
+  Screen:             PSDL_Surface;
+
+  LoadingThread:         PSDL_Thread;
+  Mutex:          PSDL_Mutex;
+
+  RenderW:    integer;
+  RenderH:    integer;
+  ScreenW:    integer;
+  ScreenH:    integer;
+  Screens:    integer;
+  ScreenAct:  integer;
+  ScreenX:    integer;
+
+  ScreenLoading:      TScreenLoading;
+  ScreenWelcome:      TScreenWelcome;
+  ScreenMain:         TScreenMain;
+  ScreenName:         TScreenName;
+  ScreenLevel:        TScreenLevel;
+  ScreenSong:         TScreenSong;
+  ScreenSing:         TScreenSing;
+  ScreenScore:        TScreenScore;
+  ScreenTop5:         TScreenTop5;
+  ScreenOptions:          TScreenOptions;
+  ScreenOptionsGame:      TScreenOptionsGame;
+  ScreenOptionsGraphics:  TScreenOptionsGraphics;
+  ScreenOptionsSound:     TScreenOptionsSound;
+  ScreenOptionsLyrics:    TScreenOptionsLyrics;
+  ScreenOptionsThemes:    TScreenOptionsThemes;
+  ScreenOptionsRecord:    TScreenOptionsRecord;
+  ScreenOptionsAdvanced:  TScreenOptionsAdvanced;
+  ScreenEditSub:      TScreenEditSub;
+  ScreenEdit:         TScreenEdit;
+  ScreenEditConvert:  TScreenEditConvert;
+  ScreenEditHeader:   TScreenEditHeader;
+  ScreenOpen:         TScreenOpen;
+
+  ScreenSongMenu:     TScreenSongMenu;
+  ScreenSongJumpto:     TScreenSongJumpto;
+
+  //Party Screens
+  ScreenSingModi:         TScreenSingModi;
+  ScreenPartyNewRound:    TScreenPartyNewRound;
+  ScreenPartyScore:       TScreenPartyScore;
+  ScreenPartyWin:         TScreenPartyWin;
+  ScreenPartyOptions:     TScreenPartyOptions;
+  ScreenPartyPlayer:      TScreenPartyPlayer;
+
+  //StatsScreens
+  ScreenStatMain:         TScreenStatMain;
+  ScreenStatDetail:       TScreenStatDetail;
+
+  //CreditsScreen
+  ScreenCredits: TScreenCredits;
+
+  //popup mod
+  ScreenPopupCheck: TScreenPopupCheck;
+  ScreenPopupError: TScreenPopupError;
+
+  //Notes
+  Tex_Left:        array[0..6] of TTexture;   //rename to tex_note_left
+  Tex_Mid:         array[0..6] of TTexture;   //rename to tex_note_mid
+  Tex_Right:       array[0..6] of TTexture;   //rename to tex_note_right
+
+  Tex_plain_Left:  array[1..6] of TTexture;   //rename to tex_notebg_left
+  Tex_plain_Mid:   array[1..6] of TTexture;   //rename to tex_notebg_mid
+  Tex_plain_Right: array[1..6] of TTexture;   //rename to tex_notebg_right
+
+  Tex_BG_Left:     array[1..6] of TTexture;   //rename to tex_noteglow_left
+  Tex_BG_Mid:      array[1..6] of TTexture;   //rename to tex_noteglow_mid
+  Tex_BG_Right:    array[1..6] of TTexture;   //rename to tex_noteglow_right
+
+  Tex_Note_Star:  TTexture;
+  Tex_Note_Perfect_Star: TTexture;
+
+
+  Tex_Ball:       TTexture;
+  Tex_Lyric_Help_Bar: TTexture;
+  FullScreen:     boolean;
+
+  Tex_TimeProgress: TTexture;
+
+  //Sing Bar Mod
+  Tex_SingBar_Back:  TTexture;
+  Tex_SingBar_Bar:  TTexture;
+  Tex_SingBar_Front:  TTexture;
+  //end Singbar Mod
+
+  //PhrasenBonus - Line Bonus Mod
+  Tex_SingLineBonusBack: array[0..8] of TTexture;
+  //End PhrasenBonus - Line Bonus Mod
+
+const
+  Skin_BGColorR = 1;
+  Skin_BGColorG = 1;
+  Skin_BGColorB = 1;
+
+  Skin_SpectrumR = 0;
+  Skin_SpectrumG = 0;
+  Skin_SpectrumB = 0;
+
+  Skin_Spectograph1R = 0.6;
+  Skin_Spectograph1G = 0.8;
+  Skin_Spectograph1B = 1;
+
+  Skin_Spectograph2R = 0;
+  Skin_Spectograph2G = 0;
+  Skin_Spectograph2B = 0.2;
+
+  Skin_SzczytR = 0.8;
+  Skin_SzczytG = 0;
+  Skin_SzczytB = 0;
+
+  Skin_SzczytLimitR = 0;
+  Skin_SzczytLimitG = 0.8;
+  Skin_SzczytLimitB = 0;
+
+  Skin_FontR = 0;
+  Skin_FontG = 0;
+  Skin_FontB = 0;
+
+  Skin_FontHighlightR = 0.3; // 0.3
+  Skin_FontHighlightG = 0.3; // 0.3
+  Skin_FontHighlightB = 1;   // 1
+
+  Skin_TimeR = 0.25; //0,0,0
+  Skin_TimeG = 0.25;
+  Skin_TimeB = 0.25;
+
+  Skin_OscR = 0;
+  Skin_OscG = 0;
+  Skin_OscB = 0;
+
+  Skin_LyricsT = 494; // 500 / 510 / 400
+  Skin_SpectrumT = 470;
+  Skin_SpectrumBot = 570;
+  Skin_SpectrumH = 100;
+
+  Skin_P1_LinesR = 0.5;  // 0.6 0.6 1
+  Skin_P1_LinesG = 0.5;
+  Skin_P1_LinesB = 0.5;
+
+  Skin_P2_LinesR = 0.5; // 1 0.6 0.6
+  Skin_P2_LinesG = 0.5;
+  Skin_P2_LinesB = 0.5;
+
+  Skin_P1_NotesB = 250;
+  Skin_P2_NotesB = 430; // 430 / 300
+
+  Skin_P1_ScoreT = 50;
+  Skin_P1_ScoreL = 20;
+
+  Skin_P2_ScoreT = 50;
+  Skin_P2_ScoreL = 640;
+
+procedure Initialize3D (Title: string);
+procedure Reinitialize3D;
+procedure SwapBuffers;
+
+procedure LoadTextures;
+procedure InitializeScreen;
+procedure LoadLoadingScreen;
+procedure LoadScreens;
+
+function LoadingThreadFunction: integer;
+
+
+implementation
+
+uses  UMain,
+      UIni,
+      UDisplay,
+      UCommandLine,
+      {$IFNDEF FPC}
+      Graphics,
+      {$ENDIF}
+      {$IFDEF win32}
+      windows,
+      {$ENDIF}
+      Classes;
+
+procedure LoadTextures;
+
+
+var
+  P:        integer;
+  R, G, B:  real;
+  Col:      integer;
+begin
+   // zaladowanie tekstur
+  Log.LogStatus('Loading Textures', 'LoadTextures');
+  Tex_Left[0]  := Texture.LoadTexture(pchar(Skin.GetTextureFileName('GrayLeft')),  'BMP', 'Transparent', 0);     //brauch man die noch?
+  Tex_Mid[0]   := Texture.LoadTexture(pchar(Skin.GetTextureFileName('GrayMid')),   'BMP', 'Plain', 0);           //brauch man die noch?
+  Tex_Right[0] := Texture.LoadTexture(pchar(Skin.GetTextureFileName('GrayRight')), 'BMP', 'Transparent', 0);     //brauch man die noch?
+
+  // P1-6
+  for P := 1 to 6 do begin
+    LoadColor(R, G, B, 'P' + IntToStr(P) + 'Light');
+    Col := $10000 * Round(R*255) + $100 * Round(G*255) + Round(B*255);
+    Tex_Left[P]        :=  Texture.LoadTexture(pchar(Skin.GetTextureFileName('GrayLeft')),  'PNG', 'Colorized', Col);
+    Tex_Mid[P]         :=  Texture.LoadTexture(pchar(Skin.GetTextureFileName('GrayMid')),   'PNG', 'Colorized', Col);
+    Tex_Right[P]       :=  Texture.LoadTexture(pchar(Skin.GetTextureFileName('GrayRight')), 'PNG', 'Colorized', Col);
+
+    Tex_plain_Left[P]  :=  Texture.LoadTexture(pchar(Skin.GetTextureFileName('NotePlainLeft')),  'PNG', 'Colorized', Col);
+    Tex_plain_Mid[P]   :=  Texture.LoadTexture(pchar(Skin.GetTextureFileName('NotePlainMid')),   'PNG', 'Colorized', Col);
+    Tex_plain_Right[P] :=  Texture.LoadTexture(pchar(Skin.GetTextureFileName('NotePlainRight')), 'PNG', 'Colorized', Col);
+
+    Tex_BG_Left[P]     := Texture.LoadTexture(pchar(Skin.GetTextureFileName('NoteBGLeft')),  'PNG', 'Colorized', Col);
+    Tex_BG_Mid[P]      := Texture.LoadTexture(pchar(Skin.GetTextureFileName('NoteBGMid')),   'PNG', 'Colorized', Col);
+    Tex_BG_Right[P]    := Texture.LoadTexture(pchar(Skin.GetTextureFileName('NoteBGRight')), 'PNG', 'Colorized', Col);
+  end;
+
+  Tex_Note_Perfect_Star := Texture.LoadTexture(pchar(Skin.GetTextureFileName('NotePerfectStar')), 'JPG', 'Font Black', 0);
+  Tex_Note_Star :=   Texture.LoadTexture(pchar(Skin.GetTextureFileName('NoteStar')) , 'JPG', 'Alpha Black Colored', $FFFFFF);
+  Tex_Ball :=        Texture.LoadTexture(pchar(Skin.GetTextureFileName('Ball')), 'BMP', 'Transparent', $FF00FF);
+  Tex_Lyric_Help_Bar := Texture.LoadTexture(pchar(Skin.GetTextureFileName('LyricHelpBar')), 'BMP', 'Transparent', $FF00FF);
+
+
+  //TimeBar mod
+  Tex_TimeProgress :=  Texture.LoadTexture(pchar(Skin.GetTextureFileName('TimeBar')));
+  //eoa TimeBar mod
+
+  //SingBar Mod
+  Tex_SingBar_Back :=  Texture.LoadTexture(pchar(Skin.GetTextureFileName('SingBarBack')),   'JPG', 'Plain', 0);
+  Tex_SingBar_Bar :=  Texture.LoadTexture(pchar(Skin.GetTextureFileName('SingBarBar')),   'JPG', 'Plain', 0);
+  Tex_SingBar_Front :=  Texture.LoadTexture(pchar(Skin.GetTextureFileName('SingBarFront')),   'JPG', 'Font', 0);
+  //end Singbar Mod
+
+  //Line Bonus PopUp
+  for P := 0 to 8 do
+    begin
+      Tex_SingLineBonusBack[P] :=  Texture.LoadTexture(pchar(Skin.GetTextureFileName('LineBonusBack')), 'PNG', 'Colorized', $FFFFFF);
+    end;
+  {//Set Texture to Font High
+  Tex_SingLineBonusL.H := 32; Tex_SingLineBonusL.W := 8;
+  Tex_SingLineBonusM.H := 32; //Tex_SingLineBonusM.TexW := Tex_SingLineBonusM.TexW/2;
+  Tex_SingLineBonusR.H := 32; Tex_SingLineBonusR.W := 8;  }
+  //PhrasenBonus - Line Bonus Mod End
+
+  // tworzenie czcionek
+  Log.LogStatus('Building Fonts', 'LoadTextures');
+  BuildFont;
+end;
+
+procedure Initialize3D (Title: string);
+var
+//  Icon: TIcon;
+  Res:  TResourceStream;
+  ISurface: PSDL_Surface;
+  Pixel: PByteArray;
+  I: Integer;
+begin
+  Log.LogStatus('LoadOpenGL', 'Initialize3D');
+  Log.BenchmarkStart(2);
+
+  LoadOpenGL;
+
+  Log.LogStatus('SDL_Init', 'Initialize3D');
+  if ( SDL_Init(SDL_INIT_VIDEO or SDL_INIT_AUDIO)= -1 ) then begin
+    Log.LogError('SDL_Init Failed', 'Initialize3D');
+    exit;
+  end;
+
+ { //Load Icon
+  Res := TResourceStream.CreateFromID(HInstance, 3, RT_ICON);
+  Icon := TIcon.Create;
+  Icon.LoadFromStream(Res);
+  Res.Free;
+  Icon.
+  //Create icon Surface
+  SDL_CreateRGBSurfaceFrom (
+  SDL_SWSURFACE,
+  Icon.Width,
+  Icon.Height,
+  32,
+  128 or 64,
+  32 or 16,
+  8 or 4,
+  2 or 1);
+  //SDL_BlitSurface(
+
+
+  SDL_WM_SetIcon(SDL_LoadBMP('DEFAULT_WINDOW_ICON'), 0); //}
+
+  SDL_WM_SetCaption(PChar(Title), nil);
+
+  InitializeScreen;
+
+  Log.BenchmarkEnd(2);
+  Log.LogBenchmark('--> Setting Screen', 2);
+
+  // ladowanie tekstur
+  Log.BenchmarkStart(2);
+  Texture := TTextureUnit.Create;
+  Texture.Limit := 1024*1024;
+
+  LoadTextures;
+  Log.BenchmarkEnd(2);
+  Log.LogBenchmark('--> Loading Textures', 2);
+
+  Log.BenchmarkStart(2);
+  Lyric := TLyric.Create;
+  Log.BenchmarkEnd(2);
+  Log.LogBenchmark('--> Loading Fonts', 2);
+
+  Log.BenchmarkStart(2);
+  Display := TDisplay.Create;
+  SDL_EnableUnicode(1);
+  Log.BenchmarkEnd(2); Log.LogBenchmark('====> Creating Display', 2);
+
+  Log.LogStatus('Loading Screens', 'Initialize3D');
+  Log.BenchmarkStart(3);
+
+  LoadLoadingScreen;
+  // now that we have something to display while loading,
+  // start thread that loads the rest of ultrastar
+//  Mutex   := SDL_CreateMutex;
+//  SDL_UnLockMutex(Mutex);
+
+  // funktioniert so noch nicht, da der ladethread unverändert auf opengl zugreifen will
+  // siehe dazu kommentar unten
+  //LoadingThread  := SDL_CreateThread(@LoadingThread, nil);
+
+  // das hier würde dann im ladethread ausgeführt
+  LoadScreens;
+
+
+  // TODO!!!!!!1
+  // hier käme jetzt eine schleife, die
+  // * den ladescreen malt (ab und zu)
+  // * den "fortschritt" des ladescreens steuert
+  // * zwischendrin schaut, ob der ladethread texturen geladen hat (mutex prüfen) und
+  //   * die texturen in die opengl lädt, sowie
+  //   * dem ladethread signalisiert, dass der speicher für die textur
+  //     zum laden der nächsten textur weiterverwendet werden kann (über weiteren mutex)
+  // * über einen 3. mutex so lange läuft, bis der ladethread signalisiert,
+  //   dass er alles geladen hat fertig ist
+  //
+  // dafür muss loadtexture so umgeschrieben werden, dass es, statt selbst irgendwelche
+  // opengl funktionen aufzurufen, entsprechend mutexe verändert
+  // der hauptthread muss auch irgendwoher erfahren, was an opengl funktionen auszuführen ist,
+  // mit welchen parametern (texturtyp, entspr. texturobjekt, textur-zwischenspeicher-adresse, ...
+
+
+  //wait for loading thread to finish
+  // funktioniert so auch noch nicht
+  //SDL_WaitThread(LoadingThread, I);
+//  SDL_DestroyMutex(Mutex);
+
+  Display.ActualScreen^.FadeTo(@ScreenMain);
+
+  Log.BenchmarkEnd(2);
+  Log.LogBenchmark('--> Loading Screens', 2);
+
+  Log.LogStatus('Finish', 'Initialize3D');
+end;
+
+procedure SwapBuffers;
+begin
+  SDL_GL_SwapBuffers;
+  glMatrixMode(GL_PROJECTION);
+    glLoadIdentity;
+    glOrtho(0, RenderW, RenderH, 0, -1, 100);
+  glMatrixMode(GL_MODELVIEW);
+end;
+
+procedure Reinitialize3D;
+begin
+//  InitializeScreen;
+//  LoadTextures;
+//  LoadScreens;
+end;
+
+procedure InitializeScreen;
+var
+  S:      string;
+  I:      integer;
+  W, H:   integer;
+  Depth:  Integer;
+begin
+  if (Params.Screens <> -1) then
+    Screens := Params.Screens + 1
+  else
+    Screens := Ini.Screens + 1;
+
+  SDL_GL_SetAttribute(SDL_GL_RED_SIZE,      5);
+  SDL_GL_SetAttribute(SDL_GL_GREEN_SIZE,    5);
+  SDL_GL_SetAttribute(SDL_GL_BLUE_SIZE,     5);
+  SDL_GL_SetAttribute(SDL_GL_DEPTH_SIZE,    16);
+  SDL_GL_SetAttribute(SDL_GL_DOUBLEBUFFER,  1);
+
+  // If there is a resolution in Parameters, use it, else use the Ini value
+  I := Params.Resolution;
+  if (I <> -1) then
+    S := IResolution[I]
+  else
+    S := IResolution[Ini.Resolution];
+
+  I := Pos('x', S);
+  W := StrToInt(Copy(S, 1, I-1)) * Screens;
+  H := StrToInt(Copy(S, I+1, 1000));
+
+  {if ParamStr(1) = '-fsblack' then begin
+    W := 800;
+    H := 600;
+  end;
+  if ParamStr(1) = '-320x240' then begin
+    W := 320;
+    H := 240;
+  end; }
+
+  If (Params.Depth <> -1) then
+    Depth := Params.Depth
+  else
+    Depth := Ini.Depth;
+
+
+  Log.LogStatus('SDL_SetVideoMode', 'Initialize3D');
+//  SDL_SetRefreshrate(85);
+//  SDL_GL_SetAttribute( SDL_GL_DOUBLEBUFFER, 1 );
+  if (Ini.FullScreen = 0) and (Not Params.FullScreen) then
+    screen := SDL_SetVideoMode(W, H, (Depth+1) * 16, SDL_OPENGL)
+  else begin
+    screen := SDL_SetVideoMode(W, H, (Depth+1) * 16, SDL_OPENGL or SDL_FULLSCREEN);
+    SDL_ShowCursor(0);
+  end;
+  if (screen = nil) then begin
+    Log.LogError('SDL_SetVideoMode Failed', 'Initialize3D');
+    exit;
+  end;
+
+  // clear screen once window is being shown
+  glClearColor(1, 1, 1, 1);
+  glClear(GL_COLOR_BUFFER_BIT);
+  SwapBuffers;
+
+  // zmienne
+  RenderW := 800;
+  RenderH := 600;
+  ScreenW := W;
+  ScreenH := H;
+end;
+
+procedure LoadLoadingScreen;
+begin
+  ScreenLoading := TScreenLoading.Create;
+  ScreenLoading.onShow;
+  Display.ActualScreen := @ScreenLoading;
+  swapbuffers;
+  ScreenLoading.Draw;
+  Display.Draw;
+  SwapBuffers;
+end;
+
+procedure LoadScreens;
+begin
+{  ScreenLoading := TScreenLoading.Create;
+  ScreenLoading.onShow;
+  Display.ActualScreen := @ScreenLoading;
+  ScreenLoading.Draw;
+  Display.Draw;
+  SwapBuffers;
+}
+  Log.BenchmarkEnd(3); Log.LogBenchmark('====> Screen Loading', 3); Log.BenchmarkStart(3);
+{ ScreenWelcome :=          TScreenWelcome.Create; //'BG', 4, 3);
+  Log.BenchmarkEnd(3); Log.LogBenchmark('====> Screen Welcome', 3); Log.BenchmarkStart(3);}
+  ScreenMain :=             TScreenMain.Create;
+  Log.BenchmarkEnd(3); Log.LogBenchmark('====> Screen Main', 3); Log.BenchmarkStart(3);
+  ScreenName :=             TScreenName.Create;
+  Log.BenchmarkEnd(3); Log.LogBenchmark('====> Screen Name', 3); Log.BenchmarkStart(3);
+  ScreenLevel :=            TScreenLevel.Create;
+  Log.BenchmarkEnd(3); Log.LogBenchmark('====> Screen Level', 3); Log.BenchmarkStart(3);
+  ScreenSong :=             TScreenSong.Create;
+  Log.BenchmarkEnd(3); Log.LogBenchmark('====> Screen Song', 3); Log.BenchmarkStart(3);
+  ScreenSongMenu :=             TScreenSongMenu.Create;
+  Log.BenchmarkEnd(3); Log.LogBenchmark('====> Screen Song Menu', 3); Log.BenchmarkStart(3);
+  ScreenSing :=             TScreenSing.Create;
+  Log.BenchmarkEnd(3); Log.LogBenchmark('====> Screen Sing', 3); Log.BenchmarkStart(3);
+  ScreenScore :=            TScreenScore.Create;
+  Log.BenchmarkEnd(3); Log.LogBenchmark('====> Screen Score', 3); Log.BenchmarkStart(3);
+  ScreenTop5 :=             TScreenTop5.Create;
+  Log.BenchmarkEnd(3); Log.LogBenchmark('====> Screen Top5', 3); Log.BenchmarkStart(3);
+  ScreenOptions :=          TScreenOptions.Create;
+  Log.BenchmarkEnd(3); Log.LogBenchmark('====> Screen Options', 3); Log.BenchmarkStart(3);
+  ScreenOptionsGame :=      TScreenOptionsGame.Create;
+  Log.BenchmarkEnd(3); Log.LogBenchmark('====> Screen Options Game', 3); Log.BenchmarkStart(3);
+  ScreenOptionsGraphics  :=  TScreenOptionsGraphics.Create;
+  Log.BenchmarkEnd(3); Log.LogBenchmark('====> Screen Options Graphics', 3); Log.BenchmarkStart(3);
+  ScreenOptionsSound    :=     TScreenOptionsSound.Create;
+  Log.BenchmarkEnd(3); Log.LogBenchmark('====> Screen Options Sound', 3); Log.BenchmarkStart(3);
+  ScreenOptionsLyrics   :=    TScreenOptionsLyrics.Create;
+  Log.BenchmarkEnd(3); Log.LogBenchmark('====> Screen Options Lyrics', 3); Log.BenchmarkStart(3);
+  ScreenOptionsThemes   :=    TScreenOptionsThemes.Create;
+  Log.BenchmarkEnd(3); Log.LogBenchmark('====> Screen Options Themes', 3); Log.BenchmarkStart(3);
+  ScreenOptionsRecord   :=    TScreenOptionsRecord.Create;
+  Log.BenchmarkEnd(3); Log.LogBenchmark('====> Screen Options Record', 3); Log.BenchmarkStart(3);
+  ScreenOptionsAdvanced :=    TScreenOptionsAdvanced.Create;
+  Log.BenchmarkEnd(3); Log.LogBenchmark('====> Screen Options Advanced', 3); Log.BenchmarkStart(3);
+  ScreenEditSub :=          TScreenEditSub.Create;
+  Log.BenchmarkEnd(3); Log.LogBenchmark('====> Screen Edit Sub', 3); Log.BenchmarkStart(3);
+  ScreenEdit :=             TScreenEdit.Create;
+  Log.BenchmarkEnd(3); Log.LogBenchmark('====> Screen Edit', 3); Log.BenchmarkStart(3);
+  ScreenEditConvert :=      TScreenEditConvert.Create;
+  Log.BenchmarkEnd(3); Log.LogBenchmark('====> Screen EditConvert', 3); Log.BenchmarkStart(3);
+//  ScreenEditHeader :=       TScreenEditHeader.Create(Skin.ScoreBG);
+//  Log.BenchmarkEnd(3); Log.LogBenchmark('====> Screen Edit Header', 3); Log.BenchmarkStart(3);
+  ScreenOpen :=             TScreenOpen.Create;
+  Log.BenchmarkEnd(3); Log.LogBenchmark('====> Screen Open', 3); Log.BenchmarkStart(3);
+  ScreenSingModi :=         TScreenSingModi.Create;
+  Log.BenchmarkEnd(3); Log.LogBenchmark('====> Screen Sing with Modi support', 3); Log.BenchmarkStart(3);
+  ScreenSongMenu :=         TScreenSongMenu.Create;
+  Log.BenchmarkEnd(3); Log.LogBenchmark('====> Screen SongMenu', 3); Log.BenchmarkStart(3);
+  ScreenSongJumpto :=         TScreenSongJumpto.Create;
+  Log.BenchmarkEnd(3); Log.LogBenchmark('====> Screen SongJumpto', 3); Log.BenchmarkStart(3);
+  ScreenPopupCheck := TScreenPopupCheck.Create;
+  Log.BenchmarkEnd(3); Log.LogBenchmark('====> Screen Popup (Check)', 3); Log.BenchmarkStart(3);
+  ScreenPopupError := TScreenPopupError.Create;
+  Log.BenchmarkEnd(3); Log.LogBenchmark('====> Screen Popup (Error)', 3); Log.BenchmarkStart(3);
+  ScreenPartyNewRound :=    TScreenPartyNewRound.Create;
+  Log.BenchmarkEnd(3); Log.LogBenchmark('====> Screen PartyNewRound', 3); Log.BenchmarkStart(3);
+  ScreenPartyScore :=       TScreenPartyScore.Create;
+  Log.BenchmarkEnd(3); Log.LogBenchmark('====> Screen PartyScore', 3); Log.BenchmarkStart(3);
+  ScreenPartyWin :=         TScreenPartyWin.Create;
+  Log.BenchmarkEnd(3); Log.LogBenchmark('====> Screen PartyWin', 3); Log.BenchmarkStart(3);
+  ScreenPartyOptions :=     TScreenPartyOptions.Create;
+  Log.BenchmarkEnd(3); Log.LogBenchmark('====> Screen PartyOptions', 3); Log.BenchmarkStart(3);
+  ScreenPartyPlayer :=      TScreenPartyPlayer.Create;
+  Log.BenchmarkEnd(3); Log.LogBenchmark('====> Screen PartyPlayer', 3); Log.BenchmarkStart(3);
+  ScreenStatMain :=         TScreenStatMain.Create;
+  Log.BenchmarkEnd(3); Log.LogBenchmark('====> Screen Stat Main', 3); Log.BenchmarkStart(3);
+  ScreenStatDetail :=       TScreenStatDetail.Create;
+  Log.BenchmarkEnd(3); Log.LogBenchmark('====> Screen Stat Detail', 3); Log.BenchmarkStart(3);
+  ScreenCredits    :=       TScreenCredits.Create;
+  Log.BenchmarkEnd(3); Log.LogBenchmark('====> Screen Credits', 3); Log.BenchmarkStart(3);
+
+  end;
+
+function LoadingThreadFunction: integer;
+begin
+  LoadScreens;
+  Result:= 1;
+end;
+
+end.
diff --git a/Game/Code/Classes/UGraphicClasses.pas b/Game/Code/Classes/UGraphicClasses.pas
index 761ec058..c04a0ad8 100644
--- a/Game/Code/Classes/UGraphicClasses.pas
+++ b/Game/Code/Classes/UGraphicClasses.pas
@@ -1,667 +1,678 @@
-// notes:

-unit UGraphicClasses;

-

-interface

-uses UTexture;

-

-const  DelayBetweenFrames : Cardinal = 60;

-type

-

- TParticleType=(GoldenNote, PerfectNote, NoteHitTwinkle, PerfectLineTwinkle, ColoredStar, Flare);

-

- TColour3f = Record

-               r, g, b: Real;

-             end;

-

- TParticle = Class

-   X, Y     : Real;     //Position

-   Screen   : Integer;

-   W, H     : Cardinal; //dimensions of particle

-   Col      : array of TColour3f; // Colour(s) of particle

-   Scale    : array of Real;      // Scaling factors of particle layers

-   Frame    : Byte;     //act. Frame

-   Tex      : Cardinal; //Tex num from Textur Manager

-   Live     : Byte;     //How many Cycles before Kill

-   RecIndex : Integer;  //To which rectangle this particle belongs (only GoldenNote)

-   StarType : TParticleType;  // GoldenNote | PerfectNote | NoteHitTwinkle | PerfectLineTwinkle

-   Alpha    : Real;     // used for fading...

-   mX, mY   : Real;     // movement-vector for PerfectLineTwinkle

-   SizeMod  : Real;     // experimental size modifier

-   SurviveSentenceChange : Boolean;

-

-   Constructor Create(cX,cY: Real; cScreen: Integer; cLive: Byte; cFrame : integer; cRecArrayIndex : Integer; cStarType : TParticleType; Player: Cardinal);

-   Destructor Destroy(); override;

-   procedure Draw;

-   procedure LiveOn;

- end;

-

- RectanglePositions   = Record

-   xTop, yTop, xBottom, yBottom : Real;

-   TotalStarCount   : Integer;

-   CurrentStarCount : Integer;

-   Screen           : Integer;

- end;

-

- PerfectNotePositions = Record

-   xPos, yPos : Real;

-   Screen     : Integer;

- end;

-

- TEffectManager = Class

-   Particle      : array of TParticle;

-   LastTime      : Cardinal;

-   RecArray      : Array of RectanglePositions;

-   TwinkleArray  : Array[0..5] of Real; // store x-position of last twinkle for every player

-   PerfNoteArray : Array of PerfectNotePositions;

-

-   FlareTex: TTexture;

-

-   constructor Create;

-   destructor  Destroy; override;

-   procedure Draw;

-   function  Spawn(X, Y: Real;

-                   Screen: Integer;

-                   Live: Byte;

-                   StartFrame: Integer;

-                   RecArrayIndex: Integer;  // this is only used with GoldenNotes

-                   StarType: TParticleType;

-                   Player: Cardinal         // for PerfectLineTwinkle

-             ): Cardinal;

-   procedure SpawnRec();

-   procedure Kill(index: Cardinal);

-   procedure KillAll();

-   procedure SentenceChange();

-   procedure SaveGoldenStarsRec(Xtop, Ytop, Xbottom, Ybottom: Real);

-   procedure SavePerfectNotePos(Xtop, Ytop: Real);

-   procedure GoldenNoteTwinkle(Top,Bottom,Right: Real; Player: Integer);

-   procedure SpawnPerfectLineTwinkle();

- end;

-

-var GoldenRec : TEffectManager;

-

-implementation

-

-uses  sysutils,

-      Windows,

-      OpenGl12,

-      UIni,

-      UMain,

-      UThemes,

-      USkins,

-      UGraphic,

-      UDrawTexture,

-      UCommon,

-      math;

-

-//TParticle

-Constructor TParticle.Create(cX,cY: Real; cScreen: Integer; cLive: Byte; cFrame : integer; cRecArrayIndex : Integer; cStarType : TParticleType; Player: Cardinal);

-begin

-  inherited Create;

-  // in this constructor we set all initial values for our particle

-  X := cX;

-  Y := cY;

-  Screen := cScreen;

-  Live := cLive;

-  Frame:= cFrame;

-  RecIndex := cRecArrayIndex;

-  StarType := cStarType;

-  Alpha := (-cos((Frame+1)*2*pi/16)+1); // neat fade-in-and-out

-  SetLength(Scale,1);

-  Scale[0] := 1;

-  SurviveSentenceChange := False;

-  SizeMod := 1;

-  case cStarType of

-    GoldenNote:

-        begin

-          Tex := Tex_Note_Star.TexNum;

-          W := 20;

-          H := 20;

-          SetLength(Scale,4);

-          Scale[1]:=0.8;

-          Scale[2]:=0.4;

-          Scale[3]:=0.3;

-          SetLength(Col,4);

-          Col[0].r := 1;

-          Col[0].g := 0.7;

-          Col[0].b := 0.1;

-

-          Col[1].r := 1;

-          Col[1].g := 1;

-          Col[1].b := 0.4;

-

-          Col[2].r := 1;

-          Col[2].g := 1;

-          Col[2].b := 1;

-

-          Col[3].r := 1;

-          Col[3].g := 1;

-          Col[3].b := 1;

-        end;

-    PerfectNote:

-        begin

-          Tex := Tex_Note_Perfect_Star.TexNum;

-          W := 30;

-          H := 30;

-          SetLength(Col,1);

-          Col[0].r := 1;

-          Col[0].g := 1;

-          Col[0].b := 0.95;

-        end;

-    NoteHitTwinkle:

-        begin

-          Tex := Tex_Note_Star.TexNum;

-          Alpha := (Live/16);  // linear fade-out

-          W := 15;

-          H := 15;

-          Setlength(Col,1);

-          Col[0].r := 1;

-          Col[0].g := 1;

-          Col[0].b := RandomRange(10*Live,100)/90; //0.9;

-        end;

-    PerfectLineTwinkle:

-        begin

-          Tex := Tex_Note_Star.TexNum;

-          W := RandomRange(10,20);

-          H := W;

-          SizeMod := (-cos((Frame+1)*5*2*pi/16)*0.5+1.1);

-          SurviveSentenceChange:=True;

-          // assign colours according to player given

-          SetLength(Scale,3);

-          Scale[1]:=0.3;

-          Scale[2]:=0.2;

-          SetLength(Col,3);

-          case Player of

-            0: LoadColor(Col[0].r,Col[0].g,Col[0].b,'P1Light');

-            1: LoadColor(Col[0].r,Col[0].g,Col[0].b,'P2Light');

-            2: LoadColor(Col[0].r,Col[0].g,Col[0].b,'P3Light');

-            3: LoadColor(Col[0].r,Col[0].g,Col[0].b,'P4Light');

-            4: LoadColor(Col[0].r,Col[0].g,Col[0].b,'P5Light');

-            5: LoadColor(Col[0].r,Col[0].g,Col[0].b,'P6Light');

-            else LoadColor(Col[0].r,Col[0].g,Col[0].b,'P1Light');

-          end;

-          Col[1].r := 1;

-          Col[1].g := 1;

-          Col[1].b := 0.4;

-          Col[2].r:=Col[0].r+0.5;

-          Col[2].g:=Col[0].g+0.5;

-          Col[2].b:=Col[0].b+0.5;

-          mX := RandomRange(-5,5);

-          mY := RandomRange(-5,5);

-        end;

-    ColoredStar:

-        begin

-          Tex := Tex_Note_Star.TexNum;

-          W := RandomRange(10,20);

-          H := W;

-          SizeMod := (-cos((Frame+1)*5*2*pi/16)*0.5+1.1);

-          SurviveSentenceChange:=True;

-          // assign colours according to player given

-          SetLength(Scale,1);

-          SetLength(Col,1);

-          Col[0].b := (Player and $ff)/255;

-          Col[0].g := ((Player shr 8) and $ff)/255;

-          Col[0].r := ((Player shr 16) and $ff)/255;

-          mX := 0;

-          mY := 0;

-        end;

-    Flare:

-        begin

-          Tex := Tex_Note_Star.TexNum;

-          W := 7;

-          H := 7;

-          SizeMod := (-cos((Frame+1)*5*2*pi/16)*0.5+1.1);

-          mX := RandomRange(-5,5);

-          mY := RandomRange(-5,5);

-          SetLength(Scale,4);

-          Scale[1]:=0.8;

-          Scale[2]:=0.4;

-          Scale[3]:=0.3;

-          SetLength(Col,4);

-          Col[0].r := 1;

-          Col[0].g := 0.7;

-          Col[0].b := 0.1;

-

-          Col[1].r := 1;

-          Col[1].g := 1;

-          Col[1].b := 0.4;

-

-          Col[2].r := 1;

-          Col[2].g := 1;

-          Col[2].b := 1;

-

-          Col[3].r := 1;

-          Col[3].g := 1;

-          Col[3].b := 1;

-

-        end;

-    else    // just some random default values

-        begin

-          Tex := Tex_Note_Star.TexNum;

-          Alpha := 1;

-          W := 20;

-          H := 20;

-          SetLength(Col,1);

-          Col[0].r := 1;

-          Col[0].g := 1;

-          Col[0].b := 1;

-        end;

-  end;

-end;

-

-Destructor TParticle.Destroy();

-begin

-  SetLength(Scale,0);

-  SetLength(Col,0);

-  inherited;

-end;

-

-procedure TParticle.LiveOn;

-begin

-  //Live = 0 => Live forever  <blindy> ?? die werden doch aber im Manager bei Draw getötet, wenns 0 is

-  if (Live > 0) then

-    Dec(Live);

-

-  // animate frames

-  Frame := ( Frame + 1 ) mod 16;

-

-  // make our particles do funny stuff (besides being animated)

-  // changes of any particle-values throughout its life are done here

-  case StarType of

-    GoldenNote:

-        begin

-          Alpha := (-cos((Frame+1)*2*pi/16)+1); // neat fade-in-and-out

-        end;

-    PerfectNote:

-        begin

-          Alpha := (-cos((Frame+1)*2*pi/16)+1); // neat fade-in-and-out

-        end;

-    NoteHitTwinkle:

-        begin

-          Alpha := (Live/10);  // linear fade-out

-        end;

-    PerfectLineTwinkle:

-        begin

-          Alpha := (-cos((Frame+1)*2*pi/16)+1); // neat fade-in-and-out

-          SizeMod := (-cos((Frame+1)*5*2*pi/16)*0.5+1.1);

-          // move around

-          X := X + mX;

-          Y := Y + mY;

-        end;

-    ColoredStar:

-        begin

-          Alpha := (-cos((Frame+1)*2*pi/16)+1); // neat fade-in-and-out

-        end;

-    Flare:

-        begin

-          Alpha := (-cos((Frame+1)/16*1.7*pi+0.3*pi)+1); // neat fade-in-and-out

-          SizeMod := (-cos((Frame+1)*5*2*pi/16)*0.5+1.1);

-          // move around

-          X := X + mX;

-          Y := Y + mY;

-          mY:=mY+1.8;

-//          mX:=mX/2;

-        end;

-  end;

-end;

-

-procedure TParticle.Draw;

-var L: Cardinal;

-begin

-  if ScreenAct = Screen then

-    // this draws (multiple) texture(s) of our particle

-    for L:=0 to High(Col) do

-    begin

-      glColor4f(Col[L].r, Col[L].g, Col[L].b, Alpha);

-

-      glBindTexture(GL_TEXTURE_2D, Tex);

-      glEnable(GL_TEXTURE_2D);

-      glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);

-      glEnable(GL_BLEND);

-

-      begin

-        glBegin(GL_QUADS);

-        glTexCoord2f((1/16) * Frame, 0);          glVertex2f(X-W*Scale[L]*SizeMod, Y-H*Scale[L]*SizeMod);

-        glTexCoord2f((1/16) * Frame + (1/16), 0); glVertex2f(X-W*Scale[L]*SizeMod, Y+H*Scale[L]*SizeMod);

-        glTexCoord2f((1/16) * Frame + (1/16), 1); glVertex2f(X+W*Scale[L]*SizeMod, Y+H*Scale[L]*SizeMod);

-        glTexCoord2f((1/16) * Frame, 1);          glVertex2f(X+W*Scale[L]*SizeMod, Y-H*Scale[L]*SizeMod);

-        glEnd;

-      end;

-    end;

-  glcolor4f(1,1,1,1);

-end;

-// end of TParticle

-

-// TEffectManager

-

-constructor TEffectManager.Create;

-var c: Cardinal;

-begin

-  inherited;

-  LastTime := GetTickCount;

-  for c:=0 to 5 do

-  begin

-    TwinkleArray[c] := 0;

-  end;

-end;

-

-destructor TEffectManager.Destroy;

-begin

-  Killall;

-  inherited;

-end;

-

-

-procedure TEffectManager.Draw;

-var

-  I: Integer;

-  CurrentTime: Cardinal;

-//const

-//  DelayBetweenFrames : Cardinal = 100;

-begin

-

-  CurrentTime := GetTickCount;

-  //Manage particle life

-  if (CurrentTime - LastTime) > DelayBetweenFrames then

-    begin

-      LastTime := CurrentTime;

-      for I := 0 to high(Particle) do

-        Particle[I].LiveOn;

-    end;

-

-  I := 0;

-  //Kill dead particles

-  while (I <= High(Particle)) do

-    begin

-      if (Particle[I].Live <= 0) then

-        begin

-          kill(I);

-        end

-      else

-        begin

-          inc(I);

-        end;

-    end;

-

- //Draw

- for I := 0 to high(Particle) do

-   begin

-     Particle[I].Draw;

-   end;

-end;

-

-// this method creates just one particle

-function TEffectManager.Spawn(X, Y: Real; Screen: Integer; Live: Byte; StartFrame : Integer; RecArrayIndex : Integer; StarType : TParticleType; Player: Cardinal): Cardinal;

-begin

-  Result := Length(Particle);

-  SetLength(Particle, (Result + 1));

-  Particle[Result] := TParticle.Create(X, Y, Screen, Live, StartFrame, RecArrayIndex, StarType, Player);

-end;

-

-// manage Sparkling of GoldenNote Bars

-procedure TEffectManager.SpawnRec();

-Var

-  Xkatze, Ykatze    : Real;

-  RandomFrame : Integer;

-  P : Integer; // P as seen on TV as Positionman

-begin

-//Spawn a random amount of stars within the given coordinates

-//RandomRange(0,14) <- this one starts at a random  frame, 16 is our last frame - would be senseless to start a particle with 16, cause it would be dead at the next frame

-for P:= 0 to high(RecArray) do

-  begin

-    while (RecArray[P].TotalStarCount > RecArray[P].CurrentStarCount) do

-      begin

-        Xkatze := RandomRange(Ceil(RecArray[P].xTop), Ceil(RecArray[P].xBottom));

-        Ykatze := RandomRange(Ceil(RecArray[P].yTop), Ceil(RecArray[P].yBottom));

-        RandomFrame := RandomRange(0,14);

-        // Spawn a GoldenNote Particle

-        Spawn(Xkatze, Ykatze, RecArray[P].Screen, 16 - RandomFrame, RandomFrame, P, GoldenNote, 0);

-        inc(RecArray[P].CurrentStarCount);

-      end;

-    end;

-  draw;

-end;

-

-// kill one particle (with given index in our particle array)

-procedure TEffectManager.Kill(Index: Cardinal);

-var

-  LastParticleIndex : Integer;

-begin

-// delete particle indexed by Index,

-// overwrite it's place in our particle-array with the particle stored at the last array index,

-// shorten array

-  LastParticleIndex := high(Particle);

-  if not(LastParticleIndex = -1) then  // is there still a particle to delete?

-  begin

-    if not(Particle[Index].RecIndex = -1) then  // if it is a GoldenNote particle...

-      dec(RecArray[Particle[Index].RecIndex].CurrentStarCount); // take care of its associated GoldenRec

-    // now get rid of that particle

-    Particle[Index].Destroy;

-    Particle[Index] := Particle[LastParticleIndex];

-    SetLength(Particle, LastParticleIndex);

-  end;

-end;

-

-// clean up all particles and management structures

-procedure TEffectManager.KillAll();

-var c: Cardinal;

-begin

-//It's the kill all kennies rotuine

-  while Length(Particle) > 0 do  // kill all existing particles

-    Kill(0);

-  SetLength(RecArray,0);  // remove GoldenRec positions

-  SetLength(PerfNoteArray,0); // remove PerfectNote positions

-  for c:=0 to 5 do

-  begin

-    TwinkleArray[c] := 0; // reset GoldenNoteHit memory

-  end;

-end;

-

-procedure TEffectManager.SentenceChange();

-var c: Cardinal;

-begin

-  c:=0;

-  while c <= High(Particle) do

-  begin

-    if Particle[c].SurviveSentenceChange then

-      inc(c)

-    else

-      Kill(c);

-  end;

-  SetLength(RecArray,0);  // remove GoldenRec positions

-  SetLength(PerfNoteArray,0); // remove PerfectNote positions

-  for c:=0 to 5 do

-  begin

-    TwinkleArray[c] := 0; // reset GoldenNoteHit memory

-  end;

-end;

-

-procedure TeffectManager.GoldenNoteTwinkle(Top,Bottom,Right: Real; Player: Integer);

-//Twinkle stars while golden note hit

-// this is called from UDraw.pas, SingDrawPlayerCzesc

-var

-  C, P, XKatze, YKatze, LKatze: Integer;

-  H: Real;

-begin

-  // make sure we spawn only one time at one position

-  if (TwinkleArray[Player] < Right) then

-    For P := 0 to high(RecArray) do  // Are we inside a GoldenNoteRectangle?

-    begin

-      H := (Top+Bottom)/2; // helper...

-      with RecArray[P] do

-      if ((xBottom >= Right) and (xTop <= Right) and

-          (yTop <= H) and (yBottom >= H))

-          and (Screen = ScreenAct) then

-      begin

-        TwinkleArray[Player] := Right; // remember twinkle position for this player

-        for C := 1 to 10 do

-        begin

-          Ykatze := RandomRange(ceil(Top) , ceil(Bottom));

-          XKatze := RandomRange(-7,3);

-          LKatze := RandomRange(7,13);

-          Spawn(Ceil(Right)+XKatze, YKatze, ScreenAct, LKatze, 0, -1, NoteHitTwinkle, 0);

-        end;

-        for C := 1 to 3 do

-        begin

-          Ykatze := RandomRange(ceil(Top)-6 , ceil(Top));

-          XKatze := RandomRange(-5,1);

-          LKatze := RandomRange(4,7);

-          Spawn(Ceil(Right)+XKatze, YKatze, ScreenAct, LKatze, 0, -1, NoteHitTwinkle, 0);

-        end;

-        for C := 1 to 3 do

-        begin

-          Ykatze := RandomRange(ceil(Bottom), ceil(Bottom)+6);

-          XKatze := RandomRange(-5,1);

-          LKatze := RandomRange(4,7);

-          Spawn(Ceil(Right)+XKatze, YKatze, ScreenAct, LKatze, 0, -1, NoteHitTwinkle, 0);

-        end;

-        for C := 1 to 3 do

-        begin

-          Ykatze := RandomRange(ceil(Top)-10 , ceil(Top)-6);

-          XKatze := RandomRange(-5,1);

-          LKatze := RandomRange(1,4);

-          Spawn(Ceil(Right)+XKatze, YKatze, ScreenAct, LKatze, 0, -1, NoteHitTwinkle, 0);

-        end;

-        for C := 1 to 3 do

-        begin

-          Ykatze := RandomRange(ceil(Bottom)+6 , ceil(Bottom)+10);

-          XKatze := RandomRange(-5,1);

-          LKatze := RandomRange(1,4);

-          Spawn(Ceil(Right)+XKatze, YKatze, ScreenAct, LKatze, 0, -1, NoteHitTwinkle, 0);

-        end;

-

-        exit; // found a matching GoldenRec, did spawning stuff... done

-      end;

-    end;

-end;

-

-procedure TEffectManager.SaveGoldenStarsRec(Xtop, Ytop, Xbottom, Ybottom: Real);

-var

-  P : Integer;   // P like used in Positions

-  NewIndex : Integer;

-begin

-  For P := 0 to high(RecArray) do  // Do we already have that "new" position?

-    begin

-      if (ceil(RecArray[P].xTop) = ceil(Xtop)) and

-      (ceil(RecArray[P].yTop) = ceil(Ytop)) and

-      (ScreenAct = RecArray[p].Screen) then

-        exit; // it's already in the array, so we don't have to create a new one

-    end;

-

-  // we got a new position, add the new positions to our array

-    NewIndex := Length(RecArray);

-    SetLength(RecArray, NewIndex + 1);

-    RecArray[NewIndex].xTop    := Xtop;

-    RecArray[NewIndex].yTop    := Ytop;

-    RecArray[NewIndex].xBottom := Xbottom;

-    RecArray[NewIndex].yBottom := Ybottom;

-    RecArray[NewIndex].TotalStarCount := ceil(Xbottom - Xtop) div 12 + 3;

-    RecArray[NewIndex].CurrentStarCount := 0;

-    RecArray[NewIndex].Screen := ScreenAct;

-end;

-

-procedure TEffectManager.SavePerfectNotePos(Xtop, Ytop: Real);

-var

-  P : Integer;   // P like used in Positions

-  NewIndex : Integer;

-  RandomFrame : Integer;

-  Xkatze, Ykatze : Integer;

-begin

-  For P := 0 to high(PerfNoteArray) do  // Do we already have that "new" position?

-    begin

-      with PerfNoteArray[P] do

-      if (ceil(xPos) = ceil(Xtop)) and (ceil(yPos) = ceil(Ytop)) and

-         (Screen = ScreenAct) then

-        exit; // it's already in the array, so we don't have to create a new one

-    end; //for

-

-  // we got a new position, add the new positions to our array

-    NewIndex := Length(PerfNoteArray);

-    SetLength(PerfNoteArray, NewIndex + 1);

-    PerfNoteArray[NewIndex].xPos    := Xtop;

-    PerfNoteArray[NewIndex].yPos    := Ytop;

-    PerfNoteArray[NewIndex].Screen  := ScreenAct;

-

-    for P:= 0 to 2 do

-      begin

-        Xkatze := RandomRange(ceil(Xtop) - 5 , ceil(Xtop) + 10);

-        Ykatze := RandomRange(ceil(Ytop) - 5 , ceil(Ytop) + 10);

-        RandomFrame := RandomRange(0,14);

-        Spawn(Xkatze, Ykatze, ScreenAct, 16 - RandomFrame, RandomFrame, -1, PerfectNote, 0);

-     end; //for

-

-end;

-

-procedure TEffectManager.SpawnPerfectLineTwinkle();

-var

-  P,I,Life: Cardinal;

-  Left, Right, Top, Bottom: Cardinal;

-  cScreen: Integer;

-begin

-// calculation of coordinates done with hardcoded values like in UDraw.pas

-// might need to be adjusted if drawing of SingScreen is modified

-// coordinates may still be a bit weird and need adjustment

-  if Ini.SingWindow = 0 then begin

-    Left := 130;

-  end else begin

-    Left := 30;

-  end;

-  Right := 770;

-  // spawn effect for every player with a perfect line

-  for P:=0 to PlayersPlay-1 do

-    if Player[P].LastSentencePerfect then

-    begin

-      // calculate area where notes of this player are drawn

-      case PlayersPlay of

-        1: begin

-             Bottom:=Skin_P2_NotesB+10;

-             Top:=Bottom-105;

-             cScreen:=1;

-           end;

-        2,4: begin

-               case P of

-                 0,2: begin

-                        Bottom:=Skin_P1_NotesB+10;

-                        Top:=Bottom-105;

-                      end;

-                 else begin

-                        Bottom:=Skin_P2_NotesB+10;

-                        Top:=Bottom-105;

-                      end;

-               end;

-               case P of

-                 0,1: cScreen:=1;

-                 else cScreen:=2;

-               end;

-             end;

-        3,6: begin

-               case P of

-                 0,3: begin

-                        Top:=130;

-                        Bottom:=Top+85;

-                      end;

-                 1,4: begin

-                        Top:=255;

-                        Bottom:=Top+85;

-                      end;

-                 2,5: begin

-                        Top:=380;

-                        Bottom:=Top+85;

-                      end;

-               end;

-               case P of

-                 0,1,2: cScreen:=1;

-                 else cScreen:=2;

-               end;

-             end;

-      end;

-      // spawn Sparkling Stars inside calculated coordinates

-      for I:= 0 to 80 do

-      begin

-        Life:=RandomRange(8,16);

-        Spawn(RandomRange(Left,Right), RandomRange(Top,Bottom), cScreen, Life, 16-Life, -1, PerfectLineTwinkle, P);

-      end;

-    end;

-end;

-

-end.

-

+// notes:
+unit UGraphicClasses;
+
+interface
+
+{$I switches.inc}
+
+{$IFDEF FPC}
+  {$MODE DELPHI}
+{$ENDIF}
+
+uses UTexture;
+
+const  DelayBetweenFrames : Cardinal = 60;
+type
+
+ TParticleType=(GoldenNote, PerfectNote, NoteHitTwinkle, PerfectLineTwinkle, ColoredStar, Flare);
+
+ TColour3f = Record
+               r, g, b: Real;
+             end;
+
+ TParticle = Class
+   X, Y     : Real;     //Position
+   Screen   : Integer;
+   W, H     : Cardinal; //dimensions of particle
+   Col      : array of TColour3f; // Colour(s) of particle
+   Scale    : array of Real;      // Scaling factors of particle layers
+   Frame    : Byte;     //act. Frame
+   Tex      : Cardinal; //Tex num from Textur Manager
+   Live     : Byte;     //How many Cycles before Kill
+   RecIndex : Integer;  //To which rectangle this particle belongs (only GoldenNote)
+   StarType : TParticleType;  // GoldenNote | PerfectNote | NoteHitTwinkle | PerfectLineTwinkle
+   Alpha    : Real;     // used for fading...
+   mX, mY   : Real;     // movement-vector for PerfectLineTwinkle
+   SizeMod  : Real;     // experimental size modifier
+   SurviveSentenceChange : Boolean;
+
+   Constructor Create(cX,cY: Real; cScreen: Integer; cLive: Byte; cFrame : integer; cRecArrayIndex : Integer; cStarType : TParticleType; Player: Cardinal);
+   Destructor Destroy(); override;
+   procedure Draw;
+   procedure LiveOn;
+ end;
+
+ RectanglePositions   = Record
+   xTop, yTop, xBottom, yBottom : Real;
+   TotalStarCount   : Integer;
+   CurrentStarCount : Integer;
+   Screen           : Integer;
+ end;
+
+ PerfectNotePositions = Record
+   xPos, yPos : Real;
+   Screen     : Integer;
+ end;
+
+ TEffectManager = Class
+   Particle      : array of TParticle;
+   LastTime      : Cardinal;
+   RecArray      : Array of RectanglePositions;
+   TwinkleArray  : Array[0..5] of Real; // store x-position of last twinkle for every player
+   PerfNoteArray : Array of PerfectNotePositions;
+
+   FlareTex: TTexture;
+
+   constructor Create;
+   destructor  Destroy; override;
+   procedure Draw;
+   function  Spawn(X, Y: Real;
+                   Screen: Integer;
+                   Live: Byte;
+                   StartFrame: Integer;
+                   RecArrayIndex: Integer;  // this is only used with GoldenNotes
+                   StarType: TParticleType;
+                   Player: Cardinal         // for PerfectLineTwinkle
+             ): Cardinal;
+   procedure SpawnRec();
+   procedure Kill(index: Cardinal);
+   procedure KillAll();
+   procedure SentenceChange();
+   procedure SaveGoldenStarsRec(Xtop, Ytop, Xbottom, Ybottom: Real);
+   procedure SavePerfectNotePos(Xtop, Ytop: Real);
+   procedure GoldenNoteTwinkle(Top,Bottom,Right: Real; Player: Integer);
+   procedure SpawnPerfectLineTwinkle();
+ end;
+
+var GoldenRec : TEffectManager;
+
+implementation
+
+uses  sysutils,
+      {$IFDEF win32}
+      windows,
+      {$ELSE}
+      lclintf,
+      {$ENDIF}
+      OpenGl12,
+      UIni,
+      UMain,
+      UThemes,
+      USkins,
+      UGraphic,
+      UDrawTexture,
+      UCommon,
+      math;
+
+//TParticle
+Constructor TParticle.Create(cX,cY: Real; cScreen: Integer; cLive: Byte; cFrame : integer; cRecArrayIndex : Integer; cStarType : TParticleType; Player: Cardinal);
+begin
+  inherited Create;
+  // in this constructor we set all initial values for our particle
+  X := cX;
+  Y := cY;
+  Screen := cScreen;
+  Live := cLive;
+  Frame:= cFrame;
+  RecIndex := cRecArrayIndex;
+  StarType := cStarType;
+  Alpha := (-cos((Frame+1)*2*pi/16)+1); // neat fade-in-and-out
+  SetLength(Scale,1);
+  Scale[0] := 1;
+  SurviveSentenceChange := False;
+  SizeMod := 1;
+  case cStarType of
+    GoldenNote:
+        begin
+          Tex := Tex_Note_Star.TexNum;
+          W := 20;
+          H := 20;
+          SetLength(Scale,4);
+          Scale[1]:=0.8;
+          Scale[2]:=0.4;
+          Scale[3]:=0.3;
+          SetLength(Col,4);
+          Col[0].r := 1;
+          Col[0].g := 0.7;
+          Col[0].b := 0.1;
+
+          Col[1].r := 1;
+          Col[1].g := 1;
+          Col[1].b := 0.4;
+
+          Col[2].r := 1;
+          Col[2].g := 1;
+          Col[2].b := 1;
+
+          Col[3].r := 1;
+          Col[3].g := 1;
+          Col[3].b := 1;
+        end;
+    PerfectNote:
+        begin
+          Tex := Tex_Note_Perfect_Star.TexNum;
+          W := 30;
+          H := 30;
+          SetLength(Col,1);
+          Col[0].r := 1;
+          Col[0].g := 1;
+          Col[0].b := 0.95;
+        end;
+    NoteHitTwinkle:
+        begin
+          Tex := Tex_Note_Star.TexNum;
+          Alpha := (Live/16);  // linear fade-out
+          W := 15;
+          H := 15;
+          Setlength(Col,1);
+          Col[0].r := 1;
+          Col[0].g := 1;
+          Col[0].b := RandomRange(10*Live,100)/90; //0.9;
+        end;
+    PerfectLineTwinkle:
+        begin
+          Tex := Tex_Note_Star.TexNum;
+          W := RandomRange(10,20);
+          H := W;
+          SizeMod := (-cos((Frame+1)*5*2*pi/16)*0.5+1.1);
+          SurviveSentenceChange:=True;
+          // assign colours according to player given
+          SetLength(Scale,3);
+          Scale[1]:=0.3;
+          Scale[2]:=0.2;
+          SetLength(Col,3);
+          case Player of
+            0: LoadColor(Col[0].r,Col[0].g,Col[0].b,'P1Light');
+            1: LoadColor(Col[0].r,Col[0].g,Col[0].b,'P2Light');
+            2: LoadColor(Col[0].r,Col[0].g,Col[0].b,'P3Light');
+            3: LoadColor(Col[0].r,Col[0].g,Col[0].b,'P4Light');
+            4: LoadColor(Col[0].r,Col[0].g,Col[0].b,'P5Light');
+            5: LoadColor(Col[0].r,Col[0].g,Col[0].b,'P6Light');
+            else LoadColor(Col[0].r,Col[0].g,Col[0].b,'P1Light');
+          end;
+          Col[1].r := 1;
+          Col[1].g := 1;
+          Col[1].b := 0.4;
+          Col[2].r:=Col[0].r+0.5;
+          Col[2].g:=Col[0].g+0.5;
+          Col[2].b:=Col[0].b+0.5;
+          mX := RandomRange(-5,5);
+          mY := RandomRange(-5,5);
+        end;
+    ColoredStar:
+        begin
+          Tex := Tex_Note_Star.TexNum;
+          W := RandomRange(10,20);
+          H := W;
+          SizeMod := (-cos((Frame+1)*5*2*pi/16)*0.5+1.1);
+          SurviveSentenceChange:=True;
+          // assign colours according to player given
+          SetLength(Scale,1);
+          SetLength(Col,1);
+          Col[0].b := (Player and $ff)/255;
+          Col[0].g := ((Player shr 8) and $ff)/255;
+          Col[0].r := ((Player shr 16) and $ff)/255;
+          mX := 0;
+          mY := 0;
+        end;
+    Flare:
+        begin
+          Tex := Tex_Note_Star.TexNum;
+          W := 7;
+          H := 7;
+          SizeMod := (-cos((Frame+1)*5*2*pi/16)*0.5+1.1);
+          mX := RandomRange(-5,5);
+          mY := RandomRange(-5,5);
+          SetLength(Scale,4);
+          Scale[1]:=0.8;
+          Scale[2]:=0.4;
+          Scale[3]:=0.3;
+          SetLength(Col,4);
+          Col[0].r := 1;
+          Col[0].g := 0.7;
+          Col[0].b := 0.1;
+
+          Col[1].r := 1;
+          Col[1].g := 1;
+          Col[1].b := 0.4;
+
+          Col[2].r := 1;
+          Col[2].g := 1;
+          Col[2].b := 1;
+
+          Col[3].r := 1;
+          Col[3].g := 1;
+          Col[3].b := 1;
+
+        end;
+    else    // just some random default values
+        begin
+          Tex := Tex_Note_Star.TexNum;
+          Alpha := 1;
+          W := 20;
+          H := 20;
+          SetLength(Col,1);
+          Col[0].r := 1;
+          Col[0].g := 1;
+          Col[0].b := 1;
+        end;
+  end;
+end;
+
+Destructor TParticle.Destroy();
+begin
+  SetLength(Scale,0);
+  SetLength(Col,0);
+  inherited;
+end;
+
+procedure TParticle.LiveOn;
+begin
+  //Live = 0 => Live forever  <blindy> ?? die werden doch aber im Manager bei Draw getötet, wenns 0 is
+  if (Live > 0) then
+    Dec(Live);
+
+  // animate frames
+  Frame := ( Frame + 1 ) mod 16;
+
+  // make our particles do funny stuff (besides being animated)
+  // changes of any particle-values throughout its life are done here
+  case StarType of
+    GoldenNote:
+        begin
+          Alpha := (-cos((Frame+1)*2*pi/16)+1); // neat fade-in-and-out
+        end;
+    PerfectNote:
+        begin
+          Alpha := (-cos((Frame+1)*2*pi/16)+1); // neat fade-in-and-out
+        end;
+    NoteHitTwinkle:
+        begin
+          Alpha := (Live/10);  // linear fade-out
+        end;
+    PerfectLineTwinkle:
+        begin
+          Alpha := (-cos((Frame+1)*2*pi/16)+1); // neat fade-in-and-out
+          SizeMod := (-cos((Frame+1)*5*2*pi/16)*0.5+1.1);
+          // move around
+          X := X + mX;
+          Y := Y + mY;
+        end;
+    ColoredStar:
+        begin
+          Alpha := (-cos((Frame+1)*2*pi/16)+1); // neat fade-in-and-out
+        end;
+    Flare:
+        begin
+          Alpha := (-cos((Frame+1)/16*1.7*pi+0.3*pi)+1); // neat fade-in-and-out
+          SizeMod := (-cos((Frame+1)*5*2*pi/16)*0.5+1.1);
+          // move around
+          X := X + mX;
+          Y := Y + mY;
+          mY:=mY+1.8;
+//          mX:=mX/2;
+        end;
+  end;
+end;
+
+procedure TParticle.Draw;
+var L: Cardinal;
+begin
+  if ScreenAct = Screen then
+    // this draws (multiple) texture(s) of our particle
+    for L:=0 to High(Col) do
+    begin
+      glColor4f(Col[L].r, Col[L].g, Col[L].b, Alpha);
+
+      glBindTexture(GL_TEXTURE_2D, Tex);
+      glEnable(GL_TEXTURE_2D);
+      glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);
+      glEnable(GL_BLEND);
+
+      begin
+        glBegin(GL_QUADS);
+        glTexCoord2f((1/16) * Frame, 0);          glVertex2f(X-W*Scale[L]*SizeMod, Y-H*Scale[L]*SizeMod);
+        glTexCoord2f((1/16) * Frame + (1/16), 0); glVertex2f(X-W*Scale[L]*SizeMod, Y+H*Scale[L]*SizeMod);
+        glTexCoord2f((1/16) * Frame + (1/16), 1); glVertex2f(X+W*Scale[L]*SizeMod, Y+H*Scale[L]*SizeMod);
+        glTexCoord2f((1/16) * Frame, 1);          glVertex2f(X+W*Scale[L]*SizeMod, Y-H*Scale[L]*SizeMod);
+        glEnd;
+      end;
+    end;
+  glcolor4f(1,1,1,1);
+end;
+// end of TParticle
+
+// TEffectManager
+
+constructor TEffectManager.Create;
+var c: Cardinal;
+begin
+  inherited;
+  LastTime := GetTickCount;
+  for c:=0 to 5 do
+  begin
+    TwinkleArray[c] := 0;
+  end;
+end;
+
+destructor TEffectManager.Destroy;
+begin
+  Killall;
+  inherited;
+end;
+
+
+procedure TEffectManager.Draw;
+var
+  I: Integer;
+  CurrentTime: Cardinal;
+//const
+//  DelayBetweenFrames : Cardinal = 100;
+begin
+
+  CurrentTime := GetTickCount;
+  //Manage particle life
+  if (CurrentTime - LastTime) > DelayBetweenFrames then
+    begin
+      LastTime := CurrentTime;
+      for I := 0 to high(Particle) do
+        Particle[I].LiveOn;
+    end;
+
+  I := 0;
+  //Kill dead particles
+  while (I <= High(Particle)) do
+    begin
+      if (Particle[I].Live <= 0) then
+        begin
+          kill(I);
+        end
+      else
+        begin
+          inc(I);
+        end;
+    end;
+
+ //Draw
+ for I := 0 to high(Particle) do
+   begin
+     Particle[I].Draw;
+   end;
+end;
+
+// this method creates just one particle
+function TEffectManager.Spawn(X, Y: Real; Screen: Integer; Live: Byte; StartFrame : Integer; RecArrayIndex : Integer; StarType : TParticleType; Player: Cardinal): Cardinal;
+begin
+  Result := Length(Particle);
+  SetLength(Particle, (Result + 1));
+  Particle[Result] := TParticle.Create(X, Y, Screen, Live, StartFrame, RecArrayIndex, StarType, Player);
+end;
+
+// manage Sparkling of GoldenNote Bars
+procedure TEffectManager.SpawnRec();
+Var
+  Xkatze, Ykatze    : Real;
+  RandomFrame : Integer;
+  P : Integer; // P as seen on TV as Positionman
+begin
+//Spawn a random amount of stars within the given coordinates
+//RandomRange(0,14) <- this one starts at a random  frame, 16 is our last frame - would be senseless to start a particle with 16, cause it would be dead at the next frame
+for P:= 0 to high(RecArray) do
+  begin
+    while (RecArray[P].TotalStarCount > RecArray[P].CurrentStarCount) do
+      begin
+        Xkatze := RandomRange(Ceil(RecArray[P].xTop), Ceil(RecArray[P].xBottom));
+        Ykatze := RandomRange(Ceil(RecArray[P].yTop), Ceil(RecArray[P].yBottom));
+        RandomFrame := RandomRange(0,14);
+        // Spawn a GoldenNote Particle
+        Spawn(Xkatze, Ykatze, RecArray[P].Screen, 16 - RandomFrame, RandomFrame, P, GoldenNote, 0);
+        inc(RecArray[P].CurrentStarCount);
+      end;
+    end;
+  draw;
+end;
+
+// kill one particle (with given index in our particle array)
+procedure TEffectManager.Kill(Index: Cardinal);
+var
+  LastParticleIndex : Integer;
+begin
+// delete particle indexed by Index,
+// overwrite it's place in our particle-array with the particle stored at the last array index,
+// shorten array
+  LastParticleIndex := high(Particle);
+  if not(LastParticleIndex = -1) then  // is there still a particle to delete?
+  begin
+    if not(Particle[Index].RecIndex = -1) then  // if it is a GoldenNote particle...
+      dec(RecArray[Particle[Index].RecIndex].CurrentStarCount); // take care of its associated GoldenRec
+    // now get rid of that particle
+    Particle[Index].Destroy;
+    Particle[Index] := Particle[LastParticleIndex];
+    SetLength(Particle, LastParticleIndex);
+  end;
+end;
+
+// clean up all particles and management structures
+procedure TEffectManager.KillAll();
+var c: Cardinal;
+begin
+//It's the kill all kennies rotuine
+  while Length(Particle) > 0 do  // kill all existing particles
+    Kill(0);
+  SetLength(RecArray,0);  // remove GoldenRec positions
+  SetLength(PerfNoteArray,0); // remove PerfectNote positions
+  for c:=0 to 5 do
+  begin
+    TwinkleArray[c] := 0; // reset GoldenNoteHit memory
+  end;
+end;
+
+procedure TEffectManager.SentenceChange();
+var c: Cardinal;
+begin
+  c:=0;
+  while c <= High(Particle) do
+  begin
+    if Particle[c].SurviveSentenceChange then
+      inc(c)
+    else
+      Kill(c);
+  end;
+  SetLength(RecArray,0);  // remove GoldenRec positions
+  SetLength(PerfNoteArray,0); // remove PerfectNote positions
+  for c:=0 to 5 do
+  begin
+    TwinkleArray[c] := 0; // reset GoldenNoteHit memory
+  end;
+end;
+
+procedure TeffectManager.GoldenNoteTwinkle(Top,Bottom,Right: Real; Player: Integer);
+//Twinkle stars while golden note hit
+// this is called from UDraw.pas, SingDrawPlayerCzesc
+var
+  C, P, XKatze, YKatze, LKatze: Integer;
+  H: Real;
+begin
+  // make sure we spawn only one time at one position
+  if (TwinkleArray[Player] < Right) then
+    For P := 0 to high(RecArray) do  // Are we inside a GoldenNoteRectangle?
+    begin
+      H := (Top+Bottom)/2; // helper...
+      with RecArray[P] do
+      if ((xBottom >= Right) and (xTop <= Right) and
+          (yTop <= H) and (yBottom >= H))
+          and (Screen = ScreenAct) then
+      begin
+        TwinkleArray[Player] := Right; // remember twinkle position for this player
+        for C := 1 to 10 do
+        begin
+          Ykatze := RandomRange(ceil(Top) , ceil(Bottom));
+          XKatze := RandomRange(-7,3);
+          LKatze := RandomRange(7,13);
+          Spawn(Ceil(Right)+XKatze, YKatze, ScreenAct, LKatze, 0, -1, NoteHitTwinkle, 0);
+        end;
+        for C := 1 to 3 do
+        begin
+          Ykatze := RandomRange(ceil(Top)-6 , ceil(Top));
+          XKatze := RandomRange(-5,1);
+          LKatze := RandomRange(4,7);
+          Spawn(Ceil(Right)+XKatze, YKatze, ScreenAct, LKatze, 0, -1, NoteHitTwinkle, 0);
+        end;
+        for C := 1 to 3 do
+        begin
+          Ykatze := RandomRange(ceil(Bottom), ceil(Bottom)+6);
+          XKatze := RandomRange(-5,1);
+          LKatze := RandomRange(4,7);
+          Spawn(Ceil(Right)+XKatze, YKatze, ScreenAct, LKatze, 0, -1, NoteHitTwinkle, 0);
+        end;
+        for C := 1 to 3 do
+        begin
+          Ykatze := RandomRange(ceil(Top)-10 , ceil(Top)-6);
+          XKatze := RandomRange(-5,1);
+          LKatze := RandomRange(1,4);
+          Spawn(Ceil(Right)+XKatze, YKatze, ScreenAct, LKatze, 0, -1, NoteHitTwinkle, 0);
+        end;
+        for C := 1 to 3 do
+        begin
+          Ykatze := RandomRange(ceil(Bottom)+6 , ceil(Bottom)+10);
+          XKatze := RandomRange(-5,1);
+          LKatze := RandomRange(1,4);
+          Spawn(Ceil(Right)+XKatze, YKatze, ScreenAct, LKatze, 0, -1, NoteHitTwinkle, 0);
+        end;
+
+        exit; // found a matching GoldenRec, did spawning stuff... done
+      end;
+    end;
+end;
+
+procedure TEffectManager.SaveGoldenStarsRec(Xtop, Ytop, Xbottom, Ybottom: Real);
+var
+  P : Integer;   // P like used in Positions
+  NewIndex : Integer;
+begin
+  For P := 0 to high(RecArray) do  // Do we already have that "new" position?
+    begin
+      if (ceil(RecArray[P].xTop) = ceil(Xtop)) and
+      (ceil(RecArray[P].yTop) = ceil(Ytop)) and
+      (ScreenAct = RecArray[p].Screen) then
+        exit; // it's already in the array, so we don't have to create a new one
+    end;
+
+  // we got a new position, add the new positions to our array
+    NewIndex := Length(RecArray);
+    SetLength(RecArray, NewIndex + 1);
+    RecArray[NewIndex].xTop    := Xtop;
+    RecArray[NewIndex].yTop    := Ytop;
+    RecArray[NewIndex].xBottom := Xbottom;
+    RecArray[NewIndex].yBottom := Ybottom;
+    RecArray[NewIndex].TotalStarCount := ceil(Xbottom - Xtop) div 12 + 3;
+    RecArray[NewIndex].CurrentStarCount := 0;
+    RecArray[NewIndex].Screen := ScreenAct;
+end;
+
+procedure TEffectManager.SavePerfectNotePos(Xtop, Ytop: Real);
+var
+  P : Integer;   // P like used in Positions
+  NewIndex : Integer;
+  RandomFrame : Integer;
+  Xkatze, Ykatze : Integer;
+begin
+  For P := 0 to high(PerfNoteArray) do  // Do we already have that "new" position?
+    begin
+      with PerfNoteArray[P] do
+      if (ceil(xPos) = ceil(Xtop)) and (ceil(yPos) = ceil(Ytop)) and
+         (Screen = ScreenAct) then
+        exit; // it's already in the array, so we don't have to create a new one
+    end; //for
+
+  // we got a new position, add the new positions to our array
+    NewIndex := Length(PerfNoteArray);
+    SetLength(PerfNoteArray, NewIndex + 1);
+    PerfNoteArray[NewIndex].xPos    := Xtop;
+    PerfNoteArray[NewIndex].yPos    := Ytop;
+    PerfNoteArray[NewIndex].Screen  := ScreenAct;
+
+    for P:= 0 to 2 do
+      begin
+        Xkatze := RandomRange(ceil(Xtop) - 5 , ceil(Xtop) + 10);
+        Ykatze := RandomRange(ceil(Ytop) - 5 , ceil(Ytop) + 10);
+        RandomFrame := RandomRange(0,14);
+        Spawn(Xkatze, Ykatze, ScreenAct, 16 - RandomFrame, RandomFrame, -1, PerfectNote, 0);
+     end; //for
+
+end;
+
+procedure TEffectManager.SpawnPerfectLineTwinkle();
+var
+  P,I,Life: Cardinal;
+  Left, Right, Top, Bottom: Cardinal;
+  cScreen: Integer;
+begin
+// calculation of coordinates done with hardcoded values like in UDraw.pas
+// might need to be adjusted if drawing of SingScreen is modified
+// coordinates may still be a bit weird and need adjustment
+  if Ini.SingWindow = 0 then begin
+    Left := 130;
+  end else begin
+    Left := 30;
+  end;
+  Right := 770;
+  // spawn effect for every player with a perfect line
+  for P:=0 to PlayersPlay-1 do
+    if Player[P].LastSentencePerfect then
+    begin
+      // calculate area where notes of this player are drawn
+      case PlayersPlay of
+        1: begin
+             Bottom:=Skin_P2_NotesB+10;
+             Top:=Bottom-105;
+             cScreen:=1;
+           end;
+        2,4: begin
+               case P of
+                 0,2: begin
+                        Bottom:=Skin_P1_NotesB+10;
+                        Top:=Bottom-105;
+                      end;
+                 else begin
+                        Bottom:=Skin_P2_NotesB+10;
+                        Top:=Bottom-105;
+                      end;
+               end;
+               case P of
+                 0,1: cScreen:=1;
+                 else cScreen:=2;
+               end;
+             end;
+        3,6: begin
+               case P of
+                 0,3: begin
+                        Top:=130;
+                        Bottom:=Top+85;
+                      end;
+                 1,4: begin
+                        Top:=255;
+                        Bottom:=Top+85;
+                      end;
+                 2,5: begin
+                        Top:=380;
+                        Bottom:=Top+85;
+                      end;
+               end;
+               case P of
+                 0,1,2: cScreen:=1;
+                 else cScreen:=2;
+               end;
+             end;
+      end;
+      // spawn Sparkling Stars inside calculated coordinates
+      for I:= 0 to 80 do
+      begin
+        Life:=RandomRange(8,16);
+        Spawn(RandomRange(Left,Right), RandomRange(Top,Bottom), cScreen, Life, 16-Life, -1, PerfectLineTwinkle, P);
+      end;
+    end;
+end;
+
+end.
+
diff --git a/Game/Code/Classes/UJoystick.pas b/Game/Code/Classes/UJoystick.pas
index b0c7b8cc..6b4ea63f 100644
--- a/Game/Code/Classes/UJoystick.pas
+++ b/Game/Code/Classes/UJoystick.pas
@@ -1,273 +1,282 @@
-unit UJoystick;

-

-interface

-

-uses SDL;

-

-type

-  TJoyButton = record

-    State:      integer;

-    Enabled:    boolean;

-    Type_:      byte;

-    Sym:        cardinal;

-  end;

-

-  TJoyHatState = record

-    State:      Boolean;

-    LastTick:   Cardinal;

-    Enabled:    boolean;

-    Type_:      byte;

-    Sym:        cardinal;

-  end;

-

-  TJoyUnit = record

-    Button:   array[0..15] of TJoyButton;

-    HatState: Array[0..3]  of TJoyHatState;

-  end;

-

-  TJoy = class

-    constructor Create;

-    procedure Update;

-  end;

-

-var

-  Joy:        TJoy;

-  JoyUnit:    TJoyUnit;

-  SDL_Joy:    PSDL_Joystick;

-  JoyEvent:   TSDL_Event;

-

-implementation

-

-uses SysUtils, Windows, ULog;

-

-constructor TJoy.Create;

-var

-  B, N:    integer;

-begin

-  //Old Corvus5 Method

-  {// joystick support

-  SDL_JoystickEventState(SDL_IGNORE);

-  SDL_InitSubSystem(SDL_INIT_JOYSTICK);

-  if SDL_NumJoysticks <> 1 then beep;

-

-  SDL_Joy := SDL_JoystickOpen(0);

-  if SDL_Joy = nil then beep;

-

-  if SDL_JoystickNumButtons(SDL_Joy) <> 16 then beep;

-

-//  SDL_JoystickEventState(SDL_ENABLE);

-  // Events don't work - thay hang the whole application with SDL_JoystickEventState(SDL_ENABLE)

-

-  // clear states

-  for B := 0 to 15 do

-    JoyUnit.Button[B].State := 1;

-

-  // mapping

-  JoyUnit.Button[1].Enabled := true;

-  JoyUnit.Button[1].Type_ := SDL_KEYDOWN;

-  JoyUnit.Button[1].Sym := SDLK_RETURN;

-  JoyUnit.Button[2].Enabled := true;

-  JoyUnit.Button[2].Type_ := SDL_KEYDOWN;

-  JoyUnit.Button[2].Sym := SDLK_ESCAPE;

-

-  JoyUnit.Button[12].Enabled := true;

-  JoyUnit.Button[12].Type_ := SDL_KEYDOWN;

-  JoyUnit.Button[12].Sym := SDLK_LEFT;

-  JoyUnit.Button[13].Enabled := true;

-  JoyUnit.Button[13].Type_ := SDL_KEYDOWN;

-  JoyUnit.Button[13].Sym := SDLK_DOWN;

-  JoyUnit.Button[14].Enabled := true;

-  JoyUnit.Button[14].Type_ := SDL_KEYDOWN;

-  JoyUnit.Button[14].Sym := SDLK_RIGHT;

-  JoyUnit.Button[15].Enabled := true;

-  JoyUnit.Button[15].Type_ := SDL_KEYDOWN;

-  JoyUnit.Button[15].Sym := SDLK_UP;

-  }

-  //New Sarutas method

-  SDL_JoystickEventState(SDL_IGNORE);

-  SDL_InitSubSystem(SDL_INIT_JOYSTICK);

-  if SDL_NumJoysticks < 1 then

-  begin

-    Log.LogError('No Joystick found');

-    exit;

-  end;

-

-

-  SDL_Joy := SDL_JoystickOpen(0);

-  if SDL_Joy = nil then

-  begin

-    Log.LogError('Could not Init Joystick');

-    exit;

-  end;

-  N := SDL_JoystickNumButtons(SDL_Joy);

-  //if N < 6 then beep;

-

-  for B := 0 to 5 do begin

-    JoyUnit.Button[B].Enabled := true;

-    JoyUnit.Button[B].State := 1;

-    JoyUnit.Button[B].Type_ := SDL_KEYDOWN;

-  end;

-

-  JoyUnit.Button[0].Sym := SDLK_Return;

-  JoyUnit.Button[1].Sym := SDLK_Escape;

-  JoyUnit.Button[2].Sym := SDLK_M;

-  JoyUnit.Button[3].Sym := SDLK_R;

-

-  JoyUnit.Button[4].Sym := SDLK_RETURN;

-  JoyUnit.Button[5].Sym := SDLK_ESCAPE;

-

-  //Set HatState

-  for B := 0 to 3 do begin

-    JoyUnit.HatState[B].Enabled := true;

-    JoyUnit.HatState[B].State := False;

-    JoyUnit.HatState[B].Type_ := SDL_KEYDOWN;

-  end;

-

-  JoyUnit.HatState[0].Sym := SDLK_UP;

-  JoyUnit.HatState[1].Sym := SDLK_RIGHT;

-  JoyUnit.HatState[2].Sym := SDLK_DOWN;

-  JoyUnit.HatState[3].Sym := SDLK_LEFT;

-end;

-

-procedure TJoy.Update;

-var

-  B:      integer;

-  State:  UInt8;

-  Tick:   Cardinal;

-  Axes:   Smallint;

-begin

-  SDL_JoystickUpdate;

-

-  //Manage Buttons

-  for B := 0 to 15 do begin

-    if (JoyUnit.Button[B].Enabled) and (JoyUnit.Button[B].State <> SDL_JoystickGetButton(SDL_Joy, B)) and (JoyUnit.Button[B].State = 0) then begin

-      JoyEvent.type_ := JoyUnit.Button[B].Type_;

-      JoyEvent.key.keysym.sym := JoyUnit.Button[B].Sym;

-      SDL_PushEvent(@JoyEvent);

-    end;

-  end;

-

-

-  for B := 0 to 15 do begin

-    JoyUnit.Button[B].State := SDL_JoystickGetButton(SDL_Joy, B);

-  end;

-

-  //Get Tick

-  Tick := Gettickcount;

-

-  //Get CoolieHat

-  if (SDL_JoystickNumHats(SDL_Joy)>=1) then

-    State := SDL_JoystickGetHat(SDL_Joy, 0)

-  else

-    State := 0;

-

-  //Get Axis  

-  if (SDL_JoystickNumAxes(SDL_Joy)>=2) then

-  begin

-    //Down - Up (X- Axis)

-    Axes := SDL_JoystickGetAxis(SDL_Joy, 1);

-    If Axes >= 15000 then

-      State := State or SDL_HAT_Down

-    Else If Axes <= -15000 then

-      State := State or SDL_HAT_UP;

-

-    //Left - Right (Y- Axis)

-    Axes := SDL_JoystickGetAxis(SDL_Joy, 0);

-    If Axes >= 15000 then

-      State := State or SDL_HAT_Right

-    Else If Axes <= -15000 then

-      State := State or SDL_HAT_Left;

-  end;

-

-  //Manage Hat and joystick Events

-  if (SDL_JoystickNumHats(SDL_Joy)>=1) OR (SDL_JoystickNumAxes(SDL_Joy)>=2) then

-  begin

-

-    //Up Button

-    If (JoyUnit.HatState[0].Enabled) and ((SDL_HAT_UP AND State) = SDL_HAT_UP) then

-    begin //IF Button is newly Pressed or if he is Pressed longer than 500 msecs

-      if (JoyUnit.HatState[0].State = False) OR (JoyUnit.HatState[0].Lasttick < Tick) then

-      begin

-        //Set Tick and State

-        if JoyUnit.HatState[0].State then

-          JoyUnit.HatState[0].Lasttick := Tick + 200

-        else

-          JoyUnit.HatState[0].Lasttick := Tick + 500;

-

-        JoyUnit.HatState[0].State := True;

-

-        JoyEvent.type_ := JoyUnit.HatState[0].Type_;

-        JoyEvent.key.keysym.sym := JoyUnit.HatState[0].Sym;

-        SDL_PushEvent(@JoyEvent);

-      end;

-    end

-    else

-      JoyUnit.HatState[0].State := False;

-

-    //Right Button

-    If (JoyUnit.HatState[1].Enabled) and ((SDL_HAT_RIGHT AND State) = SDL_HAT_RIGHT) then

-    begin //IF Button is newly Pressed or if he is Pressed longer than 500 msecs

-      if (JoyUnit.HatState[1].State = False) OR (JoyUnit.HatState[1].Lasttick < Tick) then

-      begin

-        //Set Tick and State

-        if JoyUnit.HatState[1].State then

-          JoyUnit.HatState[1].Lasttick := Tick + 200

-        else

-          JoyUnit.HatState[1].Lasttick := Tick + 500;

-

-        JoyUnit.HatState[1].State := True;

-        

-        JoyEvent.type_ := JoyUnit.HatState[1].Type_;

-        JoyEvent.key.keysym.sym := JoyUnit.HatState[1].Sym;

-        SDL_PushEvent(@JoyEvent);

-      end;

-    end

-    else

-      JoyUnit.HatState[1].State := False;

-

-    //Down button

-    If (JoyUnit.HatState[2].Enabled) and ((SDL_HAT_DOWN AND State) = SDL_HAT_DOWN) then

-    begin //IF Button is newly Pressed or if he is Pressed longer than 230 msecs

-      if (JoyUnit.HatState[2].State = False) OR (JoyUnit.HatState[2].Lasttick < Tick) then

-      begin

-        //Set Tick and State

-        if JoyUnit.HatState[2].State then

-          JoyUnit.HatState[2].Lasttick := Tick + 200

-        else

-          JoyUnit.HatState[2].Lasttick := Tick + 500;

-

-        JoyUnit.HatState[2].State := True;

-        

-        JoyEvent.type_ := JoyUnit.HatState[2].Type_;

-        JoyEvent.key.keysym.sym := JoyUnit.HatState[2].Sym;

-        SDL_PushEvent(@JoyEvent);

-      end;

-    end

-    else

-      JoyUnit.HatState[2].State := False;

-

-    //Left Button

-    If (JoyUnit.HatState[3].Enabled) and ((SDL_HAT_LEFT AND State) = SDL_HAT_LEFT) then

-    begin //IF Button is newly Pressed or if he is Pressed longer than 230 msecs

-      if (JoyUnit.HatState[3].State = False) OR (JoyUnit.HatState[3].Lasttick < Tick) then

-      begin

-        //Set Tick and State

-        if JoyUnit.HatState[3].State then

-          JoyUnit.HatState[3].Lasttick := Tick + 200

-        else

-          JoyUnit.HatState[3].Lasttick := Tick + 500;

-

-        JoyUnit.HatState[3].State := True;

-        

-        JoyEvent.type_ := JoyUnit.HatState[3].Type_;

-        JoyEvent.key.keysym.sym := JoyUnit.HatState[3].Sym;

-        SDL_PushEvent(@JoyEvent);

-      end;

-    end

-    else

-      JoyUnit.HatState[3].State := False;

-  end;

-

-end;

-

-end.

+unit UJoystick;
+
+interface
+
+{$I switches.inc}
+
+
+uses SDL;
+
+type
+  TJoyButton = record
+    State:      integer;
+    Enabled:    boolean;
+    Type_:      byte;
+    Sym:        cardinal;
+  end;
+
+  TJoyHatState = record
+    State:      Boolean;
+    LastTick:   Cardinal;
+    Enabled:    boolean;
+    Type_:      byte;
+    Sym:        cardinal;
+  end;
+
+  TJoyUnit = record
+    Button:   array[0..15] of TJoyButton;
+    HatState: Array[0..3]  of TJoyHatState;
+  end;
+
+  TJoy = class
+    constructor Create;
+    procedure Update;
+  end;
+
+var
+  Joy:        TJoy;
+  JoyUnit:    TJoyUnit;
+  SDL_Joy:    PSDL_Joystick;
+  JoyEvent:   TSDL_Event;
+
+implementation
+
+uses SysUtils,
+     {$IFDEF win32}
+     windows,
+     {$ELSE}
+     LCLIntf,
+     {$ENDIF}
+     ULog;
+
+constructor TJoy.Create;
+var
+  B, N:    integer;
+begin
+  //Old Corvus5 Method
+  {// joystick support
+  SDL_JoystickEventState(SDL_IGNORE);
+  SDL_InitSubSystem(SDL_INIT_JOYSTICK);
+  if SDL_NumJoysticks <> 1 then beep;
+
+  SDL_Joy := SDL_JoystickOpen(0);
+  if SDL_Joy = nil then beep;
+
+  if SDL_JoystickNumButtons(SDL_Joy) <> 16 then beep;
+
+//  SDL_JoystickEventState(SDL_ENABLE);
+  // Events don't work - thay hang the whole application with SDL_JoystickEventState(SDL_ENABLE)
+
+  // clear states
+  for B := 0 to 15 do
+    JoyUnit.Button[B].State := 1;
+
+  // mapping
+  JoyUnit.Button[1].Enabled := true;
+  JoyUnit.Button[1].Type_ := SDL_KEYDOWN;
+  JoyUnit.Button[1].Sym := SDLK_RETURN;
+  JoyUnit.Button[2].Enabled := true;
+  JoyUnit.Button[2].Type_ := SDL_KEYDOWN;
+  JoyUnit.Button[2].Sym := SDLK_ESCAPE;
+
+  JoyUnit.Button[12].Enabled := true;
+  JoyUnit.Button[12].Type_ := SDL_KEYDOWN;
+  JoyUnit.Button[12].Sym := SDLK_LEFT;
+  JoyUnit.Button[13].Enabled := true;
+  JoyUnit.Button[13].Type_ := SDL_KEYDOWN;
+  JoyUnit.Button[13].Sym := SDLK_DOWN;
+  JoyUnit.Button[14].Enabled := true;
+  JoyUnit.Button[14].Type_ := SDL_KEYDOWN;
+  JoyUnit.Button[14].Sym := SDLK_RIGHT;
+  JoyUnit.Button[15].Enabled := true;
+  JoyUnit.Button[15].Type_ := SDL_KEYDOWN;
+  JoyUnit.Button[15].Sym := SDLK_UP;
+  }
+  //New Sarutas method
+  SDL_JoystickEventState(SDL_IGNORE);
+  SDL_InitSubSystem(SDL_INIT_JOYSTICK);
+  if SDL_NumJoysticks < 1 then
+  begin
+    Log.LogError('No Joystick found');
+    exit;
+  end;
+
+
+  SDL_Joy := SDL_JoystickOpen(0);
+  if SDL_Joy = nil then
+  begin
+    Log.LogError('Could not Init Joystick');
+    exit;
+  end;
+  N := SDL_JoystickNumButtons(SDL_Joy);
+  //if N < 6 then beep;
+
+  for B := 0 to 5 do begin
+    JoyUnit.Button[B].Enabled := true;
+    JoyUnit.Button[B].State := 1;
+    JoyUnit.Button[B].Type_ := SDL_KEYDOWN;
+  end;
+
+  JoyUnit.Button[0].Sym := SDLK_Return;
+  JoyUnit.Button[1].Sym := SDLK_Escape;
+  JoyUnit.Button[2].Sym := SDLK_M;
+  JoyUnit.Button[3].Sym := SDLK_R;
+
+  JoyUnit.Button[4].Sym := SDLK_RETURN;
+  JoyUnit.Button[5].Sym := SDLK_ESCAPE;
+
+  //Set HatState
+  for B := 0 to 3 do begin
+    JoyUnit.HatState[B].Enabled := true;
+    JoyUnit.HatState[B].State := False;
+    JoyUnit.HatState[B].Type_ := SDL_KEYDOWN;
+  end;
+
+  JoyUnit.HatState[0].Sym := SDLK_UP;
+  JoyUnit.HatState[1].Sym := SDLK_RIGHT;
+  JoyUnit.HatState[2].Sym := SDLK_DOWN;
+  JoyUnit.HatState[3].Sym := SDLK_LEFT;
+end;
+
+procedure TJoy.Update;
+var
+  B:      integer;
+  State:  UInt8;
+  Tick:   Cardinal;
+  Axes:   Smallint;
+begin
+  SDL_JoystickUpdate;
+
+  //Manage Buttons
+  for B := 0 to 15 do begin
+    if (JoyUnit.Button[B].Enabled) and (JoyUnit.Button[B].State <> SDL_JoystickGetButton(SDL_Joy, B)) and (JoyUnit.Button[B].State = 0) then begin
+      JoyEvent.type_ := JoyUnit.Button[B].Type_;
+      JoyEvent.key.keysym.sym := JoyUnit.Button[B].Sym;
+      SDL_PushEvent(@JoyEvent);
+    end;
+  end;
+
+
+  for B := 0 to 15 do begin
+    JoyUnit.Button[B].State := SDL_JoystickGetButton(SDL_Joy, B);
+  end;
+
+  //Get Tick
+  Tick := Gettickcount;
+
+  //Get CoolieHat
+  if (SDL_JoystickNumHats(SDL_Joy)>=1) then
+    State := SDL_JoystickGetHat(SDL_Joy, 0)
+  else
+    State := 0;
+
+  //Get Axis  
+  if (SDL_JoystickNumAxes(SDL_Joy)>=2) then
+  begin
+    //Down - Up (X- Axis)
+    Axes := SDL_JoystickGetAxis(SDL_Joy, 1);
+    If Axes >= 15000 then
+      State := State or SDL_HAT_Down
+    Else If Axes <= -15000 then
+      State := State or SDL_HAT_UP;
+
+    //Left - Right (Y- Axis)
+    Axes := SDL_JoystickGetAxis(SDL_Joy, 0);
+    If Axes >= 15000 then
+      State := State or SDL_HAT_Right
+    Else If Axes <= -15000 then
+      State := State or SDL_HAT_Left;
+  end;
+
+  //Manage Hat and joystick Events
+  if (SDL_JoystickNumHats(SDL_Joy)>=1) OR (SDL_JoystickNumAxes(SDL_Joy)>=2) then
+  begin
+
+    //Up Button
+    If (JoyUnit.HatState[0].Enabled) and ((SDL_HAT_UP AND State) = SDL_HAT_UP) then
+    begin //IF Button is newly Pressed or if he is Pressed longer than 500 msecs
+      if (JoyUnit.HatState[0].State = False) OR (JoyUnit.HatState[0].Lasttick < Tick) then
+      begin
+        //Set Tick and State
+        if JoyUnit.HatState[0].State then
+          JoyUnit.HatState[0].Lasttick := Tick + 200
+        else
+          JoyUnit.HatState[0].Lasttick := Tick + 500;
+
+        JoyUnit.HatState[0].State := True;
+
+        JoyEvent.type_ := JoyUnit.HatState[0].Type_;
+        JoyEvent.key.keysym.sym := JoyUnit.HatState[0].Sym;
+        SDL_PushEvent(@JoyEvent);
+      end;
+    end
+    else
+      JoyUnit.HatState[0].State := False;
+
+    //Right Button
+    If (JoyUnit.HatState[1].Enabled) and ((SDL_HAT_RIGHT AND State) = SDL_HAT_RIGHT) then
+    begin //IF Button is newly Pressed or if he is Pressed longer than 500 msecs
+      if (JoyUnit.HatState[1].State = False) OR (JoyUnit.HatState[1].Lasttick < Tick) then
+      begin
+        //Set Tick and State
+        if JoyUnit.HatState[1].State then
+          JoyUnit.HatState[1].Lasttick := Tick + 200
+        else
+          JoyUnit.HatState[1].Lasttick := Tick + 500;
+
+        JoyUnit.HatState[1].State := True;
+        
+        JoyEvent.type_ := JoyUnit.HatState[1].Type_;
+        JoyEvent.key.keysym.sym := JoyUnit.HatState[1].Sym;
+        SDL_PushEvent(@JoyEvent);
+      end;
+    end
+    else
+      JoyUnit.HatState[1].State := False;
+
+    //Down button
+    If (JoyUnit.HatState[2].Enabled) and ((SDL_HAT_DOWN AND State) = SDL_HAT_DOWN) then
+    begin //IF Button is newly Pressed or if he is Pressed longer than 230 msecs
+      if (JoyUnit.HatState[2].State = False) OR (JoyUnit.HatState[2].Lasttick < Tick) then
+      begin
+        //Set Tick and State
+        if JoyUnit.HatState[2].State then
+          JoyUnit.HatState[2].Lasttick := Tick + 200
+        else
+          JoyUnit.HatState[2].Lasttick := Tick + 500;
+
+        JoyUnit.HatState[2].State := True;
+        
+        JoyEvent.type_ := JoyUnit.HatState[2].Type_;
+        JoyEvent.key.keysym.sym := JoyUnit.HatState[2].Sym;
+        SDL_PushEvent(@JoyEvent);
+      end;
+    end
+    else
+      JoyUnit.HatState[2].State := False;
+
+    //Left Button
+    If (JoyUnit.HatState[3].Enabled) and ((SDL_HAT_LEFT AND State) = SDL_HAT_LEFT) then
+    begin //IF Button is newly Pressed or if he is Pressed longer than 230 msecs
+      if (JoyUnit.HatState[3].State = False) OR (JoyUnit.HatState[3].Lasttick < Tick) then
+      begin
+        //Set Tick and State
+        if JoyUnit.HatState[3].State then
+          JoyUnit.HatState[3].Lasttick := Tick + 200
+        else
+          JoyUnit.HatState[3].Lasttick := Tick + 500;
+
+        JoyUnit.HatState[3].State := True;
+        
+        JoyEvent.type_ := JoyUnit.HatState[3].Type_;
+        JoyEvent.key.keysym.sym := JoyUnit.HatState[3].Sym;
+        SDL_PushEvent(@JoyEvent);
+      end;
+    end
+    else
+      JoyUnit.HatState[3].State := False;
+  end;
+
+end;
+
+end.
diff --git a/Game/Code/Classes/ULanguage.pas b/Game/Code/Classes/ULanguage.pas
index f693694b..679f6405 100644
--- a/Game/Code/Classes/ULanguage.pas
+++ b/Game/Code/Classes/ULanguage.pas
@@ -1,234 +1,236 @@
-unit ULanguage;

-

-interface

-

-{$IFDEF FPC}

-  {$MODE DELPHI}

-{$ENDIF}

-                

-

-type

-  TLanguageEntry = record

-    ID:     string;

-    Text:   string;

-  end;

-

-  TLanguageList = record

-    Name:     string;

-    {FileName: string; }

-  end;

-

-  TLanguage = class

-    public

-      Entry:  array of TLanguageEntry; //Entrys of Chosen Language

-      SEntry: array of TLanguageEntry; //Entrys of Standard Language

-      CEntry: array of TLanguageEntry; //Constant Entrys e.g. Version

-      Implode_Glue1, Implode_Glue2: String;

-    public

-      List:   array of TLanguageList;

-

-      constructor Create;

-      procedure LoadList;

-      function Translate(Text: String): String;

-      procedure ChangeLanguage(Language: String);

-      procedure AddConst(ID, Text: String);

-      procedure ChangeConst(ID, Text: String);

-      function Implode(Pieces: Array of String): String;

-  end;

-

-var

-  Language:     TLanguage;

-

-implementation

-

-uses UMain,

-     // UFiles,

-     UIni,

-     IniFiles,

-     Classes,

-     SysUtils,

-     Windows,

-     ULog;

-

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

-//Create - Construct Class then LoadList + Standard Language + Set Standard Implode Glues

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

-constructor TLanguage.Create;

-var

-  I, J: Integer;

-begin

-  LoadList;

-

-  //Set Implode Glues for Backward Compatibility

-  Implode_Glue1 := ', ';

-  Implode_Glue2 := ' and ';

-

-  if (Length(List) = 0) then //No Language Files Loaded -> Abort Loading

-    Log.CriticalError('Could not load any Language File');

-

-  //Standard Language (If a Language File is Incomplete)

-  //Then use English Language

-  for I := 0 to high(List) do //Search for English Language

-  begin

-    //English Language Found -> Load

-    if Uppercase(List[I].Name) = 'ENGLISH' then

-    begin

-      ChangeLanguage('English');

-

-      SetLength(SEntry, Length(Entry));

-      for J := low(Entry) to high(Entry) do

-        SEntry[J] := Entry[J];

-

-      SetLength(Entry, 0);

-      

-      Break;

-    end;

-

-    if (I = high(List)) then

-      Log.LogError('English Languagefile missing! No standard Translation loaded');

-  end;

-  //Standard Language END

-  

-end;

-

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

-//LoadList - Parse the Language Dir searching Translations

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

-procedure TLanguage.LoadList;

-var

-  SR:     TSearchRec;   // for parsing directory

-begin

-  SetLength(List, 0);

-  SetLength(ILanguage, 0);

-

-  if FindFirst(LanguagesPath + '*.ini', 0, SR) = 0 then begin

-    repeat

-      SetLength(List, Length(List)+1);

-      SetLength(ILanguage, Length(ILanguage)+1);

-      SR.Name := ChangeFileExt(SR.Name, '');

-

-      List[High(List)].Name := SR.Name;

-      ILanguage[High(ILanguage)] := SR.Name;

-

-    until FindNext(SR) <> 0;

-  SysUtils.FindClose(SR);

-  end; // if FindFirst

-end;

-

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

-//ChangeLanguage - Load the specified LanguageFile

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

-procedure TLanguage.ChangeLanguage(Language: String);

-var

-  IniFile:    TIniFile;

-  E:          integer; // entry

-  S:          TStringList;

-begin

-  SetLength(Entry, 0);

-  IniFile := TIniFile.Create(LanguagesPath + Language + '.ini');

-  S := TStringList.Create;

-

-  IniFile.ReadSectionValues('Text', S);

-  SetLength(Entry, S.Count);

-  for E := 0 to high(Entry) do

-  begin

-    if S.Names[E] = 'IMPLODE_GLUE1' then

-      Implode_Glue1 := S.ValueFromIndex[E]+ ' '

-    else if S.Names[E] = 'IMPLODE_GLUE2' then

-      Implode_Glue2 := ' ' + S.ValueFromIndex[E] + ' ';

-

-    Entry[E].ID := S.Names[E];

-    Entry[E].Text := S.ValueFromIndex[E];

-  end;

-

-  S.Free;

-  IniFile.Free;

-end;

-

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

-//Translate - Translate the Text

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

-Function TLanguage.Translate(Text: String): String;

-var

-  E:    integer; // entry

-begin

-  Result := Text;

-  Text := Uppercase(Result);

-

-  //Const Mod

-  for E := 0 to high(CEntry) do

-    if Text = CEntry[E].ID then

-    begin

-     Result := CEntry[E].Text;

-     exit;

-    end;

-  //Const Mod End

-

-  for E := 0 to high(Entry) do

-    if Text = Entry[E].ID then

-    begin

-     Result := Entry[E].Text;

-     exit;

-    end;

-

-  //Standard Language (If a Language File is Incomplete)

-  //Then use Standard Language

-    for E := low(SEntry) to high(SEntry) do

-      if Text = SEntry[E].ID then

-      begin

-        Result := SEntry[E].Text;

-        Break;

-      end;

-  //Standard Language END

-end;

-

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

-//AddConst - Add a Constant ID that will be Translated but not Loaded from the LanguageFile

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

-procedure TLanguage.AddConst (ID, Text: String);

-begin

-  SetLength (CEntry, Length(CEntry) + 1);

-  CEntry[high(CEntry)].ID := ID;

-  CEntry[high(CEntry)].Text := Text;

-end;

-

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

-//ChangeConst - Change a Constant Value by ID

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

-procedure TLanguage.ChangeConst(ID, Text: String);

-var

-  I: Integer;

-begin

-  for I := 0 to high(CEntry) do

-  begin

-    if CEntry[I].ID = ID then

-    begin

-     CEntry[I].Text := Text;

-     Break;

-    end;

-  end;

-end;

-

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

-//Implode - Connect an Array of Strings with ' and ' or ', ' to one String

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

-function TLanguage.Implode(Pieces: Array of String): String;

-var

-  I: Integer;

-begin

-  Result := '';

-  //Go through Pieces

-  for I := low(Pieces) to high(Pieces) do

-  begin

-    //Add Value

-    Result := Result + Pieces[I];

-

-    //Add Glue

-    if (I < high(Pieces) - 1) then

-      Result := Result + Implode_Glue1

-    else if (I < high(Pieces)) then

-      Result := Result + Implode_Glue2;

-  end;

-end;

-

-end.

+unit ULanguage;
+
+interface
+
+{$IFDEF FPC}
+  {$MODE DELPHI}
+{$ENDIF}
+                
+
+type
+  TLanguageEntry = record
+    ID:     string;
+    Text:   string;
+  end;
+
+  TLanguageList = record
+    Name:     string;
+    {FileName: string; }
+  end;
+
+  TLanguage = class
+    public
+      Entry:  array of TLanguageEntry; //Entrys of Chosen Language
+      SEntry: array of TLanguageEntry; //Entrys of Standard Language
+      CEntry: array of TLanguageEntry; //Constant Entrys e.g. Version
+      Implode_Glue1, Implode_Glue2: String;
+    public
+      List:   array of TLanguageList;
+
+      constructor Create;
+      procedure LoadList;
+      function Translate(Text: String): String;
+      procedure ChangeLanguage(Language: String);
+      procedure AddConst(ID, Text: String);
+      procedure ChangeConst(ID, Text: String);
+      function Implode(Pieces: Array of String): String;
+  end;
+
+var
+  Language:     TLanguage;
+
+implementation
+
+uses UMain,
+     // UFiles,
+     UIni,
+     IniFiles,
+     Classes,
+     SysUtils,
+     {$IFDEF win32}
+     windows,
+     {$ENDIF}
+     ULog;
+
+//----------
+//Create - Construct Class then LoadList + Standard Language + Set Standard Implode Glues
+//----------
+constructor TLanguage.Create;
+var
+  I, J: Integer;
+begin
+  LoadList;
+
+  //Set Implode Glues for Backward Compatibility
+  Implode_Glue1 := ', ';
+  Implode_Glue2 := ' and ';
+
+  if (Length(List) = 0) then //No Language Files Loaded -> Abort Loading
+    Log.CriticalError('Could not load any Language File');
+
+  //Standard Language (If a Language File is Incomplete)
+  //Then use English Language
+  for I := 0 to high(List) do //Search for English Language
+  begin
+    //English Language Found -> Load
+    if Uppercase(List[I].Name) = 'ENGLISH' then
+    begin
+      ChangeLanguage('English');
+
+      SetLength(SEntry, Length(Entry));
+      for J := low(Entry) to high(Entry) do
+        SEntry[J] := Entry[J];
+
+      SetLength(Entry, 0);
+      
+      Break;
+    end;
+
+    if (I = high(List)) then
+      Log.LogError('English Languagefile missing! No standard Translation loaded');
+  end;
+  //Standard Language END
+  
+end;
+
+//----------
+//LoadList - Parse the Language Dir searching Translations
+//----------
+procedure TLanguage.LoadList;
+var
+  SR:     TSearchRec;   // for parsing directory
+begin
+  SetLength(List, 0);
+  SetLength(ILanguage, 0);
+
+  if FindFirst(LanguagesPath + '*.ini', 0, SR) = 0 then begin
+    repeat
+      SetLength(List, Length(List)+1);
+      SetLength(ILanguage, Length(ILanguage)+1);
+      SR.Name := ChangeFileExt(SR.Name, '');
+
+      List[High(List)].Name := SR.Name;
+      ILanguage[High(ILanguage)] := SR.Name;
+
+    until FindNext(SR) <> 0;
+  SysUtils.FindClose(SR);
+  end; // if FindFirst
+end;
+
+//----------
+//ChangeLanguage - Load the specified LanguageFile
+//----------
+procedure TLanguage.ChangeLanguage(Language: String);
+var
+  IniFile:    TIniFile;
+  E:          integer; // entry
+  S:          TStringList;
+begin
+  SetLength(Entry, 0);
+  IniFile := TIniFile.Create(LanguagesPath + Language + '.ini');
+  S := TStringList.Create;
+
+  IniFile.ReadSectionValues('Text', S);
+  SetLength(Entry, S.Count);
+  for E := 0 to high(Entry) do
+  begin
+    if S.Names[E] = 'IMPLODE_GLUE1' then
+      Implode_Glue1 := S.ValueFromIndex[E]+ ' '
+    else if S.Names[E] = 'IMPLODE_GLUE2' then
+      Implode_Glue2 := ' ' + S.ValueFromIndex[E] + ' ';
+
+    Entry[E].ID := S.Names[E];
+    Entry[E].Text := S.ValueFromIndex[E];
+  end;
+
+  S.Free;
+  IniFile.Free;
+end;
+
+//----------
+//Translate - Translate the Text
+//----------
+Function TLanguage.Translate(Text: String): String;
+var
+  E:    integer; // entry
+begin
+  Result := Text;
+  Text := Uppercase(Result);
+
+  //Const Mod
+  for E := 0 to high(CEntry) do
+    if Text = CEntry[E].ID then
+    begin
+     Result := CEntry[E].Text;
+     exit;
+    end;
+  //Const Mod End
+
+  for E := 0 to high(Entry) do
+    if Text = Entry[E].ID then
+    begin
+     Result := Entry[E].Text;
+     exit;
+    end;
+
+  //Standard Language (If a Language File is Incomplete)
+  //Then use Standard Language
+    for E := low(SEntry) to high(SEntry) do
+      if Text = SEntry[E].ID then
+      begin
+        Result := SEntry[E].Text;
+        Break;
+      end;
+  //Standard Language END
+end;
+
+//----------
+//AddConst - Add a Constant ID that will be Translated but not Loaded from the LanguageFile
+//----------
+procedure TLanguage.AddConst (ID, Text: String);
+begin
+  SetLength (CEntry, Length(CEntry) + 1);
+  CEntry[high(CEntry)].ID := ID;
+  CEntry[high(CEntry)].Text := Text;
+end;
+
+//----------
+//ChangeConst - Change a Constant Value by ID
+//----------
+procedure TLanguage.ChangeConst(ID, Text: String);
+var
+  I: Integer;
+begin
+  for I := 0 to high(CEntry) do
+  begin
+    if CEntry[I].ID = ID then
+    begin
+     CEntry[I].Text := Text;
+     Break;
+    end;
+  end;
+end;
+
+//----------
+//Implode - Connect an Array of Strings with ' and ' or ', ' to one String
+//----------
+function TLanguage.Implode(Pieces: Array of String): String;
+var
+  I: Integer;
+begin
+  Result := '';
+  //Go through Pieces
+  for I := low(Pieces) to high(Pieces) do
+  begin
+    //Add Value
+    Result := Result + Pieces[I];
+
+    //Add Glue
+    if (I < high(Pieces) - 1) then
+      Result := Result + Implode_Glue1
+    else if (I < high(Pieces)) then
+      Result := Result + Implode_Glue2;
+  end;
+end;
+
+end.
diff --git a/Game/Code/Classes/ULight.pas b/Game/Code/Classes/ULight.pas
index 74681a85..99edc88c 100644
--- a/Game/Code/Classes/ULight.pas
+++ b/Game/Code/Classes/ULight.pas
@@ -1,149 +1,162 @@
-unit ULight;

-interface

-{$I switches.inc}

-

-type

-  TLight = class

-    private

-      Enabled:      boolean;

-      Light:        array[0..7] of boolean;

-      LightTime:    array[0..7] of real;    // time to stop, need to call update to change state

-      LastTime:     real;

-    public

-      constructor Create;

-      procedure Enable;

-      procedure SetState(State: integer);

-      procedure AutoSetState;

-      procedure TurnOn;

-      procedure TurnOff;

-      procedure LightOne(Number: integer; Time: real);

-      procedure Refresh;

-  end;

-

-var

-  Light:      TLight;

-

-const

-  Data    = $378; // default port address

-  Status  = Data + 1;

-  Control = Data + 2;

-

-implementation

-

-uses

-  SysUtils,

-  {$IFDEF UseSerialPort}

-  zlportio,

-  {$ENDIF}

-  UTime;

-  

-{$IFDEF FPC}

-  function GetTime: TDateTime;

-  {$IFDEF MSWINDOWS}

-  var

-    SystemTime: TSystemTime;

-  begin

-    GetLocalTime(SystemTime);

-    with SystemTime do

-      Result := EncodeTime(wHour, wMinute, wSecond, wMilliSeconds);

-  end;

-  {$ENDIF}

-  {$IFDEF LINUX}

-  var

-    T: TTime_T;

-    TV: TTimeVal;

-    UT: TUnixTime;

-  begin

-    gettimeofday(TV, nil);

-    T := TV.tv_sec;

-    localtime_r(@T, UT);

-    Result := EncodeTime(UT.tm_hour, UT.tm_min, UT.tm_sec, TV.tv_usec div 1000);

-  end;

-  {$ENDIF}

-{$ENDIF}

-

-

-constructor TLight.Create;

-begin

-  Enabled := false;

-end;

-

-procedure TLight.Enable;

-begin

-  Enabled  := true;

-  LastTime := GetTime;

-end;

-

-procedure TLight.SetState(State: integer);

-begin

-  {$IFDEF UseSerialPort}

-  if Enabled then

-    PortWriteB($378, State);

-  {$ENDIF}

-end;

-

-procedure TLight.AutoSetState;

-var

-  State:    integer;

-begin

-  if Enabled then begin

-    State := 0;

-    if Light[0] then State := State + 2;

-    if Light[1] then State := State + 1;

-    // etc

-    SetState(State);

-  end;

-end;

-

-procedure TLight.TurnOn;

-begin

-  if Enabled then

-    SetState(3);

-end;

-

-procedure TLight.TurnOff;

-begin

-  if Enabled then

-    SetState(0);

-end;

-

-procedure TLight.LightOne(Number: integer; Time: real);

-begin

-  if Enabled then begin

-    if Light[Number] = false then begin

-      Light[Number] := true;

-      AutoSetState;

-    end;

-

-    LightTime[Number] := GetTime + Time/1000; // [s]

-  end;

-end;

-

-procedure TLight.Refresh;

-var

-  Time:     real;

-//  TimeSkip: real;

-  L:        integer;

-begin

-  if Enabled then begin

-    Time := GetTime;

-//    TimeSkip := Time - LastTime;

-    for L := 0 to 7 do begin

-      if Light[L] = true then begin

-        if LightTime[L] > Time then begin

-          // jest jeszcze zapas - bez zmian

-          //LightTime[L] := LightTime[L] - TimeSkip;

-        end else begin

-          // czas minal

-          Light[L] := false;

-        end;

-      end;

-    end;

-    LastTime := Time;

-    AutoSetState;

-  end;

-end;

-

-end.

-

-

+unit ULight;
+
+interface
+
+{$IFDEF FPC}
+  {$MODE Delphi}
+{$ENDIF}
+
+{$I switches.inc}
+
+type
+  TLight = class
+    private
+      Enabled:      boolean;
+      Light:        array[0..7] of boolean;
+      LightTime:    array[0..7] of real;    // time to stop, need to call update to change state
+      LastTime:     real;
+    public
+      constructor Create;
+      procedure Enable;
+      procedure SetState(State: integer);
+      procedure AutoSetState;
+      procedure TurnOn;
+      procedure TurnOff;
+      procedure LightOne(Number: integer; Time: real);
+      procedure Refresh;
+  end;
+
+var
+  Light:      TLight;
+
+const
+  Data    = $378; // default port address
+  Status  = Data + 1;
+  Control = Data + 2;
+
+implementation
+
+uses
+  SysUtils,
+  {$IFDEF UseSerialPort}
+  zlportio,
+  {$ENDIF}
+  {$IFNDEF win32}
+  libc,
+  {$ENDIF}
+  UTime;
+  
+{$IFDEF FPC}
+
+  function GetTime: TDateTime;
+  {$IFDEF win32}
+  var
+    SystemTime: TSystemTime;
+  begin
+    GetLocalTime(SystemTime);
+    with SystemTime do
+      Result := EncodeTime(wHour, wMinute, wSecond, wMilliSeconds);
+  end;
+  {$ELSE}
+  Type
+    Time_t  = longint;
+    TTime_T = Time_t;
+  var
+    T : TTime_T;
+    TV: TTimeVal;
+    UT: TUnixTime;
+  begin
+    gettimeofday(TV, nil);
+    T := TV.tv_sec;
+    localtime_r(@T, @UT);
+    Result := EncodeTime(UT.tm_hour, UT.tm_min, UT.tm_sec, TV.tv_usec div 1000);
+  end;
+  {$ENDIF}
+  
+{$ENDIF}
+
+
+constructor TLight.Create;
+begin
+  Enabled := false;
+end;
+
+procedure TLight.Enable;
+begin
+  Enabled  := true;
+  LastTime := GetTime;
+end;
+
+procedure TLight.SetState(State: integer);
+begin
+  {$IFDEF UseSerialPort}
+  if Enabled then
+    PortWriteB($378, State);
+  {$ENDIF}
+end;
+
+procedure TLight.AutoSetState;
+var
+  State:    integer;
+begin
+  if Enabled then begin
+    State := 0;
+    if Light[0] then State := State + 2;
+    if Light[1] then State := State + 1;
+    // etc
+    SetState(State);
+  end;
+end;
+
+procedure TLight.TurnOn;
+begin
+  if Enabled then
+    SetState(3);
+end;
+
+procedure TLight.TurnOff;
+begin
+  if Enabled then
+    SetState(0);
+end;
+
+procedure TLight.LightOne(Number: integer; Time: real);
+begin
+  if Enabled then begin
+    if Light[Number] = false then begin
+      Light[Number] := true;
+      AutoSetState;
+    end;
+
+    LightTime[Number] := GetTime + Time/1000; // [s]
+  end;
+end;
+
+procedure TLight.Refresh;
+var
+  Time:     real;
+//  TimeSkip: real;
+  L:        integer;
+begin
+  if Enabled then begin
+    Time := GetTime;
+//    TimeSkip := Time - LastTime;
+    for L := 0 to 7 do begin
+      if Light[L] = true then begin
+        if LightTime[L] > Time then begin
+          // jest jeszcze zapas - bez zmian
+          //LightTime[L] := LightTime[L] - TimeSkip;
+        end else begin
+          // czas minal
+          Light[L] := false;
+        end;
+      end;
+    end;
+    LastTime := Time;
+    AutoSetState;
+  end;
+end;
+
+end.
+
+
diff --git a/Game/Code/Classes/ULog.pas b/Game/Code/Classes/ULog.pas
index d03ad8ed..7c93c6e9 100644
--- a/Game/Code/Classes/ULog.pas
+++ b/Game/Code/Classes/ULog.pas
@@ -1,243 +1,253 @@
-unit ULog;

-

-interface

-

-{$IFDEF FPC}

-  {$MODE Delphi}

-{$ENDIF}

-

-uses Classes;

-

-type

-  TLog = class

-    BenchmarkTimeStart:   array[0..7] of real;

-    BenchmarkTimeLength:  array[0..7] of real;//TDateTime;

-

-    FileBenchmark:    TextFile;

-    FileBenchmarkO:   boolean; // opened

-    FileError:        TextFile;

-    FileErrorO:       boolean; // opened

-

-    Title: String; //Application Title

-

-    //Should Log Files be written

-    Enabled:          Boolean;

-

-    // destuctor

-    destructor Free;

-

-    // benchmark

-    procedure BenchmarkStart(Number: integer);

-    procedure BenchmarkEnd(Number: integer);

-    procedure LogBenchmark(Text: string; Number: integer);

-

-    // error

-    procedure LogError(Text: string); overload;

-

-    //Critical Error (Halt + MessageBox)

-    procedure CriticalError(Text: string);

-

-    // voice

-    procedure LogVoice(SoundNr: integer);

-

-    // compability

-    procedure LogStatus(Log1, Log2: string);

-    procedure LogError(Log1, Log2: string); overload;

-  end;

-

-var

-  Log:    TLog;

-

-implementation

-

-uses

-     Windows,

-     SysUtils,

-     DateUtils,

-//     UFiles,

-     UMain,

-     URecord,

-     UTime,

-//     UIni,  // JB - Seems to not be needed.

-     UCommandLine;

-

-destructor TLog.Free;

-begin

-  if FileBenchmarkO then CloseFile(FileBenchmark);

-//  if FileAnalyzeO then CloseFile(FileAnalyze);

-  if FileErrorO then CloseFile(FileError);

-end;

-

-procedure TLog.BenchmarkStart(Number: integer);

-begin

-  BenchmarkTimeStart[Number] := USTime.GetTime; //Time;

-end;

-

-procedure TLog.BenchmarkEnd(Number: integer);

-begin

-  BenchmarkTimeLength[Number] := USTime.GetTime {Time} - BenchmarkTimeStart[Number];

-end;

-

-procedure TLog.LogBenchmark(Text: string; Number: integer);

-var

-  Minutes:      integer;

-  Seconds:      integer;

-  Miliseconds:  integer;

-

-  MinutesS:     string;

-  SecondsS:     string;

-  MilisecondsS: string;

-

-  ValueText:    string;

-begin

-  if Enabled AND (Params.Benchmark) then begin

-    if not FileBenchmarkO then begin

-      FileBenchmarkO := true;

-      AssignFile(FileBenchmark, LogPath + 'Benchmark.log');

-      {$I-}

-      Rewrite(FileBenchmark);

-      if IOResult = 0 then FileBenchmarkO := true;

-      {$I+}

-

-      //If File is opened write Date to Benchmark File

-      If (FileBenchmarkO) then

-      begin

-        WriteLn(FileBenchmark, Title + ' Benchmark File');

-        WriteLn(FileBenchmark, 'Date: ' + DatetoStr(Now) + ' Time: ' + TimetoStr(Now));

-        WriteLn(FileBenchmark, '-------------------');

-

-        Flush(FileBenchmark);

-      end;

-    end;

-

-  if FileBenchmarkO then begin

-    Miliseconds := Trunc(Frac(BenchmarkTimeLength[Number]) * 1000);

-    Seconds := Trunc(BenchmarkTimeLength[Number]) mod 60;

-    Minutes := Trunc((BenchmarkTimeLength[Number] - Seconds) / 60);

-//    ValueText := FloatToStr(BenchmarkTimeLength[Number]);

-

-{    ValueText := FloatToStr(

-      SecondOf(BenchmarkTimeLength[Number]) + MilliSecondOf(BenchmarkTimeLength[Number])/1000

-      );

-    if MinuteOf(BenchmarkTimeLength[Number]) >= 1 then

-      ValueText := IntToStr(MinuteOf(BenchmarkTimeLength[Number])) + ':' + ValueText;

-    WriteLn(FileBenchmark, Text + ': ' + ValueText + ' seconds');}

-

-    if (Minutes = 0) and (Seconds = 0) then begin

-      MilisecondsS := IntToStr(Miliseconds);

-      ValueText := MilisecondsS + ' miliseconds';

-    end;

-

-    if (Minutes = 0) and (Seconds >= 1) then begin

-      MilisecondsS := IntToStr(Miliseconds);

-      while Length(MilisecondsS) < 3 do MilisecondsS := '0' + MilisecondsS;

-

-      SecondsS := IntToStr(Seconds);

-

-      ValueText := SecondsS + ',' + MilisecondsS + ' seconds';

-    end;

-

-    if Minutes >= 1 then begin

-      MilisecondsS := IntToStr(Miliseconds);

-      while Length(MilisecondsS) < 3 do MilisecondsS := '0' + MilisecondsS;

-

-      SecondsS := IntToStr(Seconds);

-      while Length(SecondsS) < 2 do SecondsS := '0' + SecondsS;

-

-      MinutesS := IntToStr(Minutes);

-

-      ValueText := MinutesS + ':' + SecondsS + ',' + MilisecondsS + ' minutes';

-    end;

-

-    WriteLn(FileBenchmark, Text + ': ' + ValueText);

-    Flush(FileBenchmark);

-    end;

-  end;

-end;

-

-procedure TLog.LogError(Text: string);

-begin

-  if Enabled AND (not FileErrorO) then begin

-    FileErrorO := true;

-    AssignFile(FileError, LogPath + 'Error.log');

-    {$I-}

-    Rewrite(FileError);

-    if IOResult = 0 then FileErrorO := true;

-    {$I+}

-

-    //If File is opened write Date to Error File

-    If (FileErrorO) then

-    begin

-      WriteLn(FileError, Title + ' Error Log');

-      WriteLn(FileError, 'Date: ' + DatetoStr(Now) + ' Time: ' + TimetoStr(Now));

-      WriteLn(FileError, '-------------------');

-

-      Flush(FileError);

-    end;

-  end;

-

-  if FileErrorO then begin

-    try

-      WriteLn(FileError, Text);

-      Flush(FileError);

-    except

-      FileErrorO := false;

-    end;

-  end;

-end;

-

-procedure TLog.LogVoice(SoundNr: integer);

-var

-  FileVoice:    File;

-  FS:           TFileStream;

-  FileName:     string;

-  Num:          integer;

-  BL:           integer;

-begin

-  for Num := 1 to 9999 do begin

-    FileName := IntToStr(Num);

-    while Length(FileName) < 4 do FileName := '0' + FileName;

-    FileName := LogPath + 'Voice' + FileName + '.raw';

-    if not FileExists(FileName) then break

-  end;

-

-

-  FS := TFileStream.Create(FileName, fmCreate);

-

-  for BL := 0 to High(Sound[SoundNr].BufferLong) do begin

-    Sound[SoundNr].BufferLong[BL].Seek(0, soBeginning);

-    FS.CopyFrom(Sound[SoundNr].BufferLong[BL], Sound[SoundNr].BufferLong[BL].Size);

-  end;

-

-  FS.Free;

-end;

-

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

-begin

-  //Just for Debugging

-  //Comment for Release

-    //LogAnalyze (Log2 + ': ' + Log1);

-    

-  LogError(Log2 + ': ' + Log1);

-end;

-

-procedure TLog.LogError(Log1, Log2: string);

-begin

-//asd

-end;

-

-procedure TLog.CriticalError(Text: string);

-begin

-  //Write Error to Logfile:

-  LogError (Text);

-

-  //Show Errormessage

-  Messagebox(0, PChar(Text), PChar(Title), MB_ICONERROR or MB_OK);

-

-  //Exit Application

-  Halt;

-end;

-

-end.

-

-

+unit ULog;
+
+interface
+
+{$I switches.inc}
+
+{$IFDEF FPC}
+  {$MODE Delphi}
+{$ENDIF}
+
+uses Classes;
+
+type
+  TLog = class
+    BenchmarkTimeStart:   array[0..7] of real;
+    BenchmarkTimeLength:  array[0..7] of real;//TDateTime;
+
+    FileBenchmark:    TextFile;
+    FileBenchmarkO:   boolean; // opened
+    FileError:        TextFile;
+    FileErrorO:       boolean; // opened
+
+    Title: String; //Application Title
+
+    //Should Log Files be written
+    Enabled:          Boolean;
+
+    // destuctor
+    destructor Free;
+
+    // benchmark
+    procedure BenchmarkStart(Number: integer);
+    procedure BenchmarkEnd(Number: integer);
+    procedure LogBenchmark(Text: string; Number: integer);
+
+    // error
+    procedure LogError(Text: string); overload;
+
+    //Critical Error (Halt + MessageBox)
+    procedure CriticalError(Text: string);
+
+    // voice
+    procedure LogVoice(SoundNr: integer);
+
+    // compability
+    procedure LogStatus(Log1, Log2: string);
+    procedure LogError(Log1, Log2: string); overload;
+  end;
+
+var
+  Log:    TLog;
+
+implementation
+
+uses
+     {$IFDEF win32}
+     windows,
+     {$ENDIF}
+     SysUtils,
+     DateUtils,
+//     UFiles,
+     UMain,
+     URecord,
+     UTime,
+//     UIni,  // JB - Seems to not be needed.
+     UCommandLine;
+
+destructor TLog.Free;
+begin
+  if FileBenchmarkO then CloseFile(FileBenchmark);
+//  if FileAnalyzeO then CloseFile(FileAnalyze);
+  if FileErrorO then CloseFile(FileError);
+end;
+
+procedure TLog.BenchmarkStart(Number: integer);
+begin
+  BenchmarkTimeStart[Number] := USTime.GetTime; //Time;
+end;
+
+procedure TLog.BenchmarkEnd(Number: integer);
+begin
+  BenchmarkTimeLength[Number] := USTime.GetTime {Time} - BenchmarkTimeStart[Number];
+end;
+
+procedure TLog.LogBenchmark(Text: string; Number: integer);
+var
+  Minutes:      integer;
+  Seconds:      integer;
+  Miliseconds:  integer;
+
+  MinutesS:     string;
+  SecondsS:     string;
+  MilisecondsS: string;
+
+  ValueText:    string;
+begin
+  if Enabled AND (Params.Benchmark) then begin
+    if not FileBenchmarkO then begin
+      FileBenchmarkO := true;
+      AssignFile(FileBenchmark, LogPath + 'Benchmark.log');
+      {$I-}
+      Rewrite(FileBenchmark);
+      if IOResult = 0 then FileBenchmarkO := true;
+      {$I+}
+
+      //If File is opened write Date to Benchmark File
+      If (FileBenchmarkO) then
+      begin
+        WriteLn(FileBenchmark, Title + ' Benchmark File');
+        WriteLn(FileBenchmark, 'Date: ' + DatetoStr(Now) + ' Time: ' + TimetoStr(Now));
+        WriteLn(FileBenchmark, '-------------------');
+
+        Flush(FileBenchmark);
+      end;
+    end;
+
+  if FileBenchmarkO then begin
+    Miliseconds := Trunc(Frac(BenchmarkTimeLength[Number]) * 1000);
+    Seconds := Trunc(BenchmarkTimeLength[Number]) mod 60;
+    Minutes := Trunc((BenchmarkTimeLength[Number] - Seconds) / 60);
+//    ValueText := FloatToStr(BenchmarkTimeLength[Number]);
+
+{    ValueText := FloatToStr(
+      SecondOf(BenchmarkTimeLength[Number]) + MilliSecondOf(BenchmarkTimeLength[Number])/1000
+      );
+    if MinuteOf(BenchmarkTimeLength[Number]) >= 1 then
+      ValueText := IntToStr(MinuteOf(BenchmarkTimeLength[Number])) + ':' + ValueText;
+    WriteLn(FileBenchmark, Text + ': ' + ValueText + ' seconds');}
+
+    if (Minutes = 0) and (Seconds = 0) then begin
+      MilisecondsS := IntToStr(Miliseconds);
+      ValueText := MilisecondsS + ' miliseconds';
+    end;
+
+    if (Minutes = 0) and (Seconds >= 1) then begin
+      MilisecondsS := IntToStr(Miliseconds);
+      while Length(MilisecondsS) < 3 do MilisecondsS := '0' + MilisecondsS;
+
+      SecondsS := IntToStr(Seconds);
+
+      ValueText := SecondsS + ',' + MilisecondsS + ' seconds';
+    end;
+
+    if Minutes >= 1 then begin
+      MilisecondsS := IntToStr(Miliseconds);
+      while Length(MilisecondsS) < 3 do MilisecondsS := '0' + MilisecondsS;
+
+      SecondsS := IntToStr(Seconds);
+      while Length(SecondsS) < 2 do SecondsS := '0' + SecondsS;
+
+      MinutesS := IntToStr(Minutes);
+
+      ValueText := MinutesS + ':' + SecondsS + ',' + MilisecondsS + ' minutes';
+    end;
+
+    WriteLn(FileBenchmark, Text + ': ' + ValueText);
+    Flush(FileBenchmark);
+    end;
+  end;
+end;
+
+procedure TLog.LogError(Text: string);
+begin
+  if Enabled AND (not FileErrorO) then begin
+    FileErrorO := true;
+    AssignFile(FileError, LogPath + 'Error.log');
+    {$I-}
+    Rewrite(FileError);
+    if IOResult = 0 then FileErrorO := true;
+    {$I+}
+
+    //If File is opened write Date to Error File
+    If (FileErrorO) then
+    begin
+      WriteLn(FileError, Title + ' Error Log');
+      WriteLn(FileError, 'Date: ' + DatetoStr(Now) + ' Time: ' + TimetoStr(Now));
+      WriteLn(FileError, '-------------------');
+
+      Flush(FileError);
+    end;
+  end;
+
+  if FileErrorO then begin
+    try
+      WriteLn(FileError, Text);
+      Flush(FileError);
+    except
+      FileErrorO := false;
+    end;
+  end;
+end;
+
+procedure TLog.LogVoice(SoundNr: integer);
+var
+  FileVoice:    File;
+  FS:           TFileStream;
+  FileName:     string;
+  Num:          integer;
+  BL:           integer;
+begin
+  for Num := 1 to 9999 do begin
+    FileName := IntToStr(Num);
+    while Length(FileName) < 4 do FileName := '0' + FileName;
+    FileName := LogPath + 'Voice' + FileName + '.raw';
+    if not FileExists(FileName) then break
+  end;
+
+
+  FS := TFileStream.Create(FileName, fmCreate);
+
+  for BL := 0 to High(Sound[SoundNr].BufferLong) do begin
+    Sound[SoundNr].BufferLong[BL].Seek(0, soBeginning);
+    FS.CopyFrom(Sound[SoundNr].BufferLong[BL], Sound[SoundNr].BufferLong[BL].Size);
+  end;
+
+  FS.Free;
+end;
+
+procedure TLog.LogStatus(Log1, Log2: string);
+begin
+  //Just for Debugging
+  //Comment for Release
+    //LogAnalyze (Log2 + ': ' + Log1);
+    
+  LogError(Log2 + ': ' + Log1);
+end;
+
+procedure TLog.LogError(Log1, Log2: string);
+begin
+//asd
+end;
+
+procedure TLog.CriticalError(Text: string);
+begin
+  //Write Error to Logfile:
+  LogError (Text);
+
+  {$IFDEF win32}
+  //Show Errormessage
+  Messagebox(0, PChar(Text), PChar(Title), MB_ICONERROR or MB_OK);
+  {$ELSE}
+  // TODO - JB_Linux handle critical error so user can see message.
+  writeln( 'Critical ERROR :' );
+  writeln( Text );
+  {$ENDIF}
+
+  //Exit Application
+  Halt;
+end;
+
+end.
+
+
diff --git a/Game/Code/Classes/UMain.pas b/Game/Code/Classes/UMain.pas
index 646724df..f06345ec 100644
--- a/Game/Code/Classes/UMain.pas
+++ b/Game/Code/Classes/UMain.pas
@@ -1,781 +1,792 @@
-unit UMain;

-

-interface

-

-{$IFDEF FPC}

-  {$MODE Delphi}

-{$ENDIF}

-

-{$I switches.inc}

-

-uses SDL, UGraphic, UMusic, URecord, UTime, SysUtils, UDisplay, UIni, ULog, ULyrics, UScreenSing,

-  OpenGL12,

-

-  {$IFDEF UseSerialPort}

-  zlportio {you can disable it and all PortWriteB calls},

-  {$ENDIF}

-

-  ULCD, ULight, UThemes{, UScreenPopup};

-

-type

-  TPlayer = record

-    Name:         string;

-

-    Score:        real;

-    ScoreLine:    real;

-    ScoreGolden:  real;

-

-    ScoreI:       integer;

-    ScoreLineI:   integer;

-    ScoreGoldenI: integer;

-    ScoreTotalI:  integer;

-

-

-

-    //SingBar Mod

-    ScoreLast:    Real;//Last Line Score

-    ScorePercent:    integer;//Aktual Fillstate of the SingBar

-    ScorePercentTarget:  integer;//Target Fillstate of the SingBar

-    //end Singbar Mod

-

-    //PhrasenBonus - Line Bonus Mod

-    LineBonus_PosX:     Single;

-    LineBonus_PosY:     Single;

-    LineBonus_Alpha:    Single;

-    LineBonus_Visible:  boolean;

-    LineBonus_Text:     string;

-    LineBonus_Color:    TRGB;

-    LineBonus_Age:      Integer;

-    LineBonus_Rating: Integer;

-    //Variable vor Positioning -> Set on ScreenShow, different when Playercount Changes

-    LineBonus_TargetX:  integer;

-    LineBonus_TargetY:  integer;

-    LineBonus_StartX:  integer;

-    LineBonus_StartY:  integer;

-    //PhrasenBonus - Line Bonus Mod End

-

-    //PerfectLineTwinkle Mod (effect)

-    LastSentencePerfect: Boolean;

-    //PerfectLineTwinkle Mod end

-

-

-//    Meter:        real;

-

-    HighNut:  integer;

-    IlNut:    integer;

-    Nuta:     array of record

-      Start:      integer;

-      Dlugosc:    integer;

-      Detekt:     real;     // dokladne miejsce, w ktorym wykryto ta nute

-      Ton:        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 Half size Notes Patch

-

-

-

-    end;

-  end;

-

-

-var

-  //Absolute Paths

-  GamePath:         string;

-  SoundPath:        string;

-  SongPath:         string;

-  LogPath:          string;

-  ThemePath:        string;

-  ScreenshotsPath:  string;

-  CoversPath:       string;

-  LanguagesPath:    string;

-  PluginPath:       string;

-  PlayListPath:     string;

-

-  OGL:      Boolean;

-  Done:     Boolean;

-  Event:    TSDL_event;

-  FileName: string;

-  Restart:  boolean;

-

-  // gracz i jego nuty

-  Player:       array of TPlayer;

-  PlayersPlay:  integer;

-

-procedure InitializePaths;

-

-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;

-

-procedure MainLoop;

-var

-  Delay:    integer;

-begin

-  SDL_EnableKeyRepeat(125, 125);

-  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;

-//    if 1000*TimeMid > 100 then beep;

-    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;

-  UnloadOpenGL;

-End;

-

-Procedure CheckEvents;

-//var

-//  p:    pointer;

-Begin

-  if not Assigned(Display.NextScreen) then

-  While SDL_PollEvent( @event ) = 1 Do

-  Begin

-//    beep;

-    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; // With}

-      SDL_KEYDOWN:

-        begin

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

-          if (Event.key.keysym.sym = SDLK_SYSREQ) 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, Event.key.keysym.unicode, True)

-          else if (ScreenPopupCheck <> NIL) AND (ScreenPopupCheck.Visible) then

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

-          // end of popup hack

-

-          else

-          begin

-            // check for Screen want to Exit

-            done := Not Display.ActualScreen^.ParseInput(Event.key.keysym.sym, 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.ActualScreen^.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;            //        if (Not Display.ActualScreen^.ParseInput(Event.key.keysym.scancode, True)) then

-        end;

-//      SDL_JOYAXISMOTION:

-//        begin

-//          beep

-//        end;

-      SDL_JOYBUTTONDOWN:

-        begin

-          beep

-        end;

-    End; // Case Event.type_

-  End; // While

-End; // CheckEvents

-

-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(AktSong.BPM) = BPMNum then begin

-    // last BPM

-    CurBeat := AktSong.BPM[BPMNum].StartBeat + GetBeats(AktSong.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(AktSong.BPM[BPMNum].BPM, AktSong.BPM[BPMNum+1].StartBeat - AktSong.BPM[BPMNum].StartBeat);

-

-    // compare it to remaining time

-    if (Time - NewTime) > 0 then begin

-      // there is still remaining time

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

-      Time := Time - NewTime;

-    end else begin

-      // there is no remaining time

-      CurBeat := AktSong.BPM[BPMNum].StartBeat + GetBeats(AktSong.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(AktSong.BPM) = 1 then Result := Time * AktSong.BPM[0].BPM / 60;

-

-  (* 2 BPMs *)

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

-    (* new system *)

-    CurBeat := 0;

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

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

-      // analyze second BPM

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

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

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

-      Result := CurBeat + TopBeat;

-

-    end else begin

-      (* pierwszy przedzial *)

-      Result := TopBeat;

-    end;

-  end; // if}

-

-  (* more BPMs *)

-  if Length(AktSong.BPM) > 1 then begin

-

-    CurBeat := 0;

-    CurBPM := 0;

-    while (Time > 0) do begin

-      GetMidBeatSub(CurBPM, Time, CurBeat);

-      Inc(CurBPM);

-    end;

-

-    Result := CurBeat;

-  end; // if

-end;

-

-function GetTimeFromBeat(Beat: integer): real;

-var

-  CurBPM:   integer;

-begin

-  Result := 0;

-  if Length(AktSong.BPM) = 1 then Result := AktSong.GAP / 1000 + Beat * 60 / AktSong.BPM[0].BPM;

-

-  (* more BPMs *)

-  if Length(AktSong.BPM) > 1 then begin

-    Result := AktSong.GAP / 1000;

-    CurBPM := 0;

-    while (CurBPM <= High(AktSong.BPM)) and (Beat > AktSong.BPM[CurBPM].StartBeat) do begin

-      if (CurBPM < High(AktSong.BPM)) and (Beat >= AktSong.BPM[CurBPM+1].StartBeat) then begin

-        // full range

-        Result := Result + (60 / AktSong.BPM[CurBPM].BPM) * (AktSong.BPM[CurBPM+1].StartBeat - AktSong.BPM[CurBPM].StartBeat);

-      end;

-

-      if (CurBPM = High(AktSong.BPM)) or (Beat < AktSong.BPM[CurBPM+1].StartBeat) then begin

-        // in the middle

-        Result := Result + (60 / AktSong.BPM[CurBPM].BPM) * (Beat - AktSong.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

-  Pet:    integer;

-  PetGr:  integer;

-  CP:     integer;

-  Done:   real;

-  N:      integer;

-begin

-  Czas.Teraz := Czas.Teraz + TimeSkip;

-

-  Czas.OldBeat := Czas.AktBeat;

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

-  Czas.AktBeat := Floor(Czas.MidBeat);

-

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

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

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

-

-  Czas.OldBeatC := Czas.AktBeatC;

-  Czas.MidBeatC := GetMidBeat(Czas.Teraz - (AktSong.Gap) / 1000);

-  Czas.AktBeatC := Floor(Czas.MidBeatC);

-

-  Czas.OldBeatD := Czas.AktBeatD;

-  Czas.MidBeatD := -0.5+GetMidBeat(Czas.Teraz - (AktSong.Gap + 120 + 20) / 1000); // MidBeat with addition GAP

-  Czas.AktBeatD := Floor(Czas.MidBeatD);

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

-

-  // sentences routines

-  for PetGr := 0 to 0 do begin;//High(Gracz) do begin

-    CP := PetGr;

-    // ustawianie starej czesci

-    Czas.OldCzesc := Czesci[CP].Akt;

-

-    // wybieranie aktualnej czesci

-    for Pet := 0 to Czesci[CP].High do

-      if Czas.AktBeat >= Czesci[CP].Czesc[Pet].Start then Czesci[CP].Akt := Pet;

-

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

-    // (optymizacja raz na halfbeat jest zla)

-    if Czesci[CP].Akt <> Czas.OldCzesc then NewSentence(Sender);

-

-  end; // for PetGr

-

-  // wykonuje operacje raz na beat

-  if (Czas.AktBeat >= 0) and (Czas.OldBeat <> Czas.AktBeat) then

-    NewBeat(Sender);

-

-  // make some operations on clicks

-  if {(Czas.AktBeatC >= 0) and }(Czas.OldBeatC <> Czas.AktBeatC) then

-    NewBeatC(Sender);

-

-  // make some operations when detecting new voice pitch

-  if (Czas.AktBeatD >= 0) and (Czas.OldBeatD <> Czas.AktBeatD) then

-    NewBeatD(Sender);

-

-  // wykonuje operacje w polowie beatu

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

-//    NewHalf;

-

-  // plynnie przesuwa text

-  Done := 1;

-  for N := 0 to Czesci[0].Czesc[Czesci[0].Akt].HighNut do

-    if (Czesci[0].Czesc[Czesci[0].Akt].Nuta[N].Start <= Czas.MidBeat)

-    and (Czesci[0].Czesc[Czesci[0].Akt].Nuta[N].Start + Czesci[0].Czesc[Czesci[0].Akt].Nuta[N].Dlugosc >= Czas.MidBeat) then

-      Done := (Czas.MidBeat - Czesci[0].Czesc[Czesci[0].Akt].Nuta[N].Start) / (Czesci[0].Czesc[Czesci[0].Akt].Nuta[N].Dlugosc);

-

-  N := Czesci[0].Czesc[Czesci[0].Akt].HighNut;

-

-  // wylacza ostatnia nute po przejsciu

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

-    (Czas.MidBeat > Czesci[0].Czesc[Czesci[0].Akt].Nuta[N].Start + Czesci[0].Czesc[Czesci[0].Akt].Nuta[N].Dlugosc)

-    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].HighNut := -1;

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

-  end;

-

-  // wstawianie tekstow

-  with Sender do begin

-    LyricMain.AddCzesc(Czesci[0].Akt);

-    if Czesci[0].Akt < Czesci[0].High then

-      LyricSub.AddCzesc(Czesci[0].Akt+1)

-    else

-      LyricSub.Clear;

-  end;

-

-  Sender.UpdateLCD;

-  

-  //On Sentence Change...

-  Sender.onSentenceChange(Czesci[0].Akt);

-end;

-

-procedure NewBeat(Sender: TScreenSing);

-var

-  Pet:      integer;

-//  TempBeat: integer;

-begin

-  // ustawia zaznaczenie tekstu

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

-  for Pet := 0 to Czesci[0].Czesc[Czesci[0].Akt].HighNut do

-    if (Czesci[0].Czesc[Czesci[0].Akt].Nuta[Pet].Start = Czas.AktBeat) then begin

-      // operates on currently beated note

-      Sender.LyricMain.Selected := Pet;

-

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

-//      LCD.ShowCursor;

-

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

-      LCD.ShowCursor;

-

-    end;

-end;

-

-procedure NewBeatC;

-var

-  Pet:    integer;

-//  LPT_1:  integer;

-//  LPT_2:  integer;

-begin

-//  LPT_1 := 1;

-//  LPT_2 := 1;

-

-  // beat click

-  if (Ini.BeatClick = 1) and ((Czas.AktBeatC + Czesci[0].Resolution + Czesci[0].NotesGAP) mod Czesci[0].Resolution = 0) then

-    Music.PlayClick;

-

-  // debug system on LPT

-  if ((Czas.AktBeatC + Czesci[0].Resolution + Czesci[0].NotesGAP) mod Czesci[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 ((Czas.AktBeatC + Czesci[0].Resolution + Czesci[0].NotesGAP) mod (Czesci[0].Resolution * 2) = 0) then

-      Light.LightOne(0, 150)

-    else

-      Light.LightOne(1, 150)}

-  end;

-

-  for Pet := 0 to Czesci[0].Czesc[Czesci[0].Akt].HighNut do

-    if (Czesci[0].Czesc[Czesci[0].Akt].Nuta[Pet].Start = Czas.AktBeatC) then begin

-      // click assist

-      if Ini.ClickAssist = 1 then

-        Music.PlayClick;

-

-        //LPT_2 := 0;

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

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

-

-

-      // drum machine

-(*      TempBeat := Czas.AktBeat;// + 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;

-

-    {$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

-  Pet:    integer;

-  Mozna:  boolean;

-  Nowa:   boolean;

-  Range:  integer;

-  NoteHit:boolean;

-begin

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

-//  beep;

-

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

-  // albo juz lepiej nie

-  for CP := 0 to PlayersPlay-1 do begin

-

-    // analyze buffer

-    Sound[CP].AnalizujBufor;

-

-    // adds some noise

-//    Czas.Ton := Czas.Ton + Round(Random(3)) - 1;

-

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

-    SMin := Czesci[0].Akt-1;

-    if SMin < 0 then SMin := 0;

-    SMax := Czesci[0].Akt;

-

-    // check if we can add new note

-    Mozna := false;

-    SDet:=SMin;

-    for S := SMin to SMax do

-      for Pet := 0 to Czesci[0].Czesc[S].HighNut do

-        if ((Czesci[0].Czesc[S].Nuta[Pet].Start <= Czas.AktBeatD)

-          and (Czesci[0].Czesc[S].Nuta[Pet].Start + Czesci[0].Czesc[S].Nuta[Pet].Dlugosc - 1 >= Czas.AktBeatD))

-          and (not Czesci[0].Czesc[S].Nuta[Pet].FreeStyle) // but don't allow when it's FreeStyle note

-          and (Czesci[0].Czesc[S].Nuta[Pet].Dlugosc > 0) // and make sure the note lenghts is at least 1

-          then begin

-            SDet := S;

-            Mozna := true;

-            Break;

-          end;

-

-    S := SDet;

-

-

-

-

-

-//    Czas.SzczytJest := true;

-//    Czas.Ton := 27;

-

-    // gdy moze, to dodaje nute

-    if (Sound[CP].SzczytJest) and (Mozna) then begin

-      // operowanie na ostatniej nucie

-      for Pet := 0 to Czesci[0].Czesc[S].HighNut do

-        if (Czesci[0].Czesc[S].Nuta[Pet].Start <= Czas.OldBeatD+1)

-        and (Czesci[0].Czesc[S].Nuta[Pet].Start +

-        Czesci[0].Czesc[S].Nuta[Pet].Dlugosc > Czas.OldBeatD+1) then begin

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

-

-          // przesuwanie tonu w odpowiednia game

-          while (Sound[CP].Ton - Czesci[0].Czesc[S].Nuta[Pet].Ton > 6) do

-            Sound[CP].Ton := Sound[CP].Ton - 12;

-          while (Sound[CP].Ton - Czesci[0].Czesc[S].Nuta[Pet].Ton < -6) do

-            Sound[CP].Ton := Sound[CP].Ton + 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(Czesci[0].Czesc[S].Nuta[Pet].Ton - Sound[CP].Ton) <= Range then begin

-            Sound[CP].Ton := Czesci[0].Czesc[S].Nuta[Pet].Ton;

-

-

-            // Half size Notes Patch

-            NoteHit := true;

-

-

-            if (Ini.LineBonus = 0) then

-            begin

-            // add points without LineBonus

-            case Czesci[0].Czesc[S].Nuta[Pet].Wartosc of

-              1:  Player[CP].Score := Player[CP].Score + 10000 / Czesci[0].Wartosc *

-                    Czesci[0].Czesc[S].Nuta[Pet].Wartosc;

-              2:  Player[CP].ScoreGolden := Player[CP].ScoreGolden + 10000 / Czesci[0].Wartosc *

-                    Czesci[0].Czesc[S].Nuta[Pet].Wartosc;

-            end;

-            end

-            else

-            begin

-            // add points with Line Bonus

-            case Czesci[0].Czesc[S].Nuta[Pet].Wartosc of

-              1:  Player[CP].Score := Player[CP].Score + 9000 / Czesci[0].Wartosc *

-                    Czesci[0].Czesc[S].Nuta[Pet].Wartosc;

-              2:  Player[CP].ScoreGolden := Player[CP].ScoreGolden + 9000 / Czesci[0].Wartosc *

-                    Czesci[0].Czesc[S].Nuta[Pet].Wartosc;

-            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

-

-      // sprawdzanie czy to nowa nuta, czy przedluzenie

-      if S = SMax then begin

-      Nowa := true;

-      // jezeli ostatnia ma ten sam ton

-      if (Player[CP].IlNut > 0 ) and (Player[CP].Nuta[Player[CP].HighNut].Ton = Sound[CP].Ton)

-        and (Player[CP].Nuta[Player[CP].HighNut].Start + Player[CP].Nuta[Player[CP].HighNut].Dlugosc = Czas.AktBeatD)

-        then Nowa := false;

-      // jezeli jest jakas nowa nuta na sprawdzanym beacie

-      for Pet := 0 to Czesci[0].Czesc[S].HighNut do

-        if (Czesci[0].Czesc[S].Nuta[Pet].Start = Czas.AktBeatD) then

-          Nowa := true;

-

-      // dodawanie nowej nuty

-      if Nowa then begin

-        // nowa nuta

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

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

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

-        Player[CP].Nuta[Player[CP].HighNut].Start := Czas.AktBeatD;

-        Player[CP].Nuta[Player[CP].HighNut].Dlugosc := 1;

-        Player[CP].Nuta[Player[CP].HighNut].Ton := Sound[CP].Ton; // Ton || TonDokl

-        Player[CP].Nuta[Player[CP].HighNut].Detekt := Czas.MidBeat;

-

-

-        // Half Note Patch

-        Player[CP].Nuta[Player[CP].HighNut].Hit := NoteHit;

-

-

-        //        Log.LogStatus('Nowa Nuta ' + IntToStr(Gracz.Nuta[Gracz.HighNut].Start), 'NewBeat');

-

-      end else begin

-        // przedluzenie nuty

-        Player[CP].Nuta[Player[CP].HighNut].Dlugosc := Player[CP].Nuta[Player[CP].HighNut].Dlugosc + 1;

-      end;

-

-

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

-      for Pet := 0 to Czesci[0].Czesc[S].HighNut do

-        if (Czesci[0].Czesc[S].Nuta[Pet].Start = Player[CP].Nuta[Player[CP].HighNut].Start)

-        and (Czesci[0].Czesc[S].Nuta[Pet].Dlugosc = Player[CP].Nuta[Player[CP].HighNut].Dlugosc)

-        and (Czesci[0].Czesc[S].Nuta[Pet].Ton = Player[CP].Nuta[Player[CP].HighNut].Ton) then begin

-          Player[CP].Nuta[Player[CP].HighNut].Perfect := true;

-        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(Czesci[0].Czesc)) AND (sDet <= high(Czesci[0].Czesc)) then

-if ((Czesci[0].Czesc[SDet].Nuta[Czesci[0].Czesc[SDet].HighNut].Start + Czesci[0].Czesc[SDet].Nuta[Czesci[0].Czesc[SDet].HighNut].Dlugosc - 1) = Czas.AktBeatD) then

-  Sender.onSentenceEnd(sDet);

-

-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;

-

-

-  //SingBar Mod

-  Player[PlayerNum].ScoreLast := 0;

-  Player[PlayerNum].ScorePercent := 50;// Sets to 50% when song starts

-  Player[PlayerNum].ScorePercentTarget := 50;// Sets to 50% when song starts

-  //end SingBar Mod

-

-  //PhrasenBonus - Line Bonus Mod

-  Player[PlayerNum].LineBonus_Visible := False; //Hide Line Bonus

-  Player[PlayerNum].LineBonus_Alpha   := 0;

-  Player[PlayerNum].LineBonus_TargetX := 70 + PlayerNum*500;

-  Player[PlayerNum].LineBonus_TargetY := 30;

-  //PhrasenBonus - Line Bonus Mod End

-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;

-  begin

-    aPathVar := aLocation;

-

-    If DirectoryExists(aPathVar) then

-      lWriteable := ForceDirectories(aPathVar)

-    else

-      lWriteable := false;

-

-    if not lWriteable then

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

-

-    result := lWriteable;

-  end;

-

-begin

-

-  GamePath := ExtractFilePath(ParamStr(0));

-

-  initialize_path( LogPath         , GamePath                 );

-  initialize_path( SoundPath       , GamePath + 'Sounds\'     );

-  initialize_path( SongPath        , GamePath + 'Songs\'      );

-  initialize_path( ThemePath       , GamePath + 'Themes\'     );

-  initialize_path( ScreenshotsPath , GamePath + 'Screenshots\');

-  initialize_path( CoversPath      , GamePath + 'Covers\'     );

-  initialize_path( LanguagesPath   , GamePath + 'Languages\'  );

-  initialize_path( PluginPath      , GamePath + 'Plugins\'    );

-  initialize_path( PlaylistPath    , GamePath + 'Playlists\'  );

-

-  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,
+    OpenGL12,
+    {$IFDEF UseSerialPort}
+    zlportio {you can disable it and all PortWriteB calls},
+    {$ENDIF}
+    ULCD,
+    ULight,
+    UThemes;
+
+type
+  TPlayer = record
+    Name:         string;
+
+    Score:        real;
+    ScoreLine:    real;
+    ScoreGolden:  real;
+
+    ScoreI:       integer;
+    ScoreLineI:   integer;
+    ScoreGoldenI: integer;
+    ScoreTotalI:  integer;
+
+
+
+    //SingBar Mod
+    ScoreLast:    Real;//Last Line Score
+    ScorePercent:    integer;//Aktual Fillstate of the SingBar
+    ScorePercentTarget:  integer;//Target Fillstate of the SingBar
+    //end Singbar Mod
+
+    //PhrasenBonus - Line Bonus Mod
+    LineBonus_PosX:     Single;
+    LineBonus_PosY:     Single;
+    LineBonus_Alpha:    Single;
+    LineBonus_Visible:  boolean;
+    LineBonus_Text:     string;
+    LineBonus_Color:    TRGB;
+    LineBonus_Age:      Integer;
+    LineBonus_Rating: Integer;
+    //Variable vor Positioning -> Set on ScreenShow, different when Playercount Changes
+    LineBonus_TargetX:  integer;
+    LineBonus_TargetY:  integer;
+    LineBonus_StartX:  integer;
+    LineBonus_StartY:  integer;
+    //PhrasenBonus - Line Bonus Mod End
+
+    //PerfectLineTwinkle Mod (effect)
+    LastSentencePerfect: Boolean;
+    //PerfectLineTwinkle Mod end
+
+
+//    Meter:        real;
+
+    HighNut:  integer;
+    IlNut:    integer;
+    Nuta:     array of record
+      Start:      integer;
+      Dlugosc:    integer;
+      Detekt:     real;     // dokladne miejsce, w ktorym wykryto ta nute
+      Ton:        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 Half size Notes Patch
+
+
+
+    end;
+  end;
+
+
+var
+  //Absolute Paths
+  GamePath:         string;
+  SoundPath:        string;
+  SongPath:         string;
+  LogPath:          string;
+  ThemePath:        string;
+  ScreenshotsPath:  string;
+  CoversPath:       string;
+  LanguagesPath:    string;
+  PluginPath:       string;
+  PlayListPath:     string;
+
+  OGL:      Boolean;
+  Done:     Boolean;
+  Event:    TSDL_event;
+  FileName: string;
+  Restart:  boolean;
+
+  // gracz i jego nuty
+  Player:       array of TPlayer;
+  PlayersPlay:  integer;
+
+procedure InitializePaths;
+
+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;
+
+procedure MainLoop;
+var
+  Delay:    integer;
+begin
+  SDL_EnableKeyRepeat(125, 125);
+  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;
+//    if 1000*TimeMid > 100 then beep;
+    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;
+  UnloadOpenGL;
+End;
+
+Procedure CheckEvents;
+//var
+//  p:    pointer;
+Begin
+  if not Assigned(Display.NextScreen) then
+  While SDL_PollEvent( @event ) = 1 Do
+  Begin
+//    beep;
+    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; // With}
+      SDL_KEYDOWN:
+        begin
+          //ScreenShot hack. If Print is pressed-> Make screenshot and Save to Screenshots Path
+          if (Event.key.keysym.sym = SDLK_SYSREQ) 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, Event.key.keysym.unicode, True)
+          else if (ScreenPopupCheck <> NIL) AND (ScreenPopupCheck.Visible) then
+            done := not ScreenPopupCheck.ParseInput(Event.key.keysym.sym, Event.key.keysym.unicode, True)
+          // end of popup hack
+
+          else
+          begin
+            // check for Screen want to Exit
+            done := Not Display.ActualScreen^.ParseInput(Event.key.keysym.sym, 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.ActualScreen^.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;            //        if (Not Display.ActualScreen^.ParseInput(Event.key.keysym.scancode, True)) then
+        end;
+//      SDL_JOYAXISMOTION:
+//        begin
+//          beep
+//        end;
+      SDL_JOYBUTTONDOWN:
+        begin
+          beep
+        end;
+    End; // Case Event.type_
+  End; // While
+End; // CheckEvents
+
+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(AktSong.BPM) = BPMNum then begin
+    // last BPM
+    CurBeat := AktSong.BPM[BPMNum].StartBeat + GetBeats(AktSong.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(AktSong.BPM[BPMNum].BPM, AktSong.BPM[BPMNum+1].StartBeat - AktSong.BPM[BPMNum].StartBeat);
+
+    // compare it to remaining time
+    if (Time - NewTime) > 0 then begin
+      // there is still remaining time
+      CurBeat := AktSong.BPM[BPMNum].StartBeat;
+      Time := Time - NewTime;
+    end else begin
+      // there is no remaining time
+      CurBeat := AktSong.BPM[BPMNum].StartBeat + GetBeats(AktSong.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(AktSong.BPM) = 1 then Result := Time * AktSong.BPM[0].BPM / 60;
+
+  (* 2 BPMs *)
+{  if Length(AktSong.BPM) > 1 then begin
+    (* new system *)
+    CurBeat := 0;
+    TopBeat := GetBeats(AktSong.BPM[0].BPM, Time);
+    if TopBeat > AktSong.BPM[1].StartBeat then begin
+      // analyze second BPM
+      Time := Time - GetTimeForBeats(AktSong.BPM[0].BPM, AktSong.BPM[1].StartBeat - CurBeat);
+      CurBeat := AktSong.BPM[1].StartBeat;
+      TopBeat := GetBeats(AktSong.BPM[1].BPM, Time);
+      Result := CurBeat + TopBeat;
+
+    end else begin
+      (* pierwszy przedzial *)
+      Result := TopBeat;
+    end;
+  end; // if}
+
+  (* more BPMs *)
+  if Length(AktSong.BPM) > 1 then begin
+
+    CurBeat := 0;
+    CurBPM := 0;
+    while (Time > 0) do begin
+      GetMidBeatSub(CurBPM, Time, CurBeat);
+      Inc(CurBPM);
+    end;
+
+    Result := CurBeat;
+  end; // if
+end;
+
+function GetTimeFromBeat(Beat: integer): real;
+var
+  CurBPM:   integer;
+begin
+  Result := 0;
+  if Length(AktSong.BPM) = 1 then Result := AktSong.GAP / 1000 + Beat * 60 / AktSong.BPM[0].BPM;
+
+  (* more BPMs *)
+  if Length(AktSong.BPM) > 1 then begin
+    Result := AktSong.GAP / 1000;
+    CurBPM := 0;
+    while (CurBPM <= High(AktSong.BPM)) and (Beat > AktSong.BPM[CurBPM].StartBeat) do begin
+      if (CurBPM < High(AktSong.BPM)) and (Beat >= AktSong.BPM[CurBPM+1].StartBeat) then begin
+        // full range
+        Result := Result + (60 / AktSong.BPM[CurBPM].BPM) * (AktSong.BPM[CurBPM+1].StartBeat - AktSong.BPM[CurBPM].StartBeat);
+      end;
+
+      if (CurBPM = High(AktSong.BPM)) or (Beat < AktSong.BPM[CurBPM+1].StartBeat) then begin
+        // in the middle
+        Result := Result + (60 / AktSong.BPM[CurBPM].BPM) * (Beat - AktSong.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
+  Pet:    integer;
+  PetGr:  integer;
+  CP:     integer;
+  Done:   real;
+  N:      integer;
+begin
+  Czas.Teraz := Czas.Teraz + TimeSkip;
+
+  Czas.OldBeat := Czas.AktBeat;
+  Czas.MidBeat := GetMidBeat(Czas.Teraz - (AktSong.Gap{ + 90 I've forgotten for what it is}) / 1000); // new system with variable BPM in function
+  Czas.AktBeat := Floor(Czas.MidBeat);
+
+//  Czas.OldHalf := Czas.AktHalf;
+//  Czas.MidHalf := Czas.MidBeat + 0.5;
+//  Czas.AktHalf := Floor(Czas.MidHalf);
+
+  Czas.OldBeatC := Czas.AktBeatC;
+  Czas.MidBeatC := GetMidBeat(Czas.Teraz - (AktSong.Gap) / 1000);
+  Czas.AktBeatC := Floor(Czas.MidBeatC);
+
+  Czas.OldBeatD := Czas.AktBeatD;
+  Czas.MidBeatD := -0.5+GetMidBeat(Czas.Teraz - (AktSong.Gap + 120 + 20) / 1000); // MidBeat with addition GAP
+  Czas.AktBeatD := Floor(Czas.MidBeatD);
+  Czas.FracBeatD := Frac(Czas.MidBeatD);
+
+  // sentences routines
+  for PetGr := 0 to 0 do begin;//High(Gracz) do begin
+    CP := PetGr;
+    // ustawianie starej czesci
+    Czas.OldCzesc := Czesci[CP].Akt;
+
+    // wybieranie aktualnej czesci
+    for Pet := 0 to Czesci[CP].High do
+      if Czas.AktBeat >= Czesci[CP].Czesc[Pet].Start then Czesci[CP].Akt := Pet;
+
+    // czysczenie nut gracza, gdy to jest nowa plansza
+    // (optymizacja raz na halfbeat jest zla)
+    if Czesci[CP].Akt <> Czas.OldCzesc then NewSentence(Sender);
+
+  end; // for PetGr
+
+  // wykonuje operacje raz na beat
+  if (Czas.AktBeat >= 0) and (Czas.OldBeat <> Czas.AktBeat) then
+    NewBeat(Sender);
+
+  // make some operations on clicks
+  if {(Czas.AktBeatC >= 0) and }(Czas.OldBeatC <> Czas.AktBeatC) then
+    NewBeatC(Sender);
+
+  // make some operations when detecting new voice pitch
+  if (Czas.AktBeatD >= 0) and (Czas.OldBeatD <> Czas.AktBeatD) then
+    NewBeatD(Sender);
+
+  // wykonuje operacje w polowie beatu
+//  if (Czas.AktHalf >= 1) and (Czas.OldHalf <> Czas.AktHalf) then
+//    NewHalf;
+
+  // plynnie przesuwa text
+  Done := 1;
+  for N := 0 to Czesci[0].Czesc[Czesci[0].Akt].HighNut do
+    if (Czesci[0].Czesc[Czesci[0].Akt].Nuta[N].Start <= Czas.MidBeat)
+    and (Czesci[0].Czesc[Czesci[0].Akt].Nuta[N].Start + Czesci[0].Czesc[Czesci[0].Akt].Nuta[N].Dlugosc >= Czas.MidBeat) then
+      Done := (Czas.MidBeat - Czesci[0].Czesc[Czesci[0].Akt].Nuta[N].Start) / (Czesci[0].Czesc[Czesci[0].Akt].Nuta[N].Dlugosc);
+
+  N := Czesci[0].Czesc[Czesci[0].Akt].HighNut;
+
+  // wylacza ostatnia nute po przejsciu
+  if (Ini.LyricsEffect = 1) and (Done = 1) and
+    (Czas.MidBeat > Czesci[0].Czesc[Czesci[0].Akt].Nuta[N].Start + Czesci[0].Czesc[Czesci[0].Akt].Nuta[N].Dlugosc)
+    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].HighNut := -1;
+    SetLength(Player[G].Nuta, 0);
+  end;
+
+  // wstawianie tekstow
+  with Sender do begin
+    LyricMain.AddCzesc(Czesci[0].Akt);
+    if Czesci[0].Akt < Czesci[0].High then
+      LyricSub.AddCzesc(Czesci[0].Akt+1)
+    else
+      LyricSub.Clear;
+  end;
+
+  Sender.UpdateLCD;
+  
+  //On Sentence Change...
+  Sender.onSentenceChange(Czesci[0].Akt);
+end;
+
+procedure NewBeat(Sender: TScreenSing);
+var
+  Pet:      integer;
+//  TempBeat: integer;
+begin
+  // ustawia zaznaczenie tekstu
+//  SingScreen.LyricMain.Selected := -1;
+  for Pet := 0 to Czesci[0].Czesc[Czesci[0].Akt].HighNut do
+    if (Czesci[0].Czesc[Czesci[0].Akt].Nuta[Pet].Start = Czas.AktBeat) then begin
+      // operates on currently beated note
+      Sender.LyricMain.Selected := Pet;
+
+//      LCD.MoveCursor(1, ScreenSing.LyricMain.SelectedLetter);
+//      LCD.ShowCursor;
+
+      LCD.MoveCursorBR(Sender.LyricMain.SelectedLetter);
+      LCD.ShowCursor;
+
+    end;
+end;
+
+procedure NewBeatC;
+var
+  Pet:    integer;
+//  LPT_1:  integer;
+//  LPT_2:  integer;
+begin
+//  LPT_1 := 1;
+//  LPT_2 := 1;
+
+  // beat click
+  if (Ini.BeatClick = 1) and ((Czas.AktBeatC + Czesci[0].Resolution + Czesci[0].NotesGAP) mod Czesci[0].Resolution = 0) then
+    Music.PlayClick;
+
+  // debug system on LPT
+  if ((Czas.AktBeatC + Czesci[0].Resolution + Czesci[0].NotesGAP) mod Czesci[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 ((Czas.AktBeatC + Czesci[0].Resolution + Czesci[0].NotesGAP) mod (Czesci[0].Resolution * 2) = 0) then
+      Light.LightOne(0, 150)
+    else
+      Light.LightOne(1, 150)}
+  end;
+
+  for Pet := 0 to Czesci[0].Czesc[Czesci[0].Akt].HighNut do
+    if (Czesci[0].Czesc[Czesci[0].Akt].Nuta[Pet].Start = Czas.AktBeatC) then begin
+      // click assist
+      if Ini.ClickAssist = 1 then
+        Music.PlayClick;
+
+        //LPT_2 := 0;
+        if ParamStr(1) <> '-doublelights' then
+        Light.LightOne(0, 150); //125
+
+
+      // drum machine
+(*      TempBeat := Czas.AktBeat;// + 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;
+
+    {$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
+  Pet:    integer;
+  Mozna:  boolean;
+  Nowa:   boolean;
+  Range:  integer;
+  NoteHit:boolean;
+begin
+//  Log.LogStatus('Beat ' + IntToStr(Czas.AktBeat) + ' HalfBeat ' + IntToStr(Czas.AktHalf), 'NewBeat');
+//  beep;
+
+  // analizuje dla obu graczy ten sam sygnal (Sound.OneSrcForBoth)
+  // albo juz lepiej nie
+  for CP := 0 to PlayersPlay-1 do begin
+
+    // analyze buffer
+    Sound[CP].AnalizujBufor;
+
+    // adds some noise
+//    Czas.Ton := Czas.Ton + Round(Random(3)) - 1;
+
+    // 0.5.0: count min and max sentence range for checking (detection is delayed to the notes we see on the screen)
+    SMin := Czesci[0].Akt-1;
+    if SMin < 0 then SMin := 0;
+    SMax := Czesci[0].Akt;
+
+    // check if we can add new note
+    Mozna := false;
+    SDet:=SMin;
+    for S := SMin to SMax do
+      for Pet := 0 to Czesci[0].Czesc[S].HighNut do
+        if ((Czesci[0].Czesc[S].Nuta[Pet].Start <= Czas.AktBeatD)
+          and (Czesci[0].Czesc[S].Nuta[Pet].Start + Czesci[0].Czesc[S].Nuta[Pet].Dlugosc - 1 >= Czas.AktBeatD))
+          and (not Czesci[0].Czesc[S].Nuta[Pet].FreeStyle) // but don't allow when it's FreeStyle note
+          and (Czesci[0].Czesc[S].Nuta[Pet].Dlugosc > 0) // and make sure the note lenghts is at least 1
+          then begin
+            SDet := S;
+            Mozna := true;
+            Break;
+          end;
+
+    S := SDet;
+
+
+
+
+
+//    Czas.SzczytJest := true;
+//    Czas.Ton := 27;
+
+    // gdy moze, to dodaje nute
+    if (Sound[CP].SzczytJest) and (Mozna) then begin
+      // operowanie na ostatniej nucie
+      for Pet := 0 to Czesci[0].Czesc[S].HighNut do
+        if (Czesci[0].Czesc[S].Nuta[Pet].Start <= Czas.OldBeatD+1)
+        and (Czesci[0].Czesc[S].Nuta[Pet].Start +
+        Czesci[0].Czesc[S].Nuta[Pet].Dlugosc > Czas.OldBeatD+1) then begin
+          // to robi, tylko dla pary nut (oryginalnej i gracza)
+
+          // przesuwanie tonu w odpowiednia game
+          while (Sound[CP].Ton - Czesci[0].Czesc[S].Nuta[Pet].Ton > 6) do
+            Sound[CP].Ton := Sound[CP].Ton - 12;
+          while (Sound[CP].Ton - Czesci[0].Czesc[S].Nuta[Pet].Ton < -6) do
+            Sound[CP].Ton := Sound[CP].Ton + 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(Czesci[0].Czesc[S].Nuta[Pet].Ton - Sound[CP].Ton) <= Range then begin
+            Sound[CP].Ton := Czesci[0].Czesc[S].Nuta[Pet].Ton;
+
+
+            // Half size Notes Patch
+            NoteHit := true;
+
+
+            if (Ini.LineBonus = 0) then
+            begin
+            // add points without LineBonus
+            case Czesci[0].Czesc[S].Nuta[Pet].Wartosc of
+              1:  Player[CP].Score := Player[CP].Score + 10000 / Czesci[0].Wartosc *
+                    Czesci[0].Czesc[S].Nuta[Pet].Wartosc;
+              2:  Player[CP].ScoreGolden := Player[CP].ScoreGolden + 10000 / Czesci[0].Wartosc *
+                    Czesci[0].Czesc[S].Nuta[Pet].Wartosc;
+            end;
+            end
+            else
+            begin
+            // add points with Line Bonus
+            case Czesci[0].Czesc[S].Nuta[Pet].Wartosc of
+              1:  Player[CP].Score := Player[CP].Score + 9000 / Czesci[0].Wartosc *
+                    Czesci[0].Czesc[S].Nuta[Pet].Wartosc;
+              2:  Player[CP].ScoreGolden := Player[CP].ScoreGolden + 9000 / Czesci[0].Wartosc *
+                    Czesci[0].Czesc[S].Nuta[Pet].Wartosc;
+            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
+
+      // sprawdzanie czy to nowa nuta, czy przedluzenie
+      if S = SMax then begin
+      Nowa := true;
+      // jezeli ostatnia ma ten sam ton
+      if (Player[CP].IlNut > 0 ) and (Player[CP].Nuta[Player[CP].HighNut].Ton = Sound[CP].Ton)
+        and (Player[CP].Nuta[Player[CP].HighNut].Start + Player[CP].Nuta[Player[CP].HighNut].Dlugosc = Czas.AktBeatD)
+        then Nowa := false;
+      // jezeli jest jakas nowa nuta na sprawdzanym beacie
+      for Pet := 0 to Czesci[0].Czesc[S].HighNut do
+        if (Czesci[0].Czesc[S].Nuta[Pet].Start = Czas.AktBeatD) then
+          Nowa := true;
+
+      // dodawanie nowej nuty
+      if Nowa then begin
+        // nowa nuta
+        Player[CP].IlNut := Player[CP].IlNut + 1;
+        Player[CP].HighNut := Player[CP].HighNut + 1;
+        SetLength(Player[CP].Nuta, Player[CP].IlNut);
+        Player[CP].Nuta[Player[CP].HighNut].Start := Czas.AktBeatD;
+        Player[CP].Nuta[Player[CP].HighNut].Dlugosc := 1;
+        Player[CP].Nuta[Player[CP].HighNut].Ton := Sound[CP].Ton; // Ton || TonDokl
+        Player[CP].Nuta[Player[CP].HighNut].Detekt := Czas.MidBeat;
+
+
+        // Half Note Patch
+        Player[CP].Nuta[Player[CP].HighNut].Hit := NoteHit;
+
+
+        //        Log.LogStatus('Nowa Nuta ' + IntToStr(Gracz.Nuta[Gracz.HighNut].Start), 'NewBeat');
+
+      end else begin
+        // przedluzenie nuty
+        Player[CP].Nuta[Player[CP].HighNut].Dlugosc := Player[CP].Nuta[Player[CP].HighNut].Dlugosc + 1;
+      end;
+
+
+      // check for perfect note and then lit the star (on Draw)
+      for Pet := 0 to Czesci[0].Czesc[S].HighNut do
+        if (Czesci[0].Czesc[S].Nuta[Pet].Start = Player[CP].Nuta[Player[CP].HighNut].Start)
+        and (Czesci[0].Czesc[S].Nuta[Pet].Dlugosc = Player[CP].Nuta[Player[CP].HighNut].Dlugosc)
+        and (Czesci[0].Czesc[S].Nuta[Pet].Ton = Player[CP].Nuta[Player[CP].HighNut].Ton) then begin
+          Player[CP].Nuta[Player[CP].HighNut].Perfect := true;
+        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(Czesci[0].Czesc)) AND (sDet <= high(Czesci[0].Czesc)) then
+if ((Czesci[0].Czesc[SDet].Nuta[Czesci[0].Czesc[SDet].HighNut].Start + Czesci[0].Czesc[SDet].Nuta[Czesci[0].Czesc[SDet].HighNut].Dlugosc - 1) = Czas.AktBeatD) then
+  Sender.onSentenceEnd(sDet);
+
+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;
+
+
+  //SingBar Mod
+  Player[PlayerNum].ScoreLast := 0;
+  Player[PlayerNum].ScorePercent := 50;// Sets to 50% when song starts
+  Player[PlayerNum].ScorePercentTarget := 50;// Sets to 50% when song starts
+  //end SingBar Mod
+
+  //PhrasenBonus - Line Bonus Mod
+  Player[PlayerNum].LineBonus_Visible := False; //Hide Line Bonus
+  Player[PlayerNum].LineBonus_Alpha   := 0;
+  Player[PlayerNum].LineBonus_TargetX := 70 + PlayerNum*500;
+  Player[PlayerNum].LineBonus_TargetY := 30;
+  //PhrasenBonus - Line Bonus Mod End
+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;
+  begin
+    aPathVar := aLocation;
+
+    If DirectoryExists(aPathVar) then
+      lWriteable := ForceDirectories(aPathVar)
+    else
+      lWriteable := false;
+
+    if not lWriteable then
+      Log.LogError('Error: Dir ('+ aLocation +') is Readonly');
+
+    result := lWriteable;
+  end;
+
+begin
+
+  GamePath := ExtractFilePath(ParamStr(0));
+
+  initialize_path( LogPath         , GamePath                             );
+  initialize_path( SoundPath       , GamePath + 'Sounds'      + PathDelim );
+  initialize_path( SongPath        , GamePath + 'Songs'       + PathDelim );
+  initialize_path( ThemePath       , GamePath + 'Themes'      + PathDelim );
+  initialize_path( ScreenshotsPath , GamePath + 'Screenshots' + PathDelim );
+  initialize_path( CoversPath      , GamePath + 'Covers'      + PathDelim );
+  initialize_path( LanguagesPath   , GamePath + 'Languages'   + PathDelim );
+  initialize_path( PluginPath      , GamePath + 'Plugins'     + PathDelim );
+  initialize_path( PlaylistPath    , GamePath + 'Playlists'   + PathDelim );
+
+  DecimalSeparator := ',';
+end;
+
+end.
+
diff --git a/Game/Code/Classes/UMusic.pas b/Game/Code/Classes/UMusic.pas
index be585ee1..e2e1f27e 100644
--- a/Game/Code/Classes/UMusic.pas
+++ b/Game/Code/Classes/UMusic.pas
@@ -1,625 +1,731 @@
-unit UMusic;

-

-interface

-

-{$IFDEF FPC}

-  {$MODE Delphi}

-{$ENDIF}

-

-

-uses Classes,

-     Windows,

-     Messages,

-     SysUtils,

-     {$IFNDEF FPC}

-     Forms,

-     {$ENDIF}

-     ULog,

-     USongs,

-     Bass;

-

-procedure InitializeSound;

-

-type

-  TSoundCard = record

-    Name:     string;

-    Source:   array of string;

-  end;

-

-  TFFTData  = array [0..256] of Single;

-  

-  TCustomSoundEntry = record

-    Filename: String;

-    Handle: hStream;

-  end;

-

-

-  TMusic = class

-    private

-      BassStart:          hStream;            // Wait, I've replaced this with BASS

-      BassBack:           hStream;            // It has almost all features we need

-      BassSwoosh:         hStream;

-      BassChange:         hStream;            // Almost? It aleady has them all :)

-      BassOption:         hStream;

-      BassClick:          hStream;

-      BassDrum:           hStream;

-      BassHihat:          hStream;

-      BassClap:           hStream;

-      BassShuffle:        hStream;

-

-      //Custom Sounds

-      CustomSounds: array of TCustomSoundEntry;

-

-

-      Loaded:   boolean;

-      Loop:     boolean;

-    public

-      Bass:               hStream;

-      procedure InitializePlayback;

-      procedure InitializeRecord;

-      procedure SetVolume(Volume: integer);

-      procedure SetMusicVolume(Volume: integer);

-      procedure SetLoop(Enabled: boolean);

-      function Open(Name: string): boolean; // true if succeed

-      procedure Rewind;

-      procedure MoveTo(Time: real);

-      procedure Play;

-      procedure Pause; //Pause Mod

-      procedure Stop;

-      procedure Close;

-      function Finished: boolean;

-      function Length: real;

-      function Position: real;

-      procedure PlayStart;

-      procedure PlayBack;

-      procedure PlaySwoosh;

-      procedure PlayChange;

-      procedure PlayOption;

-      procedure PlayClick;

-      procedure PlayDrum;

-      procedure PlayHihat;

-      procedure PlayClap;

-      procedure PlayShuffle;

-      procedure StopShuffle;

-      procedure CaptureStart;

-      procedure CaptureStop;

-      procedure CaptureCard(RecordI, PlayerLeft, PlayerRight: byte);

-      procedure StopCard(Card: byte);

-      function LoadSoundFromFile(var hStream: hStream; Name: string): boolean;

-

-      //Equalizer

-      function GetFFTData: TFFTData;

-

-      //Custom Sounds

-      function LoadCustomSound(const Filename: String): Cardinal;

-      procedure PlayCustomSound(const Index: Cardinal);

-

-end;

-

-const

-  RecordSystem = 1;

-

-type

-  TMuzyka = record

-    Path:   string;

-    Start:  integer;        // start of song in ms

-    IlNut:  integer;

-    DlugoscNut:   integer;

-  end;

-

-  TCzesci = record

-    Akt:      integer;      // aktualna czesc utworu do rysowania

-    High:     integer;

-    Ilosc:    integer;

-    Resolution: integer;

-    NotesGAP: integer;

-    Wartosc:  integer;

-    Czesc:    array of record

-      Start:    integer;

-      StartNote:  integer;

-      Lyric:      string;

-      LyricWidth: real;

-      Koniec:   integer;

-      BaseNote: integer;

-      HighNut:  integer;

-      IlNut:    integer;

-      TotalNotes: integer;

-      Nuta:     array of record

-        Color:      integer;

-        Start:      integer;

-        Dlugosc:    integer;

-        Ton:        integer;

-        TonGamy:    integer;

-        Tekst:      string;

-        FreeStyle:  boolean;

-        Wartosc:    integer;    // zwykla nuta x1, zlota nuta x2

-      end;

-    end;

-  end;

-

-  TCzas = record              // wszystko, co dotyczy aktualnej klatki

-    OldBeat:      integer;    // poprzednio wykryty beat w utworze

-    AktBeat:      integer;    // aktualny beat w utworze

-    MidBeat:      real;       // dokladny AktBeat

-

-    // now we use this for super synchronization!

-    // only used when analyzing voice

-    OldBeatD:     integer;    // poprzednio wykryty beat w utworze

-    AktBeatD:     integer;    // aktualny beat w utworze

-    MidBeatD:     real;       // dokladny AktBeatD

-    FracBeatD:    real;       // fractional part of MidBeatD

-

-    // we use this for audiable clicks

-    OldBeatC:     integer;    // poprzednio wykryty beat w utworze

-    AktBeatC:     integer;    // aktualny beat w utworze

-    MidBeatC:     real;       // dokladny AktBeatC

-    FracBeatC:    real;       // fractional part of MidBeatC

-

-

-    OldCzesc:     integer;    // poprzednio wyswietlana czesc

-                              // akt jest w czesci.akt

-

-    Teraz:        real;       // aktualny czas w utworze

-    Razem:        real;       // caly czas utworu

-  end;

-

-var

-  Music:    TMusic;

-

-  // muzyka

-  Muzyka:   TMuzyka;

-

-  // czesci z nutami;

-  Czesci:   array of TCzesci;

-

-  // czas

-  Czas:     TCzas;

-

-  fHWND:        Thandle;

-

-type

-  TMPModes = (mpNotReady, mpStopped, mpPlaying, mpRecording, mpSeeking,

-    mpPaused, mpOpen);

-

-const

-  ModeStr:  array[TMPModes] of string = ('Not ready', 'Stopped', 'Playing', 'Recording', 'Seeking', 'Paused', 'Open');

-

-implementation

-

-uses UCommon,

-     UGraphic,

-     URecord,

-     UFiles,

-     UIni,

-     UMain,

-     UThemes;

-

-procedure InitializeSound;

-begin

-  Log.LogStatus('Initializing Playback', 'InitializeSound');  Music.InitializePlayback;

-  Log.LogStatus('Initializing Record', 'InitializeSound');    Music.InitializeRecord;

-end;

-

-procedure TMusic.InitializePlayback;

-var

-  Pet:  integer;

-  S:    integer;

-begin

-  Log.BenchmarkStart(4);

-  Log.LogStatus('Initializing Playback Subsystem', 'Music Initialize');

-

-  Loaded := false;

-  Loop   := false;

-

-  fHWND  := AllocateHWND( nil); // TODO : JB - can we do something different here ?? lazarus didnt like this function

-

-  if not BASS_Init(1, 44100, 0, fHWND, nil) then

-  begin

-    {$IFNDEF FPC}

-    // TODO : JB find a way to do this nice..

-    Application.MessageBox ('Could not initialize BASS', 'Error');

-    {$ENDIF}

-    Exit;

-  end;

-

-  Log.BenchmarkEnd(4); Log.LogBenchmark('--> Bass Init', 4);

-

-  // config playing buffer

-//  BASS_SetConfig(BASS_CONFIG_UPDATEPERIOD, 10);

-//  BASS_SetConfig(BASS_CONFIG_BUFFER, 100);

-

-  Log.LogStatus('Loading Sounds', 'Music Initialize');

-

-  Log.BenchmarkStart(4);

-  LoadSoundFromFile(BassStart,  SoundPath + 'Common Start.mp3');

-  LoadSoundFromFile(BassBack,   SoundPath + 'Common Back.mp3');

-  LoadSoundFromFile(BassSwoosh, SoundPath + 'menu swoosh.mp3');

-  LoadSoundFromFile(BassChange, SoundPath + 'select music change music 50.mp3');

-  LoadSoundFromFile(BassOption, SoundPath + 'option change col.mp3');

-  LoadSoundFromFile(BassClick,  SoundPath + 'rimshot022b.mp3');

-

-//  LoadSoundFromFile(BassDrum,   SoundPath + 'bassdrumhard076b.mp3');

-//  LoadSoundFromFile(BassHihat,  SoundPath + 'hihatclosed068b.mp3');

-//  LoadSoundFromFile(BassClap,   SoundPath + 'claps050b.mp3');

-

-//  LoadSoundFromFile(BassShuffle, SoundPath + 'Shuffle.mp3');

-

-  Log.BenchmarkEnd(4); Log.LogBenchmark('--> Loading Sounds', 4);

-end;

-

-procedure TMusic.InitializeRecord;

-var

-  S:        integer;

-  device:   integer;

-  descr:    string;

-  input:    integer;

-  input2:   integer;

-  flags:    integer;

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

-  SC:       integer; // soundcard

-  SCI:      integer; // soundcard input

-begin

-  if RecordSystem = 1 then begin

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

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

-      Sound[S] := TSound.Create;

-      Sound[S].Num := S;

-      Sound[S].BufferNew := TMemoryStream.Create;

-      SetLength(Sound[S].BufferLong, 1);

-      Sound[S].BufferLong[0] := TMemoryStream.Create;

-      Sound[S].n := 4*1024;

-    end;

-

-

-    // check for recording devices;

-    {device := 0;

-    descr := BASS_RecordGetDeviceDescription(device);

-

-    SetLength(SoundCard, 0);

-    while (descr <> '') do begin

-      SC := High(SoundCard) + 1;

-      SetLength(SoundCard, SC+1);

-

-      Log.LogAnalyze('Device #'+IntToStr(device)+': '+ descr);

-      SoundCard[SC].Description := Descr;

-

-      // check for recording inputs

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

-      input := 0;

-      BASS_RecordInit(device);

-      Log.LogAnalyze('Input #' + IntToStr(Input) + ': ' + BASS_RecordGetInputName(input));

-      flags := BASS_RecordGetInput(input);

-

-      SetLength(SoundCard[SC].Input, 0);

-      while (flags <> -1) do begin

-        SCI := High(SoundCard[SC].Input) + 1;

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

-

-        Log.LogAnalyze('Input #' + IntToStr(Input) + ': ' + BASS_RecordGetInputName(input));

-        SoundCard[SC].Input[SCI].Name := BASS_RecordGetInputName(Input);

-

-        if (flags and BASS_INPUT_TYPE_MASK) = BASS_INPUT_TYPE_MIC then begin

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

-        end;

-        Inc(Input);

-        flags := BASS_RecordGetInput(input);

-      end;

-

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

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

-      end else begin

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

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

-      end;

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

-

-

-      BASS_RecordFree;

-

-      inc(Device);

-      descr := BASS_RecordGetDeviceDescription(Device);

-    end; // while}

-  end; // if

-end;

-

-procedure TMusic.SetVolume(Volume: integer);

-begin

-  //Old Sets Wave Volume

-  //BASS_SetVolume(Volume);

-  //New: Sets Volume only for this Application

-  BASS_SetConfig(BASS_CONFIG_GVOL_SAMPLE, Volume);

-  BASS_SetConfig(BASS_CONFIG_GVOL_STREAM, Volume);

-  BASS_SetConfig(BASS_CONFIG_GVOL_MUSIC, Volume);

-end;

-

-procedure TMusic.SetMusicVolume(Volume: Integer);

-begin

-  //Max Volume Prevention

-  if Volume > 100 then

-    Volume := 100;

-

-  //Set Volume

-  BASS_ChannelSetAttributes (Bass, -1, Volume, -101);

-end;

-

-procedure TMusic.SetLoop(Enabled: boolean);

-begin

-  Loop := Enabled;

-end;

-

-function TMusic.Open(Name: string): boolean;

-begin

-  Loaded := false;

-  if FileExists(Name) then begin

-    Bass := Bass_StreamCreateFile(false, pchar(Name), 0, 0, 0);

-    Loaded := true;

-    //Set Max Volume

-    SetMusicVolume (100);

-  end;

-

-  Result := Loaded;

-end;

-

-procedure TMusic.Rewind;

-begin

-  if Loaded then begin

-  end;

-end;

-

-procedure TMusic.MoveTo(Time: real);

-var

-  bytes:    integer;

-begin

-    bytes := BASS_ChannelSeconds2Bytes(Bass, Time);

-    BASS_ChannelSetPosition(Bass, bytes);

-end;

-

-procedure TMusic.Play;

-begin

-  if Loaded then

-  begin

-    if Loop then

-      BASS_ChannelPlay(Bass, True); // start from beginning... actually bass itself does not loop, nor does this TMusic Class

-      

-    BASS_ChannelPlay(Bass, False); // for setting position before playing

-  end;

-end;

-

-procedure TMusic.Pause; //Pause Mod

-begin

-  if Loaded then begin

-    BASS_ChannelPause(Bass); // Pauses Song

-  end;

-end;

-

-procedure TMusic.Stop;

-begin

-  Bass_ChannelStop(Bass);

-end;

-

-procedure TMusic.Close;

-begin

-  Bass_StreamFree(Bass);

-end;

-

-function TMusic.Length: real;

-var

-  bytes:    integer;

-begin

-  Result := 60;

-

-  bytes  := BASS_ChannelGetLength(Bass);

-  Result := BASS_ChannelBytes2Seconds(Bass, bytes);

-end;

-

-function TMusic.Position: real;

-var

-  bytes:    integer;

-begin

-  Result := 0;

-  bytes  := BASS_ChannelGetPosition(BASS);

-  Result := BASS_ChannelBytes2Seconds(BASS, bytes);

-end;

-

-function TMusic.Finished: boolean;

-begin

-  Result := false;

-

-  if BASS_ChannelIsActive(BASS) = BASS_ACTIVE_STOPPED then

-  begin

-    Result := true;

-  end;

-end;

-

-procedure TMusic.PlayStart;

-begin

-  BASS_ChannelPlay(BassStart, True);

-end;

-

-procedure TMusic.PlayBack;

-begin

-  BASS_ChannelPlay(BassBack, True);// then

-end;

-

-procedure TMusic.PlaySwoosh;

-begin

-  BASS_ChannelPlay(BassSwoosh, True);

-end;

-

-procedure TMusic.PlayChange;

-begin

-  BASS_ChannelPlay(BassChange, True);

-end;

-

-procedure TMusic.PlayOption;

-begin

-  BASS_ChannelPlay(BassOption, True);

-end;

-

-procedure TMusic.PlayClick;

-begin

-  BASS_ChannelPlay(BassClick, True);

-end;

-

-procedure TMusic.PlayDrum;

-begin

-  BASS_ChannelPlay(BassDrum, True);

-end;

-

-procedure TMusic.PlayHihat;

-begin

-  BASS_ChannelPlay(BassHihat, True);

-end;

-

-procedure TMusic.PlayClap;

-begin

-  BASS_ChannelPlay(BassClap, True);

-end;

-

-procedure TMusic.PlayShuffle;

-begin

-  BASS_ChannelPlay(BassShuffle, True);

-end;

-

-procedure TMusic.StopShuffle;

-begin

-  BASS_ChannelStop(BassShuffle);

-end;

-

-procedure TMusic.CaptureStart;

-var

-  S:        integer;

-  SC:       integer;

-  P1:       integer;

-  P2:       integer;

-begin

-  for S := 0 to High(Sound) do

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

-

-  for SC := 0 to High(Ini.CardList) do begin

-    P1 := Ini.CardList[SC].ChannelL;

-    P2 := Ini.CardList[SC].ChannelR;

-    if P1 > PlayersPlay then P1 := 0;

-    if P2 > PlayersPlay then P2 := 0;

-    if (P1 > 0) or (P2 > 0) then

-      CaptureCard(SC, P1, P2);

-  end;

-end;

-

-procedure TMusic.CaptureStop;

-var

-  SC:   integer;

-  P1:       integer;

-  P2:       integer;

-begin

-

-  for SC := 0 to High(Ini.CardList) do begin

-    P1 := Ini.CardList[SC].ChannelL;

-    P2 := Ini.CardList[SC].ChannelR;

-    if P1 > PlayersPlay then P1 := 0;

-    if P2 > PlayersPlay then P2 := 0;

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

-  end;

-

-end;

-

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

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

-var

-  Error:      integer;

-  ErrorMsg:   string;

-begin

-  if not BASS_RecordInit(RecordI) then begin

-    Error := BASS_ErrorGetCode;

-

-    ErrorMsg := IntToStr(Error);

-    if Error = BASS_ERROR_DX then ErrorMsg := 'No DX5';

-    if Error = BASS_ERROR_ALREADY then ErrorMsg := 'The device has already been initialized';

-    if Error = BASS_ERROR_DEVICE then ErrorMsg := 'The device number specified is invalid';

-    if Error = BASS_ERROR_DRIVER then ErrorMsg := 'There is no available device driver';

-

-    {Log.LogAnalyze('Error initializing record [' + IntToStr(RecordI) + ', '

-      + IntToStr(PlayerLeft) + ', '+ IntToStr(PlayerRight) + ']: '

-      + ErrorMsg);}

-    Log.LogError('Error initializing record [' + IntToStr(RecordI) + ', '

-      + IntToStr(PlayerLeft) + ', '+ IntToStr(PlayerRight) + ']: '

-      + ErrorMsg);

-    Log.LogError('Music -> CaptureCard: Error initializing record: ' + ErrorMsg);

-

-

-  end

-  else

-  begin

-    Recording.SoundCard[RecordI].BassRecordStream := BASS_RecordStart(44100, 2, MakeLong(0, 20) , @GetMicrophone, PlayerLeft + PlayerRight*256);

-  end;

-end;

-

-procedure TMusic.StopCard(Card: byte);

-begin

-  BASS_RecordSetDevice(Card);

-  BASS_RecordFree;

-end;

-

-function TMusic.LoadSoundFromFile(var hStream: hStream; Name: string): boolean;

-var

-  L: Integer;

-begin

-  if FileExists(Name) then begin

-    Log.LogStatus('Loading Sound: "' + Name + '"', 'LoadSoundFromFile');

-    try

-      hStream := BASS_StreamCreateFile(False, pchar(Name), 0, 0, 0);

-      //Add CustomSound

-      L := High(CustomSounds) + 1;

-      SetLength (CustomSounds, L + 1);

-      CustomSounds[L].Filename := Name;

-      CustomSounds[L].Handle := hStream;

-    except

-      Log.LogError('Failed to open using BASS', 'LoadSoundFromFile');

-    end;

-  end else begin

-    Log.LogError('Sound not found: "' + Name + '"', 'LoadSoundFromFile');

-    exit;

-  end;

-end;

-

-//Equalizer

-function TMusic.GetFFTData: TFFTData;

-var

-Data: TFFTData;

-begin

-  //Get Channel Data Mono and 256 Values

-  BASS_ChannelGetData(Bass, @Result, BASS_DATA_FFT512);

-  //Result := Data;

-end;

-

-function TMusic.LoadCustomSound(const Filename: String): Cardinal;

-var

-  S: hStream;

-  I: Integer;

-  F: String;

-begin

-  //Search for Sound in already loaded Sounds

-  F := UpperCase(SoundPath + FileName);

-  For I := 0 to High(CustomSounds) do

-  begin

-    if (UpperCase(CustomSounds[I].Filename) = F) then

-    begin

-      Result := I;

-      Exit;

-    end;

-  end;

-

-  if LoadSoundFromFile(S, SoundPath + Filename) then

-    Result := High(CustomSounds)

-  else

-    Result := 0;

-end;

-

-procedure TMusic.PlayCustomSound(const Index: Cardinal);

-begin

-if Index <= High(CustomSounds) then

-  BASS_ChannelPlay(CustomSounds[Index].Handle, True);

-end;

-

-

-end.

+unit UMusic;
+
+interface
+
+{$I switches.inc}
+
+{$IFDEF FPC}
+  {$MODE Delphi}
+{$ENDIF}
+
+
+uses Classes,
+     {$IFDEF win32}
+     windows,
+     {$ENDIF}
+     UCommon,
+     Messages,
+     SysUtils,
+     {$IFNDEF FPC}
+     Forms,
+     {$ENDIF}
+     {$IFDEF useBASS}
+     bass,
+     {$ENDIF}
+     ULog,
+     USongs;
+
+
+procedure InitializeSound;
+
+type
+  TSoundCard = record
+    Name:     string;
+    Source:   array of string;
+  end;
+
+  TFFTData  = array [0..256] of Single;
+  
+  TCustomSoundEntry = record
+    Filename : String;
+    Handle   : hStream;
+  end;
+
+
+  TMusic = class
+    private
+      BassStart:          hStream;            // Wait, I've replaced this with BASS
+      BassBack:           hStream;            // It has almost all features we need
+      BassSwoosh:         hStream;
+      BassChange:         hStream;            // Almost? It aleady has them all :)
+      BassOption:         hStream;
+      BassClick:          hStream;
+      BassDrum:           hStream;
+      BassHihat:          hStream;
+      BassClap:           hStream;
+      BassShuffle:        hStream;
+
+      //Custom Sounds
+      CustomSounds: array of TCustomSoundEntry;
+
+
+      Loaded:   boolean;
+      Loop:     boolean;
+    public
+      Bass:               hStream;
+      procedure InitializePlayback;
+      procedure InitializeRecord;
+      procedure SetVolume(Volume: integer);
+      procedure SetMusicVolume(Volume: integer);
+      procedure SetLoop(Enabled: boolean);
+      function Open(Name: string): boolean; // true if succeed
+      procedure Rewind;
+      procedure MoveTo(Time: real);
+      procedure Play;
+      procedure Pause; //Pause Mod
+      procedure Stop;
+      procedure Close;
+      function Finished: boolean;
+      function Length: real;
+      function Position: real;
+      procedure PlayStart;
+      procedure PlayBack;
+      procedure PlaySwoosh;
+      procedure PlayChange;
+      procedure PlayOption;
+      procedure PlayClick;
+      procedure PlayDrum;
+      procedure PlayHihat;
+      procedure PlayClap;
+      procedure PlayShuffle;
+      procedure StopShuffle;
+      procedure CaptureStart;
+      procedure CaptureStop;
+      procedure CaptureCard(RecordI, PlayerLeft, PlayerRight: byte);
+      procedure StopCard(Card: byte);
+      function LoadSoundFromFile(var hStream: hStream; Name: string): boolean;
+
+      //Equalizer
+      function GetFFTData: TFFTData;
+
+      //Custom Sounds
+      function LoadCustomSound(const Filename: String): Cardinal;
+      procedure PlayCustomSound(const Index: Cardinal);
+
+end;
+
+const
+  RecordSystem = 1;
+
+type
+  TMuzyka = record
+    Path:   string;
+    Start:  integer;        // start of song in ms
+    IlNut:  integer;
+    DlugoscNut:   integer;
+  end;
+
+  TCzesci = record
+    Akt:      integer;      // aktualna czesc utworu do rysowania
+    High:     integer;
+    Ilosc:    integer;
+    Resolution: integer;
+    NotesGAP: integer;
+    Wartosc:  integer;
+    Czesc:    array of record
+      Start:    integer;
+      StartNote:  integer;
+      Lyric:      string;
+      LyricWidth: real;
+      Koniec:   integer;
+      BaseNote: integer;
+      HighNut:  integer;
+      IlNut:    integer;
+      TotalNotes: integer;
+      Nuta:     array of record
+        Color:      integer;
+        Start:      integer;
+        Dlugosc:    integer;
+        Ton:        integer;
+        TonGamy:    integer;
+        Tekst:      string;
+        FreeStyle:  boolean;
+        Wartosc:    integer;    // zwykla nuta x1, zlota nuta x2
+      end;
+    end;
+  end;
+
+  TCzas = record              // wszystko, co dotyczy aktualnej klatki
+    OldBeat:      integer;    // poprzednio wykryty beat w utworze
+    AktBeat:      integer;    // aktualny beat w utworze
+    MidBeat:      real;       // dokladny AktBeat
+
+    // now we use this for super synchronization!
+    // only used when analyzing voice
+    OldBeatD:     integer;    // poprzednio wykryty beat w utworze
+    AktBeatD:     integer;    // aktualny beat w utworze
+    MidBeatD:     real;       // dokladny AktBeatD
+    FracBeatD:    real;       // fractional part of MidBeatD
+
+    // we use this for audiable clicks
+    OldBeatC:     integer;    // poprzednio wykryty beat w utworze
+    AktBeatC:     integer;    // aktualny beat w utworze
+    MidBeatC:     real;       // dokladny AktBeatC
+    FracBeatC:    real;       // fractional part of MidBeatC
+
+
+    OldCzesc:     integer;    // poprzednio wyswietlana czesc
+                              // akt jest w czesci.akt
+
+    Teraz:        real;       // aktualny czas w utworze
+    Razem:        real;       // caly czas utworu
+  end;
+
+var
+  Music:    TMusic;
+
+  // muzyka
+  Muzyka:   TMuzyka;
+
+  // czesci z nutami;
+  Czesci:   array of TCzesci;
+
+  // czas
+  Czas:     TCzas;
+
+  fHWND:        Thandle;
+
+type
+  TMPModes = (mpNotReady, mpStopped, mpPlaying, mpRecording, mpSeeking,
+    mpPaused, mpOpen);
+
+const
+  ModeStr:  array[TMPModes] of string = ('Not ready', 'Stopped', 'Playing', 'Recording', 'Seeking', 'Paused', 'Open');
+
+implementation
+
+uses
+     {$IFDEF FPC}
+     lclintf,
+     {$ENDIF}
+     UGraphic,
+     URecord,
+     UFiles,
+     UIni,
+     UMain,
+     UThemes;
+
+procedure InitializeSound;
+begin
+  Log.LogStatus('Initializing Playback', 'InitializeSound');  Music.InitializePlayback;
+  Log.LogStatus('Initializing Record', 'InitializeSound');    Music.InitializeRecord;
+end;
+
+procedure TMusic.InitializePlayback;
+var
+  Pet:  integer;
+  S:    integer;
+begin
+  Log.BenchmarkStart(4);
+  Log.LogStatus('Initializing Playback Subsystem', 'Music Initialize');
+
+  Loaded := false;
+  Loop   := false;
+
+  fHWND  := AllocateHWND( nil); // TODO : JB_lazarus - can we do something different here ?? lazarus didnt like this function
+
+  {$IFDEF useBASS}
+  // TODO : jb_linux replace with something other than bass
+  if not BASS_Init(1, 44100, 0, fHWND, nil) then
+  begin
+    {$IFNDEF FPC}
+    // TODO : JB_lazarus find a way to do this nice..
+    Application.MessageBox ('Could not initialize BASS', 'Error');
+    {$ENDIF}
+    Exit;
+  end;
+  {$ENDIF}
+
+  Log.BenchmarkEnd(4); Log.LogBenchmark('--> Bass Init', 4);
+
+  // config playing buffer
+//  BASS_SetConfig(BASS_CONFIG_UPDATEPERIOD, 10);
+//  BASS_SetConfig(BASS_CONFIG_BUFFER, 100);
+
+  Log.LogStatus('Loading Sounds', 'Music Initialize');
+
+  Log.BenchmarkStart(4);
+  LoadSoundFromFile(BassStart,  SoundPath + 'Common Start.mp3');
+  LoadSoundFromFile(BassBack,   SoundPath + 'Common Back.mp3');
+  LoadSoundFromFile(BassSwoosh, SoundPath + 'menu swoosh.mp3');
+  LoadSoundFromFile(BassChange, SoundPath + 'select music change music 50.mp3');
+  LoadSoundFromFile(BassOption, SoundPath + 'option change col.mp3');
+  LoadSoundFromFile(BassClick,  SoundPath + 'rimshot022b.mp3');
+
+//  LoadSoundFromFile(BassDrum,   SoundPath + 'bassdrumhard076b.mp3');
+//  LoadSoundFromFile(BassHihat,  SoundPath + 'hihatclosed068b.mp3');
+//  LoadSoundFromFile(BassClap,   SoundPath + 'claps050b.mp3');
+
+//  LoadSoundFromFile(BassShuffle, SoundPath + 'Shuffle.mp3');
+
+  Log.BenchmarkEnd(4); Log.LogBenchmark('--> Loading Sounds', 4);
+end;
+
+procedure TMusic.InitializeRecord;
+var
+  S:        integer;
+  device:   integer;
+  descr:    string;
+  input:    integer;
+  input2:   integer;
+  flags:    integer;
+  mic:      array[0..15] of integer;
+  SC:       integer; // soundcard
+  SCI:      integer; // soundcard input
+begin
+  if RecordSystem = 1 then begin
+    SetLength(Sound, 6 {max players});//Ini.Players+1);
+    for S := 0 to High(Sound) do begin //Ini.Players do begin
+      Sound[S] := TSound.Create;
+      Sound[S].Num := S;
+      Sound[S].BufferNew := TMemoryStream.Create;
+      SetLength(Sound[S].BufferLong, 1);
+      Sound[S].BufferLong[0] := TMemoryStream.Create;
+      Sound[S].n := 4*1024;
+    end;
+
+
+    // check for recording devices;
+    {device := 0;
+    descr := BASS_RecordGetDeviceDescription(device);
+
+    SetLength(SoundCard, 0);
+    while (descr <> '') do begin
+      SC := High(SoundCard) + 1;
+      SetLength(SoundCard, SC+1);
+
+      Log.LogAnalyze('Device #'+IntToStr(device)+': '+ descr);
+      SoundCard[SC].Description := Descr;
+
+      // check for recording inputs
+      mic[device] := -1; // default to no change
+      input := 0;
+      BASS_RecordInit(device);
+      Log.LogAnalyze('Input #' + IntToStr(Input) + ': ' + BASS_RecordGetInputName(input));
+      flags := BASS_RecordGetInput(input);
+
+      SetLength(SoundCard[SC].Input, 0);
+      while (flags <> -1) do begin
+        SCI := High(SoundCard[SC].Input) + 1;
+        SetLength(SoundCard[SC].Input, SCI+1);
+
+        Log.LogAnalyze('Input #' + IntToStr(Input) + ': ' + BASS_RecordGetInputName(input));
+        SoundCard[SC].Input[SCI].Name := BASS_RecordGetInputName(Input);
+
+        if (flags and BASS_INPUT_TYPE_MASK) = BASS_INPUT_TYPE_MIC then begin
+          mic[device] := input; // auto set microphone
+        end;
+        Inc(Input);
+        flags := BASS_RecordGetInput(input);
+      end;
+
+      if mic[device] <> -1 then begin
+        Log.LogAnalyze('Found the mic at input ' + IntToStr(Mic[device]))
+      end else begin
+        Log.LogAnalyze('Mic not found');
+        mic[device] := 0; // setting to the first one (for kxproject)
+      end;
+      SoundCard[SC].InputSeleceted := Mic[Device];
+
+
+      BASS_RecordFree;
+
+      inc(Device);
+      descr := BASS_RecordGetDeviceDescription(Device);
+    end; // while}
+  end; // if
+end;
+
+procedure TMusic.SetVolume(Volume: integer);
+begin
+  //Old Sets Wave Volume
+  //BASS_SetVolume(Volume);
+  //New: Sets Volume only for this Application
+
+  {$IFDEF useBASS}
+  // TODO : jb_linux replace with something other than bass
+  BASS_SetConfig(BASS_CONFIG_GVOL_SAMPLE, Volume);
+  BASS_SetConfig(BASS_CONFIG_GVOL_STREAM, Volume);
+  BASS_SetConfig(BASS_CONFIG_GVOL_MUSIC, Volume);
+  {$ENDIF}
+end;
+
+procedure TMusic.SetMusicVolume(Volume: Integer);
+begin
+  //Max Volume Prevention
+  if Volume > 100 then
+    Volume := 100;
+
+  //Set Volume
+  {$IFDEF useBASS}
+  // TODO : jb_linux replace with something other than bass
+  BASS_ChannelSetAttributes (Bass, -1, Volume, -101);
+  {$ENDIF}
+end;
+
+procedure TMusic.SetLoop(Enabled: boolean);
+begin
+  Loop := Enabled;
+end;
+
+function TMusic.Open(Name: string): boolean;
+begin
+  Loaded := false;
+  if FileExists(Name) then
+  begin
+    {$IFDEF useBASS}
+    // TODO : jb_linux replace with something other than bass
+    Bass := Bass_StreamCreateFile(false, pchar(Name), 0, 0, 0);
+    {$ENDIF}
+    
+    Loaded := true;
+    //Set Max Volume
+    SetMusicVolume (100);
+  end;
+
+  Result := Loaded;
+end;
+
+procedure TMusic.Rewind;
+begin
+  if Loaded then begin
+  end;
+end;
+
+procedure TMusic.MoveTo(Time: real);
+var
+  bytes:    integer;
+begin
+  {$IFDEF useBASS}
+  // TODO : jb_linux replace with something other than bass
+  bytes := BASS_ChannelSeconds2Bytes(Bass, Time);
+  BASS_ChannelSetPosition(Bass, bytes);
+  {$ENDIF}
+end;
+
+procedure TMusic.Play;
+begin
+  {$IFDEF useBASS}
+  // TODO : jb_linux replace with something other than bass
+  if Loaded then
+  begin
+    if Loop then
+      BASS_ChannelPlay(Bass, True); // start from beginning... actually bass itself does not loop, nor does this TMusic Class
+      
+    BASS_ChannelPlay(Bass, False); // for setting position before playing
+  end;
+  {$ENDIF}
+end;
+
+procedure TMusic.Pause; //Pause Mod
+begin
+  {$IFDEF useBASS}
+  // TODO : jb_linux replace with something other than bass
+  if Loaded then begin
+    BASS_ChannelPause(Bass); // Pauses Song
+  end;
+  {$ENDIF}
+end;
+
+procedure TMusic.Stop;
+begin
+  {$IFDEF useBASS}
+  // TODO : jb_linux replace with something other than bass
+  Bass_ChannelStop(Bass);
+  {$ENDIF}
+end;
+
+procedure TMusic.Close;
+begin
+  {$IFDEF useBASS}
+  // TODO : jb_linux replace with something other than bass
+  Bass_StreamFree(Bass);
+  {$ENDIF}
+end;
+
+function TMusic.Length: real;
+var
+  bytes:    integer;
+begin
+  Result := 60;
+
+  {$IFDEF useBASS}
+  // TODO : jb_linux replace with something other than bass
+  bytes  := BASS_ChannelGetLength(Bass);
+  Result := BASS_ChannelBytes2Seconds(Bass, bytes);
+  {$ENDIF}
+end;
+
+function TMusic.Position: real;
+var
+  bytes:    integer;
+begin
+  Result := 0;
+
+  {$IFDEF useBASS}
+  // TODO : jb_linux replace with something other than bass
+  bytes  := BASS_ChannelGetPosition(BASS);
+  Result := BASS_ChannelBytes2Seconds(BASS, bytes);
+  {$ENDIF}
+end;
+
+function TMusic.Finished: boolean;
+begin
+  Result := false;
+
+  {$IFDEF useBASS}
+  // TODO : jb_linux replace with something other than bass
+  if BASS_ChannelIsActive(BASS) = BASS_ACTIVE_STOPPED then
+  begin
+    Result := true;
+  end;
+  {$ENDIF}
+end;
+
+procedure TMusic.PlayStart;
+begin
+  {$IFDEF useBASS}
+  // TODO : jb_linux replace with something other than bass
+  BASS_ChannelPlay(BassStart, True);
+  {$ENDIF}
+end;
+
+procedure TMusic.PlayBack;
+begin
+  {$IFDEF useBASS}
+  // TODO : jb_linux replace with something other than bass
+  BASS_ChannelPlay(BassBack, True);// then
+  {$ENDIF}
+end;
+
+procedure TMusic.PlaySwoosh;
+begin
+  {$IFDEF useBASS}
+  // TODO : jb_linux replace with something other than bass
+  BASS_ChannelPlay(BassSwoosh, True);
+  {$ENDIF}
+end;
+
+procedure TMusic.PlayChange;
+begin
+  {$IFDEF useBASS}
+  // TODO : jb_linux replace with something other than bass
+  BASS_ChannelPlay(BassChange, True);
+  {$ENDIF}
+end;
+
+procedure TMusic.PlayOption;
+begin
+  {$IFDEF useBASS}
+  // TODO : jb_linux replace with something other than bass
+  BASS_ChannelPlay(BassOption, True);
+  {$ENDIF}
+end;
+
+procedure TMusic.PlayClick;
+begin
+  {$IFDEF useBASS}
+  // TODO : jb_linux replace with something other than bass
+  BASS_ChannelPlay(BassClick, True);
+  {$ENDIF}
+end;
+
+procedure TMusic.PlayDrum;
+begin
+  {$IFDEF useBASS}
+  // TODO : jb_linux replace with something other than bass
+  BASS_ChannelPlay(BassDrum, True);
+  {$ENDIF}
+end;
+
+procedure TMusic.PlayHihat;
+begin
+  {$IFDEF useBASS}
+  // TODO : jb_linux replace with something other than bass
+  BASS_ChannelPlay(BassHihat, True);
+  {$ENDIF}
+end;
+
+procedure TMusic.PlayClap;
+begin
+  {$IFDEF useBASS}
+  // TODO : jb_linux replace with something other than bass
+  BASS_ChannelPlay(BassClap, True);
+  {$ENDIF}
+end;
+
+procedure TMusic.PlayShuffle;
+begin
+  {$IFDEF useBASS}
+  // TODO : jb_linux replace with something other than bass
+  BASS_ChannelPlay(BassShuffle, True);
+  {$ENDIF}
+end;
+
+procedure TMusic.StopShuffle;
+begin
+  {$IFDEF useBASS}
+  // TODO : jb_linux replace with something other than bass
+  BASS_ChannelStop(BassShuffle);
+  {$ENDIF}
+end;
+
+procedure TMusic.CaptureStart;
+var
+  S:        integer;
+  SC:       integer;
+  P1:       integer;
+  P2:       integer;
+begin
+  for S := 0 to High(Sound) do
+    Sound[S].BufferLong[0].Clear;
+
+  for SC := 0 to High(Ini.CardList) do begin
+    P1 := Ini.CardList[SC].ChannelL;
+    P2 := Ini.CardList[SC].ChannelR;
+    if P1 > PlayersPlay then P1 := 0;
+    if P2 > PlayersPlay then P2 := 0;
+    if (P1 > 0) or (P2 > 0) then
+      CaptureCard(SC, P1, P2);
+  end;
+end;
+
+procedure TMusic.CaptureStop;
+var
+  SC:   integer;
+  P1:       integer;
+  P2:       integer;
+begin
+
+  for SC := 0 to High(Ini.CardList) do begin
+    P1 := Ini.CardList[SC].ChannelL;
+    P2 := Ini.CardList[SC].ChannelR;
+    if P1 > PlayersPlay then P1 := 0;
+    if P2 > PlayersPlay then P2 := 0;
+    if (P1 > 0) or (P2 > 0) then StopCard(SC);
+  end;
+
+end;
+
+//procedure TMusic.CaptureCard(RecordI, SoundNum, PlayerLeft, PlayerRight: byte);
+procedure TMusic.CaptureCard(RecordI, PlayerLeft, PlayerRight: byte);
+var
+  Error:      integer;
+  ErrorMsg:   string;
+begin
+  {$IFDEF useBASS}
+  // TODO : jb_linux replace with something other than bass
+
+  if not BASS_RecordInit(RecordI) then begin
+    Error := BASS_ErrorGetCode;
+
+    ErrorMsg := IntToStr(Error);
+    if Error = BASS_ERROR_DX then ErrorMsg := 'No DX5';
+    if Error = BASS_ERROR_ALREADY then ErrorMsg := 'The device has already been initialized';
+    if Error = BASS_ERROR_DEVICE then ErrorMsg := 'The device number specified is invalid';
+    if Error = BASS_ERROR_DRIVER then ErrorMsg := 'There is no available device driver';
+
+    {Log.LogAnalyze('Error initializing record [' + IntToStr(RecordI) + ', '
+      + IntToStr(PlayerLeft) + ', '+ IntToStr(PlayerRight) + ']: '
+      + ErrorMsg);}
+    Log.LogError('Error initializing record [' + IntToStr(RecordI) + ', '
+      + IntToStr(PlayerLeft) + ', '+ IntToStr(PlayerRight) + ']: '
+      + ErrorMsg);
+    Log.LogError('Music -> CaptureCard: Error initializing record: ' + ErrorMsg);
+
+
+  end
+  else
+  begin
+    Recording.SoundCard[RecordI].BassRecordStream := BASS_RecordStart(44100, 2, MakeLong(0, 20) , @GetMicrophone, PlayerLeft + PlayerRight*256);
+  end;
+  
+  {$ENDIF}
+end;
+
+procedure TMusic.StopCard(Card: byte);
+begin
+  {$IFDEF useBASS}
+  // TODO : jb_linux replace with something other than bass
+  BASS_RecordSetDevice(Card);
+  BASS_RecordFree;
+  {$ENDIF}
+end;
+
+function TMusic.LoadSoundFromFile(var hStream: hStream; Name: string): boolean;
+var
+  L: Integer;
+begin
+  if FileExists(Name) then begin
+    Log.LogStatus('Loading Sound: "' + Name + '"', 'LoadSoundFromFile');
+    try
+      {$IFDEF useBASS}
+      // TODO : jb_linux replace with something other than bass
+      hStream := BASS_StreamCreateFile(False, pchar(Name), 0, 0, 0);
+      {$ENDIF}
+      
+      //Add CustomSound
+      L := High(CustomSounds) + 1;
+      SetLength (CustomSounds, L + 1);
+      CustomSounds[L].Filename := Name;
+      CustomSounds[L].Handle := hStream;
+    except
+      Log.LogError('Failed to open using BASS', 'LoadSoundFromFile');
+    end;
+  end else begin
+    Log.LogError('Sound not found: "' + Name + '"', 'LoadSoundFromFile');
+    exit;
+  end;
+end;
+
+//Equalizer
+function TMusic.GetFFTData: TFFTData;
+var
+Data: TFFTData;
+begin
+  {$IFDEF useBASS}
+  // TODO : jb_linux replace with something other than bass
+
+  //Get Channel Data Mono and 256 Values
+  BASS_ChannelGetData(Bass, @Result, BASS_DATA_FFT512);
+  //Result := Data;
+  
+  {$ENDIF}
+end;
+
+function TMusic.LoadCustomSound(const Filename: String): Cardinal;
+var
+  S: hStream;
+  I: Integer;
+  F: String;
+begin
+  //Search for Sound in already loaded Sounds
+  F := UpperCase(SoundPath + FileName);
+  For I := 0 to High(CustomSounds) do
+  begin
+    if (UpperCase(CustomSounds[I].Filename) = F) then
+    begin
+      Result := I;
+      Exit;
+    end;
+  end;
+
+  if LoadSoundFromFile(S, SoundPath + Filename) then
+    Result := High(CustomSounds)
+  else
+    Result := 0;
+end;
+
+procedure TMusic.PlayCustomSound(const Index: Cardinal);
+begin
+  {$IFDEF useBASS}
+  // TODO : jb_linux replace with something other than bass
+
+  if Index <= High(CustomSounds) then
+    BASS_ChannelPlay(CustomSounds[Index].Handle, True);
+    
+  {$ENDIF}
+end;
+
+
+end.
diff --git a/Game/Code/Classes/URecord.pas b/Game/Code/Classes/URecord.pas
index 03c87a35..d22e20d3 100644
--- a/Game/Code/Classes/URecord.pas
+++ b/Game/Code/Classes/URecord.pas
@@ -1,347 +1,359 @@
-unit URecord;

-

-interface

-

-uses Classes,

-     Math,

-     SysUtils,

-     UMusic,

-     UIni,

-     BASS;

-

-type

-  TSound = class

-    BufferNew:    TMemoryStream; // buffer for newest sample

-    BufferArray:  array[1..4096] of smallint; // (Signal) newest 4096 samples

-    BufferLong:   array of TMemoryStream;     // full buffer

-

-    Num:          integer;

-    n:            integer; // length of Signal to analyze

-

-    // pitch detection

-    SzczytJest:   boolean;       // czy jest szczyt

-    Szczyt:       integer;    // pozycja szczytu na osi poziomej

-    TonDokl:      real;       // ton aktualnego szczytu

-    Ton:          integer;    // ton bez ulamka

-    TonGamy:      integer;    // ton w gamie. wartosci: 0-11

-    Skala:        real;       // skala FFT

-

-    // procedures

-    procedure ProcessNewBuffer;

-    procedure AnalizujBufor;    // use to analyze sound from buffers to get new pitch

-    procedure AnalizujByAutocorrelation;    // we call it to analyze sound by checking Autocorrelation

-    function  AnalyzeAutocorrelationFreq(Freq: real): real;   // use this to check one frequency by Autocorrelation

-  end;

-

-  TSoundCardInput = record

-    Name:   string;

-  end;

-

-  TSoundCard = record

-    // here can be the soundcard information - whole database from which user will select recording source

-    Description:    string;

-    Input:          array of TSoundCardInput;

-    InputSelected:  integer;

-    MicInput:       Integer;

-

-    // bass record

-    BassRecordStream: hStream;

-  end;

-

-  TRecord = class

-    SoundCard:  array of TSoundCard;

-    constructor Create;

-  end;

-

-  smallintarray = array [0..maxInt shr 1-1] of smallInt;

-  psmallintarray = ^smallintarray;

-

-  // procedures - bass record

-  function GetMicrophone(handle: HSTREAM; buffer: Pointer; len: DWORD; user: DWORD): boolean; stdcall;

-

-

-var

-  Sound:      array of TSound;

-  SoundCard:  array of TSoundCard;

-  Poz:        integer;

-  Recording:  TRecord;

-

-implementation

-uses UMain;

-

-procedure TSound.ProcessNewBuffer;

-var

-  S:    integer;

-  L:    integer;

-  A:    integer;

-begin

-  // process BufferArray

-  S := 0;

-  L := BufferNew.Size div 2;

-  if L > n then begin

-    S := L - n;

-    L := n;

-  end;

-

-  // copy to array

-  for A := L+1 to n do

-    BufferArray[A-L] := BufferArray[A];

-

-  BufferNew.Seek(2*S, soBeginning);

-  BufferNew.ReadBuffer(BufferArray[1+n-L], 2*L);

-

-  // process BufferLong

-  if Ini.SavePlayback = 1 then

-  begin

-    BufferNew.Seek(0, soBeginning);

-    BufferLong[0].CopyFrom(BufferNew, BufferNew.Size);

-  end;

-end;

-

-procedure TSound.AnalizujBufor;

-begin

-  AnalizujByAutocorrelation;

-end;

-

-procedure TSound.AnalizujByAutocorrelation;

-var

-  T:        integer;  // tone

-  F:        real; // freq

-  Wages:    array[0..35] of real; // wages

-  MaxT:     integer; // max tone

-  MaxW:     real; // max wage

-  V:        real; // volume

-  MaxV:     real; // max volume

-  S:        integer; // Signal

-  Threshold:  real; // threshold

-begin

-  SzczytJest := false;

-

-  // find maximum volume of first 1024 words of signal

-  MaxV := 0;

-  for S := 1 to 1024 do // 0.5.2: fix. was from 0 to 1023

-  begin

-    V  := Abs(BufferArray[S]) / $10000;

-

-    if V > MaxV then

-       MaxV := V;

-  end;

-

-  // prepare to analyze

-  MaxW := 0;

-

-  // analyze all 12 halftones

-  for T := 0 to 35 do // to 11, then 23, now 35 (for Whitney and my high voice)

-  begin

-    F := 130.81*Power(1.05946309436, T)/2; // let's analyze below 130.81

-    Wages[T] := AnalyzeAutocorrelationFreq(F);

-

-    if Wages[T] > MaxW then

-    begin // this frequency has better wage

-      MaxW := Wages[T];

-      MaxT := T;

-    end;

-  end; // for T

-

-  Threshold := 0.1;

-  case Ini.Threshold of

-    0:  Threshold := 0.05;

-    1:  Threshold := 0.1;

-    2:  Threshold := 0.15;

-    3:  Threshold := 0.2;

-  end;

-

-  if MaxV >= Threshold then

-  begin // found acceptable volume // 0.1

-    SzczytJest := true;

-    TonGamy := MaxT mod 12;

-    Ton := MaxT mod 12;

-  end;

-

-end;

-

-function TSound.AnalyzeAutocorrelationFreq(Freq: real): real; // result medium difference

-var

-  Count:      real;

-  Src:        integer;

-  Dst:        integer;

-  Move:       integer;

-  Il:         integer; // how many counts were done

-begin

-  // we use Signal as source

-  Count := 0;

-  Il    := 0;

-  Src   := 1;

-  Move  := Round(44100/Freq);

-  Dst   := Src + Move;

-

-  // ver 2 - compare in vertical

-  while (Dst < n) do

-  begin // process up to n (4KB) of Signal

-    Count := Count + Abs(BufferArray[Src] - BufferArray[Dst]) / $10000;

-    Inc(Src);

-    Inc(Dst);

-    Inc(Il);

-  end;

-

-  Result := 1 - Count / Il;

-end;

-

-function GetMicrophone(handle: HSTREAM; buffer: Pointer; len: DWORD; user: DWORD): boolean; stdcall;

-var

-  L:    integer;

-  S:    integer;

-  PB:   pbytearray;

-  PSI:  psmallintarray;

-  I:    integer;

-  Skip: integer;

-  P1:   integer;

-  P2:   integer;

-  Boost:  byte;

-begin

-  // set boost

-  case Ini.MicBoost of

-    0:  Boost := 1;

-    1:  Boost := 2;

-    2:  Boost := 4;

-    3:  Boost := 8;

-  end;

-

-  // boost buffer

-  L := Len div 2; // number of samples

-  PSI := Buffer;

-  for S := 0 to L-1 do

-  begin

-    I := PSI^[S] * Boost;

-    if I > 32767 then I := 32767; // 0.5.0: limit

-    if I < -32768 then I := -32768; // 0.5.0: limit

-    PSI^[S] := I;

-  end;

-

-  // decode user

-  P1 := (user and 255) - 1;

-  P2 := (user div 256) - 1;

-

-

-  // 2 players USB mic, left channel

-  if P1 >= 0 then

-  begin

-    L  := Len div 4; // number of samples

-    PB := Buffer;

-

-    Sound[P1].BufferNew.Clear; // 0.5.2: problem on exiting

-    for S := 1 to L do

-    begin

-      Sound[P1].BufferNew.Write(PB[(S-1)*4], 2);

-    end;

-    Sound[P1].ProcessNewBuffer;

-  end;

-

-  // 2 players USB mic, right channel

-  Skip := 2;

-

-  if P2 >= 0 then

-  begin

-    L := Len div 4; // number of samples

-    PB := Buffer;

-    Sound[P2].BufferNew.Clear;

-    for S := 1 to L do

-    begin

-      Sound[P2].BufferNew.Write(PB[Skip + (S-1)*4], 2);

-    end;

-    Sound[P2].ProcessNewBuffer;

-  end;

-

-  Result := true;

-end;

-

-constructor TRecord.Create;

-var

-  SC:         integer; // soundcard

-  SCI:        integer; // soundcard input

-  Descr:      string;

-  InputName:  PChar;

-  Flags:      integer;

-  No:         integer;

-  

-  function isDuplicate(Desc: String): Boolean;

-  var

-    I: Integer;

-  begin

-    Result := False;

-    //Check for Soundcard with same Description

-    For I := 0 to SC-1 do

-    begin

-      if (SoundCard[I].Description = Desc) then

-      begin

-        Result := True;

-        Break;

-      end;

-    end;

-  end;

-

-begin

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

-  SetLength(SoundCard, 0);

-

-  SC := 0;

-  Descr := BASS_RecordGetDeviceDescription(SC);

-

-  while (Descr <> '') do

-  begin

-

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

-    if (IsDuplicate(Descr)) then

-    begin

-      No:= 1; //Count of SoundCards with  same Name

-      Repeat

-        Inc(No)

-      Until not IsDuplicate(Descr + ' (' + InttoStr(No) + ')');

-      

-      //Set Description

-      Descr := Descr + ' (' + InttoStr(No) + ')';

-    end;

-

-    SetLength(SoundCard, SC+1);

-

-    SoundCard[SC].Description := Descr;

-

-    //Get Recording Inputs

-    SCI := 0;

-    BASS_RecordInit(SC);

-

-    InputName := BASS_RecordGetInputName(SCI);

-

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

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

-

-    // process each input

-    while (InputName <> nil) do

-    begin

-      Flags := BASS_RecordGetInput(SCI);

-      if (SCI >= 1) {AND (Flags AND BASS_INPUT_OFF = 0)}  then

-      begin

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

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

-      end;

-

-      //Set Mic Index

-      if ((Flags and BASS_INPUT_TYPE_MIC) = 1) then

-        SoundCard[SC].MicInput := SCI;

-

-      Inc(SCI);

-      InputName := BASS_RecordGetInputName(SCI);

-    end;

-

-    BASS_RecordFree;

-

-    Inc(SC);

-    Descr := BASS_RecordGetDeviceDescription(SC);

-  end; // while

-end;

-

-

-end.

-

-

-

+unit URecord;
+
+interface
+
+{$I switches.inc}
+
+{$IFDEF FPC}
+  {$MODE Delphi}
+{$ENDIF}
+
+uses Classes,
+     Math,
+     SysUtils,
+     {$IFDEF useBASS}
+     bass,
+     {$ENDIF}
+     UCommon,
+     UMusic,
+     UIni;
+     
+type
+  TSound = class
+    BufferNew:    TMemoryStream; // buffer for newest sample
+    BufferArray:  array[1..4096] of smallint; // (Signal) newest 4096 samples
+    BufferLong:   array of TMemoryStream;     // full buffer
+
+    Num:          integer;
+    n:            integer; // length of Signal to analyze
+
+    // pitch detection
+    SzczytJest:   boolean;       // czy jest szczyt
+    Szczyt:       integer;    // pozycja szczytu na osi poziomej
+    TonDokl:      real;       // ton aktualnego szczytu
+    Ton:          integer;    // ton bez ulamka
+    TonGamy:      integer;    // ton w gamie. wartosci: 0-11
+    Skala:        real;       // skala FFT
+
+    // procedures
+    procedure ProcessNewBuffer;
+    procedure AnalizujBufor;    // use to analyze sound from buffers to get new pitch
+    procedure AnalizujByAutocorrelation;    // we call it to analyze sound by checking Autocorrelation
+    function  AnalyzeAutocorrelationFreq(Freq: real): real;   // use this to check one frequency by Autocorrelation
+  end;
+
+  TSoundCardInput = record
+    Name:   string;
+  end;
+
+  TSoundCard = record
+    // here can be the soundcard information - whole database from which user will select recording source
+    Description:    string;
+    Input:          array of TSoundCardInput;
+    InputSelected:  integer;
+    MicInput:       Integer;
+
+    // bass record
+    BassRecordStream: hStream;
+  end;
+
+  TRecord = class
+    SoundCard:  array of TSoundCard;
+    constructor Create;
+  end;
+
+  smallintarray = array [0..maxInt shr 1-1] of smallInt;
+  psmallintarray = ^smallintarray;
+
+  // procedures - bass record
+  function GetMicrophone(handle: HSTREAM; buffer: Pointer; len: DWORD; user: DWORD): boolean; stdcall;
+
+
+var
+  Sound:      array of TSound;
+  SoundCard:  array of TSoundCard;
+  Poz:        integer;
+  Recording:  TRecord;
+
+implementation
+uses UMain;
+
+procedure TSound.ProcessNewBuffer;
+var
+  S:    integer;
+  L:    integer;
+  A:    integer;
+begin
+  // process BufferArray
+  S := 0;
+  L := BufferNew.Size div 2;
+  if L > n then begin
+    S := L - n;
+    L := n;
+  end;
+
+  // copy to array
+  for A := L+1 to n do
+    BufferArray[A-L] := BufferArray[A];
+
+  BufferNew.Seek(2*S, soBeginning);
+  BufferNew.ReadBuffer(BufferArray[1+n-L], 2*L);
+
+  // process BufferLong
+  if Ini.SavePlayback = 1 then
+  begin
+    BufferNew.Seek(0, soBeginning);
+    BufferLong[0].CopyFrom(BufferNew, BufferNew.Size);
+  end;
+end;
+
+procedure TSound.AnalizujBufor;
+begin
+  AnalizujByAutocorrelation;
+end;
+
+procedure TSound.AnalizujByAutocorrelation;
+var
+  T:        integer;  // tone
+  F:        real; // freq
+  Wages:    array[0..35] of real; // wages
+  MaxT:     integer; // max tone
+  MaxW:     real; // max wage
+  V:        real; // volume
+  MaxV:     real; // max volume
+  S:        integer; // Signal
+  Threshold:  real; // threshold
+begin
+  SzczytJest := false;
+
+  // find maximum volume of first 1024 words of signal
+  MaxV := 0;
+  for S := 1 to 1024 do // 0.5.2: fix. was from 0 to 1023
+  begin
+    V  := Abs(BufferArray[S]) / $10000;
+
+    if V > MaxV then
+       MaxV := V;
+  end;
+
+  // prepare to analyze
+  MaxW := 0;
+
+  // analyze all 12 halftones
+  for T := 0 to 35 do // to 11, then 23, now 35 (for Whitney and my high voice)
+  begin
+    F := 130.81*Power(1.05946309436, T)/2; // let's analyze below 130.81
+    Wages[T] := AnalyzeAutocorrelationFreq(F);
+
+    if Wages[T] > MaxW then
+    begin // this frequency has better wage
+      MaxW := Wages[T];
+      MaxT := T;
+    end;
+  end; // for T
+
+  Threshold := 0.1;
+  case Ini.Threshold of
+    0:  Threshold := 0.05;
+    1:  Threshold := 0.1;
+    2:  Threshold := 0.15;
+    3:  Threshold := 0.2;
+  end;
+
+  if MaxV >= Threshold then
+  begin // found acceptable volume // 0.1
+    SzczytJest := true;
+    TonGamy := MaxT mod 12;
+    Ton := MaxT mod 12;
+  end;
+
+end;
+
+function TSound.AnalyzeAutocorrelationFreq(Freq: real): real; // result medium difference
+var
+  Count:      real;
+  Src:        integer;
+  Dst:        integer;
+  Move:       integer;
+  Il:         integer; // how many counts were done
+begin
+  // we use Signal as source
+  Count := 0;
+  Il    := 0;
+  Src   := 1;
+  Move  := Round(44100/Freq);
+  Dst   := Src + Move;
+
+  // ver 2 - compare in vertical
+  while (Dst < n) do
+  begin // process up to n (4KB) of Signal
+    Count := Count + Abs(BufferArray[Src] - BufferArray[Dst]) / $10000;
+    Inc(Src);
+    Inc(Dst);
+    Inc(Il);
+  end;
+
+  Result := 1 - Count / Il;
+end;
+
+function GetMicrophone(handle: HSTREAM; buffer: Pointer; len: DWORD; user: DWORD): boolean; stdcall;
+var
+  L:    integer;
+  S:    integer;
+  PB:   pbytearray;
+  PSI:  psmallintarray;
+  I:    integer;
+  Skip: integer;
+  P1:   integer;
+  P2:   integer;
+  Boost:  byte;
+begin
+  // set boost
+  case Ini.MicBoost of
+    0:  Boost := 1;
+    1:  Boost := 2;
+    2:  Boost := 4;
+    3:  Boost := 8;
+  end;
+
+  // boost buffer
+  L := Len div 2; // number of samples
+  PSI := Buffer;
+  for S := 0 to L-1 do
+  begin
+    I := PSI^[S] * Boost;
+    if I > 32767 then I := 32767; // 0.5.0: limit
+    if I < -32768 then I := -32768; // 0.5.0: limit
+    PSI^[S] := I;
+  end;
+
+  // decode user
+  P1 := (user and 255) - 1;
+  P2 := (user div 256) - 1;
+
+
+  // 2 players USB mic, left channel
+  if P1 >= 0 then
+  begin
+    L  := Len div 4; // number of samples
+    PB := Buffer;
+
+    Sound[P1].BufferNew.Clear; // 0.5.2: problem on exiting
+    for S := 1 to L do
+    begin
+      Sound[P1].BufferNew.Write(PB[(S-1)*4], 2);
+    end;
+    Sound[P1].ProcessNewBuffer;
+  end;
+
+  // 2 players USB mic, right channel
+  Skip := 2;
+
+  if P2 >= 0 then
+  begin
+    L := Len div 4; // number of samples
+    PB := Buffer;
+    Sound[P2].BufferNew.Clear;
+    for S := 1 to L do
+    begin
+      Sound[P2].BufferNew.Write(PB[Skip + (S-1)*4], 2);
+    end;
+    Sound[P2].ProcessNewBuffer;
+  end;
+
+  Result := true;
+end;
+
+constructor TRecord.Create;
+var
+  SC:         integer; // soundcard
+  SCI:        integer; // soundcard input
+  Descr:      string;
+  InputName:  PChar;
+  Flags:      integer;
+  No:         integer;
+  
+  function isDuplicate(Desc: String): Boolean;
+  var
+    I: Integer;
+  begin
+    Result := False;
+    //Check for Soundcard with same Description
+    For I := 0 to SC-1 do
+    begin
+      if (SoundCard[I].Description = Desc) then
+      begin
+        Result := True;
+        Break;
+      end;
+    end;
+  end;
+
+begin
+  // TODO : JB_linux - Reimplement recording, without bass for linux
+  {$IFDEF useBASS}
+  // checks for recording devices and puts them into array;
+  SetLength(SoundCard, 0);
+
+  SC := 0;
+  Descr := BASS_RecordGetDeviceDescription(SC);
+
+  while (Descr <> '') do
+  begin
+
+    //If there is another SoundCard with the Same ID, Search an available Name
+    if (IsDuplicate(Descr)) then
+    begin
+      No:= 1; //Count of SoundCards with  same Name
+      Repeat
+        Inc(No)
+      Until not IsDuplicate(Descr + ' (' + InttoStr(No) + ')');
+      
+      //Set Description
+      Descr := Descr + ' (' + InttoStr(No) + ')';
+    end;
+
+    SetLength(SoundCard, SC+1);
+
+    SoundCard[SC].Description := Descr;
+
+    //Get Recording Inputs
+    SCI := 0;
+    BASS_RecordInit(SC);
+
+    InputName := BASS_RecordGetInputName(SCI);
+
+    SetLength(SoundCard[SC].Input, 1);
+    SoundCard[SC].Input[SCI].Name := InputName;
+
+    // process each input
+    while (InputName <> nil) do
+    begin
+      Flags := BASS_RecordGetInput(SCI);
+      if (SCI >= 1) {AND (Flags AND BASS_INPUT_OFF = 0)}  then
+      begin
+        SetLength(SoundCard[SC].Input, SCI+1);
+        SoundCard[SC].Input[SCI].Name := InputName;
+      end;
+
+      //Set Mic Index
+      if ((Flags and BASS_INPUT_TYPE_MIC) = 1) then
+        SoundCard[SC].MicInput := SCI;
+
+      Inc(SCI);
+      InputName := BASS_RecordGetInputName(SCI);
+    end;
+
+    BASS_RecordFree;
+
+    Inc(SC);
+    Descr := BASS_RecordGetDeviceDescription(SC);
+  end; // while
+  {$ENDIF}
+end;
+
+
+end.
+
+
+
diff --git a/Game/Code/Classes/UTexture.pas b/Game/Code/Classes/UTexture.pas
index 7f0b85c0..1bc4c558 100644
--- a/Game/Code/Classes/UTexture.pas
+++ b/Game/Code/Classes/UTexture.pas
@@ -1,1028 +1,1043 @@
-unit UTexture;

-

-// Plain (alpha = 1)

-// Transparent

-// Transparent Range

-// Font (white is drawn, black is transparent)

-// Font Outline (Font with darker outline)

-// Font Outline 2 (Font with darker outline)

-// Font Black (black is drawn, white is transparent)

-// Font Gray (gray is drawn, white is transparent)

-// Arrow (for arrows, white is white, gray has color, black is transparent);

-

-interface

-

-{$IFDEF FPC}

-  {$MODE DELPHI}

-{$ENDIF}

-

-uses OpenGL12,

-     Windows,

-     Math,

-     Classes,

-     SysUtils,

-     {$IFDEF FPC}

-     ulazjpeg,

-     {$ELSE}

-     Graphics,

-     JPEG,

-     PNGImage,

-     {$ENDIF}

-     UCommon,

-     UThemes;

-

-

-procedure glGenTextures(n: GLsizei; var textures: GLuint); stdcall; external opengl32;

-

-type

-  TTexture = record

-    TexNum:   integer;

-    X:        real;

-    Y:        real;

-    Z:        real; // new

-    W:        real;

-    H:        real;

-    ScaleW:   real; // for dynamic scalling while leaving width constant

-    ScaleH:   real; // for dynamic scalling while leaving height constant

-    Rot:      real; // 0 - 2*pi

-    Int:      real; // intensity

-    ColR:     real;

-    ColG:     real;

-    ColB:     real;

-    TexW:     real; // used?

-    TexH:     real; // used?

-    TexX1:    real;

-    TexY1:    real;

-    TexX2:    real;

-    TexY2:    real;

-    Alpha:    real;

-    Name:     string; // 0.5.0: experimental for handling cache images. maybe it's useful for dynamic skins

-  end;

-

-  TTextureEntry = record

-    Name:       string;

-    Typ:        string;

-

-    // we use normal TTexture, it's easier to implement and if needed - we copy ready data

-    Texture:        TTexture;

-    TextureCache:   TTexture; // 0.5.0

-  end;

-

-  TTextureDatabase = record

-    Texture:    array of TTextureEntry;

-  end;

-

-  TTextureUnit = class

-    Limit:      integer;

-    CreateCacheMipmap:  boolean;

-

-//    function GetNumberFor

-    function GetTexture(Name, Typ: string): TTexture; overload;

-    function GetTexture(Name, Typ: string; FromCache: boolean): TTexture; overload;

-    function FindTexture(Name: string): integer;

-    function LoadTexture(FromRegistry: boolean; Identifier, Format, Typ: PChar; Col: LongWord): TTexture; overload;

-    function LoadTexture(Identifier, Format, Typ: PChar; Col: LongWord): TTexture; overload;

-    function LoadTexture(Identifier: string): TTexture; overload;

-    function CreateTexture(var Data: array of byte; Name: string; W, H: word; Bits: byte): TTexture;

-    procedure UnloadTexture(Name: string; FromCache: boolean);

-  end;

-

-var

-  lasthue: double;

-  Texture:          TTextureUnit;

-  TextureDatabase:  TTextureDatabase;

-

-  PrintScreenData:  array[0..1024*768-1] of longword;

-

-  ActTex:     GLuint;//integer;

-

-  TexOrigW:   integer;

-  TexOrigH:   integer;

-  TexNewW:    integer;

-  TexNewH:    integer;

-

-  TexFitW:    integer;

-  TexFitH:    integer; // new for limit

-

-  TextureD8:    array[1..1024*1024] of byte; // 1MB

-  TextureD16:   array[1..1024*1024, 1..2] of byte;  // luminance/alpha tex (2MB)

-  TextureD24:   array[1..1024*1024, 1..3] of byte;  // normal 24-bit tex (3MB)

-  TextureD242:  array[1..512*512, 1..3] of byte;  // normal 24-bit tex (0,75MB)

-  TextureD32:   array[1..1024*1024, 1..4] of byte; // transparent 32-bit tex (4MB)

-  // total 40MB at 2048*2048

-  // total 10MB at 1024*1024

-

-  Mipmapping: Boolean;

-

-  CacheMipmap:  array[0..256*256*3-1] of byte; // 3KB

-

-

-implementation

-uses ULog, DateUtils, UCovers, StrUtils;

-

-function TTextureUnit.GetTexture(Name, Typ: string): TTexture;

-begin

-  Result := GetTexture(Name, Typ, true);

-end;

-

-function TTextureUnit.GetTexture(Name, Typ: string; FromCache: boolean): TTexture;

-var

-  T:    integer; // texture

-  C:    integer; // cover

-  Data: array of byte;

-begin

-  // find texture entry

-  T := FindTexture(Name);

-

-  if T = -1 then begin

-    // create texture entry

-    T := Length(TextureDatabase.Texture);

-    SetLength(TextureDatabase.Texture, T+1);

-    TextureDatabase.Texture[T].Name := Name;

-    TextureDatabase.Texture[T].Typ := Typ;

-

-    // inform database that no textures have been loaded into memory

-    TextureDatabase.Texture[T].Texture.TexNum := -1;

-    TextureDatabase.Texture[T].TextureCache.TexNum := -1;

-  end;

-

-  // use preloaded texture

-  if (not FromCache) or (FromCache and not Covers.CoverExists(Name)) then begin

-    // use full texture

-    if TextureDatabase.Texture[T].Texture.TexNum = -1 then begin

-      // load texture

-      TextureDatabase.Texture[T].Texture := LoadTexture(false, pchar(Name), 'JPG', pchar(Typ), $0);

-    end;

-

-    // use texture

-    Result := TextureDatabase.Texture[T].Texture;

-

-  end;

-

-  if FromCache and Covers.CoverExists(Name) then begin

-    // use cache texture

-    C := Covers.CoverNumber(Name);

-

-    if TextureDatabase.Texture[T].TextureCache.TexNum = -1 then begin

-      // load texture

-      Covers.PrepareData(Name);

-      TextureDatabase.Texture[T].TextureCache := CreateTexture(Covers.Data, Name, Covers.Cover[C].W, Covers.Cover[C].H, 24);

-    end;

-

-    // use texture

-    Result := TextureDatabase.Texture[T].TextureCache;

-  end;

-end;

-

-function TTextureUnit.FindTexture(Name: string): integer;

-var

-  T:    integer; // texture

-begin

-  Result := -1;

-  for T := 0 to high(TextureDatabase.Texture) do

-    if TextureDatabase.Texture[T].Name = Name then

-      Result := T;

-end;

-

-// expects: src, dst: pointers to r,g,b,a

-//          hue: new hue within range [0.0-6.0)

-procedure ColorizeCopy(Src, Dst: PByteArray;  hue: Double); overload;

-var

-  i,j,k: Cardinal;

-  clr, hls: array[0..2] of Double;

-  delta, f, p, q, t: Double;

-begin

-  hls[0]:=hue;

-

-      clr[0] := src[0]/255;

-      clr[1] := src[1]/255;

-      clr[2] := src[2]/255;

-      

-      //calculate luminance and saturation from rgb

-      hls[1] := maxvalue(clr); //l:=...

-      delta  := hls[1] - minvalue(clr);

-      

-      if hls[1] =  0.0 then

-         hls[2] := 0.0

-      else

-         hls[2] := delta/hls[1]; //v:=...

-         

-      // calc new rgb from our hls (h from color, l ans s from pixel)

-//      if (hls[1]<>0.0) and (hls[2]<>0.0) then // only if colorizing makes sense

-      begin

-        k:=trunc(hls[0]);

-        f:=hls[0]-k;

-        p:=hls[1]*(1.0-hls[2]);

-        q:=hls[1]*(1.0-(hls[2]*f));

-        t:=hls[1]*(1.0-(hls[2]*(1.0-f)));

-        case k of

-          0: begin clr[0]:=hls[1]; clr[1]:=t; clr[2]:=p; end;

-          1: begin clr[0]:=q; clr[1]:=hls[1]; clr[2]:=p; end;

-          2: begin clr[0]:=p; clr[1]:=hls[1]; clr[2]:=t; end;

-          3: begin clr[0]:=p; clr[1]:=q; clr[2]:=hls[1]; end;

-          4: begin clr[0]:=t; clr[1]:=p; clr[2]:=hls[1]; end;

-          5: begin clr[0]:=hls[1]; clr[1]:=p; clr[2]:=q; end;

-        end;

-        // and store new rgb back into the image

-        dst[0]:=floor(255*clr[0]);

-        dst[1]:=floor(255*clr[1]);

-        dst[2]:=floor(255*clr[2]);

-        dst[3]:=src[3];

-      end;

-end;

-

-// expects: src: $rrggbb

-//          dst: pointer to r,g,b,a

-//          hue: new hue within range [0.0-6.0)

-procedure ColorizeCopy(Src: Cardinal; Dst: PByteArray;  hue: Double); overload;

-var

-  i,j,k: Cardinal;

-  clr, hls: array[0..2] of Double;

-  delta, f, p, q, t: Double;

-begin

-  hls[0]:=hue;

-

-      clr[0]:=((src shr 16) and $ff)/255;

-      clr[1]:=((src shr 8) and $ff)/255;

-      clr[2]:=(src and $ff)/255;

-      //calculate luminance and saturation from rgb

-      hls[1]:=maxvalue(clr); //l:=...

-      delta:=hls[1]-minvalue(clr);

-      if hls[1]=0.0 then hls[2]:=0.0 else hls[2]:=delta/hls[1]; //v:=...

-      // calc new rgb from our hls (h from color, l ans s from pixel)

-//      if (hls[1]<>0.0) and (hls[2]<>0.0) then // only if colorizing makes sense

-      begin

-        k:=trunc(hls[0]);

-        f:=hls[0]-k;

-        p:=hls[1]*(1.0-hls[2]);

-        q:=hls[1]*(1.0-(hls[2]*f));

-        t:=hls[1]*(1.0-(hls[2]*(1.0-f)));

-        case k of

-          0: begin clr[0]:=hls[1]; clr[1]:=t; clr[2]:=p; end;

-          1: begin clr[0]:=q; clr[1]:=hls[1]; clr[2]:=p; end;

-          2: begin clr[0]:=p; clr[1]:=hls[1]; clr[2]:=t; end;

-          3: begin clr[0]:=p; clr[1]:=q; clr[2]:=hls[1]; end;

-          4: begin clr[0]:=t; clr[1]:=p; clr[2]:=hls[1]; end;

-          5: begin clr[0]:=hls[1]; clr[1]:=p; clr[2]:=q; end;

-        end;

-        // and store new rgb back into the image

-        dst[0]:=floor(255*clr[0]);

-        dst[1]:=floor(255*clr[1]);

-        dst[2]:=floor(255*clr[2]);

-        dst[3]:=255;

-      end;

-end;

-//returns hue within range [0.0-6.0)

-function col2h(Color:Cardinal):double;

-var

-  clr,hls: array[0..2] of double;

-  delta: double;

-begin

-  clr[0]:=((Color and $ff0000) shr 16)/255;

-  clr[1]:=((Color and $ff00) shr 8)/255;

-  clr[2]:=(Color and $ff)/255;

-  hls[1]:=maxvalue(clr);

-  delta:=hls[1]-minvalue(clr);

-  if      clr[0]=hls[1] then hls[0]:=(clr[1]-clr[2])/delta

-  else if clr[1]=hls[1] then hls[0]:=2.0+(clr[2]-clr[0])/delta

-  else if clr[2]=hls[1] then hls[0]:=4.0+(clr[0]-clr[1])/delta;

-  if hls[0]<0.0 then hls[0]:=hls[0]+6.0;

-  if hls[0]=6.0 then hls[0]:=0.0;

-  col2h:=hls[0];

-end;

-

-

-function TTextureUnit.LoadTexture(FromRegistry: boolean; Identifier, Format, Typ: PChar; Col: LongWord): TTexture;

-var

-  Res:        TResourceStream;

-  TextureB:   TBitmap;

-  TextureJ:   TJPEGImage;

-  {$IFNDEF FPC}

-  TexturePNG: TPNGObject;

-  {$ENDIF}

-  

-  TextureAlpha: array of byte;

-  AlphaPtr:   PByte;

-  TransparentColor: TColor;

-  PixelColor: TColor;

-

-  Position:        integer;

-  Position2:       integer;

-  Pix:        integer;

-  ColInt:     real;

-  PPix:       PByteArray;

-  TempA:      integer;

-  Error:      integer;

-  SkipX:      integer;

-  myAlpha:    Real;

-  myRGBABitmap: array of byte;

-  RGBPtr: PByte;

-  myHue: Double;

-begin

-  {$IFNDEF FPC} // TODO : JB eeeew this is a nasty one...

-                // but lazarus implementation scanlines is different :(

-                // need to implement as per

-                //    http://www.lazarus.freepascal.org/index.php?name=PNphpBB2&file=viewtopic&p=18512

-                //    http://www.lazarus.freepascal.org/index.php?name=PNphpBB2&file=viewtopic&p=10797

-                //    http://wiki.lazarus.freepascal.org/Developing_with_Graphics

-  Log.BenchmarkStart(4);

-  Mipmapping := true;

-

-  if FromRegistry then begin

-    try

-      Res := TResourceStream.Create(HInstance, Identifier, Format);

-    except

-      beep;

-      Exit;

-    end;

-  end;

-

-  // filetype "detection"

-  if (not FromRegistry) and (FileExists(Identifier)) then begin

-    Format:='';

-    Format := PAnsichar(UpperCase(RightStr(ExtractFileExt(Identifier),3)));

-  end;

-//  else Format:='JPG';

-//  if not ((Format='BMP')or(Format='JPG')or(Format='PNG')) then Format:='JPG';

-

-  if FromRegistry or ((not FromRegistry) and FileExists(Identifier)) then begin

-    TextureB := TBitmap.Create;

-

-  if Format = 'BMP' then

-  begin

-    if FromRegistry then

-       TextureB.LoadFromStream(Res)

-    else

-       TextureB.LoadFromFile(Identifier);

-  end

-  else

-  if Format = 'JPG' then

-  begin

-    TextureJ := TJPEGImage.Create;

-    

-    if FromRegistry then

-       TextureJ.LoadFromStream(Res)

-    else

-    begin

-      if FileExists(Identifier) then

-        TextureJ.LoadFromFile(Identifier)

-      else

-        Exit;

-    end;

-    

-    TextureB.Assign(TextureJ);

-    TextureJ.Free;

-  end

-  else if Format = 'PNG' then

-  begin

-    {$IFNDEF FPC}

-    // TODO : JB - fix this for lazarus..

-    TexturePNG := TPNGObject.Create;

-    if FromRegistry then

-      TexturePNG.LoadFromStream(Res)

-    else

-    begin

-      if FileExists(Identifier) then

-        TexturePNG.LoadFromFile(Identifier)

-      else

-        Exit;

-    end;

-    

-    TextureB.Assign(TexturePNG);

-    // transparent png hack start (part 1 of 2)

-    if ((Typ = 'Transparent') or (Typ = 'Colorized')) and (TexturePNG.TransparencyMode = ptmPartial) then

-    begin

-      setlength(TextureAlpha, TextureB.Width*TextureB.Height);

-      setlength(MyRGBABitmap,TextureB.Width*TextureB.Height*4);

-      if (TexturePNG.Header.ColorType = COLOR_GRAYSCALEALPHA) or

-         (TexturePNG.Header.ColorType = COLOR_RGBALPHA) then

-      begin

-        // i would have preferred english variables here but i use Position because i'm lazy

-        for Position := 0 to TextureB.Height - 1 do

-        begin

-          AlphaPtr := PByte(TexturePNG.AlphaScanline[Position]);

-          RGBPtr:=PByte(TexturePNG.Scanline[Position]);

-          for Position2 := 0 to TextureB.Width - 1 do

-          begin

-            TextureAlpha[Position*TextureB.Width+Position2]:= AlphaPtr^;

-            MyRGBABitmap[(Position*TextureB.Width+Position2)*4]:= RGBPtr^;

-            Inc(RGBPtr);

-            MyRGBABitmap[(Position*TextureB.Width+Position2)*4+1]:= RGBPtr^;

-            Inc(RGBPtr);

-            MyRGBABitmap[(Position*TextureB.Width+Position2)*4+2]:= RGBPtr^;

-            Inc(RGBPtr);

-            MyRGBABitmap[(Position*TextureB.Width+Position2)*4+3]:= AlphaPtr^;

-//            Inc(RGBPtr);

-            Inc(AlphaPtr);

-          end;

-        end;

-      end;

-    end else

-      setlength(TextureAlpha,0); // just no special transparency for unimplemented transparency types (ptmBit)

-    // transparent png hack end

-    TexturePNG.Free;

-    {$ENDIF}

-  end;

-

-  if FromRegistry then Res.Free;

-

-  if (TextureB.Width > 1024) or (TextureB.Height > 1024) then begin // will be fixed in 0.5.1 and dynamically extended to 8192x8192 depending on the driver

-    Log.LogError('Image ' + Identifier + ' is too big (' + IntToStr(TextureB.Width) + 'x' + IntToStr(TextureB.Height) + ')');

-    Result.TexNum := -1;

-  end else begin

-

-  glGenTextures(1, ActTex);

-  glBindTexture(GL_TEXTURE_2D, ActTex);

-  glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_LINEAR);

-  glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_WRAP_S, GL_CLAMP_TO_EDGE);

-  glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_WRAP_T, GL_CLAMP_TO_EDGE);

-

-  if Typ = 'Plain' then begin

-    // dimensions

-    TexOrigW := TextureB.Width;

-    TexOrigH := TextureB.Height;

-    TexNewW := Round(Power(2, Ceil(Log2(TexOrigW))));

-    TexNewH := Round(Power(2, Ceil(Log2(TexOrigH))));

-

-    // copy and process pixeldata

-    TextureB.PixelFormat := pf24bit;

-{    if (TextureB.PixelFormat = pf8bit) then begin

-      for Position := 0 to TexOrigH-1 do begin

-        for Position2 := 0 to TexOrigW-1 do begin

-          Pix := TextureB.Canvas.Pixels[Position2, Position];

-          TextureD24[Position*TexNewW + Position2+1, 1] := Pix;

-          TextureD24[Position*TexNewW + Position2+1, 2] := Pix div 256;

-          TextureD24[Position*TexNewW + Position2+1, 3] := Pix div (256*256);

-        end;

-      end;

-    end;}

-    if (TexOrigW <= Limit) and (TexOrigW <= Limit) then begin

-      if (TextureB.PixelFormat = pf24bit) then begin

-        for Position := 0 to TexOrigH-1 do begin

-          PPix := TextureB.ScanLine[Position];

-          for Position2 := 0 to TexOrigW-1 do begin

-            TextureD24[Position*TexNewW + Position2+1, 1] := PPix[Position2*3+2];

-            TextureD24[Position*TexNewW + Position2+1, 2] := PPix[Position2*3+1];

-            TextureD24[Position*TexNewW + Position2+1, 3] := PPix[Position2*3];

-          end;

-        end;

-      end;

-    end else begin

-      // limit

-      TexFitW := 4 * (TexOrigW div 4); // fix for bug in gluScaleImage

-      TexFitH := TexOrigH;

-      if (TextureB.PixelFormat = pf24bit) then begin

-        for Position := 0 to TexOrigH-1 do begin

-          PPix := TextureB.ScanLine[Position];

-          for Position2 := 0 to TexOrigW-1 do begin

-            TextureD24[Position*TexFitW + Position2+1, 1] := PPix[Position2*3+2];

-            TextureD24[Position*TexFitW + Position2+1, 2] := PPix[Position2*3+1];

-            TextureD24[Position*TexFitW + Position2+1, 3] := PPix[Position2*3];

-          end;

-        end;

-      end;

-      gluScaleImage(GL_RGB, TexFitW, TexFitH, GL_UNSIGNED_BYTE, @TextureD24,

-        Limit, Limit, GL_UNSIGNED_BYTE, @TextureD24); // takes some time

-

-      TexNewW := Limit;

-      TexNewH := Limit;

-      TexOrigW := Limit;

-      TexOrigH := Limit;

-    end;

-

-    // creating cache mipmap

-    if CreateCacheMipmap then begin

-      if (TexOrigW <> TexNewW) or (TexOrigH <> TexNewH) then begin

-        // texture only uses some of it's space. there's a need for resize to fit full size

-        // and get best quality

-        TexFitW := 4 * (TexOrigW div 4); // 0.5.0: fix for bug in gluScaleImage

-        SkipX := (TexOrigW div 2) mod 2; // 0.5.0: try to center image

-

-        TexFitH := TexOrigH;

-        for Position := 0 to TexOrigH-1 do begin

-          PPix := TextureB.ScanLine[Position];

-          for Position2 := 0 to TexOrigW-1 do begin

-            TextureD242[Position*TexFitW + Position2+1, 1] := PPix[(Position2+SkipX)*3+2];

-            TextureD242[Position*TexFitW + Position2+1, 2] := PPix[(Position2+SkipX)*3+1];

-            TextureD242[Position*TexFitW + Position2+1, 3] := PPix[(Position2+SkipX)*3];

-          end;

-        end;

-        gluScaleImage(GL_RGB, TexFitW, TexFitH, GL_UNSIGNED_BYTE, @TextureD242,

-          Covers.W, Covers.H, GL_UNSIGNED_BYTE, @CacheMipmap[0]); // takes some time

-

-      end else begin

-        // texture fits perfectly

-        gluScaleImage(GL_RGB, TexOrigW, TexOrigH, GL_UNSIGNED_BYTE, @TextureD24,

-          Covers.W, Covers.H, GL_UNSIGNED_BYTE, @CacheMipmap[0]); // takes some time

-      end;

-    end;

-

-    glTexImage2D(GL_TEXTURE_2D, 0, 3, TexNewW, TexNewH, 0, GL_RGB, GL_UNSIGNED_BYTE, @TextureD24);

-    if Mipmapping then begin

-      Error := gluBuild2DMipmaps(GL_TEXTURE_2D, 3, TexNewW, TexNewH, GL_RGB, GL_UNSIGNED_BYTE, @TextureD24);

-      if Error > 0 then beep;

-    end

-  end;

-

-  if Typ = 'Transparent' then begin

-    // dimensions

-    TexOrigW := TextureB.Width;

-    TexOrigH := TextureB.Height;

-    TexNewW := Round(Power(2, Ceil(Log2(TexOrigW))));

-    TexNewH := Round(Power(2, Ceil(Log2(TexOrigH))));

-    TextureB.Width := TexNewW;

-    TextureB.Height := TexNewH;

-

-    // copy and process pixeldata

-    for Position := 0 to TexOrigH-1 do begin

-      for Position2 := 0 to TexOrigW-1 do begin

-        Pix := TextureB.Canvas.Pixels[Position2, Position];

-                                           // ,- part of transparent png hack

-        if ((Pix = $fefefe) or (Pix = Col)) and (length(TextureAlpha)=0) then begin //Small fix, that caused artefacts to be drawn (#fe == dec254)

-          TextureD32[Position*TexNewW + Position2 + 1, 1] := 0;

-          TextureD32[Position*TexNewW + Position2 + 1, 2] := 0;

-          TextureD32[Position*TexNewW + Position2 + 1, 3] := 0;

-          TextureD32[Position*TexNewW + Position2 + 1, 4] := 0;

-        end else if (Format = 'PNG') and (length(TextureAlpha) <> 0) then begin

-          myAlpha:=TextureAlpha[Position*TexOrigW+Position2];

-          TextureD32[Position*TexNewW + Position2+1, 1] := MyRGBABitmap[(Position*TexOrigW+Position2)*4+2];

-          TextureD32[Position*TexNewW + Position2+1, 2] := MyRGBABitmap[(Position*TexOrigW+Position2)*4+1];

-          TextureD32[Position*TexNewW + Position2+1, 3] := MyRGBABitmap[(Position*TexOrigW+Position2)*4];

-          TextureD32[Position*TexNewW+Position2+1,4]:=MyRGBABitmap[(Position*TexOrigW+Position2)*4+3];

-        end else begin

-          TextureD32[Position*TexNewW + Position2+1, 1] := (Pix and $ff);

-          TextureD32[Position*TexNewW + Position2+1, 2] := ((Pix shr 8) and $ff);

-          TextureD32[Position*TexNewW + Position2+1, 3] := ((Pix shr 16) and $ff);

-          TextureD32[Position*TexNewW + Position2+1, 4] := 255;

-        end;

-      end;

-    end;

-    setlength(TextureAlpha,0);

-    setlength(MyRGBABitmap,0);

-    glTexImage2D(GL_TEXTURE_2D, 0, 4, TexNewW, TexNewH, 0, GL_RGBA, GL_UNSIGNED_BYTE, @TextureD32);

-{    if Mipmapping then begin

-      Error := gluBuild2DMipmaps(GL_TEXTURE_2D, 4, TextureB.Width, TextureB.Height, GL_RGBA, GL_UNSIGNED_BYTE, @TextureD32);

-      if Error > 0 then beep;

-    end;}

-  end;

-

-// The new awesomeness of colorized pngs starts here

-// We're the first who had this feature, so give credit when you copy+paste :P

-    if Typ = 'Colorized' then begin

-    // dimensions

-    TexOrigW := TextureB.Width;

-    TexOrigH := TextureB.Height;

-    TexNewW := Round(Power(2, Ceil(Log2(TexOrigW))));

-    TexNewH := Round(Power(2, Ceil(Log2(TexOrigH))));

-    TextureB.Width := TexNewW;

-    TextureB.Height := TexNewH;

-

-    myHue:=col2h(Col);

-    // copy and process pixeldata

-    for Position := 0 to TexOrigH-1 do begin

-      for Position2 := 0 to TexOrigW-1 do begin

-        Pix := TextureB.Canvas.Pixels[Position2, Position];

-        if (Format = 'PNG') and (length(MyRGBABitmap) <> 0) then

-         ColorizeCopy(@MyRGBABitmap[(Position*TexOrigW+Position2)*4],

-                      @TextureD32[Position*TexNewW + Position2+1, 1],

-                      myHue)

-        else

-          ColorizeCopy(Pix,

-                       @TextureD32[Position*TexNewW + Position2+1, 1],

-                       myHue);

-      end;

-    end;

-

-    setlength(TextureAlpha,0);

-    setlength(MyRGBABitmap,0);

-    glTexImage2D(GL_TEXTURE_2D, 0, 4, TexNewW, TexNewH, 0, GL_RGBA, GL_UNSIGNED_BYTE, @TextureD32);

-  end;

-// eoa COLORIZE

-

-  if Typ = 'Transparent Range' then begin

-    // dimensions

-    TexOrigW := TextureB.Width;

-    TexOrigH := TextureB.Height;

-    TexNewW := Round(Power(2, Ceil(Log2(TexOrigW))));

-    TexNewH := Round(Power(2, Ceil(Log2(TexOrigH))));

-    TextureB.Width := TexNewW;

-    TextureB.Height := TexNewH;

-    // copy and process pixeldata

-    for Position := 0 to TexOrigH-1 do begin

-      for Position2 := 0 to TexOrigW-1 do begin

-        Pix := TextureB.Canvas.Pixels[Position2, Position];

-        TextureD32[Position*TexNewW + Position2+1, 1] := Pix;

-        TextureD32[Position*TexNewW + Position2+1, 2] := Pix div 256;

-        TextureD32[Position*TexNewW + Position2+1, 3] := Pix div (256*256);

-        TextureD32[Position*TexNewW + Position2+1, 4] := 256 - Pix div 256;

-      end;

-    end;

-    glTexImage2D(GL_TEXTURE_2D, 0, 4, TexNewW, TexNewH, 0, GL_RGBA, GL_UNSIGNED_BYTE, @TextureD32);

-{    if Mipmapping then begin

-      Error := gluBuild2DMipmaps(GL_TEXTURE_2D, 4, TextureB.Width, TextureB.Height, GL_RGBA, GL_UNSIGNED_BYTE, @TextureD32);

-      if Error > 0 then beep;

-    end;}

-  end;

-

-  if Typ = 'Font' then begin

-    TextureB.PixelFormat := pf24bit;

-    for Position := 0 to TextureB.Height-1 do begin

-      PPix := TextureB.ScanLine[Position];

-      for Position2 := 0 to TextureB.Width-1 do begin

-        Pix := PPix[Position2 * 3];

-        TextureD16[Position*TextureB.Width + Position2 + 1, 1] := 255;

-        TextureD16[Position*TextureB.Width + Position2 + 1, 2] := Pix;

-      end;

-    end;

-    glTexImage2D(GL_TEXTURE_2D, 0, 2, TextureB.Width, TextureB.Height, 0, GL_LUMINANCE_ALPHA, GL_UNSIGNED_BYTE, @TextureD16);

-

-    if Mipmapping then glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_LINEAR_MIPMAP_LINEAR);

-    if Mipmapping then begin

-      Error := gluBuild2DMipmaps(GL_TEXTURE_2D, 2, TextureB.Width, TextureB.Height, GL_LUMINANCE_ALPHA, GL_UNSIGNED_BYTE, @TextureD16);

-      if Error > 0 then beep;

-    end;

-  end;

-

-  if Typ = 'Font Outline' then begin

-    TextureB.PixelFormat := pf24bit;

-    for Position := 0 to TextureB.Height-1 do begin

-      PPix := TextureB.ScanLine[Position];

-      for Position2 := 0 to TextureB.Width-1 do begin

-        Pix := PPix[Position2 * 3];

-

-        Col := Pix;

-        if Col < 127 then Col := 127;

-

-        TempA := Pix;

-        if TempA >= 95 then TempA := 255;

-        if TempA >= 31 then TempA := 255;

-        if Pix < 95 then TempA := (Pix * 256) div 96;

-

-

-        TextureD16[Position*TextureB.Width + Position2 + 1, 1] := Col;

-        TextureD16[Position*TextureB.Width + Position2 + 1, 2] := TempA;

-      end;

-    end;

-    glTexImage2D(GL_TEXTURE_2D, 0, 2, TextureB.Width, TextureB.Height, 0, GL_LUMINANCE_ALPHA, GL_UNSIGNED_BYTE, @TextureD16);

-

-    if Mipmapping then glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_LINEAR_MIPMAP_LINEAR);

-    if Mipmapping then begin

-      Error := gluBuild2DMipmaps(GL_TEXTURE_2D, 2, TextureB.Width, TextureB.Height, GL_LUMINANCE_ALPHA, GL_UNSIGNED_BYTE, @TextureD16);

-      if Error > 0 then beep;

-    end;

-  end;

-

-  if Typ = 'Font Outline 2' then begin

-    TextureB.PixelFormat := pf24bit;

-    for Position := 0 to TextureB.Height-1 do begin

-      PPix := TextureB.ScanLine[Position];

-      for Position2 := 0 to TextureB.Width-1 do begin

-        Pix := PPix[Position2 * 3];

-

-        Col := Pix;

-        if Col < 31 then Col := 31;

-

-        TempA := Pix;

-        if TempA >= 31 then TempA := 255;

-        if Pix < 31 then TempA := Pix * (256 div 32);

-

-        TextureD16[Position*TextureB.Width + Position2 + 1, 1] := Col;

-        TextureD16[Position*TextureB.Width + Position2 + 1, 2] := TempA;

-      end;

-    end;

-    glTexImage2D(GL_TEXTURE_2D, 0, 2, TextureB.Width, TextureB.Height, 0, GL_LUMINANCE_ALPHA, GL_UNSIGNED_BYTE, @TextureD16);

-

-    if Mipmapping then glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_LINEAR_MIPMAP_LINEAR);

-    if Mipmapping then begin

-      Error := gluBuild2DMipmaps(GL_TEXTURE_2D, 2, TextureB.Width, TextureB.Height, GL_LUMINANCE_ALPHA, GL_UNSIGNED_BYTE, @TextureD16);

-      if Error > 0 then beep;

-    end;

-  end;

-

-  if Typ = 'Font Black' then begin

-    // normalnie 0,125s     bez niczego 0,015s - 0,030s    z pix 0,125s  <-- ???

-    // dimensions

-    TextureB.PixelFormat := pf24bit;

-    TexOrigW := TextureB.Width;

-    TexOrigH := TextureB.Height;

-    TexNewW := Round(Power(2, Ceil(Log2(TexOrigW))));

-    TexNewH := Round(Power(2, Ceil(Log2(TexOrigH))));

-    TextureB.Width := TexNewW;

-    TextureB.Height := TexNewH;

-    // copy and process pixeldata

-    for Position := 0 to TextureB.Height-1 do begin

-      PPix := TextureB.ScanLine[Position];

-      for Position2 := 0 to TextureB.Width-1 do begin

-        Pix := PPix[Position2*3];

-        TextureD32[Position*TextureB.Width + Position2 + 1, 1] := 255;

-        TextureD32[Position*TextureB.Width + Position2 + 1, 2] := 255;

-        TextureD32[Position*TextureB.Width + Position2 + 1, 3] := 255;

-        TextureD32[Position*TextureB.Width + Position2 + 1, 4] := 255 - (Pix mod 256);

-      end;

-    end;

-    glTexImage2D(GL_TEXTURE_2D, 0, 4, TextureB.Width, TextureB.Height, 0, GL_RGBA, GL_UNSIGNED_BYTE, @TextureD32);

-  end;

-

-  if Typ = 'Alpha Black Colored' then begin

-    TextureB.PixelFormat := pf24bit;

-    TexOrigW := TextureB.Width;

-    TexOrigH := TextureB.Height;

-    TexNewW := Round(Power(2, Ceil(Log2(TexOrigW))));

-    TexNewH := Round(Power(2, Ceil(Log2(TexOrigH))));

-    TextureB.Width := TexNewW;

-    TextureB.Height := TexNewH;

-    // copy and process pixeldata

-    for Position := 0 to TextureB.Height-1 do begin

-      PPix := TextureB.ScanLine[Position];

-      for Position2 := 0 to TextureB.Width-1 do begin

-        Pix := PPix[Position2*3];

-        TextureD32[Position*TextureB.Width + Position2 + 1, 1] := (Col div $10000) and $FF;

-        TextureD32[Position*TextureB.Width + Position2 + 1, 2] := (Col div $100) and $FF;

-        TextureD32[Position*TextureB.Width + Position2 + 1, 3] := Col and $FF;

-        TextureD32[Position*TextureB.Width + Position2 + 1, 4] := 255 - (Pix mod 256);

-      end;

-    end;

-    glTexImage2D(GL_TEXTURE_2D, 0, 4, TextureB.Width, TextureB.Height, 0, GL_RGBA, GL_UNSIGNED_BYTE, @TextureD32);

-  end;

-

-  if Typ = 'Font Gray' then begin

-    // dimensions

-    TexOrigW := TextureB.Width;

-    TexOrigH := TextureB.Height;

-    TexNewW := Round(Power(2, Ceil(Log2(TexOrigW))));

-    TexNewH := Round(Power(2, Ceil(Log2(TexOrigH))));

-    TextureB.Width := TexNewW;

-    TextureB.Height := TexNewH;

-    // copy and process pixeldata

-    for Position := 0 to TextureB.Height-1 do begin

-      for Position2 := 0 to TextureB.Width-1 do begin

-        Pix := TextureB.Canvas.Pixels[Position2, Position];

-        TextureD32[Position*TextureB.Width + Position2 + 1, 1] := 127;

-        TextureD32[Position*TextureB.Width + Position2 + 1, 2] := 127;

-        TextureD32[Position*TextureB.Width + Position2 + 1, 3] := 127;

-        TextureD32[Position*TextureB.Width + Position2 + 1, 4] := 255 - (Pix mod 256);

-      end;

-    end;

-    glTexImage2D(GL_TEXTURE_2D, 0, 4, TextureB.Width, TextureB.Height, 0, GL_RGBA, GL_UNSIGNED_BYTE, @TextureD32);

-{    if Mipmapping then begin

-      Error := gluBuild2DMipmaps(GL_TEXTURE_2D, 4, TextureB.Width, TextureB.Height, GL_RGBA, GL_UNSIGNED_BYTE, @TextureD32);

-      if Error > 0 then beep;

-    end;}

-  end;

-

-  if Typ = 'Arrow' then begin

-    TextureB.PixelFormat := pf24bit;

-    for Position := 0 to TextureB.Height-1 do begin

-      PPix := TextureB.ScanLine[Position];

-      for Position2 := 0 to TextureB.Width-1 do begin

-        Pix := PPix[Position2 * 3];

-

-        // transparency

-        if Pix >= 127 then TempA := 255;

-        if Pix < 127 then TempA := Pix * 2;

-

-        // ColInt = color intensity

-        if Pix < 127 then ColInt := 1;

-        if Pix >= 127 then ColInt := 2 - Pix / 128;

-        //0.75, 0.6, 0.25

-

-        TextureD32[Position*TextureB.Width + Position2 + 1, 1] := Round(ColInt * 0.75 * 255 + (1 - ColInt) * 255);

-        TextureD32[Position*TextureB.Width + Position2 + 1, 2] := Round(ColInt * 0.6  * 255 + (1 - ColInt) * 255);

-        TextureD32[Position*TextureB.Width + Position2 + 1, 3] := Round(ColInt * 0.25 * 255 + (1 - ColInt) * 255);

-        TextureD32[Position*TextureB.Width + Position2 + 1, 4] := TempA;

-      end;

-    end;

-    glTexImage2D(GL_TEXTURE_2D, 0, 4, TextureB.Width, TextureB.Height, 0, GL_RGBA, GL_UNSIGNED_BYTE, @TextureD32);

-

-    if Mipmapping then glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_LINEAR_MIPMAP_LINEAR);

-    if Mipmapping then begin

-      Error := gluBuild2DMipmaps(GL_TEXTURE_2D, 4, TextureB.Width, TextureB.Height, GL_RGBA, GL_UNSIGNED_BYTE, @TextureD32);

-      if Error > 0 then beep;

-    end;

-  end;

-

-  if Typ = 'Note Plain' then begin

-    for Position := 0 to TextureB.Height-1 do begin

-      PPix := TextureB.ScanLine[Position];

-      for Position2 := 0 to TextureB.Width-1 do begin

-

-

-

-        // Skin Patch

-        // 0-191= Fade Black to Col, 192= Col, 193-254 Fade Col to White, 255= White

-        case PPix[Position2*3] of

-          0..191:    Pix := $10000 * ((((Col div $10000) and $FF) * PPix[Position2*3]) div $Bf) + $100 * ((((Col div $100) and $FF) * PPix[Position2*3]) div $Bf) + (((Col and $FF) * PPix[Position2*3]) div $Bf);

-          192:       Pix := Col;

-          193..254:  Pix := Col + ($10000 * ((($FF - ((Col div $10000) and $FF)) * ((PPix[Position2*3] - $C0) * 4) ) div $FF) + $100 * ((($FF - ((Col div $100) and $FF)) * ((PPix[Position2*3] - $C0) * 4)) div $FF) + ((($FF - (Col and $FF)) * ((PPix[Position2*3] - $C0) * 4)) div $FF));

-          255:       Pix := $FFFFFF;

-         end;

-//  0.5.0. Original

-//        case PPix[Position2*3] of

-//           128:    Pix := $10000 * ((Col div $10000) div 2) + $100 * (((Col div $100) and $FF) div 2) + (Col and $FF) div 2;

-//           192:    Pix := Col;

-//           255:    Pix := $FFFFFF;

-//        end;

-

-

-

-

-

-        TextureD24[Position*TextureB.Width + Position2 + 1, 1] := Pix div $10000;

-        TextureD24[Position*TextureB.Width + Position2 + 1, 2] := (Pix div $100) and $FF;

-        TextureD24[Position*TextureB.Width + Position2 + 1, 3] := Pix and $FF;

-      end;

-    end;

-    glTexImage2D(GL_TEXTURE_2D, 0, 3, TextureB.Width, TextureB.Height, 0, GL_RGB, GL_UNSIGNED_BYTE, @TextureD24);

-  end;

-

-  if Typ = 'Note Transparent' then begin

-    for Position := 0 to TextureB.Height-1 do begin

-      PPix := TextureB.ScanLine[Position];

-      for Position2 := 0 to TextureB.Width-1 do begin

-        TempA := 255;

-

-

-

-         //Skin Patch

-         // 0= Transparent, 1-191= Fade Black to Col, 192= Col, 193-254 Fade Col to White, 255= White

-        case PPix[Position2*3] of

-          0:         TempA := 0;

-          1..191:    Pix := $10000 * ((((Col div $10000) and $FF) * PPix[Position2*3]) div $Bf) + $100 * ((((Col div $100) and $FF) * PPix[Position2*3]) div $Bf) + (((Col and $FF) * PPix[Position2*3]) div $Bf);

-          192:       Pix := Col;

-          193..254:  Pix := Col + ($10000 * ((($FF - ((Col div $10000) and $FF)) * ((PPix[Position2*3] - $C0) * 4) ) div $FF) + $100 * ((($FF - ((Col div $100) and $FF)) * ((PPix[Position2*3] - $C0) * 4)) div $FF) + ((($FF - (Col and $FF)) * ((PPix[Position2*3] - $C0) * 4)) div $FF));

-          255:       Pix := $FFFFFF;

-        end;

-// 0.5.0 Original

-//        case PPix[Position2*3] of

-//          0:      TempA := 0;

-//          128:    Pix := $10000 * ((Col div $10000) div 2) + $100 * (((Col div $100) and $FF) div 2) + (Col and $FF) div 2;

-//          192:    Pix := Col;

-//          255:    Pix := $FFFFFF;

-//        end;

-

-

-

-

-        TextureD32[Position*TextureB.Width + Position2 + 1, 1] := Pix div $10000;

-        TextureD32[Position*TextureB.Width + Position2 + 1, 2] := (Pix div $100) and $FF;

-        TextureD32[Position*TextureB.Width + Position2 + 1, 3] := Pix and $FF;

-        TextureD32[Position*TextureB.Width + Position2 + 1, 4] := TempA;

-      end;

-    end;

-    glTexImage2D(GL_TEXTURE_2D, 0, 4, TextureB.Width, TextureB.Height, 0, GL_RGBA, GL_UNSIGNED_BYTE, @TextureD32);

-  end;

-

-  TextureB.Free;

-  Result.X := 0;

-  Result.Y := 0;

-  Result.W := 0;

-  Result.H := 0;

-  Result.ScaleW := 1;

-  Result.ScaleH := 1;

-  Result.Rot := 0;

-  Result.TexNum := ActTex;

-  Result.TexW := TexOrigW / TexNewW;

-  Result.TexH := TexOrigH / TexNewH;

-

-  Result.Int   := 1;

-  Result.ColR  := 1;

-  Result.ColG  := 1;

-  Result.ColB  := 1;

-  Result.Alpha := 1;

-

-  // 0.4.2 new test - default use whole texure, taking TexW and TexH as const and changing these

-  Result.TexX1 := 0;

-  Result.TexY1 := 0;

-  Result.TexX2 := 1;

-  Result.TexY2 := 1;

-

-  // 0.5.0

-  Result.Name := Identifier;

-

-  end;

-

-  Log.BenchmarkEnd(4);

-  if Log.BenchmarkTimeLength[4] >= 1 then

-    Log.LogBenchmark('**********> Texture Load Time Warning - ' + Format + '/' + Identifier + '/' + Typ, 4);

-

-  end; // logerror    

-  {$ENDIF}

-end;

-

-{procedure ResizeTexture(s: pbytearray; d: pbytearray);

-var

-  Position:    integer;

-  Position2:   integer;

-begin

-  for Position := 0 to TexNewH*4-1 do

-    for Position2 := 0 to TexNewW-1 do

-      d[Position*TexNewW + Position2] := 0;

-

-  for Position := 0 to TexOrigH-1 do begin

-    for Position2 := 0 to TexOrigW-1 do begin

-      d[(Position*TexNewW + Position2)*4] := Paleta[s[Position*TexOrigW + Position2], 1];

-      d[(Position*TexNewW + Position2)*4+1] := Paleta[s[Position*TexOrigW + Position2], 2];

-      d[(Position*TexNewW + Position2)*4+2] := Paleta[s[Position*TexOrigW + Position2], 3];

-      d[(Position*TexNewW + Position2)*4+3] := Paleta[s[Position*TexOrigW + Position2], 4];

-    end;

-  end;

-end;}

-

-{procedure SetTexture(p: pointer);

-begin

-  glGenTextures(1, Tekstur);

-  glBindTexture(GL_TEXTURE_2D, Tekstur);

-  glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_LINEAR);

-  glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_WRAP_S, GL_CLAMP);

-  glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_WRAP_T, GL_CLAMP);

-  glTexImage2D(GL_TEXTURE_2D, 0, 4, TexNewW, TexNewH, 0, GL_RGBA, GL_UNSIGNED_BYTE, p);

-end;}

-

-function TTextureUnit.LoadTexture(Identifier, Format, Typ: PChar; Col: LongWord): TTexture;

-begin

-  Result := LoadTexture(false, Identifier, Format, Typ, Col);

-//  Result := LoadTexture(SkinReg, Identifier, Format, Typ, Col); // default to SkinReg

-

-end;

-

-function TTextureUnit.LoadTexture(Identifier: string): TTexture;

-begin

-  Result := LoadTexture(false, pchar(Identifier), 'JPG', 'Plain', 0);

-end;

-

-function TTextureUnit.CreateTexture(var Data: array of byte; Name: string; W, H: word; Bits: byte): TTexture;

-var

-  Position:        integer;

-  Position2:       integer;

-  Pix:        integer;

-  ColInt:     real;

-  PPix:       PByteArray;

-  TempA:      integer;

-  Error:      integer;

-begin

-  Mipmapping := false;

-

-  glGenTextures(1, ActTex); // ActText = new texture number

-  glBindTexture(GL_TEXTURE_2D, ActTex);

-  glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_LINEAR);

-  glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_WRAP_S, GL_CLAMP_TO_EDGE);

-  glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_WRAP_T, GL_CLAMP_TO_EDGE);

-

-  glTexImage2D(GL_TEXTURE_2D, 0, 3, W, H, 0, GL_RGB, GL_UNSIGNED_BYTE, @Data[0]);

-  if Mipmapping then begin

-    Error := gluBuild2DMipmaps(GL_TEXTURE_2D, 3, W, H, GL_RGB, GL_UNSIGNED_BYTE, @Data[0]);

-    if Error > 0 then beep;

-  end;

-

-  Result.X := 0;

-  Result.Y := 0;

-  Result.W := 0;

-  Result.H := 0;

-  Result.ScaleW := 1;

-  Result.ScaleH := 1;

-  Result.Rot := 0;

-  Result.TexNum := ActTex;

-  Result.TexW := 1;

-  Result.TexH := 1;

-

-  Result.Int := 1;

-  Result.ColR := 1;

-  Result.ColG := 1;

-  Result.ColB := 1;

-  Result.Alpha := 1;

-

-  // 0.4.2 new test - default use whole texure, taking TexW and TexH as const and changing these

-  Result.TexX1 := 0;

-  Result.TexY1 := 0;

-  Result.TexX2 := 1;

-  Result.TexY2 := 1;

-

-  // 0.5.0

-  Result.Name := Name;

-end;

-

-procedure TTextureUnit.UnloadTexture(Name: string; FromCache: boolean);

-var

-  T:      integer;

-  TexNum: GLuint;

-begin

-  T := FindTexture(Name);

-

-  if not FromCache then begin

-    TexNum := TextureDatabase.Texture[T].Texture.TexNum;

-    if TexNum >= 0 then begin

-      glDeleteTextures(1, @TexNum);

-      TextureDatabase.Texture[T].Texture.TexNum := -1;

-//      Log.LogError('Unload texture no '+IntToStr(TexNum));

-    end;

-  end else begin

-    TexNum := TextureDatabase.Texture[T].TextureCache.TexNum;

-    if TexNum >= 0 then begin

-      glDeleteTextures(1, @TexNum);

-      TextureDatabase.Texture[T].TextureCache.TexNum := -1;

-//      Log.LogError('Unload texture cache no '+IntToStr(TexNum));

-    end;

-  end;

-end;

-

-end.

+unit UTexture;
+
+// Plain (alpha = 1)
+// Transparent
+// Transparent Range
+// Font (white is drawn, black is transparent)
+// Font Outline (Font with darker outline)
+// Font Outline 2 (Font with darker outline)
+// Font Black (black is drawn, white is transparent)
+// Font Gray (gray is drawn, white is transparent)
+// Arrow (for arrows, white is white, gray has color, black is transparent);
+
+interface
+
+{$I switches.inc}
+
+{$IFDEF FPC}
+  {$MODE DELPHI}
+{$ENDIF}
+
+uses OpenGL12,
+     {$IFDEF win32}
+     windows,
+     {$ENDIF}
+     Math,
+     Classes,
+     SysUtils,
+     {$IFDEF FPC}
+     ulazjpeg,
+     {$ELSE}
+     JPEG,
+     PNGImage,
+     {$ENDIF}
+     Graphics,
+     UCommon,
+     UThemes;
+
+
+  {$IFDEF Win32}
+    procedure glGenTextures(n: GLsizei; var textures: GLuint); stdcall; external opengl32;
+
+  {$ELSE}
+    {$ifdef darwin}
+    const opengl32 = '/System/Library/Frameworks/OpenGL.framework/Libraries/libGL.dylib';
+    {$ELSE}
+    const opengl32 = 'libGL.so' ; // YES Capital GL
+    {$ENDIF}
+    
+    procedure glGenTextures(n: GLsizei; var textures: GLuint); stdcall; external opengl32;
+  {$ENDIF}
+
+type
+  TTexture = record
+    TexNum:   integer;
+    X:        real;
+    Y:        real;
+    Z:        real; // new
+    W:        real;
+    H:        real;
+    ScaleW:   real; // for dynamic scalling while leaving width constant
+    ScaleH:   real; // for dynamic scalling while leaving height constant
+    Rot:      real; // 0 - 2*pi
+    Int:      real; // intensity
+    ColR:     real;
+    ColG:     real;
+    ColB:     real;
+    TexW:     real; // used?
+    TexH:     real; // used?
+    TexX1:    real;
+    TexY1:    real;
+    TexX2:    real;
+    TexY2:    real;
+    Alpha:    real;
+    Name:     string; // 0.5.0: experimental for handling cache images. maybe it's useful for dynamic skins
+  end;
+
+  TTextureEntry = record
+    Name:       string;
+    Typ:        string;
+
+    // we use normal TTexture, it's easier to implement and if needed - we copy ready data
+    Texture:        TTexture;
+    TextureCache:   TTexture; // 0.5.0
+  end;
+
+  TTextureDatabase = record
+    Texture:    array of TTextureEntry;
+  end;
+
+  TTextureUnit = class
+    Limit:      integer;
+    CreateCacheMipmap:  boolean;
+
+//    function GetNumberFor
+    function GetTexture(Name, Typ: string): TTexture; overload;
+    function GetTexture(Name, Typ: string; FromCache: boolean): TTexture; overload;
+    function FindTexture(Name: string): integer;
+    function LoadTexture(FromRegistry: boolean; Identifier, Format, Typ: PChar; Col: LongWord): TTexture; overload;
+    function LoadTexture(Identifier, Format, Typ: PChar; Col: LongWord): TTexture; overload;
+    function LoadTexture(Identifier: string): TTexture; overload;
+    function CreateTexture(var Data: array of byte; Name: string; W, H: word; Bits: byte): TTexture;
+    procedure UnloadTexture(Name: string; FromCache: boolean);
+  end;
+
+var
+  lasthue: double;
+  Texture:          TTextureUnit;
+  TextureDatabase:  TTextureDatabase;
+
+  PrintScreenData:  array[0..1024*768-1] of longword;
+
+  ActTex:     GLuint;//integer;
+
+  TexOrigW:   integer;
+  TexOrigH:   integer;
+  TexNewW:    integer;
+  TexNewH:    integer;
+
+  TexFitW:    integer;
+  TexFitH:    integer; // new for limit
+
+  TextureD8:    array[1..1024*1024] of byte; // 1MB
+  TextureD16:   array[1..1024*1024, 1..2] of byte;  // luminance/alpha tex (2MB)
+  TextureD24:   array[1..1024*1024, 1..3] of byte;  // normal 24-bit tex (3MB)
+  TextureD242:  array[1..512*512, 1..3] of byte;  // normal 24-bit tex (0,75MB)
+  TextureD32:   array[1..1024*1024, 1..4] of byte; // transparent 32-bit tex (4MB)
+  // total 40MB at 2048*2048
+  // total 10MB at 1024*1024
+
+  Mipmapping: Boolean;
+
+  CacheMipmap:  array[0..256*256*3-1] of byte; // 3KB
+
+
+implementation
+uses ULog, DateUtils, UCovers, StrUtils;
+
+function TTextureUnit.GetTexture(Name, Typ: string): TTexture;
+begin
+  Result := GetTexture(Name, Typ, true);
+end;
+
+function TTextureUnit.GetTexture(Name, Typ: string; FromCache: boolean): TTexture;
+var
+  T:    integer; // texture
+  C:    integer; // cover
+  Data: array of byte;
+begin
+  // find texture entry
+  T := FindTexture(Name);
+
+  if T = -1 then begin
+    // create texture entry
+    T := Length(TextureDatabase.Texture);
+    SetLength(TextureDatabase.Texture, T+1);
+    TextureDatabase.Texture[T].Name := Name;
+    TextureDatabase.Texture[T].Typ := Typ;
+
+    // inform database that no textures have been loaded into memory
+    TextureDatabase.Texture[T].Texture.TexNum := -1;
+    TextureDatabase.Texture[T].TextureCache.TexNum := -1;
+  end;
+
+  // use preloaded texture
+  if (not FromCache) or (FromCache and not Covers.CoverExists(Name)) then begin
+    // use full texture
+    if TextureDatabase.Texture[T].Texture.TexNum = -1 then begin
+      // load texture
+      TextureDatabase.Texture[T].Texture := LoadTexture(false, pchar(Name), 'JPG', pchar(Typ), $0);
+    end;
+
+    // use texture
+    Result := TextureDatabase.Texture[T].Texture;
+
+  end;
+
+  if FromCache and Covers.CoverExists(Name) then begin
+    // use cache texture
+    C := Covers.CoverNumber(Name);
+
+    if TextureDatabase.Texture[T].TextureCache.TexNum = -1 then begin
+      // load texture
+      Covers.PrepareData(Name);
+      TextureDatabase.Texture[T].TextureCache := CreateTexture(Covers.Data, Name, Covers.Cover[C].W, Covers.Cover[C].H, 24);
+    end;
+
+    // use texture
+    Result := TextureDatabase.Texture[T].TextureCache;
+  end;
+end;
+
+function TTextureUnit.FindTexture(Name: string): integer;
+var
+  T:    integer; // texture
+begin
+  Result := -1;
+  for T := 0 to high(TextureDatabase.Texture) do
+    if TextureDatabase.Texture[T].Name = Name then
+      Result := T;
+end;
+
+// expects: src, dst: pointers to r,g,b,a
+//          hue: new hue within range [0.0-6.0)
+procedure ColorizeCopy(Src, Dst: PByteArray;  hue: Double); overload;
+var
+  i,j,k: Cardinal;
+  clr, hls: array[0..2] of Double;
+  delta, f, p, q, t: Double;
+begin
+  hls[0]:=hue;
+
+      clr[0] := src[0]/255;
+      clr[1] := src[1]/255;
+      clr[2] := src[2]/255;
+      
+      //calculate luminance and saturation from rgb
+      hls[1] := maxvalue(clr); //l:=...
+      delta  := hls[1] - minvalue(clr);
+      
+      if hls[1] =  0.0 then
+         hls[2] := 0.0
+      else
+         hls[2] := delta/hls[1]; //v:=...
+         
+      // calc new rgb from our hls (h from color, l ans s from pixel)
+//      if (hls[1]<>0.0) and (hls[2]<>0.0) then // only if colorizing makes sense
+      begin
+        k:=trunc(hls[0]);
+        f:=hls[0]-k;
+        p:=hls[1]*(1.0-hls[2]);
+        q:=hls[1]*(1.0-(hls[2]*f));
+        t:=hls[1]*(1.0-(hls[2]*(1.0-f)));
+        case k of
+          0: begin clr[0]:=hls[1]; clr[1]:=t; clr[2]:=p; end;
+          1: begin clr[0]:=q; clr[1]:=hls[1]; clr[2]:=p; end;
+          2: begin clr[0]:=p; clr[1]:=hls[1]; clr[2]:=t; end;
+          3: begin clr[0]:=p; clr[1]:=q; clr[2]:=hls[1]; end;
+          4: begin clr[0]:=t; clr[1]:=p; clr[2]:=hls[1]; end;
+          5: begin clr[0]:=hls[1]; clr[1]:=p; clr[2]:=q; end;
+        end;
+        // and store new rgb back into the image
+        dst[0]:=floor(255*clr[0]);
+        dst[1]:=floor(255*clr[1]);
+        dst[2]:=floor(255*clr[2]);
+        dst[3]:=src[3];
+      end;
+end;
+
+// expects: src: $rrggbb
+//          dst: pointer to r,g,b,a
+//          hue: new hue within range [0.0-6.0)
+procedure ColorizeCopy(Src: Cardinal; Dst: PByteArray;  hue: Double); overload;
+var
+  i,j,k: Cardinal;
+  clr, hls: array[0..2] of Double;
+  delta, f, p, q, t: Double;
+begin
+  hls[0]:=hue;
+
+      clr[0]:=((src shr 16) and $ff)/255;
+      clr[1]:=((src shr 8) and $ff)/255;
+      clr[2]:=(src and $ff)/255;
+      //calculate luminance and saturation from rgb
+      hls[1]:=maxvalue(clr); //l:=...
+      delta:=hls[1]-minvalue(clr);
+      if hls[1]=0.0 then hls[2]:=0.0 else hls[2]:=delta/hls[1]; //v:=...
+      // calc new rgb from our hls (h from color, l ans s from pixel)
+//      if (hls[1]<>0.0) and (hls[2]<>0.0) then // only if colorizing makes sense
+      begin
+        k:=trunc(hls[0]);
+        f:=hls[0]-k;
+        p:=hls[1]*(1.0-hls[2]);
+        q:=hls[1]*(1.0-(hls[2]*f));
+        t:=hls[1]*(1.0-(hls[2]*(1.0-f)));
+        case k of
+          0: begin clr[0]:=hls[1]; clr[1]:=t; clr[2]:=p; end;
+          1: begin clr[0]:=q; clr[1]:=hls[1]; clr[2]:=p; end;
+          2: begin clr[0]:=p; clr[1]:=hls[1]; clr[2]:=t; end;
+          3: begin clr[0]:=p; clr[1]:=q; clr[2]:=hls[1]; end;
+          4: begin clr[0]:=t; clr[1]:=p; clr[2]:=hls[1]; end;
+          5: begin clr[0]:=hls[1]; clr[1]:=p; clr[2]:=q; end;
+        end;
+        // and store new rgb back into the image
+        dst[0]:=floor(255*clr[0]);
+        dst[1]:=floor(255*clr[1]);
+        dst[2]:=floor(255*clr[2]);
+        dst[3]:=255;
+      end;
+end;
+//returns hue within range [0.0-6.0)
+function col2h(Color:Cardinal):double;
+var
+  clr,hls: array[0..2] of double;
+  delta: double;
+begin
+  clr[0]:=((Color and $ff0000) shr 16)/255;
+  clr[1]:=((Color and $ff00) shr 8)/255;
+  clr[2]:=(Color and $ff)/255;
+  hls[1]:=maxvalue(clr);
+  delta:=hls[1]-minvalue(clr);
+  if      clr[0]=hls[1] then hls[0]:=(clr[1]-clr[2])/delta
+  else if clr[1]=hls[1] then hls[0]:=2.0+(clr[2]-clr[0])/delta
+  else if clr[2]=hls[1] then hls[0]:=4.0+(clr[0]-clr[1])/delta;
+  if hls[0]<0.0 then hls[0]:=hls[0]+6.0;
+  if hls[0]=6.0 then hls[0]:=0.0;
+  col2h:=hls[0];
+end;
+
+
+function TTextureUnit.LoadTexture(FromRegistry: boolean; Identifier, Format, Typ: PChar; Col: LongWord): TTexture;
+var
+  Res:        TResourceStream;
+  TextureB:   TBitmap;
+  TextureJ:   TJPEGImage;
+  {$IFNDEF FPC}
+  TexturePNG: TPNGObject;
+  {$ENDIF}
+  
+  TextureAlpha: array of byte;
+  AlphaPtr:   PByte;
+  TransparentColor: TColor;
+  PixelColor: TColor;
+
+  Position:        integer;
+  Position2:       integer;
+  Pix:        integer;
+  ColInt:     real;
+  PPix:       PByteArray;
+  TempA:      integer;
+  Error:      integer;
+  SkipX:      integer;
+  myAlpha:    Real;
+  myRGBABitmap: array of byte;
+  RGBPtr: PByte;
+  myHue: Double;
+begin
+  {$IFNDEF FPC} // TODO : JB_lazarus eeeew this is a nasty one...
+                // but lazarus implementation scanlines is different :(
+                // need to implement as per
+                //    http://www.lazarus.freepascal.org/index.php?name=PNphpBB2&file=viewtopic&p=18512
+                //    http://www.lazarus.freepascal.org/index.php?name=PNphpBB2&file=viewtopic&p=10797
+                //    http://wiki.lazarus.freepascal.org/Developing_with_Graphics
+  Log.BenchmarkStart(4);
+  Mipmapping := true;
+
+  if FromRegistry then begin
+    try
+      Res := TResourceStream.Create(HInstance, Identifier, Format);
+    except
+      beep;
+      Exit;
+    end;
+  end;
+
+  // filetype "detection"
+  if (not FromRegistry) and (FileExists(Identifier)) then begin
+    Format:='';
+    Format := PAnsichar(UpperCase(RightStr(ExtractFileExt(Identifier),3)));
+  end;
+//  else Format:='JPG';
+//  if not ((Format='BMP')or(Format='JPG')or(Format='PNG')) then Format:='JPG';
+
+  if FromRegistry or ((not FromRegistry) and FileExists(Identifier)) then begin
+    TextureB := TBitmap.Create;
+
+  if Format = 'BMP' then
+  begin
+    if FromRegistry then
+       TextureB.LoadFromStream(Res)
+    else
+       TextureB.LoadFromFile(Identifier);
+  end
+  else
+  if Format = 'JPG' then
+  begin
+    TextureJ := TJPEGImage.Create;
+    
+    if FromRegistry then
+       TextureJ.LoadFromStream(Res)
+    else
+    begin
+      if FileExists(Identifier) then
+        TextureJ.LoadFromFile(Identifier)
+      else
+        Exit;
+    end;
+    
+    TextureB.Assign(TextureJ);
+    TextureJ.Free;
+  end
+  else if Format = 'PNG' then
+  begin
+    {$IFNDEF FPC}
+    // TODO : JB_lazarus - fix this for lazarus..
+    TexturePNG := TPNGObject.Create;
+    if FromRegistry then
+      TexturePNG.LoadFromStream(Res)
+    else
+    begin
+      if FileExists(Identifier) then
+        TexturePNG.LoadFromFile(Identifier)
+      else
+        Exit;
+    end;
+    
+    TextureB.Assign(TexturePNG);
+    // transparent png hack start (part 1 of 2)
+    if ((Typ = 'Transparent') or (Typ = 'Colorized')) and (TexturePNG.TransparencyMode = ptmPartial) then
+    begin
+      setlength(TextureAlpha, TextureB.Width*TextureB.Height);
+      setlength(MyRGBABitmap,TextureB.Width*TextureB.Height*4);
+      if (TexturePNG.Header.ColorType = COLOR_GRAYSCALEALPHA) or
+         (TexturePNG.Header.ColorType = COLOR_RGBALPHA) then
+      begin
+        // i would have preferred english variables here but i use Position because i'm lazy
+        for Position := 0 to TextureB.Height - 1 do
+        begin
+          AlphaPtr := PByte(TexturePNG.AlphaScanline[Position]);
+          RGBPtr:=PByte(TexturePNG.Scanline[Position]);
+          for Position2 := 0 to TextureB.Width - 1 do
+          begin
+            TextureAlpha[Position*TextureB.Width+Position2]:= AlphaPtr^;
+            MyRGBABitmap[(Position*TextureB.Width+Position2)*4]:= RGBPtr^;
+            Inc(RGBPtr);
+            MyRGBABitmap[(Position*TextureB.Width+Position2)*4+1]:= RGBPtr^;
+            Inc(RGBPtr);
+            MyRGBABitmap[(Position*TextureB.Width+Position2)*4+2]:= RGBPtr^;
+            Inc(RGBPtr);
+            MyRGBABitmap[(Position*TextureB.Width+Position2)*4+3]:= AlphaPtr^;
+//            Inc(RGBPtr);
+            Inc(AlphaPtr);
+          end;
+        end;
+      end;
+    end else
+      setlength(TextureAlpha,0); // just no special transparency for unimplemented transparency types (ptmBit)
+    // transparent png hack end
+    TexturePNG.Free;
+    {$ENDIF}
+  end;
+
+  if FromRegistry then Res.Free;
+
+  if (TextureB.Width > 1024) or (TextureB.Height > 1024) then begin // will be fixed in 0.5.1 and dynamically extended to 8192x8192 depending on the driver
+    Log.LogError('Image ' + Identifier + ' is too big (' + IntToStr(TextureB.Width) + 'x' + IntToStr(TextureB.Height) + ')');
+    Result.TexNum := -1;
+  end else begin
+
+  glGenTextures(1, ActTex);
+  glBindTexture(GL_TEXTURE_2D, ActTex);
+  glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_LINEAR);
+  glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_WRAP_S, GL_CLAMP_TO_EDGE);
+  glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_WRAP_T, GL_CLAMP_TO_EDGE);
+
+  if Typ = 'Plain' then begin
+    // dimensions
+    TexOrigW := TextureB.Width;
+    TexOrigH := TextureB.Height;
+    TexNewW := Round(Power(2, Ceil(Log2(TexOrigW))));
+    TexNewH := Round(Power(2, Ceil(Log2(TexOrigH))));
+
+    // copy and process pixeldata
+    TextureB.PixelFormat := pf24bit;
+{    if (TextureB.PixelFormat = pf8bit) then begin
+      for Position := 0 to TexOrigH-1 do begin
+        for Position2 := 0 to TexOrigW-1 do begin
+          Pix := TextureB.Canvas.Pixels[Position2, Position];
+          TextureD24[Position*TexNewW + Position2+1, 1] := Pix;
+          TextureD24[Position*TexNewW + Position2+1, 2] := Pix div 256;
+          TextureD24[Position*TexNewW + Position2+1, 3] := Pix div (256*256);
+        end;
+      end;
+    end;}
+    if (TexOrigW <= Limit) and (TexOrigW <= Limit) then begin
+      if (TextureB.PixelFormat = pf24bit) then begin
+        for Position := 0 to TexOrigH-1 do begin
+          PPix := TextureB.ScanLine[Position];
+          for Position2 := 0 to TexOrigW-1 do begin
+            TextureD24[Position*TexNewW + Position2+1, 1] := PPix[Position2*3+2];
+            TextureD24[Position*TexNewW + Position2+1, 2] := PPix[Position2*3+1];
+            TextureD24[Position*TexNewW + Position2+1, 3] := PPix[Position2*3];
+          end;
+        end;
+      end;
+    end else begin
+      // limit
+      TexFitW := 4 * (TexOrigW div 4); // fix for bug in gluScaleImage
+      TexFitH := TexOrigH;
+      if (TextureB.PixelFormat = pf24bit) then begin
+        for Position := 0 to TexOrigH-1 do begin
+          PPix := TextureB.ScanLine[Position];
+          for Position2 := 0 to TexOrigW-1 do begin
+            TextureD24[Position*TexFitW + Position2+1, 1] := PPix[Position2*3+2];
+            TextureD24[Position*TexFitW + Position2+1, 2] := PPix[Position2*3+1];
+            TextureD24[Position*TexFitW + Position2+1, 3] := PPix[Position2*3];
+          end;
+        end;
+      end;
+      gluScaleImage(GL_RGB, TexFitW, TexFitH, GL_UNSIGNED_BYTE, @TextureD24,
+        Limit, Limit, GL_UNSIGNED_BYTE, @TextureD24); // takes some time
+
+      TexNewW := Limit;
+      TexNewH := Limit;
+      TexOrigW := Limit;
+      TexOrigH := Limit;
+    end;
+
+    // creating cache mipmap
+    if CreateCacheMipmap then begin
+      if (TexOrigW <> TexNewW) or (TexOrigH <> TexNewH) then begin
+        // texture only uses some of it's space. there's a need for resize to fit full size
+        // and get best quality
+        TexFitW := 4 * (TexOrigW div 4); // 0.5.0: fix for bug in gluScaleImage
+        SkipX := (TexOrigW div 2) mod 2; // 0.5.0: try to center image
+
+        TexFitH := TexOrigH;
+        for Position := 0 to TexOrigH-1 do begin
+          PPix := TextureB.ScanLine[Position];
+          for Position2 := 0 to TexOrigW-1 do begin
+            TextureD242[Position*TexFitW + Position2+1, 1] := PPix[(Position2+SkipX)*3+2];
+            TextureD242[Position*TexFitW + Position2+1, 2] := PPix[(Position2+SkipX)*3+1];
+            TextureD242[Position*TexFitW + Position2+1, 3] := PPix[(Position2+SkipX)*3];
+          end;
+        end;
+        gluScaleImage(GL_RGB, TexFitW, TexFitH, GL_UNSIGNED_BYTE, @TextureD242,
+          Covers.W, Covers.H, GL_UNSIGNED_BYTE, @CacheMipmap[0]); // takes some time
+
+      end else begin
+        // texture fits perfectly
+        gluScaleImage(GL_RGB, TexOrigW, TexOrigH, GL_UNSIGNED_BYTE, @TextureD24,
+          Covers.W, Covers.H, GL_UNSIGNED_BYTE, @CacheMipmap[0]); // takes some time
+      end;
+    end;
+
+    glTexImage2D(GL_TEXTURE_2D, 0, 3, TexNewW, TexNewH, 0, GL_RGB, GL_UNSIGNED_BYTE, @TextureD24);
+    if Mipmapping then begin
+      Error := gluBuild2DMipmaps(GL_TEXTURE_2D, 3, TexNewW, TexNewH, GL_RGB, GL_UNSIGNED_BYTE, @TextureD24);
+      if Error > 0 then beep;
+    end
+  end;
+
+  if Typ = 'Transparent' then begin
+    // dimensions
+    TexOrigW := TextureB.Width;
+    TexOrigH := TextureB.Height;
+    TexNewW := Round(Power(2, Ceil(Log2(TexOrigW))));
+    TexNewH := Round(Power(2, Ceil(Log2(TexOrigH))));
+    TextureB.Width := TexNewW;
+    TextureB.Height := TexNewH;
+
+    // copy and process pixeldata
+    for Position := 0 to TexOrigH-1 do begin
+      for Position2 := 0 to TexOrigW-1 do begin
+        Pix := TextureB.Canvas.Pixels[Position2, Position];
+                                           // ,- part of transparent png hack
+        if ((Pix = $fefefe) or (Pix = Col)) and (length(TextureAlpha)=0) then begin //Small fix, that caused artefacts to be drawn (#fe == dec254)
+          TextureD32[Position*TexNewW + Position2 + 1, 1] := 0;
+          TextureD32[Position*TexNewW + Position2 + 1, 2] := 0;
+          TextureD32[Position*TexNewW + Position2 + 1, 3] := 0;
+          TextureD32[Position*TexNewW + Position2 + 1, 4] := 0;
+        end else if (Format = 'PNG') and (length(TextureAlpha) <> 0) then begin
+          myAlpha:=TextureAlpha[Position*TexOrigW+Position2];
+          TextureD32[Position*TexNewW + Position2+1, 1] := MyRGBABitmap[(Position*TexOrigW+Position2)*4+2];
+          TextureD32[Position*TexNewW + Position2+1, 2] := MyRGBABitmap[(Position*TexOrigW+Position2)*4+1];
+          TextureD32[Position*TexNewW + Position2+1, 3] := MyRGBABitmap[(Position*TexOrigW+Position2)*4];
+          TextureD32[Position*TexNewW+Position2+1,4]:=MyRGBABitmap[(Position*TexOrigW+Position2)*4+3];
+        end else begin
+          TextureD32[Position*TexNewW + Position2+1, 1] := (Pix and $ff);
+          TextureD32[Position*TexNewW + Position2+1, 2] := ((Pix shr 8) and $ff);
+          TextureD32[Position*TexNewW + Position2+1, 3] := ((Pix shr 16) and $ff);
+          TextureD32[Position*TexNewW + Position2+1, 4] := 255;
+        end;
+      end;
+    end;
+    setlength(TextureAlpha,0);
+    setlength(MyRGBABitmap,0);
+    glTexImage2D(GL_TEXTURE_2D, 0, 4, TexNewW, TexNewH, 0, GL_RGBA, GL_UNSIGNED_BYTE, @TextureD32);
+{    if Mipmapping then begin
+      Error := gluBuild2DMipmaps(GL_TEXTURE_2D, 4, TextureB.Width, TextureB.Height, GL_RGBA, GL_UNSIGNED_BYTE, @TextureD32);
+      if Error > 0 then beep;
+    end;}
+  end;
+
+// The new awesomeness of colorized pngs starts here
+// We're the first who had this feature, so give credit when you copy+paste :P
+    if Typ = 'Colorized' then begin
+    // dimensions
+    TexOrigW := TextureB.Width;
+    TexOrigH := TextureB.Height;
+    TexNewW := Round(Power(2, Ceil(Log2(TexOrigW))));
+    TexNewH := Round(Power(2, Ceil(Log2(TexOrigH))));
+    TextureB.Width := TexNewW;
+    TextureB.Height := TexNewH;
+
+    myHue:=col2h(Col);
+    // copy and process pixeldata
+    for Position := 0 to TexOrigH-1 do begin
+      for Position2 := 0 to TexOrigW-1 do begin
+        Pix := TextureB.Canvas.Pixels[Position2, Position];
+        if (Format = 'PNG') and (length(MyRGBABitmap) <> 0) then
+         ColorizeCopy(@MyRGBABitmap[(Position*TexOrigW+Position2)*4],
+                      @TextureD32[Position*TexNewW + Position2+1, 1],
+                      myHue)
+        else
+          ColorizeCopy(Pix,
+                       @TextureD32[Position*TexNewW + Position2+1, 1],
+                       myHue);
+      end;
+    end;
+
+    setlength(TextureAlpha,0);
+    setlength(MyRGBABitmap,0);
+    glTexImage2D(GL_TEXTURE_2D, 0, 4, TexNewW, TexNewH, 0, GL_RGBA, GL_UNSIGNED_BYTE, @TextureD32);
+  end;
+// eoa COLORIZE
+
+  if Typ = 'Transparent Range' then begin
+    // dimensions
+    TexOrigW := TextureB.Width;
+    TexOrigH := TextureB.Height;
+    TexNewW := Round(Power(2, Ceil(Log2(TexOrigW))));
+    TexNewH := Round(Power(2, Ceil(Log2(TexOrigH))));
+    TextureB.Width := TexNewW;
+    TextureB.Height := TexNewH;
+    // copy and process pixeldata
+    for Position := 0 to TexOrigH-1 do begin
+      for Position2 := 0 to TexOrigW-1 do begin
+        Pix := TextureB.Canvas.Pixels[Position2, Position];
+        TextureD32[Position*TexNewW + Position2+1, 1] := Pix;
+        TextureD32[Position*TexNewW + Position2+1, 2] := Pix div 256;
+        TextureD32[Position*TexNewW + Position2+1, 3] := Pix div (256*256);
+        TextureD32[Position*TexNewW + Position2+1, 4] := 256 - Pix div 256;
+      end;
+    end;
+    glTexImage2D(GL_TEXTURE_2D, 0, 4, TexNewW, TexNewH, 0, GL_RGBA, GL_UNSIGNED_BYTE, @TextureD32);
+{    if Mipmapping then begin
+      Error := gluBuild2DMipmaps(GL_TEXTURE_2D, 4, TextureB.Width, TextureB.Height, GL_RGBA, GL_UNSIGNED_BYTE, @TextureD32);
+      if Error > 0 then beep;
+    end;}
+  end;
+
+  if Typ = 'Font' then begin
+    TextureB.PixelFormat := pf24bit;
+    for Position := 0 to TextureB.Height-1 do begin
+      PPix := TextureB.ScanLine[Position];
+      for Position2 := 0 to TextureB.Width-1 do begin
+        Pix := PPix[Position2 * 3];
+        TextureD16[Position*TextureB.Width + Position2 + 1, 1] := 255;
+        TextureD16[Position*TextureB.Width + Position2 + 1, 2] := Pix;
+      end;
+    end;
+    glTexImage2D(GL_TEXTURE_2D, 0, 2, TextureB.Width, TextureB.Height, 0, GL_LUMINANCE_ALPHA, GL_UNSIGNED_BYTE, @TextureD16);
+
+    if Mipmapping then glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_LINEAR_MIPMAP_LINEAR);
+    if Mipmapping then begin
+      Error := gluBuild2DMipmaps(GL_TEXTURE_2D, 2, TextureB.Width, TextureB.Height, GL_LUMINANCE_ALPHA, GL_UNSIGNED_BYTE, @TextureD16);
+      if Error > 0 then beep;
+    end;
+  end;
+
+  if Typ = 'Font Outline' then begin
+    TextureB.PixelFormat := pf24bit;
+    for Position := 0 to TextureB.Height-1 do begin
+      PPix := TextureB.ScanLine[Position];
+      for Position2 := 0 to TextureB.Width-1 do begin
+        Pix := PPix[Position2 * 3];
+
+        Col := Pix;
+        if Col < 127 then Col := 127;
+
+        TempA := Pix;
+        if TempA >= 95 then TempA := 255;
+        if TempA >= 31 then TempA := 255;
+        if Pix < 95 then TempA := (Pix * 256) div 96;
+
+
+        TextureD16[Position*TextureB.Width + Position2 + 1, 1] := Col;
+        TextureD16[Position*TextureB.Width + Position2 + 1, 2] := TempA;
+      end;
+    end;
+    glTexImage2D(GL_TEXTURE_2D, 0, 2, TextureB.Width, TextureB.Height, 0, GL_LUMINANCE_ALPHA, GL_UNSIGNED_BYTE, @TextureD16);
+
+    if Mipmapping then glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_LINEAR_MIPMAP_LINEAR);
+    if Mipmapping then begin
+      Error := gluBuild2DMipmaps(GL_TEXTURE_2D, 2, TextureB.Width, TextureB.Height, GL_LUMINANCE_ALPHA, GL_UNSIGNED_BYTE, @TextureD16);
+      if Error > 0 then beep;
+    end;
+  end;
+
+  if Typ = 'Font Outline 2' then begin
+    TextureB.PixelFormat := pf24bit;
+    for Position := 0 to TextureB.Height-1 do begin
+      PPix := TextureB.ScanLine[Position];
+      for Position2 := 0 to TextureB.Width-1 do begin
+        Pix := PPix[Position2 * 3];
+
+        Col := Pix;
+        if Col < 31 then Col := 31;
+
+        TempA := Pix;
+        if TempA >= 31 then TempA := 255;
+        if Pix < 31 then TempA := Pix * (256 div 32);
+
+        TextureD16[Position*TextureB.Width + Position2 + 1, 1] := Col;
+        TextureD16[Position*TextureB.Width + Position2 + 1, 2] := TempA;
+      end;
+    end;
+    glTexImage2D(GL_TEXTURE_2D, 0, 2, TextureB.Width, TextureB.Height, 0, GL_LUMINANCE_ALPHA, GL_UNSIGNED_BYTE, @TextureD16);
+
+    if Mipmapping then glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_LINEAR_MIPMAP_LINEAR);
+    if Mipmapping then begin
+      Error := gluBuild2DMipmaps(GL_TEXTURE_2D, 2, TextureB.Width, TextureB.Height, GL_LUMINANCE_ALPHA, GL_UNSIGNED_BYTE, @TextureD16);
+      if Error > 0 then beep;
+    end;
+  end;
+
+  if Typ = 'Font Black' then begin
+    // normalnie 0,125s     bez niczego 0,015s - 0,030s    z pix 0,125s  <-- ???
+    // dimensions
+    TextureB.PixelFormat := pf24bit;
+    TexOrigW := TextureB.Width;
+    TexOrigH := TextureB.Height;
+    TexNewW := Round(Power(2, Ceil(Log2(TexOrigW))));
+    TexNewH := Round(Power(2, Ceil(Log2(TexOrigH))));
+    TextureB.Width := TexNewW;
+    TextureB.Height := TexNewH;
+    // copy and process pixeldata
+    for Position := 0 to TextureB.Height-1 do begin
+      PPix := TextureB.ScanLine[Position];
+      for Position2 := 0 to TextureB.Width-1 do begin
+        Pix := PPix[Position2*3];
+        TextureD32[Position*TextureB.Width + Position2 + 1, 1] := 255;
+        TextureD32[Position*TextureB.Width + Position2 + 1, 2] := 255;
+        TextureD32[Position*TextureB.Width + Position2 + 1, 3] := 255;
+        TextureD32[Position*TextureB.Width + Position2 + 1, 4] := 255 - (Pix mod 256);
+      end;
+    end;
+    glTexImage2D(GL_TEXTURE_2D, 0, 4, TextureB.Width, TextureB.Height, 0, GL_RGBA, GL_UNSIGNED_BYTE, @TextureD32);
+  end;
+
+  if Typ = 'Alpha Black Colored' then begin
+    TextureB.PixelFormat := pf24bit;
+    TexOrigW := TextureB.Width;
+    TexOrigH := TextureB.Height;
+    TexNewW := Round(Power(2, Ceil(Log2(TexOrigW))));
+    TexNewH := Round(Power(2, Ceil(Log2(TexOrigH))));
+    TextureB.Width := TexNewW;
+    TextureB.Height := TexNewH;
+    // copy and process pixeldata
+    for Position := 0 to TextureB.Height-1 do begin
+      PPix := TextureB.ScanLine[Position];
+      for Position2 := 0 to TextureB.Width-1 do begin
+        Pix := PPix[Position2*3];
+        TextureD32[Position*TextureB.Width + Position2 + 1, 1] := (Col div $10000) and $FF;
+        TextureD32[Position*TextureB.Width + Position2 + 1, 2] := (Col div $100) and $FF;
+        TextureD32[Position*TextureB.Width + Position2 + 1, 3] := Col and $FF;
+        TextureD32[Position*TextureB.Width + Position2 + 1, 4] := 255 - (Pix mod 256);
+      end;
+    end;
+    glTexImage2D(GL_TEXTURE_2D, 0, 4, TextureB.Width, TextureB.Height, 0, GL_RGBA, GL_UNSIGNED_BYTE, @TextureD32);
+  end;
+
+  if Typ = 'Font Gray' then begin
+    // dimensions
+    TexOrigW := TextureB.Width;
+    TexOrigH := TextureB.Height;
+    TexNewW := Round(Power(2, Ceil(Log2(TexOrigW))));
+    TexNewH := Round(Power(2, Ceil(Log2(TexOrigH))));
+    TextureB.Width := TexNewW;
+    TextureB.Height := TexNewH;
+    // copy and process pixeldata
+    for Position := 0 to TextureB.Height-1 do begin
+      for Position2 := 0 to TextureB.Width-1 do begin
+        Pix := TextureB.Canvas.Pixels[Position2, Position];
+        TextureD32[Position*TextureB.Width + Position2 + 1, 1] := 127;
+        TextureD32[Position*TextureB.Width + Position2 + 1, 2] := 127;
+        TextureD32[Position*TextureB.Width + Position2 + 1, 3] := 127;
+        TextureD32[Position*TextureB.Width + Position2 + 1, 4] := 255 - (Pix mod 256);
+      end;
+    end;
+    glTexImage2D(GL_TEXTURE_2D, 0, 4, TextureB.Width, TextureB.Height, 0, GL_RGBA, GL_UNSIGNED_BYTE, @TextureD32);
+{    if Mipmapping then begin
+      Error := gluBuild2DMipmaps(GL_TEXTURE_2D, 4, TextureB.Width, TextureB.Height, GL_RGBA, GL_UNSIGNED_BYTE, @TextureD32);
+      if Error > 0 then beep;
+    end;}
+  end;
+
+  if Typ = 'Arrow' then begin
+    TextureB.PixelFormat := pf24bit;
+    for Position := 0 to TextureB.Height-1 do begin
+      PPix := TextureB.ScanLine[Position];
+      for Position2 := 0 to TextureB.Width-1 do begin
+        Pix := PPix[Position2 * 3];
+
+        // transparency
+        if Pix >= 127 then TempA := 255;
+        if Pix < 127 then TempA := Pix * 2;
+
+        // ColInt = color intensity
+        if Pix < 127 then ColInt := 1;
+        if Pix >= 127 then ColInt := 2 - Pix / 128;
+        //0.75, 0.6, 0.25
+
+        TextureD32[Position*TextureB.Width + Position2 + 1, 1] := Round(ColInt * 0.75 * 255 + (1 - ColInt) * 255);
+        TextureD32[Position*TextureB.Width + Position2 + 1, 2] := Round(ColInt * 0.6  * 255 + (1 - ColInt) * 255);
+        TextureD32[Position*TextureB.Width + Position2 + 1, 3] := Round(ColInt * 0.25 * 255 + (1 - ColInt) * 255);
+        TextureD32[Position*TextureB.Width + Position2 + 1, 4] := TempA;
+      end;
+    end;
+    glTexImage2D(GL_TEXTURE_2D, 0, 4, TextureB.Width, TextureB.Height, 0, GL_RGBA, GL_UNSIGNED_BYTE, @TextureD32);
+
+    if Mipmapping then glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_LINEAR_MIPMAP_LINEAR);
+    if Mipmapping then begin
+      Error := gluBuild2DMipmaps(GL_TEXTURE_2D, 4, TextureB.Width, TextureB.Height, GL_RGBA, GL_UNSIGNED_BYTE, @TextureD32);
+      if Error > 0 then beep;
+    end;
+  end;
+
+  if Typ = 'Note Plain' then begin
+    for Position := 0 to TextureB.Height-1 do begin
+      PPix := TextureB.ScanLine[Position];
+      for Position2 := 0 to TextureB.Width-1 do begin
+
+
+
+        // Skin Patch
+        // 0-191= Fade Black to Col, 192= Col, 193-254 Fade Col to White, 255= White
+        case PPix[Position2*3] of
+          0..191:    Pix := $10000 * ((((Col div $10000) and $FF) * PPix[Position2*3]) div $Bf) + $100 * ((((Col div $100) and $FF) * PPix[Position2*3]) div $Bf) + (((Col and $FF) * PPix[Position2*3]) div $Bf);
+          192:       Pix := Col;
+          193..254:  Pix := Col + ($10000 * ((($FF - ((Col div $10000) and $FF)) * ((PPix[Position2*3] - $C0) * 4) ) div $FF) + $100 * ((($FF - ((Col div $100) and $FF)) * ((PPix[Position2*3] - $C0) * 4)) div $FF) + ((($FF - (Col and $FF)) * ((PPix[Position2*3] - $C0) * 4)) div $FF));
+          255:       Pix := $FFFFFF;
+         end;
+//  0.5.0. Original
+//        case PPix[Position2*3] of
+//           128:    Pix := $10000 * ((Col div $10000) div 2) + $100 * (((Col div $100) and $FF) div 2) + (Col and $FF) div 2;
+//           192:    Pix := Col;
+//           255:    Pix := $FFFFFF;
+//        end;
+
+
+
+
+
+        TextureD24[Position*TextureB.Width + Position2 + 1, 1] := Pix div $10000;
+        TextureD24[Position*TextureB.Width + Position2 + 1, 2] := (Pix div $100) and $FF;
+        TextureD24[Position*TextureB.Width + Position2 + 1, 3] := Pix and $FF;
+      end;
+    end;
+    glTexImage2D(GL_TEXTURE_2D, 0, 3, TextureB.Width, TextureB.Height, 0, GL_RGB, GL_UNSIGNED_BYTE, @TextureD24);
+  end;
+
+  if Typ = 'Note Transparent' then begin
+    for Position := 0 to TextureB.Height-1 do begin
+      PPix := TextureB.ScanLine[Position];
+      for Position2 := 0 to TextureB.Width-1 do begin
+        TempA := 255;
+
+
+
+         //Skin Patch
+         // 0= Transparent, 1-191= Fade Black to Col, 192= Col, 193-254 Fade Col to White, 255= White
+        case PPix[Position2*3] of
+          0:         TempA := 0;
+          1..191:    Pix := $10000 * ((((Col div $10000) and $FF) * PPix[Position2*3]) div $Bf) + $100 * ((((Col div $100) and $FF) * PPix[Position2*3]) div $Bf) + (((Col and $FF) * PPix[Position2*3]) div $Bf);
+          192:       Pix := Col;
+          193..254:  Pix := Col + ($10000 * ((($FF - ((Col div $10000) and $FF)) * ((PPix[Position2*3] - $C0) * 4) ) div $FF) + $100 * ((($FF - ((Col div $100) and $FF)) * ((PPix[Position2*3] - $C0) * 4)) div $FF) + ((($FF - (Col and $FF)) * ((PPix[Position2*3] - $C0) * 4)) div $FF));
+          255:       Pix := $FFFFFF;
+        end;
+// 0.5.0 Original
+//        case PPix[Position2*3] of
+//          0:      TempA := 0;
+//          128:    Pix := $10000 * ((Col div $10000) div 2) + $100 * (((Col div $100) and $FF) div 2) + (Col and $FF) div 2;
+//          192:    Pix := Col;
+//          255:    Pix := $FFFFFF;
+//        end;
+
+
+
+
+        TextureD32[Position*TextureB.Width + Position2 + 1, 1] := Pix div $10000;
+        TextureD32[Position*TextureB.Width + Position2 + 1, 2] := (Pix div $100) and $FF;
+        TextureD32[Position*TextureB.Width + Position2 + 1, 3] := Pix and $FF;
+        TextureD32[Position*TextureB.Width + Position2 + 1, 4] := TempA;
+      end;
+    end;
+    glTexImage2D(GL_TEXTURE_2D, 0, 4, TextureB.Width, TextureB.Height, 0, GL_RGBA, GL_UNSIGNED_BYTE, @TextureD32);
+  end;
+
+  TextureB.Free;
+  Result.X := 0;
+  Result.Y := 0;
+  Result.W := 0;
+  Result.H := 0;
+  Result.ScaleW := 1;
+  Result.ScaleH := 1;
+  Result.Rot := 0;
+  Result.TexNum := ActTex;
+  Result.TexW := TexOrigW / TexNewW;
+  Result.TexH := TexOrigH / TexNewH;
+
+  Result.Int   := 1;
+  Result.ColR  := 1;
+  Result.ColG  := 1;
+  Result.ColB  := 1;
+  Result.Alpha := 1;
+
+  // 0.4.2 new test - default use whole texure, taking TexW and TexH as const and changing these
+  Result.TexX1 := 0;
+  Result.TexY1 := 0;
+  Result.TexX2 := 1;
+  Result.TexY2 := 1;
+
+  // 0.5.0
+  Result.Name := Identifier;
+
+  end;
+
+  Log.BenchmarkEnd(4);
+  if Log.BenchmarkTimeLength[4] >= 1 then
+    Log.LogBenchmark('**********> Texture Load Time Warning - ' + Format + '/' + Identifier + '/' + Typ, 4);
+
+  end; // logerror    
+  {$ENDIF}
+end;
+
+{procedure ResizeTexture(s: pbytearray; d: pbytearray);
+var
+  Position:    integer;
+  Position2:   integer;
+begin
+  for Position := 0 to TexNewH*4-1 do
+    for Position2 := 0 to TexNewW-1 do
+      d[Position*TexNewW + Position2] := 0;
+
+  for Position := 0 to TexOrigH-1 do begin
+    for Position2 := 0 to TexOrigW-1 do begin
+      d[(Position*TexNewW + Position2)*4] := Paleta[s[Position*TexOrigW + Position2], 1];
+      d[(Position*TexNewW + Position2)*4+1] := Paleta[s[Position*TexOrigW + Position2], 2];
+      d[(Position*TexNewW + Position2)*4+2] := Paleta[s[Position*TexOrigW + Position2], 3];
+      d[(Position*TexNewW + Position2)*4+3] := Paleta[s[Position*TexOrigW + Position2], 4];
+    end;
+  end;
+end;}
+
+{procedure SetTexture(p: pointer);
+begin
+  glGenTextures(1, Tekstur);
+  glBindTexture(GL_TEXTURE_2D, Tekstur);
+  glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_LINEAR);
+  glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_WRAP_S, GL_CLAMP);
+  glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_WRAP_T, GL_CLAMP);
+  glTexImage2D(GL_TEXTURE_2D, 0, 4, TexNewW, TexNewH, 0, GL_RGBA, GL_UNSIGNED_BYTE, p);
+end;}
+
+function TTextureUnit.LoadTexture(Identifier, Format, Typ: PChar; Col: LongWord): TTexture;
+begin
+  Result := LoadTexture(false, Identifier, Format, Typ, Col);
+//  Result := LoadTexture(SkinReg, Identifier, Format, Typ, Col); // default to SkinReg
+
+end;
+
+function TTextureUnit.LoadTexture(Identifier: string): TTexture;
+begin
+  Result := LoadTexture(false, pchar(Identifier), 'JPG', 'Plain', 0);
+end;
+
+function TTextureUnit.CreateTexture(var Data: array of byte; Name: string; W, H: word; Bits: byte): TTexture;
+var
+  Position:        integer;
+  Position2:       integer;
+  Pix:        integer;
+  ColInt:     real;
+  PPix:       PByteArray;
+  TempA:      integer;
+  Error:      integer;
+begin
+  Mipmapping := false;
+
+  glGenTextures(1, ActTex); // ActText = new texture number
+  glBindTexture(GL_TEXTURE_2D, ActTex);
+  glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_LINEAR);
+  glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_WRAP_S, GL_CLAMP_TO_EDGE);
+  glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_WRAP_T, GL_CLAMP_TO_EDGE);
+
+  glTexImage2D(GL_TEXTURE_2D, 0, 3, W, H, 0, GL_RGB, GL_UNSIGNED_BYTE, @Data[0]);
+  if Mipmapping then begin
+    Error := gluBuild2DMipmaps(GL_TEXTURE_2D, 3, W, H, GL_RGB, GL_UNSIGNED_BYTE, @Data[0]);
+    if Error > 0 then beep;
+  end;
+
+  Result.X := 0;
+  Result.Y := 0;
+  Result.W := 0;
+  Result.H := 0;
+  Result.ScaleW := 1;
+  Result.ScaleH := 1;
+  Result.Rot := 0;
+  Result.TexNum := ActTex;
+  Result.TexW := 1;
+  Result.TexH := 1;
+
+  Result.Int := 1;
+  Result.ColR := 1;
+  Result.ColG := 1;
+  Result.ColB := 1;
+  Result.Alpha := 1;
+
+  // 0.4.2 new test - default use whole texure, taking TexW and TexH as const and changing these
+  Result.TexX1 := 0;
+  Result.TexY1 := 0;
+  Result.TexX2 := 1;
+  Result.TexY2 := 1;
+
+  // 0.5.0
+  Result.Name := Name;
+end;
+
+procedure TTextureUnit.UnloadTexture(Name: string; FromCache: boolean);
+var
+  T:      integer;
+  TexNum: GLuint;
+begin
+  T := FindTexture(Name);
+
+  if not FromCache then begin
+    TexNum := TextureDatabase.Texture[T].Texture.TexNum;
+    if TexNum >= 0 then begin
+      glDeleteTextures(1, @TexNum);
+      TextureDatabase.Texture[T].Texture.TexNum := -1;
+//      Log.LogError('Unload texture no '+IntToStr(TexNum));
+    end;
+  end else begin
+    TexNum := TextureDatabase.Texture[T].TextureCache.TexNum;
+    if TexNum >= 0 then begin
+      glDeleteTextures(1, @TexNum);
+      TextureDatabase.Texture[T].TextureCache.TexNum := -1;
+//      Log.LogError('Unload texture cache no '+IntToStr(TexNum));
+    end;
+  end;
+end;
+
+end.
diff --git a/Game/Code/Classes/UTime.pas b/Game/Code/Classes/UTime.pas
index 29e972ae..87d4f922 100644
--- a/Game/Code/Classes/UTime.pas
+++ b/Game/Code/Classes/UTime.pas
@@ -1,81 +1,131 @@
-unit UTime;

-

-interface

-

-type

-  TTime = class

-    constructor Create;

-    function GetTime: real;

-  end;

-

-procedure CountSkipTimeSet;

-procedure CountSkipTime;

-procedure CountMidTime;

-procedure TimeSleep(ms: real);

-

-var

-  USTime:   TTime;

-  

-  TimeFreq: int64;

-  TimeNew:  int64;

-  TimeOld:  int64;

-  TimeSkip: real;

-  TimeMid:  real;

-  TimeMidTemp:  int64;

-

-implementation

-

-uses Windows;

-

-constructor TTime.Create;

-begin

-  CountSkipTimeSet;

-end;

-

-procedure CountSkipTimeSet;

-begin

-  QueryPerformanceFrequency(TimeFreq);

-  QueryPerformanceCounter(TimeNew);

-end;

-

-procedure CountSkipTime;

-begin

-  TimeOld := TimeNew;

-  QueryPerformanceCounter(TimeNew);

-  TimeSkip := (TimeNew-TimeOld)/TimeFreq;

-end;

-

-procedure CountMidTime;

-begin

-  QueryPerformanceCounter(TimeMidTemp);

-  TimeMid := (TimeMidTemp-TimeNew)/TimeFreq;

-end;

-

-procedure TimeSleep(ms: real);

-var

-  TimeStart:  int64;

-  TimeHalf:   int64;

-  Time:       real;

-  Stop:       boolean;

-begin

-  QueryPerformanceCounter(TimeStart);

-

-  Stop := false;

-  while (not Stop) do begin

-    QueryPerformanceCounter(TimeHalf);

-    Time := 1000 * (TimeHalf-TimeStart)/TimeFreq;

-    if Time > ms then Stop := true;

-  end;

-

-end;

-

-function TTime.GetTime: real;

-var

-  TimeTemp:   int64;

-begin

-  QueryPerformanceCounter(TimeTemp);

-  Result := TimeTemp/TimeFreq;

-end;

-

-

-end.

+unit UTime;
+
+interface
+
+{$IFDEF FPC}
+  {$MODE Delphi}
+{$ENDIF}
+
+type
+  TTime = class
+    constructor Create;
+    function GetTime: real;
+  end;
+
+procedure CountSkipTimeSet;
+procedure CountSkipTime;
+procedure CountMidTime;
+procedure TimeSleep(ms: real);
+
+var
+  USTime:   TTime;
+  
+  TimeFreq: int64;
+  TimeNew:  int64;
+  TimeOld:  int64;
+  TimeSkip: real;
+  TimeMid:  real;
+  TimeMidTemp:  int64;
+
+implementation
+
+uses
+  {$IFDEF win32}
+    windows,
+  {$ELSE}
+  libc,
+  time,
+  {$ENDIF}
+  ucommon;
+
+
+// -- ON Linux it MAY Be better to use ...   clock_gettime() instead of  CurrentSec100OfDay
+// who knows how fast or slow that function is !
+// but this gets a compile for now .. :)
+
+constructor TTime.Create;
+begin
+  CountSkipTimeSet;
+end;
+
+procedure CountSkipTimeSet;
+begin
+  {$IFDEF win32}
+  QueryPerformanceFrequency(TimeFreq);
+  QueryPerformanceCounter(TimeNew);
+  {$ELSE}
+  TimeNew  := CurrentSec100OfDay();     // TODO - JB_Linux will prob need looking at
+  TimeFreq := 0;
+  {$ENDIF}
+end;
+
+procedure CountSkipTime;
+begin
+  TimeOld := TimeNew;
+  
+  {$IFDEF win32}
+  QueryPerformanceCounter(TimeNew);
+  {$ELSE}
+  TimeNew := CurrentSec100OfDay();    // TODO - JB_Linux will prob need looking at
+  {$ENDIF}
+  
+  TimeSkip := (TimeNew-TimeOld)/TimeFreq;
+end;
+
+procedure CountMidTime;
+begin
+  {$IFDEF win32}
+  QueryPerformanceCounter(TimeMidTemp);
+  TimeMid := (TimeMidTemp-TimeNew)/TimeFreq;
+  {$ELSE}
+  TimeMidTemp := CurrentSec100OfDay();
+  TimeMid     := (TimeMidTemp-TimeNew);      // TODO - JB_Linux will prob need looking at
+  {$ENDIF}
+end;
+
+procedure TimeSleep(ms: real);
+var
+  TimeStart:  int64;
+  TimeHalf:   int64;
+  Time:       real;
+  Stop:       boolean;
+begin
+  {$IFDEF win32}
+  QueryPerformanceCounter(TimeStart);
+  {$ELSE}
+  TimeStart := CurrentSec100OfDay();   // TODO - JB_Linux will prob need looking at
+  {$ENDIF}
+
+
+  Stop := false;
+  while (not Stop) do
+  begin
+    {$IFDEF win32}
+    QueryPerformanceCounter(TimeHalf);
+    Time := 1000 * (TimeHalf-TimeStart)/TimeFreq;
+    {$ELSE}
+    TimeHalf := CurrentSec100OfDay();
+    Time := 1000 * (TimeHalf-TimeStart); // TODO - JB_Linux will prob need looking at
+    {$ENDIF}
+
+    if Time > ms then
+      Stop := true;
+  end;
+
+end;
+
+function TTime.GetTime: real;
+var
+  TimeTemp:   int64;
+begin
+  {$IFDEF win32}
+    QueryPerformanceCounter(TimeTemp);
+    Result := TimeTemp / TimeFreq;
+  {$ELSE}
+    TimeTemp := CurrentSec100OfDay();
+    Result   := TimeTemp;  // TODO - JB_Linux will prob need looking at
+  {$ENDIF}
+end;
+
+
+end.