From 12eb3f055c7c75dbfeb168d5c38f87a901a6ab89 Mon Sep 17 00:00:00 2001
From: whiteshark0 <whiteshark0@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Sat, 14 Apr 2007 10:03:18 +0000
Subject: Fixed a bug that causes Perfect Line twinkles to spawn at each Line
 when LineBonus is deactivated.

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@87 b956fd51-792f-4845-bead-9b4dfca2ff2c
---
 Game/Code/Screens/UScreenSing.pas | 23 +++++++++++------------
 1 file changed, 11 insertions(+), 12 deletions(-)

(limited to 'Game')

diff --git a/Game/Code/Screens/UScreenSing.pas b/Game/Code/Screens/UScreenSing.pas
index e3b7c7ad..e4fd7add 100644
--- a/Game/Code/Screens/UScreenSing.pas
+++ b/Game/Code/Screens/UScreenSing.pas
@@ -1084,12 +1084,12 @@ begin
 
     //PhrasenBonus - Line Bonus Mod
 
+    //Generate Steps 0 to 8
+    A := Floor(A / (B * Czesci[0].Czesc[S].TotalNotes / Czesci[0].Wartosc) * 8);
+
     If (Ini.LineBonus > 0) then
     begin
 
-      //Generate Steps 0 to 8
-      A := Floor(A / (B * Czesci[0].Czesc[S].TotalNotes / Czesci[0].Wartosc) * 8);
-
       //Generate Text
       if A >= 8 then
         Player[I].LineBonus_Text := Theme.Sing.LineBonusText[8]
@@ -1111,21 +1111,21 @@ begin
       Player[I].LineBonus_PosY  := Player[I].LineBonus_StartY;
       Player[I].LineBonus_Alpha := 0.92;
       Player[I].LineBonus_Visible := True;
+    end;
+    //PhrasenBonus - Line Bonus Mod End// }
 
-
-
+    //PerfectLineTwinkle Mod (effect) Pt.1
+    If (Ini.EffectPerfect>=1) then
+    begin
+      if A >= 8 then Player[I].LastSentencePerfect := True
+      else Player[I].LastSentencePerfect := False;
     end;
+    //PerfectLineTwinkle Mod end
 
   //Refresh LastScore
   Player[I].ScoreLast := Player[I].Score + Player[I].ScoreGolden;
 
-  //PerfectLineTwinkle Mod (effect) Pt.1
-  if A >= 8 then Player[I].LastSentencePerfect := True
-  else Player[I].LastSentencePerfect := False;
-  //PerfectLineTwinkle Mod end
-
   end;
-//PhrasenBonus - Line Bonus Mod End// }
 
   //PerfectLineTwinkle Mod (effect) Pt.2
   GoldenRec.SpawnPerfectLineTwinkle;
@@ -1138,7 +1138,6 @@ begin
   //GoldenStarsTwinkle Mod
   GoldenRec.SentenceChange;
   //GoldenStarsTwinkle Mod End
-
 end;
 
 end.
-- 
cgit v1.2.3