N texture and following pokemon ID

This commit is contained in:
darkfire006 2019-10-09 21:30:06 -05:00
parent caa802de33
commit c61dc8584e
3 changed files with 5 additions and 0 deletions

Binary file not shown.

After

Width:  |  Height:  |  Size: 3.0 KiB

View File

@ -14137,6 +14137,9 @@
<Content Include="Content\Textures\NPC\Meowth.png"> <Content Include="Content\Textures\NPC\Meowth.png">
<CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory> <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
</Content> </Content>
<Content Include="Content\Textures\NPC\N.png">
<CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
</Content>
<Content Include="Content\Textures\NPC\Segis.png"> <Content Include="Content\Textures\NPC\Segis.png">
<CopyToOutputDirectory>Always</CopyToOutputDirectory> <CopyToOutputDirectory>Always</CopyToOutputDirectory>
</Content> </Content>

View File

@ -42,6 +42,8 @@
End With End With
Case "visible" Case "visible"
Return ReturnBoolean(Screen.Level.OverworldPokemon.IsVisible()) Return ReturnBoolean(Screen.Level.OverworldPokemon.IsVisible())
Case "id"
Return Screen.Level.OverworldPokemon.PokemonID
Case "skin" Case "skin"
If Screen.Level.OverworldPokemon.PokemonReference IsNot Nothing Then If Screen.Level.OverworldPokemon.PokemonReference IsNot Nothing Then
Dim shinyString As String = "Normal" Dim shinyString As String = "Normal"