Fixed lvl 100 Pokemon not being able to gain EVs through training

This commit is contained in:
CaptainSegis 2016-10-26 14:49:02 -05:00
parent 47410f1cd6
commit 33c552a274
1 changed files with 1 additions and 1 deletions

View File

@ -6298,7 +6298,7 @@
If BattleScreen.IsPVPBattle = False And BattleScreen.CanReceiveEXP = True Then
Dim expPokemon As New List(Of Integer)
For Each i As Integer In BattleScreen.ParticipatedPokemon
If Core.Player.Pokemons(i).Status <> Pokemon.StatusProblems.Fainted And Core.Player.Pokemons(i).Level < CInt(GameModeManager.GetGameRuleValue("MaxLevel", "100")) And Core.Player.Pokemons(i).IsEgg() = False Then
If Core.Player.Pokemons(i).Status <> Pokemon.StatusProblems.Fainted And Core.Player.Pokemons(i).IsEgg() = False Then
expPokemon.Add(i)
End If
Next