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

Fixed X-Items functionality

Browse Source
This commit is contained in:
CaptainSegis 2017-08-27 21:48:05 -05:00
parent b859e5e79f
commit ca9e088ec3
9 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
2.5DHero/2.5DHero/Pokemon/Items/XItems/DireHit.vb
View File

@ -16,11 +16,11 @@ Namespace Items.XItems
Dim foundBattleScreen As Boolean = True
Dim s As Screen = Core.CurrentScreen
While s.Identification <> Screen.Identifications.BattleScreen
s = s.PreScreen
If s.PreScreen Is Nothing Then
foundBattleScreen = False
Exit While
End If
s = s.PreScreen
End While
If foundBattleScreen = True Then

2
2.5DHero/2.5DHero/Pokemon/Items/XItems/GuardSpec.vb
View File

@ -16,11 +16,11 @@ Namespace Items.XItems
Dim foundBattleScreen As Boolean = True
Dim s As Screen = Core.CurrentScreen
While s.Identification <> Screen.Identifications.BattleScreen
s = s.PreScreen
If s.PreScreen Is Nothing Then
foundBattleScreen = False
Exit While
End If
s = s.PreScreen
End While
If foundBattleScreen = True Then

2
2.5DHero/2.5DHero/Pokemon/Items/XItems/XAccuracy.vb
View File

@ -16,11 +16,11 @@ Namespace Items.XItems
Dim foundBattleScreen As Boolean = True
Dim s As Screen = Core.CurrentScreen
While s.Identification <> Screen.Identifications.BattleScreen
s = s.PreScreen
If s.PreScreen Is Nothing Then
foundBattleScreen = False
Exit While
End If
s = s.PreScreen
End While
If foundBattleScreen = True Then

2
2.5DHero/2.5DHero/Pokemon/Items/XItems/XAttack.vb
View File

@ -16,11 +16,11 @@ Namespace Items.XItems
Dim foundBattleScreen As Boolean = True
Dim s As Screen = Core.CurrentScreen
While s.Identification <> Screen.Identifications.BattleScreen
s = s.PreScreen
If s.PreScreen Is Nothing Then
foundBattleScreen = False
Exit While
End If
s = s.PreScreen
End While
If foundBattleScreen = True Then

2
2.5DHero/2.5DHero/Pokemon/Items/XItems/XDefend.vb
View File

@ -16,11 +16,11 @@ Namespace Items.XItems
Dim foundBattleScreen As Boolean = True
Dim s As Screen = Core.CurrentScreen
While s.Identification <> Screen.Identifications.BattleScreen
s = s.PreScreen
If s.PreScreen Is Nothing Then
foundBattleScreen = False
Exit While
End If
s = s.PreScreen
End While
If foundBattleScreen = True Then

2
2.5DHero/2.5DHero/Pokemon/Items/XItems/XItem.vb
View File

@ -4,7 +4,7 @@
Inherits Item
Public Overrides ReadOnly Property CanBeUsed As Boolean = False
Public Overrides ReadOnly Property BattleSelectPokemon As Boolean = True
Public Overrides ReadOnly Property BattleSelectPokemon As Boolean = False
Public Overrides ReadOnly Property ItemType As ItemTypes = ItemTypes.BattleItems
End Class

2
2.5DHero/2.5DHero/Pokemon/Items/XItems/XSpAtk.vb
View File

@ -16,11 +16,11 @@ Namespace Items.XItems
Dim foundBattleScreen As Boolean = True
Dim s As Screen = Core.CurrentScreen
While s.Identification <> Screen.Identifications.BattleScreen
s = s.PreScreen
If s.PreScreen Is Nothing Then
foundBattleScreen = False
Exit While
End If
s = s.PreScreen
End While
If foundBattleScreen = True Then

2
2.5DHero/2.5DHero/Pokemon/Items/XItems/XSpDef.vb
View File

@ -16,11 +16,11 @@ Namespace Items.XItems
Dim foundBattleScreen As Boolean = True
Dim s As Screen = Core.CurrentScreen
While s.Identification <> Screen.Identifications.BattleScreen
s = s.PreScreen
If s.PreScreen Is Nothing Then
foundBattleScreen = False
Exit While
End If
s = s.PreScreen
End While
If foundBattleScreen = True Then

2
2.5DHero/2.5DHero/Pokemon/Items/XItems/XSpeed.vb
View File

@ -16,11 +16,11 @@ Namespace Items.XItems
Dim foundBattleScreen As Boolean = True
Dim s As Screen = Core.CurrentScreen
While s.Identification <> Screen.Identifications.BattleScreen
s = s.PreScreen
If s.PreScreen Is Nothing Then
foundBattleScreen = False
Exit While
End If
s = s.PreScreen
End While
If foundBattleScreen = True Then