Added initial checks for (shooting star, ancestor, eruption, mega, victorious) via scripts.

Removed the recent pokedex emblem checks.

P3D/Content/Data/Scripts/liberty/victini.dat

@@ -4,4 +4,5 @@ version=2
 @register.register(battlevictini)
 @npc.register(liberty\room.dat|0|remove|0)
 @npc.remove(0)
+@player.achieveemblem(victorious)
 :end

P3D/Screens/Pokedex/PokedexScreen.vb

@@ -39,42 +39,6 @@
             GameJolt.Emblem.AchieveEmblem("eevee")
         End If
 
-        ' Eruption:
-        Dim haseruption As Boolean = True
-        If Pokedex.GetEntryType(Core.Player.PokedexData, 721) < 2 Then
-            haseruption = False
-        End If
-        If haseruption = True Then
-            GameJolt.Emblem.AchieveEmblem("eruption")
-        End If
-
-        ' Shooting Star:
-        Dim hasshootingstar As Boolean = True
-        If Pokedex.GetEntryType(Core.Player.PokedexData, 385) < 2 Then
-            hasshootingstar = False
-        End If
-        If hasshootingstar = True Then
-            GameJolt.Emblem.AchieveEmblem("shooting star")
-        End If
-
-        ' Victorious:
-        Dim hasvictorious As Boolean = True
-        If Pokedex.GetEntryType(Core.Player.PokedexData, 494) < 2 Then
-            hasvictorious = False
-        End If
-        If hasvictorious = True Then
-            GameJolt.Emblem.AchieveEmblem("victorious")
-        End If
-
-        ' Ancestor:
-        Dim hasancestor As Boolean = True
-        If Pokedex.GetEntryType(Core.Player.PokedexData, 151) < 2 Then
-            hasancestor = False
-        End If
-        If hasancestor = True Then
-            GameJolt.Emblem.AchieveEmblem("ancestor")
-        End If
-
         ' Pokédex:
         If Core.Player.IsGameJoltSave = True Then
             If Me.Profiles(0).Pokedex.Obtained >= Me.Profiles(0).Pokedex.Count Then