Looter,

Postado Julho 19, 2011 13 anos

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

Citar

Mention