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

Fixed bigger menu sprites not displaying correctly

This commit is contained in:
CaptainSegis 2018-05-02 21:58:10 -05:00
parent 60171e1047
commit 57ae2f5669
11 changed files with 55 additions and 34 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
P3D/Network/GameJolt/RegisterBattleScreen.vb
View File

@ -229,7 +229,8 @@
For i = 0 To Me.OwnTeam.Count - 1
Dim p As Pokemon = Me.OwnTeam(i)
Core.SpriteBatch.Draw(p.GetMenuTexture(), New Rectangle(CInt(startPos.X) + 200 + i * 68, CInt(startPos.Y) - 26, 64, 64), Color.White)
Dim pokeTexture = p.GetMenuTexture()
Core.SpriteBatch.Draw(pokeTexture, New Rectangle(CInt(startPos.X) + 200 + i * 68 - CInt(pokeTexture.Width - 32), CInt(startPos.Y) - 26, pokeTexture.Width * 2, 64), Color.White)
Next
Else
Core.SpriteBatch.DrawString(FontManager.MainFont, "No Team registered.", New Vector2(CSng(Core.windowSize.Width / 2 - FontManager.MainFont.MeasureString(t).X / 2), 335 - FontManager.MainFont.MeasureString(t).Y / 2), Color.Black)
@ -382,7 +383,8 @@
Canvas.DrawBorder(2, New Rectangle(CInt(startPos.X) + x * 140, y * 100 + CInt(startPos.Y), 128, 80), New Color(230, 230, 230))
If BattleBoxPokemon.Count - 1 >= i Then
Core.SpriteBatch.Draw(BattleBoxPokemon(i).GetMenuTexture(), New Rectangle(CInt(startPos.X) + x * 140 + 32, y * 100 + CInt(startPos.Y) + 10, 64, 64), Color.White)
Dim pokeTexture = BattleBoxPokemon(i).GetMenuTexture()
Core.SpriteBatch.Draw(pokeTexture, New Rectangle(CInt(startPos.X) + x * 140 + 32 - CInt(pokeTexture.Width - 32), y * 100 + CInt(startPos.Y) + 10, pokeTexture.Width * 2, 64), Color.White)
End If
Core.SpriteBatch.DrawString(FontManager.MainFont, "Battle Box", New Vector2(CInt(startPos.X) + 80, CInt(startPos.Y) - 45), Color.White)
@ -402,7 +404,8 @@
Canvas.DrawBorder(2, New Rectangle(CInt(startPos.X) + x * 140, y * 100 + CInt(startPos.Y), 128, 80), New Color(230, 230, 230))
If Core.Player.Pokemons.Count - 1 >= i Then
Core.SpriteBatch.Draw(Core.Player.Pokemons(i).GetMenuTexture(), New Rectangle(CInt(startPos.X) + x * 140 + 32, y * 100 + CInt(startPos.Y) + 10, 64, 64), Color.White)
Dim pokeTexture = Core.Player.Pokemons(i).GetMenuTexture()
Core.SpriteBatch.Draw(pokeTexture, New Rectangle(CInt(startPos.X) + x * 140 + 32 - CInt(pokeTexture.Width - 32), y * 100 + CInt(startPos.Y) + 10, pokeTexture.Width * 2, 64), Color.White)
End If
Core.SpriteBatch.DrawString(FontManager.MainFont, "Team", New Vector2(CInt(startPos.X) + 106, CInt(startPos.Y) - 45), Color.White)

20
P3D/Network/Servers/PVPLobbyScreen.vb
View File

@ -159,7 +159,8 @@
If OwnTeam.Count > 0 Then
For i = 0 To OwnTeam.Count - 1
Dim p As Pokemon = OwnTeam(i)
Core.SpriteBatch.Draw(p.GetMenuTexture(), New Rectangle(40 + i * 40, 264, 32, 32), Color.White)
Dim pokeTexture = p.GetMenuTexture()
Core.SpriteBatch.Draw(pokeTexture, New Rectangle(40 + i * 40 - CInt((pokeTexture.Width - 32) / 2), 264, pokeTexture.Width, 32), Color.White)
Next
End If
End If
@ -225,7 +226,8 @@
If OppTeam.Count > 0 Then
For i = 0 To OppTeam.Count - 1
Dim p As Pokemon = OppTeam(i)
Core.SpriteBatch.Draw(p.GetMenuTexture(), New Rectangle(CInt(Core.windowSize.Width - 360) + i * 40, 264, 32, 32), Color.White)
Dim pokeTexture = p.GetMenuTexture()
Core.SpriteBatch.Draw(pokeTexture, New Rectangle(CInt(Core.windowSize.Width - 360) + i * 40 - CInt((pokeTexture.Width - 32) / 2), 264, pokeTexture.Width, 32), Color.White)
Next
End If
End If
@ -354,7 +356,8 @@
Canvas.DrawBorder(2, New Rectangle(CInt(startPos.X) + x * 140, y * 100 + CInt(startPos.Y), 128, 80), New Color(230, 230, 230))
If BattleBoxPokemon.Count - 1 >= i Then
Core.SpriteBatch.Draw(BattleBoxPokemon(i).GetMenuTexture(), New Rectangle(CInt(startPos.X) + x * 140 + 32, y * 100 + CInt(startPos.Y) + 10, 64, 64), Color.White)
Dim pokeTexture = BattleBoxPokemon(i).GetMenuTexture()
Core.SpriteBatch.Draw(pokeTexture, New Rectangle(CInt(startPos.X) + x * 140 + 32 - CInt(pokeTexture.Width - 32), y * 100 + CInt(startPos.Y) + 10, pokeTexture.Width * 2, 64), Color.White)
End If
Core.SpriteBatch.DrawString(FontManager.MainFont, "Battle Box", New Vector2(CInt(startPos.X) + 80, CInt(startPos.Y) - 45), Color.White)
@ -374,7 +377,8 @@
Canvas.DrawBorder(2, New Rectangle(CInt(startPos.X) + x * 140, y * 100 + CInt(startPos.Y), 128, 80), New Color(230, 230, 230))
If Core.Player.Pokemons.Count - 1 >= i Then
Core.SpriteBatch.Draw(Core.Player.Pokemons(i).GetMenuTexture(), New Rectangle(CInt(startPos.X) + x * 140 + 32, y * 100 + CInt(startPos.Y) + 10, 64, 64), Color.White)
Dim pokeTexture = Core.Player.Pokemons(i).GetMenuTexture()
Core.SpriteBatch.Draw(pokeTexture, New Rectangle(CInt(startPos.X) + x * 140 + 32 - CInt(pokeTexture.Width - 32), y * 100 + CInt(startPos.Y) + 10, pokeTexture.Width * 2, 64), Color.White)
End If
Core.SpriteBatch.DrawString(FontManager.MainFont, "Team", New Vector2(CInt(startPos.X) + 106, CInt(startPos.Y) - 45), Color.White)
@ -712,8 +716,8 @@
If p.Status = Pokemon.StatusProblems.Fainted Or p.HP <= 0 Then
c = New Color(65, 65, 65, 255)
End If
Core.SpriteBatch.Draw(p.GetMenuTexture(), New Rectangle(40 + i * 40, 264, 32, 32), c)
Dim pokeTexture = p.GetMenuTexture()
Core.SpriteBatch.Draw(pokeTexture, New Rectangle(40 + i * 40 - CInt((pokeTexture.Width - 32) / 2), 264, pokeTexture.Width, 32), c)
Next
'Draw Own Statistics:
@ -787,8 +791,8 @@
If p.Status = Pokemon.StatusProblems.Fainted Or p.HP <= 0 Then
c = New Color(65, 65, 65, 255)
End If
Core.SpriteBatch.Draw(p.GetMenuTexture(), New Rectangle(CInt(Core.windowSize.Width - 360) + i * 40, 264, 32, 32), c)
Dim pokeTexture = p.GetMenuTexture()
Core.SpriteBatch.Draw(pokeTexture, New Rectangle(CInt(Core.windowSize.Width - 360) + i * 40 - CInt((pokeTexture.Width - 32) / 2), 264, pokeTexture.Width, 32), c)
Next
'Draw Opp Statistics:

4
P3D/Screens/Battle/BattleGrowStatsScreen.vb
View File

@ -38,8 +38,8 @@
Dim p As New Vector2(Core.windowSize.Width - (544), 32)
Canvas.DrawImageBorder(TextureManager.GetTexture(mainTexture, New Rectangle(0, 0, 48, 48)), 2, New Rectangle(CInt(p.X), CInt(p.Y), 480, 352))
Core.SpriteBatch.Draw(Pokemon.GetMenuTexture(), New Rectangle(CInt(p.X + 20), CInt(p.Y + 20), 64, 64), Color.White)
Dim pokeTexture = Pokemon.GetMenuTexture()
Core.SpriteBatch.Draw(pokeTexture, New Rectangle(CInt(p.X + 20), CInt(p.Y + 20), pokeTexture.Width * 2, 64), Color.White)
Core.SpriteBatch.DrawString(FontManager.InGameFont, Pokemon.GetDisplayName(), New Vector2(p.X + 90, p.Y + 32), Color.Black)
Core.SpriteBatch.DrawString(FontManager.MiniFont, " reached level " & Pokemon.Level & "!", New Vector2(p.X + 90 + FontManager.InGameFont.MeasureString(Pokemon.GetDisplayName()).X, p.Y + 41), Color.Black)

6
P3D/Screens/PC/HallOfFameScreen.vb
View File

@ -190,7 +190,8 @@
Core.SpriteBatch.DrawString(FontManager.MainFont, "Entry No. " & (Me.Entries(i).ID + 1).ToString(), New Vector2(120, 116 + p * 96), New Color(0, 0, 0, alpha), 0.0F, Vector2.Zero, 1.25F, SpriteEffects.None, 0.0F)
For d = 0 To Me.Entries(i).PokemonList.Count - 1
Core.SpriteBatch.Draw(Me.Entries(i).PokemonList(d).GetPokemon().GetMenuTexture(), New Rectangle(360 + d * 40, 116 + p * 96, 32, 32), New Color(255, 255, 255, alpha))
Dim pokeTexture = Me.Entries(i).PokemonList(d).GetPokemon().GetMenuTexture()
Core.SpriteBatch.Draw(pokeTexture, New Rectangle(360 + d * 40 - CInt((pokeTexture.Width - 32) / 2), 116 + p * 96, pokeTexture.Width, 32), New Color(255, 255, 255, alpha))
Next
End If
Next
@ -246,7 +247,8 @@
Core.SpriteBatch.DrawString(FontManager.MainFont, SelectedEntry.PlayTime & Environment.NewLine & Environment.NewLine & SelectedEntry.OT & Environment.NewLine & Environment.NewLine & SelectedEntry.Points, New Vector2(pos.X + 116, pos.Y + 55), New Color(173, 216, 230), 0.0F, Vector2.Zero, 1.0F, SpriteEffects.None, 0.0F)
Else
Dim p As Pokemon = SelectedEntry.PokemonList(id).GetPokemon()
Core.SpriteBatch.Draw(p.GetMenuTexture(), New Rectangle(CInt(pos.X + 4), CInt(pos.Y + 6), 32, 32), Color.White)
Dim pokeTexture = p.GetMenuTexture()
Core.SpriteBatch.Draw(pokeTexture, New Rectangle(CInt(pos.X + 4) - CInt((pokeTexture.Width - 32) / 2), CInt(pos.Y + 6), pokeTexture.Width, 32), Color.White)
Core.SpriteBatch.DrawString(FontManager.MainFont, p.GetDisplayName(), New Vector2(pos.X + 40, pos.Y + 4), Color.White, 0.0F, Vector2.Zero, 1.5F, SpriteEffects.None, 0.0F)
Core.SpriteBatch.DrawString(FontManager.MainFont, "Level" & Environment.NewLine & Environment.NewLine & "OT" & Environment.NewLine & Environment.NewLine & "Type 1" & Environment.NewLine & Environment.NewLine & "Type 2", New Vector2(pos.X + 10, pos.Y + 43), Color.White, 0.0F, Vector2.Zero, 1.0F, SpriteEffects.None, 0.0F)

19
P3D/Screens/PC/StorageSystemScreen.vb
View File

@ -1185,8 +1185,8 @@ Public Class StorageSystemScreen
If IsLit(box.Pokemon(id).GetPokemon()) = False Then
c = New Color(65, 65, 65, 255)
End If
Core.SpriteBatch.Draw(box.Pokemon(id).GetPokemon().GetMenuTexture(), New Rectangle(50 + x * 100, 200 + y * 84, 64, 64), c)
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)
End If
Next
Else
@ -1218,8 +1218,8 @@ Public Class StorageSystemScreen
If IsLit(box.Pokemon(id).GetPokemon()) = False Then
c = New Color(65, 65, 65, 255)
End If
Core.SpriteBatch.Draw(box.Pokemon(id).GetPokemon().GetMenuTexture(), New Rectangle(50 + x * 100, 200 + y * 84, 64, 64), c)
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)
End If
Next
Next
@ -1249,7 +1249,8 @@ Public Class StorageSystemScreen
c = New Color(65, 65, 65, 255)
End If
Core.SpriteBatch.Draw(box.Pokemon(id).GetPokemon().GetMenuTexture(), New Rectangle(664 + x * 32, 215 + y * 32, 32, 32), c)
Dim pokeTexture = box.Pokemon(id).GetPokemon().GetMenuTexture()
Core.SpriteBatch.Draw(pokeTexture, New Rectangle(664 + x * 32 - CInt((pokeTexture.Width - 32) / 2), 215 + y * 32, pokeTexture.Width, 32), c)
If box.Pokemon(id).GetPokemon().Level < minLevel Or minLevel = -1 Then
minLevel = box.Pokemon(id).GetPokemon().Level
@ -1396,7 +1397,8 @@ Public Class StorageSystemScreen
c = New Color(65, 65, 65, 255)
End If
Core.SpriteBatch.Draw(Core.Player.Pokemons(i).GetMenuTexture(), New Rectangle(Core.windowSize.Width - 228, i * 100 + 60, 64, 64), c)
Dim pokeTexture = Core.Player.Pokemons(i).GetMenuTexture()
Core.SpriteBatch.Draw(pokeTexture, New Rectangle(Core.windowSize.Width - 228 - CInt(pokeTexture.Width - 32), i * 100 + 60, pokeTexture.Width * 2, 64), c)
If Not Core.Player.Pokemons(i).Item Is Nothing And Core.Player.Pokemons(i).IsEgg() = False Then
Core.SpriteBatch.Draw(Core.Player.Pokemons(i).Item.Texture, New Rectangle(Core.windowSize.Width - 196, i * 100 + 92, 24, 24), Color.White)
@ -1413,8 +1415,9 @@ Public Class StorageSystemScreen
End If
If Not Me.MovingPokemon Is Nothing Then
Core.SpriteBatch.Draw(Me.MovingPokemon.GetMenuTexture(), New Rectangle(CInt(cPosition.X - 10), CInt(cPosition.Y + 44), 64, 64), New Color(0, 0, 0, 150))
Core.SpriteBatch.Draw(Me.MovingPokemon.GetMenuTexture(), New Rectangle(CInt(cPosition.X - 20), CInt(cPosition.Y + 34), 64, 64), Color.White)
Dim pokeTexture = Me.MovingPokemon.GetMenuTexture()
Core.SpriteBatch.Draw(pokeTexture, New Rectangle(CInt(cPosition.X - 10) - CInt(pokeTexture.Width - 32), CInt(cPosition.Y + 44), pokeTexture.Width * 2, 64), New Color(0, 0, 0, 150))
Core.SpriteBatch.Draw(pokeTexture, New Rectangle(CInt(cPosition.X - 20) - CInt(pokeTexture.Width - 32), CInt(cPosition.Y + 34), pokeTexture.Width * 2, 64), Color.White)
If Not Me.MovingPokemon.Item Is Nothing And Me.MovingPokemon.IsEgg() = False Then
Core.SpriteBatch.Draw(Me.MovingPokemon.Item.Texture, New Rectangle(CInt(cPosition.X - 20) + 32, CInt(cPosition.Y + 34) + 32, 24, 24), Color.White)

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

@ -543,7 +543,8 @@ Public Class PokedexScreen
If entryType > 1 Then
c = Color.White
End If
Core.SpriteBatch.Draw(p.GetMenuTexture(), New Rectangle(50 + x * 100, 140 + y * 100, 64, 64), c)
Dim pokeTexture = p.GetMenuTexture()
Core.SpriteBatch.Draw(pokeTexture, New Rectangle(50 + x * 100, 140 + y * 100, pokeTexture.Width * 2, 64), c)
End If
Dim no As String = "000"
@ -1398,7 +1399,8 @@ Public Class PokedexViewScreen
Core.SpriteBatch.Draw(Me.texture, New Rectangle(20 + 64, 20, 64 * 5, 64), New Rectangle(32, 16, 16, 16), Color.White)
Core.SpriteBatch.Draw(Me.texture, New Rectangle(20 + 64 * 6, 20, 64, 64), New Rectangle(16, 16, 16, 16), Color.White, 0.0F, Vector2.Zero, SpriteEffects.FlipHorizontally, 0.0F)
Core.SpriteBatch.Draw(Pokemon.GetMenuTexture(), New Rectangle(28, 20, 64, 64), Color.White)
Dim pokeTexture = Pokemon.GetMenuTexture()
Core.SpriteBatch.Draw(pokeTexture, New Rectangle(28, 20, pokeTexture.Width * 2, 64), Color.White)
Core.SpriteBatch.DrawString(FontManager.MainFont, Pokemon.GetName(), New Vector2(100, 36), Color.Black, 0.0F, Vector2.Zero, 1.25F, SpriteEffects.None, 0.0F)
If EntryType = 1 Then
@ -1605,15 +1607,19 @@ Public Class PokedexViewScreen
Canvas.DrawLine(Color.Black, New Vector2(mv.X + (level1 * (128 * scale)) + (scale * 32), mv.Y + (scale * 32) + level1Offset), New Vector2(mv.X + (level2 * (128 * scale)) + (scale * 32), mv.Y + (scale * 32) + level2Offset), 2)
If Pokedex.GetEntryType(Core.Player.PokedexData, pokemon1.Number) = 0 Then
Core.SpriteBatch.Draw(pokemon1.GetMenuTexture(), New Rectangle(CInt(mv.X + (level1 * (128 * scale))), CInt(mv.Y + level1Offset), CInt(64 * scale), CInt(64 * scale)), Color.Black)
Dim pokeTexture = pokemon1.GetMenuTexture()
Core.SpriteBatch.Draw(pokeTexture, New Rectangle(CInt(mv.X + (level1 * (128 * scale))) - CInt((pokeTexture.Width - 32) * scale), CInt(mv.Y + level1Offset), CInt(pokeTexture.Width * 2 * scale), CInt(64 * scale)), Color.Black)
Else
Core.SpriteBatch.Draw(pokemon1.GetMenuTexture(), New Rectangle(CInt(mv.X + (level1 * (128 * scale))), CInt(mv.Y + level1Offset), CInt(64 * scale), CInt(64 * scale)), Color.White)
Dim pokeTexture = pokemon1.GetMenuTexture()
Core.SpriteBatch.Draw(pokeTexture, New Rectangle(CInt(mv.X + (level1 * (128 * scale))) - CInt((pokeTexture.Width - 32) * scale), CInt(mv.Y + level1Offset), CInt(pokeTexture.Width * 2 * scale), CInt(64 * scale)), Color.White)
Core.SpriteBatch.DrawString(FontManager.MainFont, pokemon1.GetName(), New Vector2(CInt(mv.X + (level1 * (128 * scale))) + (32 * scale) - (FontManager.MainFont.MeasureString(pokemon1.GetName()).X / 2 * CSng(scale / 2)), CInt(mv.Y + level1Offset) + (58 * scale)), Color.Black, 0.0F, Vector2.Zero, CSng(scale / 2), SpriteEffects.None, 0.0F)
End If
If Pokedex.GetEntryType(Core.Player.PokedexData, pokemon2.Number) = 0 Then
Core.SpriteBatch.Draw(pokemon2.GetMenuTexture(), New Rectangle(CInt(mv.X + (level2 * (128 * scale))), CInt(mv.Y + level2Offset), CInt(64 * scale), CInt(64 * scale)), Color.Black)
Dim pokeTexture = pokemon2.GetMenuTexture()
Core.SpriteBatch.Draw(pokeTexture, New Rectangle(CInt(mv.X + (level2 * (128 * scale))) - CInt((pokeTexture.Width - 32) * scale), CInt(mv.Y + level2Offset), CInt(pokeTexture.Width * 2 * scale), CInt(64 * scale)), Color.Black)
Else
Core.SpriteBatch.Draw(pokemon2.GetMenuTexture(), New Rectangle(CInt(mv.X + (level2 * (128 * scale))), CInt(mv.Y + level2Offset), CInt(64 * scale), CInt(64 * scale)), Color.White)
Dim pokeTexture = pokemon2.GetMenuTexture()
Core.SpriteBatch.Draw(pokeTexture, New Rectangle(CInt(mv.X + (level2 * (128 * scale))) - CInt((pokeTexture.Width - 32) * scale), CInt(mv.Y + level2Offset), CInt(pokeTexture.Width * 2 * scale), CInt(64 * scale)), Color.White)
Core.SpriteBatch.DrawString(FontManager.MainFont, pokemon2.GetName(), New Vector2(CInt(mv.X + (level2 * (128 * scale))) + (32 * scale) - (FontManager.MainFont.MeasureString(pokemon2.GetName()).X / 2 * CSng(scale / 2)), CInt(mv.Y + level2Offset) + (58 * scale)), Color.Black, 0.0F, Vector2.Zero, CSng(scale / 2), SpriteEffects.None, 0.0F)
End If
Next

3
P3D/Screens/Pokemon/LearnAttackScreen.vb
View File

@ -217,7 +217,8 @@
Core.SpriteBatch.DrawString(FontManager.MiniFont, Pokemon.GetDisplayName() & " ", New Vector2(120, 20), Color.White)
End If
If currentCharIndex > (Pokemon.GetDisplayName() & " ").Length Then
Core.SpriteBatch.Draw(Pokemon.GetMenuTexture(), New Rectangle(CInt(FontManager.MiniFont.MeasureString(Pokemon.GetDisplayName()).X + 120), 12, 32, 32), Color.White)
Dim pokeTexture = Pokemon.GetMenuTexture()
Core.SpriteBatch.Draw(pokeTexture, New Rectangle(CInt(FontManager.MiniFont.MeasureString(Pokemon.GetDisplayName()).X + 120), 12, pokeTexture.Width, 32), Color.White)
End If
If currentCharIndex > (Pokemon.GetDisplayName() & " ").Length + 1 Then
If currentCharIndex < GetText().Length Then

3
P3D/Screens/Pokemon/PartyScreen.vb
View File

@ -295,7 +295,8 @@ Public Class PartyScreen
Dim shakeMulti As Single = CSng((p.HP / p.MaxHP).Clamp(0.2F, 1.0F))
'menu image:
SpriteBatch.Draw(p.GetMenuTexture(), New Rectangle(CInt(position.X) + 2 + 32, CInt(position.Y) - 4 + 32, 64, 64), Nothing, New Color(255, 255, 255, CInt(255 * _interfaceFade)),
Dim pokeTexture = p.GetMenuTexture()
SpriteBatch.Draw(pokeTexture, New Rectangle(CInt(position.X) + 2 + 32 - CInt(pokeTexture.Width - 32), CInt(position.Y) - 4 + 32, pokeTexture.Width * 2, 64), Nothing, New Color(255, 255, 255, CInt(255 * _interfaceFade)),
_pokemonAnimations(index)._shakeV * shakeMulti, New Vector2(16, 16), SpriteEffects.None, 0F)

4
P3D/Screens/Pokemon/SummaryScreen.vb
View File

@ -152,8 +152,8 @@
If _partyIndex > -1 Then
For i = 0 To _party.Count - 1
Dim pokemonPos As Double = GetPokemonDest(i) - 16 - (64 + 16) * (_pokemonDest - _pokemonPos)
Core.SpriteBatch.Draw(_party(i).GetMenuTexture(), New Rectangle(CInt(pokemonPos), DeltaY - 80, 64, 64), mainBackgroundColor)
Dim pokeTexture = _party(i).GetMenuTexture()
Core.SpriteBatch.Draw(pokeTexture, New Rectangle(CInt(pokemonPos) - CInt(pokeTexture.Width - 32), DeltaY - 80, pokeTexture.Width * 2, 64), mainBackgroundColor)
Next
SpriteBatch.Draw(TextureManager.GetTexture("GUI\Menus\PokemonInfo"), New Rectangle(CInt(_pointerPos), DeltaY - 16, 32, 16), New Rectangle(0, 16, 32, 16), mainBackgroundColor)

3
P3D/Screens/SaveScreen.vb
View File

@ -117,7 +117,8 @@
For i = 0 To Core.Player.Pokemons.Count - 1
Dim Pos As New Vector2(Delta_X + 390 + (i Mod 3) * 80, Delta_Y + 50 + CInt(Math.Floor(i / 3)) * 64)
.Draw(Core.Player.Pokemons(i).GetMenuTexture(), New Rectangle(CInt(Pos.X), CInt(Pos.Y), 64, 64), Color.White)
Dim pokeTexture = Core.Player.Pokemons(i).GetMenuTexture()
.Draw(pokeTexture, New Rectangle(CInt(Pos.X) - CInt(pokeTexture.Width - 32), CInt(Pos.Y), pokeTexture.Width * 2, 64), Color.White)
If Not Core.Player.Pokemons(i).Item Is Nothing And Core.Player.Pokemons(i).IsEgg() = False Then
.Draw(Core.Player.Pokemons(i).Item.Texture, New Rectangle(CInt(Pos.X) + 36, CInt(Pos.Y) + 36, 32, 32), Color.White)

BIN
lib/build/Pokemon3D.exe
View File

Binary file not shown.