o Script funcionando, no caso ele pega os itens de 1 SQM ao sul de voce e joga no primeiro slot da primeira backpack...
use = c.Map.GetTile(New Location(p.X, p.Y + 1, p.Z))
If LootList1.Items IsNot Nothing Then
For Each item As Item In use.Items
If item.Count < 2 And (Not item.GetFlag(Addresses.DatItem.Flag.IsImmovable)) Then
item.Move(ItemLocation.FromContainer(0, 0), 1)
Exit For
ElseIf item.Count >= 2 And (Not item.GetFlag(Addresses.DatItem.Flag.IsImmovable)) Then
item.Move(ItemLocation.FromContainer(0, 0), item.Count)
Exit For
End If
Next
End If