This script lists the bosses and tiles in a cache


Protected Overrides Sub Run()


       Dim InstanceID = GetParameter(Of Guid)("InstanceID")


       ' Get the cache named "Fire"

       Dim Cache = proxy.Caching.GetCaches().Where(Function(a) a.Name = "Fire").First()


       ' Get the cache contents. Filter to only bosses and tiles

       Dim content = Proxy.Caching.GetCacheContent(cache.ID, instanceid, eCacheContentType.Bosses Or eCacheContentType.Tiles)


       ' Iterate and output the boss results

       Dim Bosses = content.Content.OfType(Of CacheItemBoss)

       For Each B In Bosses

               Output($"Boss={b.Boss} - {b.Distance}Km")

       Next

       Output($"Boss Count:{bosses.count}")


       ' Iterate and output the tile results

       Dim Tiles = content.Content.OfType(Of CacheItemTile)

       For Each B In Tiles

               Output($"Tile={b.Tile}:{b.TileQty:n0} - {b.Distance}Km")

       Next

       Output($"Tile Count:{tiles.count}")


End Sub