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

replace random use age of different NPC skin names

This commit is contained in:
darkfire006 2022-08-25 01:10:16 -05:00
parent 8bf24306f6
commit 5614e05e4e
8 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
P3D/Content/Data/Scripts/alph/alph_oldman.dat
View File

Binary file not shown.

BIN
P3D/Content/Data/Scripts/floe/daycare_pokemon.dat
View File

Binary file not shown.

BIN
P3D/Content/Data/Scripts/hiddengrotto/main.dat
View File

Binary file not shown.

BIN
P3D/Content/Data/Scripts/lakeofrage/lance.dat
View File

Binary file not shown.

BIN
P3D/Content/Data/Scripts/route5/daycare_pokemon.dat
View File

Binary file not shown.

4
P3D/Entites/Other/NPC.vb
View File

@ -88,10 +88,10 @@
Me.TextureID = UseTextureID
Dim texturePath As String = "Textures\NPC\"
If Me.TextureID.StartsWith("[POKEMON|N]") = True Or Me.TextureID.StartsWith("[Pokémon|N]") = True Then
If Me.TextureID.StartsWith("[POKEMON|N]") = True Or Me.TextureID.StartsWith("[POKEMON|N]") = True Then
Me.TextureID = Me.TextureID.Remove(0, 11)
texturePath = "Pokemon\Overworld\Normal\"
ElseIf Me.TextureID.StartsWith("[POKEMON|S]") = True Or Me.TextureID.StartsWith("[Pokémon|S]") = True Then
ElseIf Me.TextureID.StartsWith("[POKEMON|S]") = True Or Me.TextureID.StartsWith("[POKEMON|S]") = True Then
Me.TextureID = Me.TextureID.Remove(0, 11)
texturePath = "Pokemon\Overworld\Shiny\"
End If

6
P3D/Entites/Other/NetworkPlayer.vb
View File

@ -103,10 +103,10 @@
Public Shared Function GetTexturePath(ByVal TextureID As String) As String
Dim texturePath As String = "Textures\NPC\"
If TextureID.StartsWith("[POKEMON|N]") = True Or TextureID.StartsWith("[Pokémon|N]") = True Then
If TextureID.StartsWith("[POKEMON|N]") = True Or TextureID.StartsWith("[POKEMON|N]") = True Then
TextureID = TextureID.Remove(0, 11)
texturePath = "Pokemon\Overworld\Normal\"
ElseIf TextureID.StartsWith("[POKEMON|S]") = True Or TextureID.StartsWith("[Pokémon|S]") = True Then
ElseIf TextureID.StartsWith("[POKEMON|S]") = True Or TextureID.StartsWith("[POKEMON|S]") = True Then
TextureID = TextureID.Remove(0, 11)
texturePath = "Pokemon\Overworld\Shiny\"
End If
@ -304,7 +304,7 @@
Me.Name = p.Name
If Not p.Skin.StartsWith("[POKEMON|N]") AndAlso Not p.Skin.StartsWith("[Pokémon|N]") AndAlso Not p.Skin.StartsWith("[POKEMON|S]") AndAlso Not p.Skin.StartsWith("[Pokémon|S]") Then
If Not p.Skin.StartsWith("[POKEMON|N]") AndAlso Not p.Skin.StartsWith("[POKEMON|N]") AndAlso Not p.Skin.StartsWith("[POKEMON|S]") AndAlso Not p.Skin.StartsWith("[POKEMON|S]") Then
If Not String.IsNullOrWhiteSpace(GameJoltID) AndAlso CheckForOnlineSprite = False Then
CheckForOnlineSprite = True
Me.SetTexture(p.Skin)

4
P3D/Entites/Other/OwnPlayer.vb
View File

@ -30,10 +30,10 @@
Me.SkinName = TextureID
Dim texturePath As String = "Textures\NPC\"
If TextureID.StartsWith("[POKEMON|N]") Or TextureID.StartsWith("[Pokémon|N]") Then
If TextureID.StartsWith("[POKEMON|N]") Or TextureID.StartsWith("[POKEMON|N]") Then
TextureID = TextureID.Remove(0, 11)
texturePath = "Pokemon\Overworld\Normal\"
ElseIf TextureID.StartsWith("[POKEMON|S]") Or TextureID.StartsWith("[Pokémon|S]") Then
ElseIf TextureID.StartsWith("[POKEMON|S]") Or TextureID.StartsWith("[POKEMON|S]") Then
TextureID = TextureID.Remove(0, 11)
texturePath = "Pokemon\Overworld\Shiny\"
End If