Added ability to Select Players before Song

Make Option OnSongClick Work

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

1 files changed, 19 insertions, 0 deletions

diff --git a/Game/Code/Screens/UScreenMain.pas b/Game/Code/Screens/UScreenMain.pas
index 8d2d13b6..051cd101 100644
--- a/Game/Code/Screens/UScreenMain.pas
+++ b/Game/Code/Screens/UScreenMain.pas
@@ -147,6 +147,8 @@ begin
             Music.PlayStart;

             if (Ini.Players >= 0) and (Ini.Players <= 3) then PlayersPlay := Ini.Players + 1;

             if (Ini.Players = 4) then PlayersPlay := 6;

+

+            ScreenName.Goto_SingScreen := False;

             FadeTo(@ScreenName);

           end;

           if Interaction = 1 then begin

@@ -206,6 +208,23 @@ begin
   TextDescriptionLong := AddText(Theme.Main.TextDescriptionLong);

 

   Interaction := 0;

+

+  //Some Testing for Button Fade

+  Button[0].SelectH := Button[0].H * 3;

+  Button[0].Fade := True;

+  Button[0].FadeText := True;

+  Button[0].DeSelectReflectionspacing := 280;

+

+  Button[1].SelectH := Button[0].H * 3;

+  Button[1].Fade := True;

+

+  Button[2].SelectH := Button[0].H * 3;

+  Button[2].Fade := True;

+  Button[2].FadeText := True;

+

+  Button[3].SelectH := Button[0].H * 3;

+  Button[3].Fade := True;

+  Button[3].FadeText := True;

 end;

 

 procedure TScreenMain.onShow;