From e79530fd2165c92a9291076b05dfb0e0236fc222 Mon Sep 17 00:00:00 2001
From: whiteshark0 <whiteshark0@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Tue, 24 Apr 2007 12:59:54 +0000
Subject: 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
---
 Game/Code/Screens/UScreenName.pas | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

(limited to 'Game/Code/Screens/UScreenName.pas')

diff --git a/Game/Code/Screens/UScreenName.pas b/Game/Code/Screens/UScreenName.pas
index 82519e87..e8bc2dd8 100644
--- a/Game/Code/Screens/UScreenName.pas
+++ b/Game/Code/Screens/UScreenName.pas
@@ -8,6 +8,7 @@ uses
 type
   TScreenName = class(TMenu)
     public
+      Goto_SingScreen: Boolean; //If True then next Screen in SingScreen
       constructor Create; override;
       function ParseInput(PressedKey: Cardinal; ScanCode: byte; PressedDown: Boolean): Boolean; override;
       procedure onShow; override;
@@ -49,7 +50,13 @@ begin
             Ini.Name[I-1] := Button[I-1].Text[0].Text;
           Ini.SaveNames;
           Music.PlayStart;
-          FadeTo(@ScreenLevel);
+
+          if GoTo_SingScreen then
+            FadeTo(@ScreenSing)
+          else
+            FadeTo(@ScreenLevel);
+
+          GoTo_SingScreen := False;
         end;
 
       // Up and Down could be done at the same time,
-- 
cgit v1.2.3