fixed calculation of points in "sing together mode"

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/branches/1.0.1 Challenge MOD@2827 b956fd51-792f-4845-bead-9b4dfca2ff2c

1 files changed, 14 insertions, 9 deletions

diff --git a/Game/Code/Screens/UScreenSing.pas b/Game/Code/Screens/UScreenSing.pas
index a7bcdc75..8d29b9e4 100644
--- a/Game/Code/Screens/UScreenSing.pas
+++ b/Game/Code/Screens/UScreenSing.pas
@@ -2481,11 +2481,11 @@ begin
   else

     B := 10000;

 

-  for I := 0 to High(Player) do

+  for I := 0 to PlayersPlay-1 do

   begin

     if not AktSong.isDuet or (I mod 2 = CP) then

     begin

-      

+

       A := Player[I].Score + Player[I].ScoreGolden - Player[I].ScoreLast + 2;

 

       //SingBar Mod

@@ -2518,19 +2518,14 @@ begin
             (1000 / (Length(Czesci[CP].Czesc) - NumEmptySentences[CP]) * A / 8);

 

           MeanPlayer.ScoreLine := MeanPlayer.ScoreLine +

-            (1000 / (Length(Czesci[CP].Czesc) - NumEmptySentences[CP]) * A / 8);

+            (1000 / (Length(Czesci[CP].Czesc) - NumEmptySentences[CP]) * A / 8) / PlayersPlay;

         end;

 

         MeanPlayer.ScoreLineI := Round(MeanPlayer.ScoreLine / 10) * 10;

         //Update Total Score

         MeanPlayer.ScoreTotalI := MeanPlayer.ScoreI + MeanPlayer.ScoreGoldenI + MeanPlayer.ScoreLineI;

 

-        if ScreenSong.SingTogether then

-        begin

-          Player[I].ScoreLineI := MeanPlayer.ScoreLineI;

-          //Update Total Score

-          Player[I].ScoreTotalI := MeanPlayer.ScoreTotalI;

-        end else

+        if not ScreenSong.SingTogether then

         begin

           Player[I].ScoreLineI := Round(Player[I].ScoreLine / 10) * 10;

           //Update Total Score

@@ -2595,6 +2590,16 @@ begin
     end;

   end;

 

+  if ScreenSong.SingTogether then

+  begin

+    for I := 0 to PlayersPlay - 1 do

+    begin

+      Player[I].ScoreLineI := MeanPlayer.ScoreLineI;

+      //Update Total Score

+      Player[I].ScoreTotalI := MeanPlayer.ScoreTotalI;

+    end;

+  end; 

+

   //PerfectLineTwinkle Mod (effect) Pt.2

   if Ini.EffectSing=1 then

     GoldenRec.SpawnPerfectLineTwinkle;