From 9d01c8801db29d6ff3d64ef81b84321549d84688 Mon Sep 17 00:00:00 2001
From: whiteshark0 <whiteshark0@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Thu, 5 Apr 2007 21:09:52 +0000
Subject: Added Advanced Screen and Options in TIni Options working now only
 for Effect Perfect and Effect Golden.

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@65 b956fd51-792f-4845-bead-9b4dfca2ff2c
---
 Game/Code/Classes/UDraw.pas | 26 ++++++++++++++++----------
 1 file changed, 16 insertions(+), 10 deletions(-)

(limited to 'Game/Code/Classes/UDraw.pas')

diff --git a/Game/Code/Classes/UDraw.pas b/Game/Code/Classes/UDraw.pas
index 2e742172..e0e8e941 100644
--- a/Game/Code/Classes/UDraw.pas
+++ b/Game/Code/Classes/UDraw.pas
@@ -215,11 +215,17 @@ begin
       with Nuta[Pet] do begin
         if not FreeStyle then begin
 
-          // Golden Note Patch
-          case Wartosc of
-            1: glColor4f(1, 1, 1, 0.85);
-            2: glColor4f(1, 1, 1, 0.85); // no stars, paint yellow -> glColor4f(1, 1, 0.3, 0.85);
-          end; // case
+
+          if Ini.EffectGolden = 0 then
+          // If Golden note Effect of then Change not Color
+          begin
+            case Wartosc of
+              1: glColor4f(1, 1, 1, 0.85);
+              2: glColor4f(1, 1, 0.3, 0.85); // no stars, paint yellow -> glColor4f(1, 1, 0.3, 0.85);
+            end; // case
+          end //Else all Notes same Color
+          else
+            glColor4f(1, 1, 1, 0.85);
 
           // lewa czesc  -  left part
           Rec.Left := (Start-Czesci[NrCzesci].Czesc[Czesci[NrCzesci].Akt].StartNote) * TempR + Left + 0.5 + 10*ScreenX;
@@ -264,10 +270,10 @@ begin
         glEnd;
 
           // Golden Star Patch
-          if Wartosc = 2 then
-            begin
-              GoldenRec.SaveGoldenStarsRec(GoldenStarPos, Rec.Top, Rec.Right, Rec.Bottom);
-            end;
+          if (Wartosc = 2) AND (Ini.EffectGolden=1) then
+          begin
+            GoldenRec.SaveGoldenStarsRec(GoldenStarPos, Rec.Top, Rec.Right, Rec.Bottom);
+          end;
 
         end; // if not FreeStyle
       end; // with
@@ -373,7 +379,7 @@ var
 
         //Rec.Right := X + (Start+Dlugosc-Czesci[0].Czesc[Czesci[0].Akt].StartNote) * TempR - NotesW - 0.5  + 10*ScreenX;
         //if (Start+Dlugosc-1 = Czas.AktBeatD) then
-        if Perfect AND (Ini.GMAFix <> 1) then begin
+        if Perfect and (Ini.EffectPerfect=1) then begin
 //          A := sqrt((1+sin(Music.Position * 3))/2);
           A := 1 - 2*(Czas.Teraz - GetTimeFromBeat(Start+Dlugosc));
           if not (Start+Dlugosc-1 = Czas.AktBeatD) then
-- 
cgit v1.2.3