Fix softlock when pausing during catching

And a minor typo in the code

P3D/Screens/Battle/BattleCatchScreen.vb

@@ -87,7 +87,7 @@ nextIndex:
         TextBox.Draw()
     End Sub
 
-    Private Sub UpdateAnimations()
+    Public Sub UpdateAnimations()
         Dim cIndex As Integer = 0
 nextIndex:
         If AnimationList.Count > cIndex Then

P3D/Screens/MainMenu/PauseScreen.vb

@@ -81,6 +81,8 @@
     Public Overrides Sub Update()
         If PreScreen.Identification = Identifications.OverworldScreen Then
             Screen.Level.Update()
+        ElseIf PreScreen.Identification = Identifications.BattleCatchScreen Then
+            CType(PreScreen, BattleCatchScreen).UpdateAnimations()
         End If
 
         Screen.TextBox.reDelay = 0.0F

P3D/Screens/Screen.vb

@@ -245,7 +245,7 @@ Public MustInherit Class Screen
     End Sub
 
     ''' <summary>
-    ''' The base update fucntion of a screen.
+    ''' The base update function of a screen.
     ''' </summary>
     ''' <remarks>Contains no default code.</remarks>
     Public Overridable Overloads Sub Update()