Merge branch 'master' of https://github.com/P3D-Legacy/P3D-Legacy

P3D/Screens/Pokemon/PartyScreen.vb

@@ -131,6 +131,7 @@ Public Class PartyScreen
 
         CheckForLegendaryEmblem()
         CheckForUnoDosTresEmblem()
+        CheckForBeastEmblem()
         CheckForOverkillEmblem()
 
         _menu = New UI.SelectMenu({""}.ToList(), 0, Nothing, 0)
@@ -843,6 +844,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 hasRaikou As Boolean = False
+        Dim hasEntei As Boolean = False
+        Dim hasSuicune2 As Boolean = False
+
+        For Each p As Pokemon In PokemonList
+            Select Case p.Number
+                Case 243
+                    hasRaikou = True
+                Case 244
+                    hasEntei = True
+                Case 245
+                    hasSuicune2 = True
+            End Select
+        Next
+
+        If hasRaikou And hasEntei And hasSuicune2 Then
+            GameJolt.Emblem.AchieveEmblem("beast")
+        End If
+    End Sub
+
     Private Sub CheckForOverkillEmblem()
         If PokemonList.Count = 6 Then
             Dim has100 As Boolean = True