diff --git a/P3D/Screens/Pokemon/PartyScreen.vb b/P3D/Screens/Pokemon/PartyScreen.vb
index ebd7bfe1f..e3d646149 100644
--- a/P3D/Screens/Pokemon/PartyScreen.vb
+++ b/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