Fix achievements not being loaded before checking

P3D/Network/Profiles/Emblem.vb

@@ -968,8 +968,17 @@
         End Function
 
         Public Shared Sub GetAchievedEmblems()
-            Dim APICall As New APICall(AddressOf AddAchievedEmblems)
+            For Each newEmblem In Core.Player.EarnedAchievements
-            APICall.FetchAllAchievedTrophies()
+                If Not Core.GameJoltSave.AchievedEmblems.Contains(newEmblem) Then
+                    Core.GameJoltSave.AchievedEmblems.Add(newEmblem)
+                End If
+            Next
+
+            If Core.GameJoltSave.AchievedEmblems.Contains("trainer") = False Then
+                Core.GameJoltSave.AchievedEmblems.Add("trainer")
+            End If
+            'Dim APICall As New APICall(AddressOf AddAchievedEmblems)
+            'APICall.FetchAllAchievedTrophies()
         End Sub
 
         Private Shared Sub AddAchievedEmblems(ByVal result As String)

P3D/Player/Player.vb

@@ -537,6 +537,7 @@
         GameMode = "Kolben"
 
         LoadPlayer()
+        GameJolt.Emblem.GetAchievedEmblems()
 
         If GameModeManager.GameModeExists(GameMode) = False Then
             GameMode = "Kolben"

P3D/Screens/MainMenu/PressStartScreen.vb

@@ -1539,7 +1539,6 @@ Public Class NewMainMenuScreen
                             If _isGameJolt Then
                                 Core.Player.IsGameJoltSave = True
                                 Core.Player.LoadGame("GAMEJOLTSAVE")
-                                GameJolt.Emblem.GetAchievedEmblems()
 
                                 SetScreen(New JoinServerScreen(CurrentScreen))
                             Else