From 430e0bff81d0c0c5d7da7f84d90feb649c752140 Mon Sep 17 00:00:00 2001
From: whiteshark0 <whiteshark0@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Sat, 23 May 2009 14:46:07 +0000
Subject: fixed ClearSettings rewind last commit

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/branches/experimental@1773 b956fd51-792f-4845-bead-9b4dfca2ff2c
---
 Lua/src/base/UParty.pas         | 5 -----
 Lua/src/screens/UScreenSing.pas | 4 ++--
 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 }
-- 
cgit v1.2.3