Fix for a bug where you couldn't use certain items outside of battle

This commit is contained in:
JappaWakkaP3D 2021-11-26 21:59:52 +01:00
parent 3bdc124a99
commit 8bbbb729a7
1 changed files with 11 additions and 4 deletions

View File

@ -821,16 +821,23 @@ Public Class NewInventoryScreen
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
If Me.PreScreen.Identification = Screen.Identifications.BattleScreen Then
If cItem.CanBeUsedInBattle = True Then
_infoItemOptionSelection = 0
_isInfoShowing = True
SetInfoSettings()
SetItemOptions()
Else
TextBox.Show("This item can't~be used in Battle.")
End If
Else
_infoItemOptionSelection = 0
_isInfoShowing = True
SetInfoSettings()
SetItemOptions()
Else
TextBox.Show("This item can't~be used in Battle.")
End If
End If
End If
If Controls.Dismiss() Then
SoundManager.PlaySound("select")
_tabInControl = True