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

Fix for crash related to TrainerAI and using items

Browse Source
This commit is contained in:
JappaWakka 2023-03-18 19:56:52 +01:00
parent a806284149
commit 5819ca30fe
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
P3D/Battle/BattleSystemV2/TrainerAI.vb
View File

@ -875,10 +875,13 @@ Namespace BattleSystem
Private Shared Function MoveAI(ByVal m As List(Of Attack), ByVal AIType As Attack.AIField) As Integer
Dim validMoves As New List(Of Integer)
Dim battleScreen As BattleScreen = CType(CurrentScreen, BattleScreen)
Dim _battleScreen As Screen = Core.CurrentScreen
While _battleScreen.Identification <> Screen.Identifications.BattleScreen
_battleScreen = _battleScreen.PreScreen
End While
For i = 0 To m.Count - 1
If m(i).Disabled = 0 Then
If battleScreen.FieldEffects.OppTaunt = 0 OrElse m(i).Category <> Attack.Categories.Status Then
If CType(_battleScreen, BattleScreen).FieldEffects.OppTaunt = 0 OrElse m(i).Category <> Attack.Categories.Status Then
If m(i).AIField1 = AIType Or m(i).AIField2 = AIType Or m(i).AIField3 = AIType Then
validMoves.Add(i)
End If