tyler.durden/P3D-Legacy
1
0
Fork 0
mirror of https://github.com/P3D-Legacy/P3D-Legacy.git synced 2025-07-03 20:14:48 +02:00
Code Issues Packages Projects Releases Wiki Activity

Fixed the Storage System filter issues

Browse Source
This commit is contained in:
JappaWakka 2024-08-09 17:11:56 +02:00
parent 1c6f8cf00f
commit 27bd072946
1 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
P3D/Screens/PC/StorageSystemScreen.vb
View File

@ -1345,6 +1345,8 @@ Public Class StorageSystemScreen
End If End If
Next Next
Next Next
Core.SpriteBatch.DrawString(FontManager.MainFont, "Press" & " " & KeyBindings.SpecialKey.ToString & " " & "on the keyboard to filter.", New Vector2(44, 200 + 5 * 84), Color.Black)
Core.SpriteBatch.DrawString(FontManager.MainFont, "Press" & " " & KeyBindings.SpecialKey.ToString & " " & "on the keyboard to filter.", New Vector2(44 - 2, 200 + 5 * 84 - 2), Color.White)
End If End If
End If End If
End Sub End Sub
@ -2304,7 +2306,7 @@ Public Class StorageSystemFilterScreen
Dim l As List(Of Pokemon) = Me._storageSystemScreen.GetPokemonList(True, False) Dim l As List(Of Pokemon) = Me._storageSystemScreen.GetPokemonList(True, False)
For Each p As Pokemon In l For Each p As Pokemon In l
If p.GetName().ToString().ToUpper() = chosenLetter And pokemonList.Contains(p.GetName()) = False Then If p.GetName().ToString().ToUpper().StartsWith(chosenLetter) And pokemonList.Contains(p.GetName()) = False Then
pokemonList.Add(p.GetName) pokemonList.Add(p.GetName)
End If End If
Next Next
@ -2341,8 +2343,8 @@ Public Class StorageSystemFilterScreen
Dim types As New List(Of String) Dim types As New List(Of String)
For Each p As Pokemon In l For Each p As Pokemon In l
If types.Contains(p.Type1.Type.ToString()) = False Then If types.Contains(p.Type1.ToString()) = False Then
types.Add(p.Type1.Type.ToString()) types.Add(p.Type1.ToString())
End If End If
Next Next
@ -2388,8 +2390,8 @@ Public Class StorageSystemFilterScreen
Dim types As New List(Of String) Dim types As New List(Of String)
For Each p As Pokemon In l For Each p As Pokemon In l
If types.Contains(p.Type2.Type.ToString()) = False Then If types.Contains(p.Type2.ToString()) = False Then
types.Add(p.Type2.Type.ToString()) types.Add(p.Type2.ToString())
End If End If
Next Next