Remove battlescreen update from party view

P3D/Screens/Pokemon/PartyScreen.vb

@@ -420,9 +420,6 @@ Public Class PartyScreen
     End Function
 
     Public Overrides Sub Update()
-        If PreScreen.Identification = Screen.Identifications.BattleScreen Then
-            PreScreen.Update()
-        End If
         If _pokemonAnimations.Count > 0 Then
             Dim animation As PokemonAnimation = _pokemonAnimations(_index)
             If animation._shakeLeft Then

P3D/Screens/Pokemon/SummaryScreen.vb

@@ -593,9 +593,6 @@
     End Sub
 
     Public Overrides Sub Update()
-        If PreScreen.PreScreen.Identification = Screen.Identifications.BattleScreen Then
-            PreScreen.PreScreen.Update()
-        End If
         If _closing = True Then
             If _fadeIn > 0F Then
                 _fadeIn = MathHelper.Lerp(0, _fadeIn, 0.8F)