Fixed exploit in NewMenuScreen

P3D/Pokemon/Items/Item.vb

@@ -201,7 +201,16 @@ Public MustInherit Class Item
     End Sub
 
     Public Sub UseItemhandler(ByVal params As Object())
-        UseOnPokemon(CInt(params(0)))
+        If UseOnPokemon(CInt(params(0))) Then
+            Dim s As Screen = Core.CurrentScreen
+            While Not s.PreScreen Is Nothing And s.Identification <> Screen.Identifications.InventoryScreen
+                s = s.PreScreen
+            End While
+
+            If s.Identification = Screen.Identifications.InventoryScreen Then
+                CType(s, NewInventoryScreen).LoadItems()
+            End If
+        End If
     End Sub
 
     ''' <summary>

P3D/Screens/Inventory/NewInventoryScreen.vb

@@ -991,7 +991,7 @@ Public Class NewInventoryScreen
     ''' <summary>
     ''' Reloads the temporary item list.
     ''' </summary>
-    Private Sub LoadItems()
+    Public Sub LoadItems()
         _items = Core.Player.Inventory.Where(Function(x) Item.GetItemByID(x.ItemID).ItemType = _visibleItemTypes(_tabIndex)).ToArray()
         If _tabIndex = 4 Then 'TM/HM
             _items = (From i In _items Order By Item.GetItemByID(i.ItemID).SortValue Ascending).ToArray()