skrypt do podnoszcznie itemów wkól siebie

[tbw]

Witam, ma ktoś może skrypt do nowej ng, lub jakiegos bota do podnoszenie itemow lezacych wokol postac do bp?

[PrawilnaTibia]

Witam, ma ktoś może skrypt do nowej ng, lub jakiegos bota do podnoszenie itemow lezacych wokol postac do bp?

 

Tak , mam.

 

 

//ogarnij

 

 

Niespytal czy dam,proste.

[tbw]

Tak , mam.

a czy mógłbys mi udostępnic ?

[chaterchater]

var
integer : cnt;
begin
while not terminated do begin
UpdateWorld;
cnt := Screen.Tile[6, 4].Count;
if ((cnt > 1) and (Screen.Tile[6, 4].Item[cnt - 1].Properties.Carryable)) then
Screen.Tile[6, 4].Item[cnt - 1].MoveToContainer(Self.Containers.Container[0], 0, 0);
cnt := Screen.Tile[6, 5].Count;
if ((cnt > 1) and (Screen.Tile[6, 5].Item[cnt - 1].Properties.Carryable)) then
Screen.Tile[6, 5].Item[cnt - 1].MoveToContainer(Self.Containers.Container[0], 0, 0);
cnt := Screen.Tile[6, 6].Count;
if ((cnt > 1) and (Screen.Tile[6, 6].Item[cnt - 1].Properties.Carryable)) then
Screen.Tile[6, 6].Item[cnt - 1].MoveToContainer(Self.Containers.Container[0], 0, 0);
cnt := Screen.Tile[7, 4].Count;
if ((cnt > 1) and (Screen.Tile[7, 4].Item[cnt - 1].Properties.Carryable)) then
Screen.Tile[7, 4].Item[cnt - 1].MoveToContainer(Self.Containers.Container[0], 0, 0);
cnt := Screen.Tile[7, 5].Count;
if ((cnt > 2) and (Screen.Tile[7, 5].Item[cnt - 1].Properties.Carryable)) then
Screen.Tile[7, 5].Item[cnt - 1].MoveToContainer(Self.Containers.Container[0], 0, 0);
cnt := Screen.Tile[7, 6].Count;
if ((cnt > 1) and (Screen.Tile[7, 6].Item[cnt - 1].Properties.Carryable)) then
Screen.Tile[7, 6].Item[cnt - 1].MoveToContainer(Self.Containers.Container[0], 0, 0);
cnt := Screen.Tile[8, 4].Count;
if ((cnt > 1) and (Screen.Tile[8, 4].Item[cnt - 1].Properties.Carryable)) then
Screen.Tile[8, 4].Item[cnt - 1].MoveToContainer(Self.Containers.Container[0], 0, 0);
cnt := Screen.Tile[8, 5].Count;
if ((cnt > 1) and (Screen.Tile[8, 5].Item[cnt - 1].Properties.Carryable)) then
Screen.Tile[8, 5].Item[cnt - 1].MoveToContainer(Self.Containers.Container[0], 0, 0);
cnt := Screen.Tile[8, 6].Count;
if ((cnt > 1) and (Screen.Tile[8, 6].Item[cnt - 1].Properties.Carryable)) then
Screen.Tile[8, 6].Item[cnt - 1].MoveToContainer(Self.Containers.Container[0], 0, 0);
Sleep(50);
end;
end;

[tbw]

var
integer : cnt;
begin
while not terminated do begin
UpdateWorld;
cnt := Screen.Tile[6, 4].Count;
if ((cnt > 1) and (Screen.Tile[6, 4].Item[cnt - 1].Properties.Carryable)) then
Screen.Tile[6, 4].Item[cnt - 1].MoveToContainer(Self.Containers.Container[0], 0, 0);
cnt := Screen.Tile[6, 5].Count;
if ((cnt > 1) and (Screen.Tile[6, 5].Item[cnt - 1].Properties.Carryable)) then
Screen.Tile[6, 5].Item[cnt - 1].MoveToContainer(Self.Containers.Container[0], 0, 0);
cnt := Screen.Tile[6, 6].Count;
if ((cnt > 1) and (Screen.Tile[6, 6].Item[cnt - 1].Properties.Carryable)) then
Screen.Tile[6, 6].Item[cnt - 1].MoveToContainer(Self.Containers.Container[0], 0, 0);
cnt := Screen.Tile[7, 4].Count;
if ((cnt > 1) and (Screen.Tile[7, 4].Item[cnt - 1].Properties.Carryable)) then
Screen.Tile[7, 4].Item[cnt - 1].MoveToContainer(Self.Containers.Container[0], 0, 0);
cnt := Screen.Tile[7, 5].Count;
if ((cnt > 2) and (Screen.Tile[7, 5].Item[cnt - 1].Properties.Carryable)) then
Screen.Tile[7, 5].Item[cnt - 1].MoveToContainer(Self.Containers.Container[0], 0, 0);
cnt := Screen.Tile[7, 6].Count;
if ((cnt > 1) and (Screen.Tile[7, 6].Item[cnt - 1].Properties.Carryable)) then
Screen.Tile[7, 6].Item[cnt - 1].MoveToContainer(Self.Containers.Container[0], 0, 0);
cnt := Screen.Tile[8, 4].Count;
if ((cnt > 1) and (Screen.Tile[8, 4].Item[cnt - 1].Properties.Carryable)) then
Screen.Tile[8, 4].Item[cnt - 1].MoveToContainer(Self.Containers.Container[0], 0, 0);
cnt := Screen.Tile[8, 5].Count;
if ((cnt > 1) and (Screen.Tile[8, 5].Item[cnt - 1].Properties.Carryable)) then
Screen.Tile[8, 5].Item[cnt - 1].MoveToContainer(Self.Containers.Container[0], 0, 0);
cnt := Screen.Tile[8, 6].Count;
if ((cnt > 1) and (Screen.Tile[8, 6].Item[cnt - 1].Properties.Carryable)) then
Screen.Tile[8, 6].Item[cnt - 1].MoveToContainer(Self.Containers.Container[0], 0, 0);
Sleep(50);
end;
end;

 

[Exception] Untitled(7): List index out of bounds (-1) when evaluating instruction CallProc ($0,$0,$5EDD74,$27B8AD8,'Item'). Stack content is: [Null:].

 

wiesz moze co jest problemem ?

[tbw]

odświeżam.

 

i rozszerzam, czy ma ktos i molgby mi udostepnic bot/skrypt do bota na obecna tibie do podnoszenia free items z ziemi?

 

//odświeżamy po 24h