From 28c1af7d10560608def305d2bf5381bc36c601b9 Mon Sep 17 00:00:00 2001
From: FantaX1911 <FantaX1911@users.noreply.github.com>
Date: Fri, 25 Jan 2019 18:45:03 +0200
Subject: [PATCH] Implemented "Beast" emblem check in the party screen, (was I
 supposed to be the one to do it?)

---
 P3D/Screens/Pokemon/PartyScreen.vb | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)

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