Added Advanced Screen and Options in TIni

Options working now only for Effect Perfect and Effect Golden.

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

1 files changed, 10 insertions, 1 deletions

diff --git a/Game/Code/Screens/UScreenOptions.pas b/Game/Code/Screens/UScreenOptions.pas
index f24b29c1..2a8d0d9a 100644
--- a/Game/Code/Screens/UScreenOptions.pas
+++ b/Game/Code/Screens/UScreenOptions.pas
@@ -70,6 +70,11 @@ begin
           end;

 

           if SelInteraction = 6 then begin

+            Music.PlayStart;

+            FadeTo(@ScreenOptionsAdvanced);

+          end;

+

+          if SelInteraction = 7 then begin

             Ini.Save;

             Music.PlayBack;

             FadeTo(@ScreenMain);

@@ -182,10 +187,14 @@ begin
   if (Length(Button[5].Text)=0) then

     AddButtonText(14, 20, Theme.Options.Description[5]);

 

-  AddButton(Theme.Options.ButtonExit);

+  AddButton(Theme.Options.ButtonAdvanced);

   if (Length(Button[6].Text)=0) then

     AddButtonText(14, 20, Theme.Options.Description[6]);

 

+  AddButton(Theme.Options.ButtonExit);

+  if (Length(Button[7].Text)=0) then

+    AddButtonText(14, 20, Theme.Options.Description[7]);

+

   for I := 0 to High(Theme.Options.Static) do

     AddStatic(Theme.Options.Static[I]);