Implemented "Beast" emblem check in the party screen, (was I supposed to be the one to do it?)

P3D/Screens/Pokemon/PartyScreen.vb

@@ -843,6 +843,28 @@ Public Class PartyScreen
         End If
     End Sub
 
+    Private Sub CheckForBeastEmblem()
+        'This sub checks if Entei, Raikou and Suicune are in the player's party.
+        Dim hasEntei As Boolean = False
+        Dim hasRaikou As Boolean = False
+        Dim hasSuicune As Boolean = False
+
+        For Each p As Pokemon In PokemonList
+            Select Case p.Number
+                Case 244
+                    hasEntei = True
+                Case 243
+                    hasRaikou = True
+                Case 245
+                    hasSuicune = True
+            End Select
+        Next
+
+        If hasEntei And hasRaikou And hasSuicune Then
+            GameJolt.Emblem.AchieveEmblem("beast")
+        End If
+    End Sub
+
     Private Sub CheckForOverkillEmblem()
         If PokemonList.Count = 6 Then
             Dim has100 As Boolean = True