mirror of
https://github.com/P3D-Legacy/P3D-Legacy.git
synced 2025-07-23 22:05:36 +02:00
After faint switch, revision 2: Fixed case when both pokemon faint.
This commit is contained in:
parent
dc26fdd75d
commit
5459ed2ac6
@ -463,13 +463,12 @@
|
||||
|
||||
|
||||
Public Sub InitializeRound(ByVal BattleScreen As BattleScreen, ByVal OwnStep As RoundConst)
|
||||
If BattleScreen.OwnFaint OrElse BattleScreen.OppFaint Then
|
||||
BattleScreen.IsAfterFaint = True
|
||||
End If
|
||||
If BattleHasEnded(BattleScreen) Then
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
If BattleScreen.OwnFaint OrElse BattleScreen.OppFaint Then
|
||||
BattleScreen.IsAfterFaint = True
|
||||
End If
|
||||
Dim OppStep = GetOppStep(BattleScreen, OwnStep)
|
||||
Me.OwnStep = OwnStep
|
||||
Me.OppStep = OppStep
|
||||
|
@ -924,6 +924,7 @@
|
||||
Else
|
||||
If TempBattleScreen.OwnPokemonIndex <> PokeIndex Then
|
||||
If TempBattleScreen.IsRemoteBattle = True And TempBattleScreen.IsHost = False Then
|
||||
BattleScreen.OppFaint = False
|
||||
TempBattleScreen.OwnStatistics.Switches += 1
|
||||
TempBattleScreen.BattleQuery.Clear()
|
||||
TempBattleScreen.BattleQuery.Add(TempBattleScreen.FocusBattle())
|
||||
|
Loading…
x
Reference in New Issue
Block a user