From fb785ffee0bc3e1db1022a2c8286f5b9f8944b37 Mon Sep 17 00:00:00 2001
From: mota23 <mota23@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Thu, 17 May 2007 01:10:39 +0000
Subject: Added: New Options/Advanced item "auto party-menu": Switches
 automatic popup-menu in party-mode on/off. "on" is better usability for
 joypad, "off" for keyboard. Changed: Keys in Party Song Selection, "m" is
 popup-menu and "enter" direkt to singscreen. Added: new Statics and Texts to
 UScreenSong, 2 sets, one for "normal" the other for party-mode. Added:
 dismissed sound for party-mode.

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@202 b956fd51-792f-4845-bead-9b4dfca2ff2c
---
 Game/Code/Classes/UIni.pas | 9 +++++++++
 1 file changed, 9 insertions(+)

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

diff --git a/Game/Code/Classes/UIni.pas b/Game/Code/Classes/UIni.pas
index f12e3832..ca7afe9a 100644
--- a/Game/Code/Classes/UIni.pas
+++ b/Game/Code/Classes/UIni.pas
@@ -63,6 +63,7 @@ type
     AskbeforeDel:   integer;
     OnSongClick:    integer;
     LineBonus:      integer;
+    PartyPopup:     integer;
 
     // Controller
     Joypad:         integer;
@@ -140,6 +141,7 @@ const
   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');
 
   IJoypad:        array[0..1] of string = ('Off', 'On');
   ILPT:           array[0..2] of string = ('Off', 'LCD', 'Lights');
@@ -455,6 +457,10 @@ begin
   for Pet := 0 to High(ILineBonus) do
     if Tekst = ILineBonus[Pet] then Ini.LineBonus := Pet;
 
+  // PartyPopup
+  Tekst := IniFile.ReadString('Advanced', 'PartyPopup', 'On');
+  for Pet := 0 to High(IPartyPopup) do
+    if Tekst = IPartyPopup[Pet] then Ini.PartyPopup := Pet;
 
 
   // Joypad
@@ -638,6 +644,9 @@ begin
   Tekst := ILineBonus[Ini.LineBonus];
   IniFile.WriteString('Advanced', 'LineBonus', Tekst);
 
+  //Party Popup
+  Tekst := IPartyPopup[Ini.PartyPopup];
+  IniFile.WriteString('Advanced', 'PartyPopup', Tekst);
 
   // Joypad
   Tekst := IJoypad[Ini.Joypad];
-- 
cgit v1.2.3