From ed4714710e9feccdbc47036e35b74dd6303ee9ea Mon Sep 17 00:00:00 2001
From: "Jasper \"JappaWakka\" Speelman" <jjlspeelman@outlook.com>
Date: Fri, 8 Jul 2022 13:41:07 +0200
Subject: [PATCH] Fixed incorrectly scaled icons in summaryscreen

---
 P3D/Screens/Pokemon/SummaryScreen.vb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/P3D/Screens/Pokemon/SummaryScreen.vb b/P3D/Screens/Pokemon/SummaryScreen.vb
index d427e906b..be128b998 100644
--- a/P3D/Screens/Pokemon/SummaryScreen.vb
+++ b/P3D/Screens/Pokemon/SummaryScreen.vb
@@ -153,7 +153,7 @@
             For i = 0 To _party.Count - 1
                 Dim pokemonPos As Double = GetPokemonDest(i) - 16 - (64 + 16) * (_pokemonDest - _pokemonPos)
                 Dim pokeTexture = _party(i).GetMenuTexture()
-                Core.SpriteBatch.Draw(pokeTexture, New Rectangle(CInt(pokemonPos) - CInt(pokeTexture.Width - 32), DeltaY - 80, pokeTexture.Width * 2, 64), mainBackgroundColor)
+                Core.SpriteBatch.Draw(pokeTexture, New Rectangle(CInt(pokemonPos) - CInt(pokeTexture.Width / 2), DeltaY - 80, pokeTexture.Width * 2, pokeTexture.Height * 2), mainBackgroundColor)
             Next
 
             SpriteBatch.Draw(TextureManager.GetTexture("GUI\Menus\PokemonInfo"), New Rectangle(CInt(_pointerPos), DeltaY - 16, 32, 16), New Rectangle(0, 16, 32, 16), mainBackgroundColor)