From 7d1931abd10c77a291790d9cd2126e9e3c6ebfe5 Mon Sep 17 00:00:00 2001
From: JappaWakka <jjlspeelman@outlook.com>
Date: Fri, 11 Nov 2022 12:59:38 +0100
Subject: [PATCH] Fix exp sharing after switching before opponent

---
 .../BattleSystemV2/QueryObjects/SwitchPokemonQueryObject.vb     | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/P3D/Battle/BattleSystemV2/QueryObjects/SwitchPokemonQueryObject.vb b/P3D/Battle/BattleSystemV2/QueryObjects/SwitchPokemonQueryObject.vb
index 96ccb0f5e..e8058df9e 100644
--- a/P3D/Battle/BattleSystemV2/QueryObjects/SwitchPokemonQueryObject.vb
+++ b/P3D/Battle/BattleSystemV2/QueryObjects/SwitchPokemonQueryObject.vb
@@ -166,6 +166,8 @@
                         Else
                             Dim TempQuery = TempScreen.BattleQuery.ToArray
                             If TempScreen.OwnPokemonIndex <> PokeIndex Then
+                                TempScreen.ParticipatedPokemon.Clear()
+                                TempScreen.ParticipatedPokemon.Add(PokeIndex)
                                 If TempScreen.IsRemoteBattle = True And TempScreen.IsHost = False Then
                                     TempScreen.OppFaint = False
                                     TempScreen.OwnStatistics.Switches += 1