From 1bcf5d3ab366002e8000656b566340c3efd756af Mon Sep 17 00:00:00 2001 From: whiteshark0 Date: Sat, 23 May 2009 14:08:58 +0000 Subject: 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 --- Lua/src/screens/UScreenSing.pas | 10 ++++++++++ 1 file changed, 10 insertions(+) (limited to 'Lua/src/screens') 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; -- cgit v1.2.3