aboutsummaryrefslogtreecommitdiffstats
path: root/Game/Code
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--Game/Code/Classes/UMain.pas34
-rw-r--r--Game/Code/Screens/UScreenCredits.pas4
-rw-r--r--Game/Code/Screens/UScreenMain.pas35
-rw-r--r--Game/Code/Screens/UScreenScore.pas1
-rw-r--r--Game/Code/Screens/UScreenSing.pas10
-rw-r--r--Game/Code/Screens/UScreenSingModi.pas4
-rw-r--r--Game/Code/Screens/UScreenSong.pas29
-rw-r--r--Game/Code/Screens/UScreenTop5.pas2
-rw-r--r--Game/Code/UltraStar.dpr4
9 files changed, 70 insertions, 53 deletions
diff --git a/Game/Code/Classes/UMain.pas b/Game/Code/Classes/UMain.pas
index 67690706..fd0c9eb5 100644
--- a/Game/Code/Classes/UMain.pas
+++ b/Game/Code/Classes/UMain.pas
@@ -23,10 +23,10 @@ uses
USong,
OpenGL12,
{$IFDEF UseSerialPort}
- zlportio, //you can disable it and all PortWriteB calls
+ //zlportio, //you can disable it and all PortWriteB calls
{$ENDIF}
- ULCD,
- ULight,
+ //ULCD, //TODO: maybe LCD Support as Plugin?
+ //ULight, //TODO: maybe Light Support as Plugin?
UThemes;
type
@@ -225,10 +225,11 @@ begin
Log.BenchmarkEnd(1);
Log.LogBenchmark('Load Sound Settings', 1);
- // LCD
- Log.BenchmarkStart(1);
- Log.LogStatus('Load LCD', 'Initialization');
- LCD := TLCD.Create;
+ // LCD //TODO: maybe LCD Support as Plugin?
+ //Log.BenchmarkStart(1);
+ //Log.LogStatus('Load LCD', 'Initialization');
+ //LCD := TLCD.Create;
+ (*
if Ini.LPT = 1 then
begin
//LCD.HalfInterface := true;
@@ -239,8 +240,9 @@ begin
end;
Log.BenchmarkEnd(1);
Log.LogBenchmark('Loading LCD', 1);
-
- // Light
+ *)
+ // Light //TODO: maybe Light Support as Plugin?
+ (*
Log.BenchmarkStart(1);
Log.LogStatus('Load Light', 'Initialization');
Light := TLight.Create;
@@ -250,7 +252,7 @@ begin
end;
Log.BenchmarkEnd(1);
Log.LogBenchmark('Loading Light', 1);
-
+ *)
// Theme
@@ -379,12 +381,14 @@ begin
//TTF_quit();
SDL_Quit();
+ (*
{$ifdef WIN32}
if assigned(LCD) and (Ini.LPT = 1) then
LCD.Clear;
if assigned(Light) and (Ini.LPT = 2) then
Light.TurnOff;
{$endif}
+ *)
if assigned(Log) then
begin
@@ -416,7 +420,7 @@ begin
SwapBuffers;
// light
- Light.Refresh;
+ //Light.Refresh;
// delay
CountMidTime;
@@ -795,7 +799,7 @@ begin
Lyrics.AddLine(@Lines[0].Line[Lyrics.LineCounter]);
end;
- Sender.UpdateLCD;
+ //Sender.UpdateLCD;
//On Sentence Change...
Sender.onSentenceChange(Lines[0].Current);
@@ -819,7 +823,7 @@ begin
// LCD.ShowCursor;
//LCD.MoveCursorBR(Sender.LyricMain.SelectedLetter);
- LCD.ShowCursor;
+ //LCD.ShowCursor;
end;
end;
@@ -842,9 +846,11 @@ begin
//LPT_1 := 0;
// Light.LightOne(0, 150);
+ (*
Light.LightOne(1, 200); // beat light
if ParamStr(1) = '-doublelights' then
Light.LightOne(0, 200); // beat light
+ *)
{ if ((LineState.CurrentBeatC + Lines[0].Resolution + Lines[0].NotesGAP) mod (Lines[0].Resolution * 2) = 0) then
@@ -862,8 +868,10 @@ begin
AudioPlayback.PlaySound(SoundLib.Click);
//LPT_2 := 0;
+ (*
if ParamStr(1) <> '-doublelights' then
Light.LightOne(0, 150); //125
+ *)
// drum machine
(*
diff --git a/Game/Code/Screens/UScreenCredits.pas b/Game/Code/Screens/UScreenCredits.pas
index e12a54e3..271c0f5e 100644
--- a/Game/Code/Screens/UScreenCredits.pas
+++ b/Game/Code/Screens/UScreenCredits.pas
@@ -20,8 +20,8 @@ uses
UFiles,
SysUtils,
UThemes,
- ULCD,
- ULight,
+ //ULCD,
+ //ULight,
UGraphicClasses;
type
diff --git a/Game/Code/Screens/UScreenMain.pas b/Game/Code/Screens/UScreenMain.pas
index fd95a768..54a6f47d 100644
--- a/Game/Code/Screens/UScreenMain.pas
+++ b/Game/Code/Screens/UScreenMain.pas
@@ -15,9 +15,9 @@ uses
UMusic,
UFiles,
SysUtils,
- UThemes,
- ULCD,
- ULight;
+ UThemes;
+ //ULCD, //TODO: maybe LCD Support as Plugin?
+ //ULight //TODO: maybe Light Support as Plugin?
type
TScreenMain = class(TMenu)
@@ -32,7 +32,7 @@ type
procedure InteractPrev; override;
procedure InteractInc; override;
procedure InteractDec; override;
- procedure UpdateLCD;
+ //procedure UpdateLCD; //TODO: maybe LCD Support as Plugin?
procedure SetAnimationProgress(Progress: real); override;
//function Draw: boolean; override;
end;
@@ -218,12 +218,13 @@ begin
Interaction := 0;
end;
-procedure TScreenMain.onShow;
+procedure TScreenMain.onShow; //TODO: maybe LCD Support as Plugin?
begin
inherited;
-
+ (*
LCD.WriteText(1, ' Choose mode: ');
UpdateLCD;
+ *)
end;
procedure TScreenMain.InteractNext;
@@ -231,8 +232,8 @@ begin
inherited InteractNext;
Text[TextDescription].Text := Theme.Main.Description[Interaction];
Text[TextDescriptionLong].Text := Theme.Main.DescriptionLong[Interaction];
- UpdateLCD;
- Light.LightOne(1, 200);
+ //UpdateLCD;
+ //Light.LightOne(1, 200);
end;
procedure TScreenMain.InteractPrev;
@@ -240,8 +241,8 @@ begin
inherited InteractPrev;
Text[TextDescription].Text := Theme.Main.Description[Interaction];
Text[TextDescriptionLong].Text := Theme.Main.DescriptionLong[Interaction];
- UpdateLCD;
- Light.LightOne(0, 200);
+ //UpdateLCD;
+ //Light.LightOne(0, 200);
end;
procedure TScreenMain.InteractDec;
@@ -249,8 +250,8 @@ begin
inherited InteractDec;
Text[TextDescription].Text := Theme.Main.Description[Interaction];
Text[TextDescriptionLong].Text := Theme.Main.DescriptionLong[Interaction];
- UpdateLCD;
- Light.LightOne(0, 200);
+ //UpdateLCD;
+ //Light.LightOne(0, 200);
end;
procedure TScreenMain.InteractInc;
@@ -258,19 +259,23 @@ begin
inherited InteractInc;
Text[TextDescription].Text := Theme.Main.Description[Interaction];
Text[TextDescriptionLong].Text := Theme.Main.DescriptionLong[Interaction];
- UpdateLCD;
- Light.LightOne(1, 200);
+ //UpdateLCD;
+ //Light.LightOne(1, 200);
end;
-procedure TScreenMain.UpdateLCD;
+(*
+procedure TScreenMain.UpdateLCD; //TODO: maybe LCD Support as Plugin?
begin
+
case Interaction of
0: LCD.WriteText(2, ' sing ');
1: LCD.WriteText(2, ' editor ');
2: LCD.WriteText(2, ' options ');
3: LCD.WriteText(2, ' exit ');
end
+
end;
+*)
procedure TScreenMain.SetAnimationProgress(Progress: real);
begin
diff --git a/Game/Code/Screens/UScreenScore.pas b/Game/Code/Screens/UScreenScore.pas
index 5bba9691..6939cee2 100644
--- a/Game/Code/Screens/UScreenScore.pas
+++ b/Game/Code/Screens/UScreenScore.pas
@@ -18,7 +18,6 @@ uses
UThemes,
OpenGL12,
math,
- ULCD,
UTexture;
// OpenGL;
diff --git a/Game/Code/Screens/UScreenSing.pas b/Game/Code/Screens/UScreenSing.pas
index d50d4360..608bae72 100644
--- a/Game/Code/Screens/UScreenSing.pas
+++ b/Game/Code/Screens/UScreenSing.pas
@@ -23,7 +23,7 @@ uses UMenu,
TextGL,
OpenGL12,
UThemes,
- ULCD,
+ //ULCD, //TODO: maybe LCD Support as Plugin?
UGraphicClasses,
USingScores;
@@ -108,7 +108,7 @@ type
function Draw: boolean; override;
procedure Finish; virtual;
- procedure UpdateLCD;
+ //procedure UpdateLCD; //TODO: maybe LCD Support as Plugin?
procedure Pause; //Pause Mod(Toggles Pause)
procedure onSentenceEnd(S: Cardinal); //OnSentenceEnd for LineBonus + Singbar
@@ -637,7 +637,7 @@ begin
While (not Lyrics.LineinQueue) AND (Lyrics.LineCounter <= High(Lines[0].Line)) do
Lyrics.AddLine(@Lines[0].Line[Lyrics.LineCounter]);
- UpdateLCD;
+ //UpdateLCD; //TODO: maybe LCD Support as Plugin?
//Deactivate Pause
Paused := False;
@@ -1286,7 +1286,8 @@ begin
SetFontItalic (False);
end;
-procedure TScreenSing.UpdateLCD;
+(*
+procedure TScreenSing.UpdateLCD; //TODO: maybe LCD Support as Plugin?
var
T: string;
begin
@@ -1302,6 +1303,7 @@ begin
if Copy(T, Length(T), 1) <> ' ' then T := T + ' ';
LCD.AddTextBR(T);}
end;
+*)
procedure TScreenSing.onSentenceEnd(S: Cardinal);
var
diff --git a/Game/Code/Screens/UScreenSingModi.pas b/Game/Code/Screens/UScreenSingModi.pas
index 2e4f8240..c2b1be79 100644
--- a/Game/Code/Screens/UScreenSingModi.pas
+++ b/Game/Code/Screens/UScreenSingModi.pas
@@ -24,7 +24,7 @@ uses UMenu,
OpenGL12,
UThemes,
- ULCD,
+ //ULCD, //TODO: maybe LCD Support as Plugin?
UScreenSing,
ModiSDK;
@@ -71,7 +71,7 @@ type
function ParseInput(PressedKey: Cardinal; ScanCode: byte; PressedDown: Boolean): Boolean; override;
function Draw: boolean; override;
procedure Finish; override;
- //procedure UpdateLCD;
+ //procedure UpdateLCD; //TODO: maybe LCD Support as Plugin?
//procedure Pause; //Pause Mod(Toggles Pause)
end;
diff --git a/Game/Code/Screens/UScreenSong.pas b/Game/Code/Screens/UScreenSong.pas
index f481bad6..16432dfa 100644
--- a/Game/Code/Screens/UScreenSong.pas
+++ b/Game/Code/Screens/UScreenSong.pas
@@ -22,8 +22,8 @@ uses
UThemes,
UTexture,
ULanguage,
- ULCD,
- ULight,
+ //ULCD, //TODO: maybe LCD Support as Plugin?
+ //ULight, //TODO: maybe Light Support as Plugin?
USong,
UIni;
@@ -99,7 +99,7 @@ type
procedure onHide; override;
procedure SelectNext;
procedure SelectPrev;
- procedure UpdateLCD;
+ //procedure UpdateLCD; //TODO: maybe LCD Support as Plugin?
procedure SkipTo(Target: Cardinal);
procedure FixSelected; //Show Wrong Song when Tabs on Fix
procedure FixSelected2; //Show Wrong Song when Tabs on Fix
@@ -274,7 +274,7 @@ begin
ChangeMusic;
SetScroll4;
- UpdateLCD;
+ //UpdateLCD; //TODO: maybe LCD Support as Plugin?
//Break and Exit
Exit;
end;
@@ -295,7 +295,7 @@ begin
ChangeMusic;
SetScroll4;
- UpdateLCD;
+ //UpdateLCD; //TODO: maybe LCD Support as Plugin?
//Break and Exit
Exit;
@@ -565,8 +565,8 @@ begin
// SongTarget := Interaction;
ChangeMusic;
SetScroll4;
- UpdateLCD;
- Light.LightOne(1, 200);
+ //UpdateLCD; //TODO: maybe LCD Support as Plugin?
+ //Light.LightOne(1, 200); //TODO: maybe Light Support as Plugin?
end;
end;
@@ -577,8 +577,8 @@ begin
SelectPrev;
ChangeMusic;
SetScroll4;
- UpdateLCD;
- Light.LightOne(0, 200);
+ //UpdateLCD; //TODO: maybe LCD Support as Plugin?
+ //Light.LightOne(0, 200); //TODO: maybe Light Support as Plugin?
end;
end;
@@ -659,7 +659,7 @@ begin
ChangeMusic;
SetScroll4;
- UpdateLCD;
+ //UpdateLCD; //TODO: maybe LCD Support as Plugin?
end;
end;
@@ -1542,7 +1542,7 @@ begin
end;
SetScroll;
- UpdateLCD;
+ //UpdateLCD; //TODO: maybe LCD Support as Plugin?
end;
//Playlist Mode
@@ -1757,13 +1757,16 @@ begin
end;
end;
-procedure TScreenSong.UpdateLCD;
+(*
+procedure TScreenSong.UpdateLCD; //TODO: maybe LCD Support as Plugin?
begin
LCD.HideCursor;
LCD.Clear;
LCD.WriteText(1, Text[TextArtist].Text);
LCD.WriteText(2, Text[TextTitle].Text);
+
end;
+*)
//Procedure Change current played Preview
procedure TScreenSong.ChangeMusic;
@@ -1977,7 +1980,7 @@ begin
AudioPlayback.PlaySound(SoundLib.Change);
ChangeMusic;
SetScroll;
- UpdateLCD;
+ //UpdateLCD; //TODO: maybe LCD Support as Plugin?
end;
procedure TScreenSong.SetJoker;
diff --git a/Game/Code/Screens/UScreenTop5.pas b/Game/Code/Screens/UScreenTop5.pas
index 27881120..d241499a 100644
--- a/Game/Code/Screens/UScreenTop5.pas
+++ b/Game/Code/Screens/UScreenTop5.pas
@@ -9,7 +9,7 @@ interface
{$I switches.inc}
uses
- UMenu, SDL, SysUtils, UDisplay, UMusic, USongs, UThemes, ULCD;
+ UMenu, SDL, SysUtils, UDisplay, UMusic, USongs, UThemes;
type
TScreenTop5 = class(TMenu)
diff --git a/Game/Code/UltraStar.dpr b/Game/Code/UltraStar.dpr
index 4acb5d1f..79f9675e 100644
--- a/Game/Code/UltraStar.dpr
+++ b/Game/Code/UltraStar.dpr
@@ -106,8 +106,8 @@ uses
UThemes in 'Classes\UThemes.pas',
ULog in 'Classes\ULog.pas',
UJoystick in 'Classes\UJoystick.pas',
- ULCD in 'Classes\ULCD.pas',
- ULight in 'Classes\ULight.pas',
+ //ULCD in 'Classes\ULCD.pas',
+ //ULight in 'Classes\ULight.pas',
UDataBase in 'Classes\UDataBase.pas',
UCovers in 'Classes\UCovers.pas',
UCatCovers in 'Classes\UCatCovers.pas',