Script para pegar Loot

A galera reclamou muito e achei a solução para pegar os loots com um Script.

É bem simples, baixe o Script, copie o Script, cole no Scripter do TibiaBOT NG e clique em execute.

Dai é só mecher la no Looter normalmente e colocar os loots que você quer pegar.

O Script faz você abrir a Backpack, resto é com o Looter normal que já vem no TibiaBOT NG

Script de LootCréditos: TibiaBRBot, Sanu e Menor

20 comentários :

Rala Chath disse...

Obrigado vlw
Siti ta otimo!!

Unknown disse...

AWE LOL HEIN NUSS senti firmeza mesmo aki faz 15 min q eu perguntei se poderia auxilia e ja tem resposta e issu que é 5 e poko da manhã ^^ (gostaria que os onibus da vila aki ond moro fossem assim também :( ) nuss vlw awe abração ^^

Unknown disse...

AGORA FUDEU TUUUUDU
AEOKPOAEPOAKE

Odilon Filho disse...

ele abre o lot muito rapido e nao pega continua no 0X0

Felipe Spencer disse...

boa caio..

Unknown disse...

pois eh mas continuo não conseguindo pegar os GOLD... fiz td certo aih mano copiei e colei o script e dei execute... mnas os golds n estaum funfando

Unknown disse...

Aki nao ta funcionando na hora de abrir o bicho mais quando chego perto de alguma caixa ele abre rsrs.
se pude ajudar abraço.

Unknown disse...

eu crakiei o meu bot 4.8.8 com o arquivo lah do ollydbg... eu preciso crakia esse bot novo???

Igor Nichele disse...

Eu n sei onde fika o script me ajuda plix!!

Unknown disse...

tipow alguns abrem tipow tarantula Ds bixos de peg leg mais outros nao como as "haunted treeling" de vengoth como eu faço para abrir elas?

vlw ai!! tibia facil melhor site de bot ki existe continuem assim :)

Unknown disse...

Infelizmente não é um bom Looter não, não é tão eficiente quanto o antigo. Se puder resgastar o loot da versão anterior, acho que iria dar mais Ibope, e geral iria gostar. Parabens pelo Crack do NG 8.5, obrigado Equipe Tibia Fácil! :)

Caio Magno disse...

Isso ai é pra quebrar o galho galera, quando o TibiaBOT atualizar pra versão 4.9.0 vai estar tudo corrigido

Unknown disse...

poha caio tu é um gênio
Tu eh mtu foda mesmo funfo legal

Unknown disse...

Ai sim hein caio rsrs!
Vlw abraço e parabens pelo tibiafacil e um otimo lugar!
Abraço

@Ciclopezika disse...

aee Caio ashoo q conseguii melhora o script pelomenus tentei

oo meu akii deu certo

troka os hight por low
e pronto

taa aii oo \/ Valeeew

////////// Cave Hunting //////////
Const

Loot_Items = [0000]
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[i].ID = ID then
begin
if Tile.Item[i].Properties.Container then Tile.Item[i].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[i], 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 low(Loot_Items) do
begin
if x > low(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;

Unknown disse...

o meu funciono sozinho nem precisei colocar nd vlw equip tibia facil

Unknown disse...

vlw aki nem preciso por nd nos script o bot veio bonzinho obrigado equip tibia facil

Unknown disse...

vlw mortadela deu certo o meu *-*

Unknown disse...

nao ta funfano os links =\

nem as keys =\ nem do ng nem do elf checa ae por favor caio \o

Unknown disse...

então, o bot abre alguns bichos outros ele não abre.
mais se eu clico ele pega os loot.
te como me ajudar? vlw
to jogando um ot pode ser isso?