From 075cb824a31c5e6e1cc6ee6f0087ac5598ba003a Mon Sep 17 00:00:00 2001
From: brunzelchen <brunzelchen@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Mon, 28 Jun 2010 15:42:13 +0000
Subject: - new option "PossibleScore": show max possible score in singscreen
 (toggle on/off with "S") - fade the "ball" also - fixed screensong preview
 volume - update of acinerella

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/branches/1.0.1 Challenge MOD@2565 b956fd51-792f-4845-bead-9b4dfca2ff2c
---
 Game/Code/Classes/UIni.pas | 13 ++++++++++++-
 1 file changed, 12 insertions(+), 1 deletion(-)

(limited to 'Game/Code/Classes/UIni.pas')

diff --git a/Game/Code/Classes/UIni.pas b/Game/Code/Classes/UIni.pas
index cc24e3a8..6e2f1b16 100644
--- a/Game/Code/Classes/UIni.pas
+++ b/Game/Code/Classes/UIni.pas
@@ -82,6 +82,7 @@ type
     PartyPopup:     integer;
     SumPlayers:     integer;
     DuelRatio:      integer;
+    PossibleScore:  integer;
 
     // Soundcards
     SoundCard:      array[0..7, 1..2] of integer;
@@ -169,13 +170,14 @@ const
   // Advanced
   ILoadAnimation: array[0..1] of string = ('Off', 'On');
   IEffectSing:    array[0..1] of string = ('Off', 'On');
-  IScreenFade:    array [0..1] of String =('Off', 'On');
+  IScreenFade:    array[0..1] of String =('Off', 'On');
   IAskbeforeDel:  array[0..1] of string = ('Off', 'On');
   IOnSongClick:   array[0..2] of string = ('Sing', 'Select Players', 'Open Menu');
   ILineBonus:     array[0..2] of string = ('Off', 'At Score', 'At Notes');
   IPartyPopup:    array[0..1] of string = ('Off', 'On');
   ISumPlayers:    array[0..2] of string = ('Never', 'Dynamic', 'Always');
   IDuelRatio:     array[0..9] of string = ('normal', '10%', '20%', '30%', '40%', '50%', '60%', '70%', '80%', '90%');
+  IPossibleScore: array[0..1] of string = ('Off', 'On');
 
   IChannel:       array[0..6] of string = ('Off', '1', '2', '3', '4', '5', '6');
 
@@ -604,6 +606,11 @@ begin
   for Pet := 0 to High(IDuelRatio) do
     if Tekst = IDuelRatio[Pet] then Ini.DuelRatio := Pet;
 
+  // PossibleScore
+  Tekst := IniFile.ReadString('Advanced', 'PossibleScore', IPossibleScore[0]);
+  for Pet := 0 to High(IPossibleScore) do
+    if Tekst = IPossibleScore[Pet] then Ini.PossibleScore := Pet;
+
   // SongPath
   if (Params.SongPath <> '') then
     SongPath := IncludeTrailingPathDelimiter(Params.SongPath)
@@ -831,6 +838,10 @@ begin
     Tekst := IDuelRatio[Ini.DuelRatio];
     IniFile.WriteString('Advanced', 'DuelRatio', Tekst);
 
+    //PossibleScore
+    Tekst := IPossibleScore[Ini.PossibleScore];
+    IniFile.WriteString('Advanced', 'PossibleScore', Tekst);
+
     IniFile.Free;
   end;
 end;
-- 
cgit v1.2.3