Bag index now points to the last item used.

P3D/Player/Player.vb

@@ -426,6 +426,8 @@
         Public Shared PokemonScreenIndex As Integer = 0
         Public Shared PokemonStatusPageIndex As Integer = 0
         Public Shared BagIndex As Integer = 0
+        Public Shared BagPageIndex As Integer() = {0, 0, 0, 0, 0, 0, 0, 0}
+        Public Shared BagItemIndex As Integer() = {0, 0, 0, 0, 0, 0, 0, 0}
         Public Shared BagSelectIndex As Integer = 0
         Public Shared MenuIndex As Integer = 0
         Public Shared PokedexIndex As Integer = 0
@@ -456,6 +458,8 @@
         Temp.PokemonScreenIndex = 0
         Temp.PokemonStatusPageIndex = 0
         Temp.BagIndex = 0
+        Temp.BagPageIndex = {0, 0, 0, 0, 0, 0, 0, 0}
+        Temp.BagItemIndex = {0, 0, 0, 0, 0, 0, 0, 0}
         Temp.BagSelectIndex = 0
         Temp.MenuIndex = 0
         Temp.PokedexIndex = 0

P3D/Screens/Inventory/NewInventoryScreen.vb

@@ -137,6 +137,9 @@ Public Class NewInventoryScreen
         _blur = New Resources.Blur.BlurHandler(windowSize.Width, windowSize.Height)
 
         _tabIndex = StartPageIndex
+        _pageIndex = Player.Temp.BagPageIndex
+        _itemindex = Player.Temp.BagItemIndex
+
         Me.AllowedPages = AllowedPages
         ReturnItem = DoStuff
 
@@ -869,6 +872,12 @@ Public Class NewInventoryScreen
         _isInfoShowing = False
     End Sub
 
+    Private Sub SaveBagIndex()
+        Player.Temp.BagIndex = _tabIndex
+        Player.Temp.BagPageIndex = _pageIndex
+        Player.Temp.BagItemIndex = _itemindex
+    End Sub
+
     Private Sub SelectedItemOption()
         If _infoItemOptionsNormal.Count > 0 Then
             Dim cItem As Item = Item.GetItemByID(_items(ItemIndex + PageIndex * 10).ItemID)
@@ -888,6 +897,7 @@ Public Class NewInventoryScreen
                     CloseInfoScreen()
                     _closing = True
             End Select
+            SaveBagIndex()
         End If
     End Sub