From 6585afce2ccd8e7c5ccb3bb3599d4723b00a0433 Mon Sep 17 00:00:00 2001
From: tobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Tue, 28 Oct 2008 20:16:05 +0000
Subject: some compiler warnings/hints removed

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@1485 b956fd51-792f-4845-bead-9b4dfca2ff2c
---
 src/base/UDraw.pas | 18 ++----------------
 1 file changed, 2 insertions(+), 16 deletions(-)

(limited to 'src/base/UDraw.pas')

diff --git a/src/base/UDraw.pas b/src/base/UDraw.pas
index a92d67d4..d3f19019 100644
--- a/src/base/UDraw.pas
+++ b/src/base/UDraw.pas
@@ -254,7 +254,6 @@ var
   Rec:      TRecR;
   Count:    integer;
   TempR:    real;
-  R,G,B:    real;
 
   PlayerNumber: Integer;
 
@@ -374,7 +373,7 @@ var
   TempR:      real;
   Rec:        TRecR;
   N:          integer;
-  R, G, B, A: real;
+  //R, G, B, A: real;
   NotesH2:    real;
 begin
   //Log.LogStatus('Player notes', 'SingDraw');
@@ -463,7 +462,7 @@ begin
         // Perfect note is stored
         if Perfect and (Ini.EffectSing=1) then
         begin
-          A := 1 - 2*(LyricsState.GetCurrentTime() - GetTimeFromBeat(Start+Length));
+          //A := 1 - 2*(LyricsState.GetCurrentTime() - GetTimeFromBeat(Start+Length));
           if not (Start+Length-1 = LyricsState.CurrentBeatD) then
           begin
             //Star animation counter
@@ -489,7 +488,6 @@ var
   Rec:      TRecR;
   Count:      integer;
   TempR:    real;
-  R,G,B:    real;
   X1, X2, X3, X4: real;
   W, H:     real;
   
@@ -894,19 +892,7 @@ end;
 // q'n'd for using the game mode dll's
 procedure SingModiDraw (PlayerInfo: TPlayerInfo);
 var
-  Count:      integer;
-  Pet2:     integer;
-  TempR:    real;
-  Rec:      TRecR;
-  TexRec:   TRecR;
   NR:       TRecR;
-  FS:       real;
-  BarFrom:  integer;
-  BarAlpha: real;
-  BarWspol: real;
-  TempCol:  real;
-  Tekst:    string;
-  PetCz:    integer;
 begin
   // positions
   if Ini.SingWindow = 0 then begin
-- 
cgit v1.2.3