Clean up lambda expression.

This commit is contained in:
jianmingyong 2017-04-07 13:44:18 +08:00
parent 1dd67a2dba
commit e2411c4831
1 changed files with 1 additions and 3 deletions

View File

@ -968,9 +968,7 @@ Public Class MainMenuScreen
If String.Equals(Hash, Encryption.DecryptString(Items.Last(), StringObfuscation.Obfuscate("TheDialgaTeam"))) Then
' Ensure that you are not cheating.
Dim PlayerData() As String = Items(10).SplitAtNewline()
If (PlayerData.Any(Function(a)
Return String.Equals(a, "OT|" & GameJoltSave.GameJoltID)
End Function)) Then
If (PlayerData.Any(Function(a) String.Equals(a, "OT|" & GameJoltSave.GameJoltID))) Then
Core.GameJoltSave._apricorns = Encryption.DecryptString(Items(0), StringObfuscation.Obfuscate("TheDialgaTeam"))
Core.GameJoltSave._berries = Encryption.DecryptString(Items(1), StringObfuscation.Obfuscate("TheDialgaTeam"))
Core.GameJoltSave._box = Encryption.DecryptString(Items(2), StringObfuscation.Obfuscate("TheDialgaTeam"))