tyler.durden/P3D-Legacy
1
0
Fork 0
mirror of https://github.com/P3D-Legacy/P3D-Legacy.git synced 2025-04-08 18:35:09 +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

5
P3D/Screens/Pokemon/EvolutionScreen.vb

@ -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