Não consigo achar nenhum erro

Dim TargetLoc As Location

While p.RedSquare < 1

TargetLoc = c.BattleList.GetCreaturesInBattle(p.RedSquare).Location

End While

Dim Tile As Tile = c.Map.GetTile(TargetLoc)

Tile.Items.Last.OpenAsContainer(c.Inventory.GetContainers.Count)

pq não funfa??

ta aí caso alguma boa alma quiser me ajudar, e tenho outros posts que ninguém respondeu bora ver então...

Ele chega a abrir?

não :/

Acho que isso pode ajudar, mas está em C#

http://code.google.com/p/tibiaapi/source/browse/trunk/apps/Smart%20AutoLooter/MainForm.cs