Abrir Loot no NG 4.8.9

[pikemanlol 0]

Ae Galera alguns scripts estavam incorretos entao vou posta o novo mais lembre-se

1º - voce configura sua cavebot etalz

2ª - na parte se vc selecionar o loot, nao marque a caixa e nao deixe nenhuma loot. deixe em branco

3º - vai em tools>scripter e coloque o seguinte script

 

////////// Cave Hunting //////////

Const

 

Loot_Items = [3031,3585]

Loot = 1

 

//////////////////////////////////

 

 

 

Var

Looting: Boolean

 

 

 

Function GetTileFromXYZ(X, Y, Z: integer): TTile;

begin

Result := nil;

if abs((Self.X - 7) - X) > 14 then Exit;

if abs((Self.Y - 5) - Y) > 11 then Exit;

if Self.Z <> Z then Exit;

Result := Screen.Tile[abs((Self.X - 7) - X), abs((Self.Y - 5) - Y)];

end;

 

Procedure Event_ItemCreated(ID, X, Y, Z: integer);

Var

i: Integer

Tile: TTile;

begin

if not Loot then Exit;

Tile := GetTileFromXYZ(X, Y, Z);

for i := 0 to Tile.Count-1 do

begin

if i >= Tile.Count then Break;

if Tile.Item.ID = ID then

begin

if Tile.Item.Properties.Container then Tile.Item.OpenInNewWindow;

Exit;

end;

end;

end;

 

 

Procedure Event_ContainerOpened(Index, ID: integer; Name: String);

begin

if not Loot then Exit;

Looting := True;

end;

 

 

Function GetItemFromOpenBackpack(ID, Index: integer): TItem;

var

x: integer;

y: integer;

begin

Result := nil;

for x := 0 to Self.Containers.Count - 1 do

begin

if x >= Self.Containers.Count then Break;

if x = Index then Continue;

for y := 0 to Self.Containers.Container[x].Count - 1 do

begin

if y >= Self.Containers.Container[x].Count then Break;

if Self.Containers.Container[x].Item[y].ID = ID then

begin

Result := Self.Containers.Container[x].Item[y];

Exit;

end;

end;

end;

end;

 

 

Procedure EatFood;

Const

FoodList = [3595,3577,3578,3579,3582,3583,3584,3600,3584,3585, 3586,3587,3588,3589,3590,3591,3592,3593,3594,3598, 3599,3601,3602,3607,3725]

Var

i: Integer

begin

for i := Low(FoodList) to High(FoodList) do

begin

Food := GetItemFromOpenBackpack(FoodList, Self.Containers.Count);

if Food <> nil then

begin

Food.Use;

break;

end;

end;

end;

 

function OpenBags: Boolean;

var

x: integer;

y: integer;

begin

Result := False;

for x := 0 to Self.Containers.Count - 1 do

begin

if x >= Self.Containers.Count then Break;

for y := 0 to Self.Containers.Container[x].Count - 1 do

begin

if y >= Self.Containers.Container[x].Count then Break;

if Self.Containers.Container[x].Item[y].ID = 2853 then

begin

Self.Containers.Container[x].Item[y].Open;

Result := True;

end;

end;

end;

end;

 

Function SortLoot: Boolean;

var

Item: TItem

begin

Result := False

for x := Low(Loot_Items) to High(Loot_Items) do

begin

if x > High(Loot_Items) then break;

Item := GetItemFromOpenBackpack(Loot_Items[x], x);

If Item <> nil then

begin

Item.MoveToContainer(Self.Containers.Container[X], 0, 0);

Result := True;

Exit;

end;

end;

end;

 

 

begin

Looting := False

while not Terminated do

begin

ProcessEvents;

UpdateWorld;

 

if Looting then

begin

Looting := SortLoot;

if not Looting then

begin

EatFood;

if OpenBags then Looting := SortLoot;

end;

end;

 

Sleep(100);

end;

end;

 

 

 

Créditos a mim por ter editado e postado.

Créditos ao fearrox por ter editado o script e deixar certinho.

[kleynerr 0]

ja tem isso no meu topic lek... para de cria top q ja exite...

 

vou de respota pra da close!

[pikemanlol 0]

só tentei ajuda, pois voce mesmo disse que nao intendeu

 

neste topico voce disse que nao intendeu, entao eu expliquei e coloquei créditos a pessoa cara, eu coloquei créditos em algum momento falei que o script era meu, acho que os créditos dizem tudo ja?

a minha parte eu fiz, tentei ajuda o pessoal aki.

 

veja, voce mesmo disse, e nao soh voce varias pessoas.

 

http://www.webcheats.com.br/forum/tutoriais-tibia/134956-solucao-para-abrir-corpos.html

[OriGami~ 3]

Cara, poderia colocar aqui o que você mudou? Eu dei uma olhada no outro tópico e não vi nada diferente. Sem falar que essa não é a área certa, a certa é onde tá o outro tópico, ou seja, Tutoriais Tibia.

[Lipsticky 242]

Trancado.