new ULuaUtils procedure: lua_PushBinInt

new functions in ScreenSing lua module
  ScreenSing.GetSettings
  ScreenSing.SetSettings
3 new settings in UScreenSing that needs to be implemented
  LyrcsVisible, NotesVisible and PlayerEnabled
  

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

1 files changed, 10 insertions, 0 deletions

diff --git a/Lua/src/screens/UScreenSing.pas b/Lua/src/screens/UScreenSing.pas
index bbdd1ecd..375ec3e3 100644
--- a/Lua/src/screens/UScreenSing.pas
+++ b/Lua/src/screens/UScreenSing.pas
@@ -105,9 +105,13 @@ type
     settings: record
       Finish: Boolean; //< if true, screen will finish on next draw
 
+      LyricsVisible: Boolean; //< shows or hides lyrics
+      NotesVisible: Integer; //< if bit[playernum] is set the notes for the specified player are visible. By default all players notes are visible
 
+      PlayerEnabled: Integer; //< defines whether a player can score atm
     end;
     procedure ClearSettings;
+    procedure ApplySettings; //< applies changes of settings record
     procedure EndSong;
 
     constructor Create; override;
@@ -640,6 +644,12 @@ begin
   Settings.Finish := False;
 end;
 
+{ applies changes of settings record }
+procedure TScreenSing.ApplySettings;
+begin
+  //
+end;
+
 procedure TScreenSing.EndSong;
 begin
   Settings.Finish := True;