tyler.durden
/
P3D-Legacy
mirror of https://github.com/P3D-Legacy/P3D-Legacy.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Prevent renaming issues with spaces

This commit is contained in:
JappaWakka 2023-02-23 12:30:24 +01:00
parent d9e21e0b6d
commit 5a6711f126
1 changed files with 9 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
P3D/Screens/Pokemon/NameObjectScreen.vb
View File

@ -240,20 +240,21 @@ Public Class NameObjectScreen
Private Sub ClickYes() Private Sub ClickYes()
If _askedRename = True Then If _askedRename = True Then
' Remove spaces at the start
While _currentText.StartsWith(" ")
_currentText = _currentText.Remove(0, 1)
End While
' Remove spaces at the end
While _currentText.EndsWith(" ")
_currentText = _currentText.Remove(_currentText.Length - 1, 1)
End While
If _currentText <> "" Then If _currentText <> "" Then
If _renamePokemon = True Then If _renamePokemon = True Then
If _pokemon.GetName() <> _currentText Then If _pokemon.GetName() <> _currentText Then
' Remove spaces at the end
While _currentText.EndsWith(" ")
_currentText = _currentText.Remove(_currentText.Length - 1, 1)
End While
_pokemon.NickName = _currentText _pokemon.NickName = _currentText
End If End If
Else Else
' Remove spaces at the end
While _currentText.EndsWith(" ")
_currentText = _currentText.Remove(_currentText.Length - 1, 1)
End While
Me._acceptName(_currentText) Me._acceptName(_currentText)
End If End If