ContentPack fixes

* Fixed ContentPack menu crashing when trying to load more than 5 Content Packs
* Fixed Texture Replacements in exceptions.dat being ignored if not the same case
* Fixed minor visual bug in the Box screen where smaller textures would be scaled incorrectly
This commit is contained in:
JappaWakka 2022-06-22 21:02:11 +02:00
parent a73bbee55b
commit 9ff6e94a1f
3 changed files with 5 additions and 5 deletions

View File

@ -136,7 +136,7 @@ Public Class TextureSource
End Function
Public Function IsEqual(ByVal TextureSource As TextureSource) As Boolean
If Me.TexturePath = TextureSource.TexturePath And Me.TextureRectangle = TextureSource.TextureRectangle Then
If Me.TexturePath.ToLower() = TextureSource.TexturePath.ToLower() And Me.TextureRectangle = TextureSource.TextureRectangle Then
Return True
End If

View File

@ -470,14 +470,14 @@
Private Sub PackEnabledToggle(ByVal c As ToggleButton)
If PackNames.Count > 0 Then
If EnabledPackNames.Contains(PackNames(packsMenuIndex(0) + packsMenuIndex(2))) Then
If EnabledPackNames.Contains(PackNames(packsMenuIndex(0))) Then
isSelectedEnabled = False
c.Toggled = False
ButtonToggle(PackNames(packsMenuIndex(0) + packsMenuIndex(2)))
ButtonToggle(PackNames(packsMenuIndex(0)))
Else
isSelectedEnabled = True
c.Toggled = True
ButtonToggle(PackNames(packsMenuIndex(0) + packsMenuIndex(2)))
ButtonToggle(PackNames(packsMenuIndex(0)))
End If
Else
isSelectedEnabled = False

View File

@ -1189,7 +1189,7 @@ Public Class StorageSystemScreen
c = New Color(65, 65, 65, 255)
End If
Dim pokeTexture = box.Pokemon(id).GetPokemon().GetMenuTexture()
Core.SpriteBatch.Draw(pokeTexture, New Rectangle(50 + x * 100 - CInt(pokeTexture.Width - 32), 200 + y * 84, pokeTexture.Width * 2, 64), c)
Core.SpriteBatch.Draw(pokeTexture, New Rectangle(50 + x * 100 - CInt(pokeTexture.Width - 32), 200 + y * 84, pokeTexture.Width * 2, pokeTexture.Height * 2), c)
End If
Next
Else