Queria saber oque esta errado?

Pois ele nao pega o loot

        Dim inventario As New Inventory(c)

        Dim Corpo As List(Of Tibia.Objects.Container) = inventario.GetContainers().ToList

        Dim ItemtoBp As ItemLocation = ItemLocation.FromContainer(0, 0)

        Dim LootItemsList As New Dictionary(Of String, LootItems)



        If p.Capacity > 5 Then

            For i As Integer = 0 To Corpo.Count - 1

                If Corpo(i).Name.Contains("Dead") Or Corpo(i).Name.Contains("Remains") Or Cuerpo(i).Name.Contains("Bag") Or Cuerpo(i).Name.Contains("Slain") Then

                    For Each itemtoloot As Item In Corpo(i).GetItems

                        For Each lootitems In LootItemsList

                            If itemtoloot.Id = lootitems.Value.LootItemID Then

                                ItemtoBp.ContainerId = lootitems.Value.LootItemToBP

                                itemtoloot.Move(ItemtoBp)

                                Exit For

                            End If

                        Next

                        If AutoOpenBag Then

                            If itemtoloot.Id = 2853 Then

                                itemtoloot.OpenAsContainer(CByte(Corpo(i).Number))

                            End If

                        End If

                    Next

                End If

            Next i

        End If

Também to querendo fazer um auto looter só de GP.

Poderia me dar uma ajuda ai nessas funções? Talvez eu consiga! Preciso saber o que é cada função.

Quero que eu mesmo abra o corpo, aí o char pega os gps e joga pra uma bp.

Cara, eu nem conseguir abrir o corpo ainda, creio que so seja possivel com packets,

Eu nao entendo muito sobre VB, so aprendi o basico para tirar as duvidas aqui do pessoal do forum

Abraços

Vou ver se acho alguma coisa e se eu der conta posto aqui