diff options
Diffstat (limited to 'Game/Code/Screens/UScreenName.pas')
-rw-r--r-- | Game/Code/Screens/UScreenName.pas | 9 |
1 files changed, 8 insertions, 1 deletions
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,
|