7 files changed, 72 insertions, 13 deletions
diff --git a/Game/Code/Classes/UGraphic.pas b/Game/Code/Classes/UGraphic.pas
index cf1a0c5a..068ed715 100644
--- a/Game/Code/Classes/UGraphic.pas
+++ b/Game/Code/Classes/UGraphic.pas
@@ -23,6 +23,9 @@ type
 var
   Screen:             PSDL_Surface;
 
+  LoadingThread:         PSDL_Thread;
+  Mutex:          PSDL_Mutex;
+
   RenderW:    integer;
   RenderH:    integer;
   ScreenW:    integer;
@@ -174,8 +177,11 @@ procedure SwapBuffers;
 
 procedure LoadTextures;
 procedure InitializeScreen;
+procedure LoadLoadingScreen;
 procedure LoadScreens;
 
+function LoadingThreadFunction: integer;
+
 
 implementation
 uses UMain, UIni, UDisplay, UCommandLine, Graphics, Classes, Windows;
@@ -240,6 +246,7 @@ var
   Res:  TResourceStream;
   ISurface: PSDL_Surface;
   Pixel: PByteArray;
+  I: Integer;
 begin
   Log.LogStatus('LoadOpenGL', 'Initialize3D');
   Log.BenchmarkStart(2);
@@ -302,7 +309,42 @@ begin
   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);
@@ -397,7 +439,7 @@ begin
   ScreenH := H;
 end;
 
-procedure LoadScreens;
+procedure LoadLoadingScreen;
 begin
   ScreenLoading := TScreenLoading.Create;
   ScreenLoading.onShow;
@@ -405,7 +447,17 @@ begin
   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);}
@@ -480,4 +532,10 @@ begin
 
   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 032830b9..83d192d6 100644
--- a/Game/Code/Classes/UGraphicClasses.pas
+++ b/Game/Code/Classes/UGraphicClasses.pas
@@ -29,7 +29,7 @@ type
    SurviveSentenceChange : Boolean;
 
    Constructor Create(cX,cY: Real; cScreen: Integer; cLive: Byte; cFrame : integer; cRecArrayIndex : Integer; cStarType : TParticleType; Player: Cardinal);
-   Destructor Destroy();
+   Destructor Destroy(); override;
    procedure Draw;
    procedure LiveOn;
  end;
diff --git a/Game/Code/Classes/ULCD.pas b/Game/Code/Classes/ULCD.pas
index a127c689..a3cdac73 100644
--- a/Game/Code/Classes/ULCD.pas
+++ b/Game/Code/Classes/ULCD.pas
@@ -106,9 +106,9 @@ begin
 end;
 
 procedure TLCD.Enable;
-var
+{var
   A:  byte;
-  B:  byte;
+  B:  byte;}
 begin
   Enabled := true;
   if not HalfInterface then
@@ -191,7 +191,7 @@ end;
 procedure TLCD.AddTextBR(S: string);
 var
   Word:     string;
-  W:        integer;
+//  W:        integer;
   P:        integer;
   L:        integer;
 begin
@@ -227,9 +227,9 @@ begin
 end;
 
 procedure TLCD.MoveCursorBR(Pos: integer);
-var
+{var
   I:    integer;
-  L:    integer;
+  L:    integer;}
 begin
   if Enabled then begin
   Pos := Pos - (StartPos-1);
diff --git a/Game/Code/Classes/ULight.pas b/Game/Code/Classes/ULight.pas
index 967d2ea1..1fc4aba8 100644
--- a/Game/Code/Classes/ULight.pas
+++ b/Game/Code/Classes/ULight.pas
@@ -89,12 +89,12 @@ end;
 procedure TLight.Refresh;
 var
   Time:     real;
-  TimeSkip: real;
+//  TimeSkip: real;
   L:        integer;
 begin
   if Enabled then begin
     Time := GetTime;
-    TimeSkip := Time - LastTime;
+//    TimeSkip := Time - LastTime;
     for L := 0 to 7 do begin
       if Light[L] = true then begin
         if LightTime[L] > Time then begin
diff --git a/Game/Code/Classes/UMain.pas b/Game/Code/Classes/UMain.pas
index b47047a5..3a1c9dd4 100644
--- a/Game/Code/Classes/UMain.pas
+++ b/Game/Code/Classes/UMain.pas
@@ -545,6 +545,7 @@ begin
 
     // 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)
diff --git a/Game/Code/Classes/USkins.pas b/Game/Code/Classes/USkins.pas
index 67b0ae93..3bcd9357 100644
--- a/Game/Code/Classes/USkins.pas
+++ b/Game/Code/Classes/USkins.pas
@@ -48,8 +48,8 @@ end;
 procedure TSkin.LoadList;
 var
   SR:     TSearchRec;
-  SR2:    TSearchRec;
-  SLen:   integer;
+//  SR2:    TSearchRec;
+//  SLen:   integer;
 begin
   if FindFirst('Skins\*', faDirectory, SR) = 0 then begin
     repeat
@@ -63,7 +63,7 @@ end;
 procedure TSkin.ParseDir(Dir: string);
 var
   SR:     TSearchRec;
-  SLen:   integer;
+//  SLen:   integer;
 begin
   if FindFirst(Dir + '*.ini', faAnyFile, SR) = 0 then begin
     repeat
diff --git a/Game/Code/SMpeg/Uffmpeg.pas b/Game/Code/Classes/UVideo.pas
index 6e08ca95..8e2fc446 100644
--- a/Game/Code/SMpeg/Uffmpeg.pas
+++ b/Game/Code/Classes/UVideo.pas
@@ -10,7 +10,7 @@
 {$define Info}
 
 
-unit Uffmpeg;
+unit UVideo;
 
 interface
 uses SDL, UGraphicClasses, textgl, avcodec, avformat, avutil, math, OpenGL12, SysUtils, UIni, dialogs;