- new option "PossibleScore": show max possible score in singscreen (toggle on/off with "S")

- fade the "ball" also
- fixed screensong preview volume
- update of acinerella

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

1 files changed, 10 insertions, 3 deletions

diff --git a/Game/Code/Screens/UScreenSing.pas b/Game/Code/Screens/UScreenSing.pas
index e07d5023..fbf128b0 100644
--- a/Game/Code/Screens/UScreenSing.pas
+++ b/Game/Code/Screens/UScreenSing.pas
@@ -15,8 +15,8 @@ type
     protected

       paused: boolean; //Pause Mod

       PauseTime: Real;

-      NumEmptySentences: array [0..1] of integer;

     public

+      NumEmptySentences: array [0..1] of integer;

       //TextTime:           integer;

       MP3Volume:        integer;

       MP3VolumeHandler: THandler;

@@ -213,6 +213,12 @@ begin
         begin

           Pause;

         end;

+

+      SDLK_S:

+        begin

+          Ini.PossibleScore := (Ini.PossibleScore+1) mod 2;

+          Ini.Save;

+        end;

         

       SDLK_RETURN:

         begin

@@ -1766,8 +1772,9 @@ begin
           Player[I].LineBonus_Text := Theme.Sing.LineBonusText[Floor(A)];

 

         //PhrasenBonus give Points

-        Player[I].ScoreLine := Player[I].ScoreLine +

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

+        if (Length(Czesci[CP].Czesc) - NumEmptySentences[CP])>0 then

+          Player[I].ScoreLine := Player[I].ScoreLine +

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

 

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

         //Update Total Score