From 2fe8610a6b2b91b61dafe63c7ad6bb3701de1ab1 Mon Sep 17 00:00:00 2001
From: FantaX1911 <FantaX1911@users.noreply.github.com>
Date: Wed, 23 Jan 2019 18:03:06 +0200
Subject: [PATCH] Added sylveon to the requirements of "eevee" achievement.
 Implemented repeatable check for volcanion in the pokedex screen. Implemented
 repeatable check for Jirachi in the pokedex screen. Removed volcanion's
 emblem check from its script. Removed Jirachi's emblem check from its script.

---
 P3D/Content/Data/Scripts/dungeon/jirachi.dat  | Bin 636 -> 558 bytes
 .../Data/Scripts/mtember/volcanion.dat        | Bin 392 -> 326 bytes
 P3D/Screens/Pokedex/PokedexScreen.vb          |  20 +++++++++++++++++-
 3 files changed, 19 insertions(+), 1 deletion(-)

diff --git a/P3D/Content/Data/Scripts/dungeon/jirachi.dat b/P3D/Content/Data/Scripts/dungeon/jirachi.dat
index 0a5697f361332c649addd0a287fd52f778be2b10..387c8a0ffa20e35308152a791b18e2c1b13cf5a0 100644
GIT binary patch
delta 15
WcmeyvvW{hgIupAULn=caLka*Ut^@=C

delta 93
zcmZ3-@`q)EI#Vbog9AeWLk>eCLnT8hLlJ`>kd@4k!H@~$l>u=oLoP!SP##2UFcbr2
i@`11fD4)lW&Y%DkDFNyzV$fvZW#D440;<bnNC5z;>k>);

diff --git a/P3D/Content/Data/Scripts/mtember/volcanion.dat b/P3D/Content/Data/Scripts/mtember/volcanion.dat
index 06df5110973619c23642dfa852163858cc164121..6e7e91b3c605d4edd24cb29e46d44c35a0ab2adb 100644
GIT binary patch
delta 19
acmeBRKE|}cnvvUzA(bJIA%%gLfeQdI^aIlX

delta 85
zcmX@c)WN*Ln$g#Rp@1QWA(5eyA(f$sK@Z4EX2@X31oFy&IF%unAqglCqBVeI5ko0Z
aeF;!LpCOMylYy6ki@^#gp2v^^VgmpZfe<wS

diff --git a/P3D/Screens/Pokedex/PokedexScreen.vb b/P3D/Screens/Pokedex/PokedexScreen.vb
index 29ebce954..10700bf4a 100644
--- a/P3D/Screens/Pokedex/PokedexScreen.vb
+++ b/P3D/Screens/Pokedex/PokedexScreen.vb
@@ -27,7 +27,7 @@
 
     Private Sub AchievePokedexEmblems()
         ' Eevee:
-        Dim eevee() As Integer = {134, 135, 136, 196, 197, 470, 471}
+        Dim eevee() As Integer = {134, 135, 136, 196, 197, 470, 471, 700}
         Dim hasEevee As Boolean = True
         For Each e As Integer In eevee
             If Pokedex.GetEntryType(Core.Player.PokedexData, e) < 2 Then
@@ -39,6 +39,24 @@
             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
+
         ' Pokédex:
         If Core.Player.IsGameJoltSave = True Then
             If Me.Profiles(0).Pokedex.Obtained >= Me.Profiles(0).Pokedex.Count Then