fixed ClearSettings

rewind last commit

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

2 files changed, 2 insertions, 7 deletions

diff --git a/Lua/src/base/UParty.pas b/Lua/src/base/UParty.pas
index 1c502874..3d916f64 100644
--- a/Lua/src/base/UParty.pas
+++ b/Lua/src/base/UParty.pas
@@ -754,11 +754,6 @@ begin
         else //display standard score screen
           Display.FadeTo(@ScreenScore);
       end;
-
-    // do this after every leave of singscreen, to ensure that settings
-    // are defaulted. This leads to the restriction that settings have
-    // to be set in PartyMode.BeforeSing
-    ScreenSing.ClearSettings;
   end;
 end;
 
diff --git a/Lua/src/screens/UScreenSing.pas b/Lua/src/screens/UScreenSing.pas
index 97dab456..e3614d6c 100644
--- a/Lua/src/screens/UScreenSing.pas
+++ b/Lua/src/screens/UScreenSing.pas
@@ -645,8 +645,8 @@ procedure TScreenSing.ClearSettings;
 begin
   Settings.Finish := False;
   Settings.LyricsVisible := True;
-  Settings.NotesVisible := low(Integer);
-  Settings.PlayerEnabled := low(Integer);
+  Settings.NotesVisible := high(Integer);
+  Settings.PlayerEnabled := high(Integer);
 end;
 
 { applies changes of settings record }