From d77dbf438cc212a09c49e1fe6c2295b1477928ac Mon Sep 17 00:00:00 2001
From: whiteshark0 <whiteshark0@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Sat, 16 May 2009 15:09:11 +0000
Subject: Set correct player count in UParty

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/branches/experimental@1738 b956fd51-792f-4845-bead-9b4dfca2ff2c
---
 Lua/src/base/UParty.pas         | 7 ++++++-
 Lua/src/screens/UScreenSing.pas | 6 +++---
 2 files changed, 9 insertions(+), 4 deletions(-)

(limited to 'Lua/src')

diff --git a/Lua/src/base/UParty.pas b/Lua/src/base/UParty.pas
index 856f4f40..21f604f7 100644
--- a/Lua/src/base/UParty.pas
+++ b/Lua/src/base/UParty.pas
@@ -226,6 +226,7 @@ uses
   ULuaCore,
   UDisplay,
   USong,
+  UMain,
   SysUtils;
 
 //-------------
@@ -668,7 +669,11 @@ begin
                   these functions should be called here before
                   sing screen is shown, or it should be called
                   by plugin if it wants to define a custom
-                  singscreen start up. } 
+                  singscreen start up. }
+
+        //set correct playersplay
+        if (bPartyGame) then
+          PlayersPlay := Length(Teams);
       end;
   end;
 end;
diff --git a/Lua/src/screens/UScreenSing.pas b/Lua/src/screens/UScreenSing.pas
index 1993c331..465022ed 100644
--- a/Lua/src/screens/UScreenSing.pas
+++ b/Lua/src/screens/UScreenSing.pas
@@ -330,6 +330,9 @@ begin
   Log.LogStatus('Begin', 'onShow');
   FadeOut := False;
 
+  ClearSettings;
+  Party.CallBeforeSing;
+
   // reset video playback engine, to play Video Clip...
   fCurrentVideoPlaybackEngine := VideoPlayback;
 
@@ -616,9 +619,6 @@ begin
     if Lines[0].Line[P].TotalNotes = 0 then
       Inc(NumEmptySentences);
 
-  ClearSettings;
-  Party.CallBeforeSing;
-
   Log.LogStatus('End', 'onShow');
 end;
 
-- 
cgit v1.2.3