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

Make it possible to exclude poke file from PokéDex

This commit is contained in:
JappaWakka 2024-08-31 14:42:25 +02:00
parent eaa0c8d2c3
commit 16a88c1c22
1 changed files with 20 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -179,18 +179,29 @@ Public Class PokedexHabitatScreen
For Each file As String In System.IO.Directory.GetFiles(GameController.GamePath & GameModeManager.ActiveGameMode.PokeFilePath, "*.*", IO.SearchOption.AllDirectories) For Each file As String In System.IO.Directory.GetFiles(GameController.GamePath & GameModeManager.ActiveGameMode.PokeFilePath, "*.*", IO.SearchOption.AllDirectories)
If file.EndsWith(".poke") = True Then If file.EndsWith(".poke") = True Then
Dim fileName As String = file.Remove(0, (GameController.GamePath & GameModeManager.ActiveGameMode.PokeFilePath & "\").Length - 1) Dim DexInclude As Boolean = True
Dim newHabitat As New PokedexScreen.Habitat(file) Dim data() As String = System.IO.File.ReadAllLines(file)
Dim exists As Boolean = False For Each line As String In data
For Each h As PokedexScreen.Habitat In Me.HabitatList If line.ToLower().StartsWith("dexinclude=") = True Then
If h.Name.ToLower() = newHabitat.Name.ToLower() Then DexInclude = CBool(line.Remove(0, 11))
exists = True
h.Merge(newHabitat)
Exit For Exit For
End If End If
Next Next
If exists = False AndAlso Core.Player.PokeFiles.Contains(fileName) = True Then
HabitatList.Add(New PokedexScreen.Habitat(file)) If DexInclude = True Then
Dim fileName As String = file.Remove(0, (GameController.GamePath & GameModeManager.ActiveGameMode.PokeFilePath & "\").Length - 1)
Dim newHabitat As New PokedexScreen.Habitat(file)
Dim exists As Boolean = False
For Each h As PokedexScreen.Habitat In Me.HabitatList
If h.Name.ToLower() = newHabitat.Name.ToLower() Then
exists = True
h.Merge(newHabitat)
Exit For
End If
Next
If exists = False AndAlso Core.Player.PokeFiles.Contains(fileName) = True Then
HabitatList.Add(New PokedexScreen.Habitat(file))
End If
End If End If
End If End If
Next Next