Fix for a bug where you couldn't use certain items outside of battle
This commit is contained in:
parent
3bdc124a99
commit
8bbbb729a7
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue