Script e tutorial para pegar loot BOTNG 8.50

[lipehon 0]

eae pessoal, seguuinte, vamo lá!

 

Abra o seu Tibia normal, abra o seu NG na nova versão cracked, claro ela esta com pal e nao está pegando os loots correto?

fazemos assim entao:

-configure o bot do jeito que desejar

-depois de configurado coloque para atacar.

-verifique se o NUMERO da BP q vc colocou para pegar o loot está correta.

-após feito isso vá em TOOLS>SCRIPTER cole todo esse código abaixo...

////////// 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;

-feito isso clique em EXECUTE SCRIPT e seja feliz!

 

 

créditos a mim por fazer esse tutorial bobo. viva \o/

 

SE GOSTOU AGRADEÇA =]

[guibong 0]

n funciono aqui.

:(

[lipehon 0]

o que aaparece, o q acontece?

[guibong 0]

entao coloquei execute script. e continuo na mesma não abrindo os corpos

[lipehon 0]

vc ativou a opção do cave hunting LOOT items?

tem q por ela, ve seta cerot ai

[guibong 0]

sim. tem q deixar a caixa em branco? spo marcar looting?

[brunoh62 0]

mara funfou certinho akii

vlwww

[brammer0123 0]

meu irmao esse palhaço ai ainda tem q cara de pau de falar CREDITOS A MIM, lol

puro Ctrl + c Ctrl +v -.- , palhaço e alem disso esse script faz ele abrir e feixar sem dar tempo de catar o loot, LIXO:mad:

[OriGami~ 3]

sim. tem q deixar a caixa em branco? spo marcar looting?

 

Cara, configura os waypoins e loots do jeito que vc quiser mas deixa tudo desmarcado. Depois seleciona primeiro Follow Waypoints, depois Looting e depois Attack Monsters. Sempre que o meu não tava abrindo eu desmarcava tudo e abria nessa ordem, sempre funcionou =)

[Ratinhoks 0]

n funciono aqui.

:(

 

Isso dai eh De quêe cave : '-'

[avao 0]

ae os meus nao estao abrindo os corpos nao!

oq fazer?

 

ae os meus nao estao abrindo os corpos nao!

oq fazer?