Fixed bug in old NewGame Intro with name input

This commit is contained in:
JappaWakka 2022-05-31 21:03:13 +02:00
parent c92810777e
commit 1d4c15475e

View File

@ -145,6 +145,7 @@
End If End If
Case 5 Case 5
UpdateTextbox() UpdateTextbox()
Index += 1
Case 7 Case 7
UpdateTransition(True) UpdateTransition(True)
Case 9 Case 9
@ -312,11 +313,11 @@
Private Sub UpdateTextbox() Private Sub UpdateTextbox()
Dim skinTexture2D As Texture2D = TextureManager.GetTexture("Textures\NPC\" & skinFiles(SkinIndex)) 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 End Sub
Private Sub ConfirmInput(ByVal input As String) Private Sub ConfirmInput(ByVal input As String)
Me.CurrentText = input Name = input
End Sub End Sub
Private Sub CreateGame() Private Sub CreateGame()