Postado Janeiro 30, 2011 14 anos A variável do ID é IDs Então mude esta linha: if Tile.Item[Tile.Count - 1].ID = ID then Para if Tile.Item[Tile.Count - 1].ID = IDs then { acredito que seja isso } Edit: Achei esse na net: const IDs= 285; BPNumber = 1 Procedure Pickup(ID:integer); var x, y, z, i: integer; Tile: TTile; begin UpdateWorld; for x := -1 to 1 do begin for y := -1 to 1 do begin Tile := Screen.Tile[x + 7, y + 5]; begin if Tile.Count > 0 then if Tile.Item[Tile.Count - 1].ID = ID then Tile.Item[Tile.Count - 1].MoveToContainer(Self.Containers.Container[BPNumber - 1], 0, 0); end; end; end; end; while not terminated do begin for i := Low(IDs) to High(IDs) do begin Pickup(IDs[i]); sleep(1); end; end; [/code] [b]Edson, sem RIP né cara.[/b] [b]Rep -[/b] rena.to
Participe da conversa
Você pode postar agora e se cadastrar mais tarde. Se você tem uma conta, faça o login para postar com sua conta.