tyler.durden/P3D-Legacy
1
0
Fork 0
mirror of https://github.com/P3D-Legacy/P3D-Legacy.git synced 2025-07-27 07:44:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
P3D/Screens/Inventory/NewInventoryScreen.vb
View File

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