tyler.durden/P3D-Legacy
1
0
Fork 0
mirror of https://github.com/P3D-Legacy/P3D-Legacy.git synced 2025-07-23 22:05:36 +02:00
Code Issues Packages Projects Releases Wiki Activity

Fixed certain front sprites not being found

Browse Source
This commit is contained in:
JappaWakka 2023-01-03 19:57:19 +01:00
parent 353224f269
commit 7c74e541be
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
P3D/Pokemon/Monster/Pokemon.vb
View File

@ -2515,6 +2515,8 @@ Public Class Pokemon
Dim TextureImage As Texture2D Dim TextureImage As Texture2D
If TextureManager.TextureExist("Pokemon\Sprites\" & Me.Number & TextureNumberSuffix) = True Then If TextureManager.TextureExist("Pokemon\Sprites\" & Me.Number & TextureNumberSuffix) = True Then
TextureImage = P3D.TextureManager.GetTexture("Pokemon\Sprites\" & Me.Number & TextureNumberSuffix) TextureImage = P3D.TextureManager.GetTexture("Pokemon\Sprites\" & Me.Number & TextureNumberSuffix)
ElseIf TextureManager.TextureExist("Pokemon\Sprites\" & Me.Number) = True Then
TextureImage = P3D.TextureManager.GetTexture("Pokemon\Sprites\" & Me.Number)
Else Else
TextureImage = P3D.TextureManager.GetTexture("Pokemon\Sprites\" & Me.AnimationName) TextureImage = P3D.TextureManager.GetTexture("Pokemon\Sprites\" & Me.AnimationName)
End If End If
@ -2524,6 +2526,8 @@ Public Class Pokemon
Dim TextureImage As Texture2D Dim TextureImage As Texture2D
If TextureManager.TextureExist("Pokemon\Sprites\" & Me.Number & TextureNumberSuffix) = True Then If TextureManager.TextureExist("Pokemon\Sprites\" & Me.Number & TextureNumberSuffix) = True Then
TextureImage = P3D.TextureManager.GetTexture("Pokemon\Sprites\" & Me.Number & TextureNumberSuffix) TextureImage = P3D.TextureManager.GetTexture("Pokemon\Sprites\" & Me.Number & TextureNumberSuffix)
ElseIf TextureManager.TextureExist("Pokemon\Sprites\" & Me.Number) = True Then
TextureImage = P3D.TextureManager.GetTexture("Pokemon\Sprites\" & Me.Number)
Else Else
TextureImage = P3D.TextureManager.GetTexture("Pokemon\Sprites\" & Me.AnimationName) TextureImage = P3D.TextureManager.GetTexture("Pokemon\Sprites\" & Me.AnimationName)
End If End If
@ -2533,6 +2537,8 @@ Public Class Pokemon
Dim TextureImage As Texture2D Dim TextureImage As Texture2D
If TextureManager.TextureExist("Pokemon\Sprites\" & Me.Number & TextureNumberSuffix) = True Then If TextureManager.TextureExist("Pokemon\Sprites\" & Me.Number & TextureNumberSuffix) = True Then
TextureImage = P3D.TextureManager.GetTexture("Pokemon\Sprites\" & Me.Number & TextureNumberSuffix) TextureImage = P3D.TextureManager.GetTexture("Pokemon\Sprites\" & Me.Number & TextureNumberSuffix)
ElseIf TextureManager.TextureExist("Pokemon\Sprites\" & Me.Number) = True Then
TextureImage = P3D.TextureManager.GetTexture("Pokemon\Sprites\" & Me.Number)
Else Else
TextureImage = P3D.TextureManager.GetTexture("Pokemon\Sprites\" & Me.AnimationName) TextureImage = P3D.TextureManager.GetTexture("Pokemon\Sprites\" & Me.AnimationName)
End If End If
@ -2542,6 +2548,8 @@ Public Class Pokemon
Dim TextureImage As Texture2D Dim TextureImage As Texture2D
If TextureManager.TextureExist("Pokemon\Sprites\" & Me.Number & TextureNumberSuffix) = True Then If TextureManager.TextureExist("Pokemon\Sprites\" & Me.Number & TextureNumberSuffix) = True Then
TextureImage = P3D.TextureManager.GetTexture("Pokemon\Sprites\" & Me.Number & TextureNumberSuffix) TextureImage = P3D.TextureManager.GetTexture("Pokemon\Sprites\" & Me.Number & TextureNumberSuffix)
ElseIf TextureManager.TextureExist("Pokemon\Sprites\" & Me.Number) = True Then
TextureImage = P3D.TextureManager.GetTexture("Pokemon\Sprites\" & Me.Number)
Else Else
TextureImage = P3D.TextureManager.GetTexture("Pokemon\Sprites\" & Me.AnimationName) TextureImage = P3D.TextureManager.GetTexture("Pokemon\Sprites\" & Me.AnimationName)
End If End If