Fixed Kanto badges not showing in trainer card

This commit is contained in:
CaptainSegis 2017-03-25 23:38:01 -05:00
parent 7a3767bc09
commit dc736b66eb

View File

@ -164,7 +164,7 @@ Public Class Badge
Public Shared Function GetRegion(ByVal index As Integer) As String Public Shared Function GetRegion(ByVal index As Integer) As String
Dim regions As New List(Of String) Dim regions As New List(Of String)
For Each b As BadgeDeclaration In Badges For Each b As BadgeDeclaration In Badges
If regions.Any(Function(m As String) m.ToLowerInvariant() = b.Region.ToLowerInvariant()) Then If Not regions.Any(Function(m As String) m.ToLowerInvariant() = b.Region.ToLowerInvariant()) Then
regions.Add(b.Region) regions.Add(b.Region)
End If End If
Next Next
@ -195,7 +195,7 @@ Public Class Badge
Public Shared Function GetRegionCount() As Integer Public Shared Function GetRegionCount() As Integer
Dim regions As New List(Of String) Dim regions As New List(Of String)
For Each b As BadgeDeclaration In Badges For Each b As BadgeDeclaration In Badges
If regions.Any(Function(m As String) m.ToLowerInvariant() = b.Region.ToLowerInvariant()) Then If Not regions.Any(Function(m As String) m.ToLowerInvariant() = b.Region.ToLowerInvariant()) Then
regions.Add(b.Region) regions.Add(b.Region)
End If End If
Next Next