Fix Shellos HiddenGrotto form

This commit is contained in:
JappaWakka 2024-01-29 12:09:59 +01:00
parent 6932819c21
commit 3d7dbe2156
2 changed files with 3 additions and 1 deletions

View File

@ -120,7 +120,9 @@
ElseIf Me.TextureID.Contains("-") Then
Me.TextureID = Me.TextureID.GetSplit(0, "-")
ElseIf Me.TextureID.Contains(";") Then
Me.TextureID = Me.TextureID.GetSplit(0, ";")
Dim p As Pokemon = Pokemon.GetPokemonByID(CInt(Me.TextureID.GetSplit(0, ";")), Me.TextureID.GetSplit(1, ";"), True)
Dim formaddition = PokemonForms.GetOverworldAddition(p)
Me.TextureID = Me.TextureID.GetSplit(0, ";") & formaddition
End If
End If
End If