new option: "LyricGolden" On/Off: draw golden lyrics yellow instead of blue.

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/branches/1.0.1 Challenge MOD@2826 b956fd51-792f-4845-bead-9b4dfca2ff2c

1 files changed, 11 insertions, 0 deletions

diff --git a/Game/Code/Classes/UIni.pas b/Game/Code/Classes/UIni.pas
index 8323345b..3546e196 100644
--- a/Game/Code/Classes/UIni.pas
+++ b/Game/Code/Classes/UIni.pas
@@ -62,6 +62,7 @@ type
     LyricsFont:     integer;

     LyricsEffect:   integer;

     Solmization:    integer;

+    LyricsGolden:   integer;

 

     // Themes

     Theme:          integer;

@@ -182,6 +183,7 @@ const
   ILyricsFont:    array[0..2] of string = ('Plain', 'OLine1', 'OLine2');

   ILyricsEffect:  array[0..3] of string = ('Simple', 'Zoom', 'Slide', 'Ball');

   ISolmization:   array[0..3] of string = ('Off', 'Euro', 'Jap', 'American');

+  ILyricsGolden:  array[0..1] of string = ('Off', 'On');

 

   IColor:         array[0..8] of string = ('Blue', 'Green', 'Pink', 'Red', 'Violet', 'Orange', 'Yellow', 'Brown', 'Black');

 

@@ -477,6 +479,11 @@ begin
   for Pet := 0 to High(ISolmization) do

     if Tekst = ISolmization[Pet] then Ini.Solmization := Pet;

 

+  // LyricsGolden

+  Tekst := IniFile.ReadString('Lyrics',    'LyricsGolden',   ILyricsGolden[0]);

+  for Pet := 0 to High(ILyricsGolden) do

+    if Tekst = ILyricsGolden[Pet] then Ini.LyricsGolden := Pet;

+

   // Theme

 

   //Theme List Patch

@@ -862,6 +869,10 @@ begin
     Tekst := ISolmization[Ini.Solmization];

     IniFile.WriteString('Lyrics',    'Solmization',    Tekst);

 

+    // LyricsGolden

+    Tekst := ILyricsGolden[Ini.LyricsGolden];

+    IniFile.WriteString('Lyrics',    'LyricsGolden',    Tekst);

+

     // Theme

     Tekst := ITheme[Ini.Theme];

     IniFile.WriteString('Themes',    'Theme',    Tekst);