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

1 files changed, 11 insertions, 12 deletions

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.