Crackeando Tibia BOT NG 4.7.9 De um jeito muito mais facil(Para Tibia 8.22)

Bom Primeiramente baixe Tibia BOT NG 4.7.9(Para Tibia 8.21)

Etarei disponibilizando os downloads nessessarios no final do topico

Depois de baixado nao abra ele

Abra TibiaBot NG Cracker

e Marque a opçao "Crack Tibia BOT NG For Tibia 8.21(4.7.7)OBS:Ele tambem crackea o BOT NG 8.22

Clique em Do It!

Pronto Tibia BOT NG Crackeado

Downloads
Tibia BOT NG Cracker http://rapidshare.com/files/140634816/TibiaBot_NG_Cracker.exe.html

BOT NG 4.7.9 (3638 KB) http://rapidshare.com/files/140636950/setup-4.7.9.exe.html

OBS: Nenhum download contem virus

Creditos

A www.s2cheats.com Pelo Download do cracker

Scripts ------- Creditos Kcatua_ADM


Scripts:

Potions
Troque o O MinHealth Para quando voce quiser que use a potion...NumberOfVialsToDrink para quantas voce quer que use...IDPotion depende de qual health potion voce usará para ver o id dela...clike com botao direito e coloque show id number...

Const
MinHealth = 310 // min Healh
NumberOfVialsToDrink = 1 // how many health fluids to drink
IDPotion = 266 // ID of Potion
Delay = 0 // in seconds

while not terminated do
begin
UpdateWorld;
if Self.Health <= MinHealth then
begin
for i := 1 to NumberOfVialsToDrink do
begin
if (i >= NumberOfVialsToDrink + 1) or (terminated = true) then break;
Self.Containers.UseItemWithSelf(IDPotion);
Sleep(Delay*1000);
end;
end;
Sleep(500);
end;

Atacar monstro Primero
Coloque os nomes dos monstros que voce quer atacar primeiro...coloque no maximo 2~3 monstros
Substitua Name=['Dwarf Guard', 'Dwarf Soldier', 'Dwarf']; pelos monstros em ordem de mais forte ao mais fraco...

Const
Name=['Dwarf Guard', 'Dwarf Soldier', 'Dwarf'];
SwitchAt=30;// the % of the current attacked monster
//that if the monster has lass % hp than this, we Will NOt change to the stronger monster.
function GetPlace(st:string):integer;
var
x:integer;
begin
Result:=1000;
for x:=Low(Name) To High(Name) do
begin
if Name[x]=st then
Result:=x;
end;
end;

function GetCreatureByID(ID: integer): TCreature;
var
x: integer;
begin
Result := nil;
for x := 0 to Creatures.Count - 1 do
begin
if x >= Creatures.Count then Break;
if Creatures.Creature[x].ID = ID then
begin
Result := Creatures.Creature[x];
Exit;
end;
end;
end;

function IsCreatureBesideYou(c: TCreature): boolean;
begin
UpdateWorld;
Result := False;
if (abs(c.X-self.X) <= 4) and (abs(c.Y-self.Y) <= 4) then begin
if c.Z = self.Z then begin
Result := True;
end;
end;
end;

var
x:integer;
b:boolean;
begin
while not terminated do
begin
b:=false;
updateworld;
If (Self.Attacking<>0) then
begin
Creature:=GetCreatureByID(Self.Attacking);
if Creature<>nil then
if SwitchAt<Creature.Health then
begin
for x := 0 to Creatures.Count - 1 do
begin
updateworld;
if b then break;
if x >= Creatures.Count then Break;
if Creatures.Creature[x].NPC then
if Creatures.Creature[x].z=self.z then
if Creatures.Creature[x].Name<>self.name then
if Creatures.Creature[x].Attacking = false then
if IsCreatureBesideYou(Creatures.Creature[x]) then
if GetPlace(Creature.Name)>GetPlace(Creatures.Creature[x].Name) then
begin
sleep(100);
updateworld;
Creatures.Creature[x].attacking:=true;
B:=true;
end;
end;
end;
end;
Sleep(100);
end;
end;