Gerenciando Hotkeys

Enquanto a própria Cipsoft não implementa um sistema automático de gerenciamento de hotkeys, vou ensinar-lhes uma maneira prática para trocar as suas hotkeys rapidamente (quando você deseja jogar com um personagem de outra vocação por exemplo):

1. Abra o "Meu Computador".
2. Então clique no menu Ferramentas > Opções de Pasta.
3. Agora, clique na aba "Modo de Exibição".
4. Procure a opção "Pastas e arquivos ocultos", e então marque a opção "Mostrar pastas e arquivos ocultos".
5. Desmarque a opção "Ocultar as extensões dos tipos de arquivo conhecidos"
6. Clique em Aplicar e OK;
7. Acesse a sua pasta de hotkeys e mapas que o Tibia criou em (C:\Documents and Settings\usuário\Dados de Aplicativos\Tibia). Lembrando que no lugar onde está escrito "usuário", deve estar o nome da conta de usuário que você configurou no Windows XP™. Nota para usuários do Windows Vista™: a pasta criada pelo Tibia está em (C:\Users\usuário\AppData\Roaming\Tibia);
8. Selecione e copie (CTRL+C) o arquivo Tibia.cfg (este é o arquivo onde estão guardadas as suas hotkeys);
9. Cole o arquivo (CTRL+V) várias vezes nesta mesma pasta. Recomendo que você copie o arquivo 3 vezes (assim ficará um para cada vocação).
10. Renomeie os arquivos desta maneira: Tibia.cfg.druid, Tibia.cfg.knight, Tibia.cfg.paladin, Tibia.cfg.sorcerer (o sistema irá perguntar se você realmente deseja mudar a extensão do arquivo. Apenas aceite a alteração).
11. Clique e segure o botão DIREITO do mouse sobre a pasta Tibia (esta que contém as hotkeys e mapas). Então, arraste o ponteiro do mouse até o local onde deseja colocar um atalho para esta pasta (geralmente o Desktop ou a barra de inicialização rápida - esta do lado do menu Iniciar). Solte o botão direito. Aparecerá um menu de opções, escolha a opção "Criar atalhos aqui".

Pronto, já preparamos o nosso sistema para gerenciar as nossas hotkeys.

Configurando as hotkeys pela primeira vez (você precisará repetir esta operação com todos os 4 arquivos de hotkeys):

1. Clique no atalho que criamos;
2. Selecione o arquivo de hotkeys da vocação que você deseja jogar;
3. Renomeie o arquivo escolhido para Tibia.cfg;
4. Abra o Tibia e configure as hotkeys de acordo com a vocação escolhida (você só precisa configurar na primeira vez que escolher uma determinada vocação);
5. Divirta-se!

Quando você quiser mudar as hotkeys para outra vocação, faça o seguinte:

1. Clique no atalho que criamos;
2. Selecione o arquivo Tibia.cfg e renomeie-o para a vocação que você estava utilizando (por exemplo, se estava usando hotkeys de knight, renomeie de Tibia.cfg para Tibia.cfg.knight);
3. Selecione o arquivo de hotkeys da vocação que você deseja jogar;
4. Renomeie o arquivo escolhido para Tibia.cfg;
5. Divirta-se!

Atenção! Não se esqueça de sempre deixar um dos arquivos como Tibia.cfg, senão o Tibia criará um novo arquivo de configurações em branco!

Com 6300 de exp char desloga

Char desloga quando tivér 6300 de exp, ou seja, quando estivér com mais ou menos 3% para o level 9.

Const
Exp = 6300

while not terminated do
begin
UpdateWorld;
if Self.Experience >= Exp
then Self.Logout(True);
Sleep(1000);
end;

Bota Spear na mão

Const
SmallStoneID = 3277
BackupWeaponID = 1781

function GetItemFromOpenBackpack(ID: integer): TItem;
var
y: integer;
begin
Result := nil;
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 = ID then
begin
Result := Self.Containers.Container[x].Item[y];
Exit;
end;
end;
end;
end;

begin
while not Terminated do
begin
UpdateWorld;
if Self.LeftHand.ID <> SmallStoneID then
begin
Weapon := GetItemFromOpenBackpack(SmallStoneID);
if Weapon <> nil then
begin
Weapon.MoveToBody(Self.LeftHand,0);
Sleep(1000);
end;
else
begin
if Self.LeftHand.ID <> BackupWeaponID then
begin
Weapon := GetItemFromOpenBackpack(BackupWeaponID);
if Weapon <> nil then
begin
Weapon.MoveToBody(Self.LeftHand,0);
Sleep(1000);
end;
end;
Self.DisplayText('ow viado!! abre a bp de spears!!')
end;
end;
Sleep(500);
end;
end;

Bota Small Stones na mão

Const
SmallStoneID = 1781
BackupWeaponID = 3277

function GetItemFromOpenBackpack(ID: integer): TItem;
var
y: integer;
begin
Result := nil;
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 = ID then
begin
Result := Self.Containers.Container[x].Item[y];
Exit;
end;
end;
end;
end;

begin
while not Terminated do
begin
UpdateWorld;
if Self.LeftHand.ID <> SmallStoneID then
begin
Weapon := GetItemFromOpenBackpack(SmallStoneID);
if Weapon <> nil then
begin
Weapon.MoveToBody(Self.LeftHand,0);
Sleep(1000);
end;
else
begin
if Self.LeftHand.ID <> BackupWeaponID then
begin
Weapon := GetItemFromOpenBackpack(BackupWeaponID);
if Weapon <> nil then
begin
Weapon.MoveToBody(Self.LeftHand,0);
Sleep(1000);
end;
end;
Self.DisplayText('Small Stones not found, Backup Weapon equipped instead!')
end;
end;
Sleep(500);
end;
end;

Troca Monk

Const
SwitchAt=50;// Troca de monk.Quando tivér (-) de x% de Life.
AttackAt=90;// Ataca o monk quando tivér mais de x% hp.

var
creature:tcreature;

function GetCreatureByNameHPHIGH(Name: string): 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].Name = Name then
if Creatures.Creature[x].Health>AttackAt then
begin
Result := Creatures.Creature[x];
Exit;
end;
end;
end;
function Attacking: boolean;
var
x: integer;
begin
Result := False;
for x := 0 to Creatures.Count - 1 do
begin
if x >= Creatures.Count then Break;
if Creatures.Creature[x].Attacking then
begin
Result := True;
Exit;
end;
end;
end;
function GetAttackedCreature: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].Attacking=true then
begin
Result := Creatures.Creature[x];
Exit;
end;
end;
end;


begin

while not Terminated do
begin
UpdateWorld;
if not attacking then
begin
Creature:=GetCreatureByNameHPHIGH('Monk');
if Creature <> nil then
creature.attacking:=true;
end;
if attacking then
begin
Creature:=GetAttackedCreature;
if Creature <> nil then
if creature.Health < SwitchAt then creature.attacking:=false;
end;
sleep(1000);
end;
end;

Slime Treiner

Dê follow na slime "mãe" e depois execute o script.

function Attacking: boolean;
begin
UpdateWorld;
for x := 0 to Creatures.Count - 1 do
begin
UpdateWorld;
if Creatures.Creature[x].Attacking then
begin
Result := True;
Exit;
end;
end;
Result := False;
Exit;
end;

function GetFollowedCreatureID: integer;
begin
UpdateWorld;
for x := 0 to Creatures.Count - 1 do
begin
UpdateWorld;
if Creatures.Creature[x].Following then
begin
Result := Creatures.Creature[x].ID;
Exit;
end;
end;
end;

var
MotherSlime, X1, Y1: integer;
begin
MotherSlime := GetFollowedCreatureID;
while not Terminated do
begin
UpdateWorld;
if not Attacking then
begin
UpdateWorld;
for x := 0 to Creatures.Count - 1 do
begin
UpdateWorld;
if Creatures.Creature[x].ID <> MotherSlime then
begin
if (Creatures.Creature[x].Name <> Self.Name) and Creatures.Creature[x].NPC then
begin
UpdateWorld;
X1 := Creatures.Creature[x].X;
Y1 := Creatures.Creature[x].Y;
if (X1 - Self.X = 1) or (X1 - Self.X = 0) or (X1 - Self.X = -1) then
begin
UpdateWorld;
if (Y1 - Self.Y = 1) or (Y1 - Self.Y = 0) or (Y1 - Self.Y = -1) then
begin
Creatures.Creature[x].Attacking := true;
Break;
end;
end;
end;
end;
end;
end;
Sleep(1000);
end;
end;

NG 8.20 Crackiado [Pra quem já tinha crackiado]

Esse é pra quem ja tinha a versão anterior crackiado.
Siga os passos:

Faça os seguintes downloads do NG:
http://www.tibiabot.com/download/setup-4.5.5.exe
http://www.tibiabot.com/download/setup-4.7.3.exe
Cole os links no seu navegador.

Instale o "setup-4.5.5".
Em seguida abra o Tibia.
Agora abra o TibiaBotNG, vai dar 1 erro, deixe como está.
Agora instale o "setup-4.7.3" vai dar 1 erro "loader.exe" aperte em "ignore" logo depois vai dar outro erro "hook.dll" não aperte em nada.
Agora volte naquele erro do Tibia e aperte em "Não Enviar Relatorio".
Agora volte no erro "hook.dll" e clique em "Repetir".

Pronto, seu NG está crackiado!