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

Fix Hidden Ability Evolution Crash

Browse Source
This commit is contained in:
JappaWakka 2022-12-06 14:34:31 +01:00
parent bdb0278280
commit 75a71fbe7b
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
P3D/Screens/Pokemon/EvolutionScreen.vb
View File

@ -237,6 +237,7 @@
Next Next
If allReady = True Then If allReady = True Then
Sparks.Clear()
Dim type As Integer = 2 Dim type As Integer = 2
If evolvedPokemon.IsShiny = True Then If evolvedPokemon.IsShiny = True Then
type = 3 type = 3
@ -247,7 +248,7 @@
SoundManager.PlaySound("success", True) SoundManager.PlaySound("success", True)
evolutionReady = True evolutionReady = True
Dim t As String = "Congratulations!*Your " & currentPokemon.GetDisplayName() & " evolved into~" & evolvedPokemon.GetName() & "!" Dim t As String = "Congratulations!*Your " & currentPokemon.GetDisplayName() & "~evolved into " & evolvedPokemon.GetName() & "!"
If evolvedPokemon.AttackLearns.ContainsKey(evolvedPokemon.Level) = True Then If evolvedPokemon.AttackLearns.ContainsKey(evolvedPokemon.Level) = True Then
If evolvedPokemon.KnowsMove(evolvedPokemon.AttackLearns(evolvedPokemon.Level)) = False Then If evolvedPokemon.KnowsMove(evolvedPokemon.AttackLearns(evolvedPokemon.Level)) = False Then
If evolvedPokemon.Attacks.Count = 4 Then If evolvedPokemon.Attacks.Count = 4 Then
@ -397,7 +398,7 @@
evolvedPokemon.Ability = currentPokemon.Ability evolvedPokemon.Ability = currentPokemon.Ability
End If End If
End If End If
evolvedPokemon.SetOriginalAbility()
evolvedPokemon.IsShiny = currentPokemon.IsShiny evolvedPokemon.IsShiny = currentPokemon.IsShiny
evolvedPokemon.Item = currentPokemon.Item evolvedPokemon.Item = currentPokemon.Item