Fixed items usable when none are left

P3D/Pokemon/Items/Repels/RepelItem.vb

@@ -17,7 +17,6 @@
                 Dim t As String = Core.Player.Name & " used a~" & Name & "."
                 t &= RemoveItem()
                 Screen.TextBox.Show(t, {}, True, True)
-                CType(CurrentScreen, NewInventoryScreen).LoadItems()
             Else
                 Screen.TextBox.Show("The Repel is still~in effect.", {}, True, True)
             End If

P3D/Screens/Inventory/NewInventoryScreen.vb

@@ -909,6 +909,7 @@ Public Class NewInventoryScreen
             Select Case _infoItemOptionsNormal(_infoItemOptionSelection)
                 Case INFO_ITEM_OPTION_USE
                     cItem.Use()
+                    LoadItems()
                 Case INFO_ITEM_OPTION_GIVE
                     Dim selScreen = New PartyScreen(Core.CurrentScreen) With {.Mode = ISelectionScreen.ScreenMode.Selection, .CanExit = True}
                     AddHandler selScreen.SelectedObject, AddressOf GiveItemHandler