some compiler warnings/hints removed

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

1 files changed, 0 insertions, 18 deletions

diff --git a/src/base/UMain.pas b/src/base/UMain.pas
index 6c77ebc0..6300f18b 100644
--- a/src/base/UMain.pas
+++ b/src/base/UMain.pas
@@ -432,7 +432,6 @@ var
 const
   MAX_FPS = 100;
 begin
-  Delay := 0;
   SDL_EnableKeyRepeat(125, 125);
 
   CountSkipTime();  // JB - for some reason this seems to be needed when we use the SDL Timer functions.
@@ -732,10 +731,7 @@ var
   Count:    integer;
   CountGr:  integer;
   CP:       integer;
-  Done:     real;
   N:        integer;
-  CurLine:  PLine;
-  CurNote:  PLineFragment;
 begin
   LyricsState.UpdateBeats();
 
@@ -767,20 +763,6 @@ begin
   // make some operations when detecting new voice pitch
   if (LyricsState.CurrentBeatD >= 0) and (LyricsState.OldBeatD <> LyricsState.CurrentBeatD) then
     NewBeatDetect(Screen);
-
-  CurLine := @Lines[0].Line[Lines[0].Current];
-
-  // remove moving text
-  Done := 1;
-  for N := 0 to CurLine.HighNote do
-  begin
-    CurNote := @CurLine.Note[N];
-    if (CurNote.Start <= LyricsState.MidBeat) and
-       (CurNote.Start + CurNote.Length >= LyricsState.MidBeat) then
-    begin
-      Done := (LyricsState.MidBeat - CurNote.Start) / CurNote.Length;
-    end;
-  end;
 end;
 
 procedure NewSentence(Screen: TScreenSing);