Added a text message when selecting an item in battle that can't be used

The message says:
This item can't be used in Battle.

P3D/Screens/Inventory/NewInventoryScreen.vb

@@ -815,11 +815,16 @@ Public Class NewInventoryScreen
         End If
 
         If Controls.Accept() AndAlso _items.Length > 0 Then
+            Dim cItem As Item = Item.GetItemByID(_items(ItemIndex + PageIndex * 10).ItemID)
+            SoundManager.PlaySound("select")
+            If cItem.CanBeUsedInBattle = True Then
                 _infoItemOptionSelection = 0
                 _isInfoShowing = True
-            SoundManager.PlaySound("select")
                 SetInfoSettings()
                 SetItemOptions()
+            Else
+                TextBox.Show("This item can't~be used in Battle.")
+            End If
         End If
 
         If Controls.Dismiss() Then