Fix namerater inconsistencies

P3D/Screens/GUI/InputScreen.vb

@@ -281,6 +281,14 @@
 
     Public Sub Confirm()
         Dim t As String = Me.CurrentText
+        ' Remove spaces at the start
+        While t.StartsWith(" ")
+            t = t.Remove(0, 1)
+        End While
+        ' Remove spaces at the end
+        While t.EndsWith(" ")
+            t = t.Remove(t.Length - 1, 1)
+        End While
         If t = "" Then
             t = Me.DefaultName
         End If

P3D/World/ActionScript/V2/ScriptCommands/DoScreen.vb

@@ -239,6 +239,8 @@
                                     inputMode = InputScreen.InputModes.Name
                                 Case "numbers"
                                     inputMode = InputScreen.InputModes.Numbers
+                                Case "pokemon"
+                                    inputMode = InputScreen.InputModes.Pokemon
                             End Select
                         End If
                     End If