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

Crash fix and switch tip positioning/color

This commit is contained in:
JappaWakka 2023-07-18 19:38:42 +02:00
parent 51359c7233
commit 7163093bbc
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
P3D/Screens/Pokedex/PokedexScreen.vb
View File

@ -1366,7 +1366,10 @@ Public Class PokedexViewScreen
End Sub
Private Sub LoadPokemonData(ByVal newDexIndex As Integer, Optional ByVal newPokemon As Pokemon = Nothing, Optional playCry As Boolean = False)
Dim oldCry As String = PokemonForms.GetCrySuffix(Me.Pokemon)
Dim oldCry As String = ""
If Me.Pokemon IsNot Nothing Then
PokemonForms.GetCrySuffix(Me.Pokemon)
End If
If newPokemon IsNot Nothing Then
EvolutionLineConnections.Clear()
Me.Pokemon = newPokemon
@ -1639,7 +1642,7 @@ Public Class PokedexViewScreen
End If
If Me.Forms.Count > 1 Then
Core.SpriteBatch.DrawString(FontManager.MainFont, "Press [Shift] to switch forms", New Vector2(960, 36), Color.Black, 0.0F, Vector2.Zero, 1.0F, SpriteEffects.None, 0.0F)
Core.SpriteBatch.DrawString(FontManager.MainFont, "Press [Shift] to switch forms", New Vector2(CInt(windowSize.Width - FontManager.MainFont.MeasureString("Press [Shift] to switch forms").X - 128), 36), Color.White, 0.0F, Vector2.Zero, 1.0F, SpriteEffects.None, 0.0F)
End If
Select Case Me.Page