tyler.durden
/
P3D-Legacy
mirror of https://github.com/P3D-Legacy/P3D-Legacy.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

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.
This commit is contained in:
FantaX1911 2019-01-23 18:03:06 +02:00
parent d03b17775a
commit 2fe8610a6b
3 changed files with 19 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
P3D/Content/Data/Scripts/dungeon/jirachi.dat
View File

Binary file not shown.

BIN
P3D/Content/Data/Scripts/mtember/volcanion.dat
View File

Binary file not shown.

20
P3D/Screens/Pokedex/PokedexScreen.vb
View File

@ -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