Fix certain forms crashing pokédex

This commit is contained in:
JappaWakka 2024-04-23 11:00:32 +02:00
parent 81f05a3bd1
commit 224f9c87d7
1 changed files with 5 additions and 5 deletions

View File

@ -94,8 +94,8 @@
End If End If
If ID.Contains("_") Then If ID.Contains("_") Then
If Pokemon.GetPokemonByID(CInt(ID.GetSplit(0, "_"))).DexForms.Contains(ID.GetSplit(1, "_")) Then If Pokemon.GetPokemonByID(CInt(ID.GetSplit(0, "_").GetSplit(0, ";"))).DexForms.Contains(ID.GetSplit(1, "_")) Then
cOriginalEntry = GetEntryType(Data, ID.GetSplit(0, "_")).ToString cOriginalEntry = GetEntryType(Data, ID.GetSplit(0, "_").GetSplit(0, ";")).ToString
End If End If
End If End If
@ -121,9 +121,9 @@
End If End If
If ID.Contains("_") Then If ID.Contains("_") Then
If Pokemon.GetPokemonByID(CInt(ID.GetSplit(0, "_"))).DexForms.Contains(ID.GetSplit(1, "_")) Then If Pokemon.GetPokemonByID(CInt(ID.GetSplit(0, "_").GetSplit(0, ";"))).DexForms.Contains(ID.GetSplit(1, "_")) Then
If cData.Contains("{" & ID.GetSplit(0, "_") & "|") = False Then If cData.Contains("{" & ID.GetSplit(0, "_").GetSplit(0, ";") & "|") = False Then
cData &= "{" & ID.GetSplit(0, "_") & "|" & 0 & "}" & Environment.NewLine cData &= "{" & ID.GetSplit(0, "_").GetSplit(0, ";") & "|" & 0 & "}" & Environment.NewLine
End If End If
End If End If
End If End If