From a4accf241c7623b5b36e1e31bded05f94f662585 Mon Sep 17 00:00:00 2001
From: f1fth_freed0m <f1fth_freed0m@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Mon, 10 Mar 2008 07:29:30 +0000
Subject: Removed zlportio from Code

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@954 b956fd51-792f-4845-bead-9b4dfca2ff2c
---
 Game/Code/Screens/UScreenMain.pas | 35 ++++++++++++++++++++---------------
 1 file changed, 20 insertions(+), 15 deletions(-)

(limited to 'Game/Code/Screens/UScreenMain.pas')

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
-- 
cgit v1.2.3