From 1d4c15475eb294bcde646153c6b845479d1ceb4d Mon Sep 17 00:00:00 2001 From: JappaWakka Date: Tue, 31 May 2022 21:03:13 +0200 Subject: [PATCH] Fixed bug in old NewGame Intro with name input --- P3D/Screens/NewGameScreen.vb | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/P3D/Screens/NewGameScreen.vb b/P3D/Screens/NewGameScreen.vb index 9433c6f65..082598bae 100644 --- a/P3D/Screens/NewGameScreen.vb +++ b/P3D/Screens/NewGameScreen.vb @@ -145,6 +145,7 @@ End If Case 5 UpdateTextbox() + Index += 1 Case 7 UpdateTransition(True) Case 9 @@ -312,11 +313,11 @@ Private Sub UpdateTextbox() Dim skinTexture2D As Texture2D = TextureManager.GetTexture("Textures\NPC\" & skinFiles(SkinIndex)) - Core.SetScreen(New InputScreen(Core.CurrentScreen, Screens.MainMenu.NewNewGameScreen.CharacterSelectionScreen.SelectedSkin, InputScreen.InputModes.Name, Screens.MainMenu.NewNewGameScreen.CharacterSelectionScreen.SelectedSkin, 14, New List(Of Texture2D), AddressOf Me.ConfirmInput)) + Core.SetScreen(New InputScreen(Core.CurrentScreen, skinNames(SkinIndex), InputScreen.InputModes.Name, skinNames(SkinIndex), 14, New List(Of Texture2D)({skinTexture2D}), AddressOf Me.ConfirmInput)) End Sub Private Sub ConfirmInput(ByVal input As String) - Me.CurrentText = input + Name = input End Sub Private Sub CreateGame()