Imports System
Imports System.Collections.Generic
Imports System.Linq
Imports System.Text
Imports System.Threading.Tasks
Imports WowDotNetAPI
Imports WowDotNetAPI.Models

Namespace TestConsoleApplication
    Class Program
        Private Shared Sub Main(ByVal args As String())
            Dim explorer As WowExplorer = New WowExplorer(Region.US, Locale.en_US, "YOUR-MASHERY-API-KEY-GOES-HERE")
            Dim immortalityGuild As Guild = explorer.GetGuild("skullcrusher", "immortality", GuildOptions.GetEverything)
            Console.WriteLine(vbLf & vbLf & "GUILD EXPLORER SAMPLE" & vbLf)
            Console.WriteLine("{0} is a guild of level {1} and has {2} members.", immortalityGuild.Name, immortalityGuild.Level, immortalityGuild.Members.Count())

            For Each member As GuildMember In immortalityGuild.Members.OrderBy(Function(m) m.Rank).Take(20)
                Console.WriteLine(member.Character.Name & " has rank " + member.Rank)
            Next

            Console.WriteLine(vbLf & vbLf & "CHARACTER EXPLORER SAMPLE" & vbLf)
            Dim briandekCharacter As Character = explorer.GetCharacter("skullcrusher", "briandek", CharacterOptions.GetStats Or CharacterOptions.GetAchievements)
            Console.WriteLine("{0} is a retired warrior of level {1} who has {2} achievement points having completed {3} achievements", briandekCharacter.Name, briandekCharacter.Level, briandekCharacter.AchievementPoints, briandekCharacter.Achievements.AchievementsCompleted.Count())

            For Each stat As KeyValuePair(Of String, Object) In briandekCharacter.Stats
                Console.WriteLine(stat.Key & " : " & stat.Value)
            Next

            Dim usRealms As IEnumerable(Of Realm) = explorer.GetRealms()
            Dim skullcrusher As Realm = usRealms.First(Function(r) r.Name = "Skullcrusher")
            Dim pvpRealmsOnly As IEnumerable(Of Realm) = usRealms.Where(Function(r) r.Type = RealmType.PVP)
            Console.WriteLine(vbLf & vbLf & "REALMS EXPLORER SAMPLE" & vbLf)

            For Each realm In pvpRealmsOnly
                Console.WriteLine("{0} has {1} population", realm.Name, realm.population)
            Next

            Console.WriteLine(vbLf & vbLf & "GUILD PERKS" & vbLf)
            Dim perks As IEnumerable(Of GuildPerkInfo) = explorer.GetGuildPerks()

            For Each perk In perks
                Console.WriteLine("{0} perk at guild level {1}", perk.Spell.Name, perk.GuildLevel)
            Next

            Console.WriteLine(vbLf & vbLf & "GUILD REWARDS" & vbLf)
            Dim rewards As IEnumerable(Of GuildRewardInfo) = explorer.GetGuildRewards()

            For Each reward In rewards
                Console.WriteLine("{0} reward at min guild level {1}", reward.Item.Name, reward.MinGuildLevel)
            Next

            Console.WriteLine(vbLf & vbLf & "CHARACTER RACES" & vbLf)
            Dim races As IEnumerable(Of CharacterRaceInfo) = explorer.GetCharacterRaces()

            For Each race In races.OrderBy(Function(r) r.Id)
                Console.WriteLine("{0} race with numeric value {1}", race.Name, race.Id)
            Next

            Console.WriteLine(vbLf & vbLf & "CHARACTER CLASSES" & vbLf)
            Dim classes As IEnumerable(Of CharacterClassInfo) = explorer.GetCharacterClasses()

            For Each [class] In classes.OrderBy(Function(c) c.Id)
                Console.WriteLine("{0} class with numeric value {1}", [class].Name, [class].Id)
            Next
        End Sub
    End Class
End Namespace