added ScreenSing module

added call of party modes OnSing
2 new lua functions:
  ScreenSing.GetScores()
  ScreenSing.Finish

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/branches/experimental@1756 b956fd51-792f-4845-bead-9b4dfca2ff2c

1 files changed, 11 insertions, 2 deletions

diff --git a/Lua/src/screens/UScreenSing.pas b/Lua/src/screens/UScreenSing.pas
index 465022ed..bbdd1ecd 100644
--- a/Lua/src/screens/UScreenSing.pas
+++ b/Lua/src/screens/UScreenSing.pas
@@ -103,11 +103,12 @@ type
 
     // some settings to be set by plugins
     settings: record
-      
+      Finish: Boolean; //< if true, screen will finish on next draw
 
 
     end;
     procedure ClearSettings;
+    procedure EndSong;
 
     constructor Create; override;
     procedure onShow; override;
@@ -636,7 +637,12 @@ end;
 
 procedure TScreenSing.ClearSettings;
 begin
+  Settings.Finish := False;
+end;
 
+procedure TScreenSing.EndSong;
+begin
+  Settings.Finish := True;
 end;
 
 procedure TScreenSing.onHide;
@@ -762,11 +768,14 @@ begin
   if ShowFinish then
   begin
     if (not AudioPlayback.Finished) and ((CurrentSong.Finish = 0) or
-      (LyricsState.GetCurrentTime() * 1000 <= CurrentSong.Finish)) then
+      (LyricsState.GetCurrentTime() * 1000 <= CurrentSong.Finish)) and (not Settings.Finish) then
     begin
       // analyze song if not paused
       if (not Paused) then
+      begin
         Sing(Self);
+        Party.CallOnSing;
+      end;
     end
     else
     begin