tyler.durden
/
P3D-Legacy
mirror of https://github.com/P3D-Legacy/P3D-Legacy.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Fix Hidden Ability Evolution Crash

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
If allReady = True Then
Sparks.Clear()
Dim type As Integer = 2
If evolvedPokemon.IsShiny = True Then
type = 3
@ -247,7 +248,7 @@
SoundManager.PlaySound("success", 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.KnowsMove(evolvedPokemon.AttackLearns(evolvedPokemon.Level)) = False Then
If evolvedPokemon.Attacks.Count = 4 Then
@ -397,7 +398,7 @@
evolvedPokemon.Ability = currentPokemon.Ability
End If
End If
evolvedPokemon.SetOriginalAbility()
evolvedPokemon.IsShiny = currentPokemon.IsShiny
evolvedPokemon.Item = currentPokemon.Item