added new sing mode: sing together (mean points over all players)

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

1 files changed, 13 insertions, 3 deletions

diff --git a/Game/Code/Screens/UScreenSong.pas b/Game/Code/Screens/UScreenSong.pas
index aa3c2bf9..aab46786 100644
--- a/Game/Code/Screens/UScreenSong.pas
+++ b/Game/Code/Screens/UScreenSong.pas
@@ -119,7 +119,8 @@ type
       PartyPlayed:  array of integer; //played in Party Classic

       MedleyPlayed: array of integer; //played in Challenge or Classic Medley-mode

 

-      SungToEnd: boolean; //Song was sung to the end?

+      SungToEnd:    boolean; //Song was sung to the end?

+      SingTogether: boolean; //Calc mean score

 

       //party Statics (Joker)

       StaticTeam1Joker1: Cardinal;

@@ -774,8 +775,16 @@ begin
                   CatSongs.Selected := Interaction;

                   //Do the Action that is specified in Ini

                   case Ini.OnSongClick of

-                    0: StartSong;

-                    1: SelectPlayers;

+                    0: begin

+                        if (SDL_ModState = KMOD_LCTRL) then

+                          SingTogether := true;

+                        StartSong;

+                      end;

+                    1: begin

+                        if (SDL_ModState = KMOD_LCTRL) then

+                          SingTogether := true;

+                        SelectPlayers;

+                      end;

                     2:begin

                       if (TargetVidVis = full) then

                       begin

@@ -2024,6 +2033,7 @@ begin
   FadeOut := false;

 

   SungToEnd := false;

+  SingTogether := false;

   if Mode = smMedley then

     Mode := smNormal;