.png.dc25f11ba247b4d002e895718e4ff002.png)
Milk xD
Tipo de Conteúdo
Perfis
Fóruns
Atualizações
Quizzes
Store
Posts postados por Milk xD
-
-
Sim, mas creio eu que é a versão do Tibia luz, como tem TibiaBot NG 4.8.3 para o Tibia 8.40..
-
Cara tenta organiza isso.. Ta mto desorganizado.. Mas adiciona esse tambem. ;)
Necessita de: TibiaBot NG
Creditos: Pardall BR e Milk xD pela tradução
Descrição: Script para ignorar as criaturas "super poderosas", que fazem com que você fique preso batendo em uma delas
Retirado: Outro fórum
// Ignores anti-botter creatures based on time to kill// @since Dec 14, 2008
// @author Pardall BR
// @colaboration Fal Dragonheart, cavalogrande
const
// Tempo para matar a criatura, caso leve mais tempo do que isso ela será considerada uma criatura ant botter e será ignorada.
AverageTimeKill = 25;
// Tocar alarme caso seja detectada uma criatura ant botter? 1 = sim / 0 = nao
SoundAlarm = 1;
// Alarm Path
AlertSound = 'c:\windows\media\notify.wav';
// Não mude isso
IgnoreLimit = 250;
var
CreaturesIgnore: array of integer;
CreatureAttacking : integer;
CreatureAttackingBefore : integer;
TimeAttack, TimeStamp, TimeElapsed : integer;
y : integer;
// @credits [Retirado)
function TimeNow:integer;
var
hours, minutes, seconds, miliseconds:integer;
begin
DecodeTime(Now, hours, minutes, seconds, miliseconds);
Result := hours * 60 * 60 * 1000 + minutes * 60 * 1000 + seconds * 1000 + miliseconds;
end;
procedure PlayAlarm;
begin
if SoundAlarm then
begin
if (Pos('.wav', AlertSound) <> 0) then
begin
try
PlaySound(AlertSound);
except
ShowMessage('Please enter a valid path for the sound file!');
end;
end;
end;
end;
// Checar se o jogador esta atacando uma criatura e se sim registrar o seu id
function CheckAttacking: integer;
begin
UpdateWorld;
for x := 0 to Creatures.Count - 1 do
begin
UpdateWorld;
if Creatures.Creature[x].Attacking then
begin
if CreatureAttackingBefore > 0 and CreatureAttackingBefore <> Creatures.Creature[x].ID then
CreatureAttackingBefore := CreatureAttacking;
Result := Creatures.Creature[x].ID;
Exit;
end;
end;
Result := 0;
Exit;
end;
//Checar se um id esta na lista de ignorados
function CheckIgnored(ID : integer) : boolean;
var x : integer;
begin
if y >= 1 then
begin
for x := 0 to y-1 do
begin
if ID = CreaturesIgnore[x] then // criatura ignorada
begin
Result := true;
Exit;
end;
end;
end;
Result := false;
end;
// Adicionar um id a lista de ignorados
procedure IgnoreCreature(ID : integer);
begin
Self.DisplayText('IgnoreCreature #' + IntToStr(ID));
CreaturesIgnore[y] := ID;
y := y + 1;
if y > IgnoreLimit then y := 1;
end;
procedure StopAttack;
begin
for x := 0 to Creatures.Count - 1 do
begin
UpdateWorld;
if Creatures.Creature[x].Attacking then
begin
Creatures.Creature[x].Attacking := false;
Exit;
end;
end;
end;
// Checar se o jogador foi atacado, então atacar o atacante caso ele não seja um jogador
procedure Event_Attacked(ID: integer);
begin
if not CheckIgnored(ID) then
begin
for x := 0 to Creatures.Count - 1 do
begin
UpdateWorld;
if Creatures.Creature[x].ID = ID and
(not Creatures.Creature[x].WhiteSkull and not Creatures.Creature[x].RedSkull and not Creatures.Creature[x].YellowSkull) // ignorar ataque de um jogador (tem um jeito melhor?)
then
begin
TimeAttack := TimeNow;
Creatures.Creature[x].Attacking := True;
Exit;
end;
end;
end;
end;
begin
CreatureAttackingBefore := 0;
CreatureAttacking := 0;
y := 0;
CreaturesIgnore := VarArrayCreate([y, IgnoreLimit], $C);
UpdateWorld;
while not Terminated do
begin
UpdateWorld;
if not CheckAttacking then
begin
ProcessEvents;
CreatureAttacking := CheckAttacking;
end;
if CheckAttacking then
begin
TimeStamp := TimeNow;
TimeElapsed := TimeStamp - TimeAttack;
if CreatureAttacking = CreatureAttackingBefore and (TimeElapsed > (AverageTimeKill*1000)) then
begin
IgnoreCreature(CreatureAttacking);
StopAttack;
PlayAlarm;
end;
CreatureAttackingBefore := CreatureAttacking;
end;
sleep(500);
end;
end;
Para fazer ela funcionar é preciso tirar a opção "Attack Monsters" e "Target All".
Para inserir o script basta ir em "Tools" e na ultima linha em "Scripter". Cole o script dado acima (depois de você altera-lo, é claro) e clique em "Execute script".
-
@LaCunah
Aqui esta ;)
Necessita de: TibiaBot NG
Creditos: Pardall BR e Milk xD pela tradução
Descrição: Script para ignorar as criaturas "super poderosas", que fazem com que você fique preso batendo em uma delas
Retirado: Outro fórum
// Ignores anti-botter creatures based on time to kill// @since Dec 14, 2008
// @author Pardall BR
// @colaboration Fal Dragonheart, cavalogrande
const
// Tempo para matar a criatura, caso leve mais tempo do que isso ela será considerada uma criatura ant botter e será ignorada.
AverageTimeKill = 25;
// Tocar alarme caso seja detectada uma criatura ant botter? 1 = sim / 0 = nao
SoundAlarm = 1;
// Alarm Path
AlertSound = 'c:\windows\media\notify.wav';
// Não mude isso
IgnoreLimit = 250;
var
CreaturesIgnore: array of integer;
CreatureAttacking : integer;
CreatureAttackingBefore : integer;
TimeAttack, TimeStamp, TimeElapsed : integer;
y : integer;
// @credits
É necessário se cadastrar para acessar o conteúdo.- Entre
- ou
- Cadastre-se
function TimeNow:integer;
var
hours, minutes, seconds, miliseconds:integer;
begin
DecodeTime(Now, hours, minutes, seconds, miliseconds);
Result := hours * 60 * 60 * 1000 + minutes * 60 * 1000 + seconds * 1000 + miliseconds;
end;
procedure PlayAlarm;
begin
if SoundAlarm then
begin
if (Pos('.wav', AlertSound) <> 0) then
begin
try
PlaySound(AlertSound);
except
ShowMessage('Please enter a valid path for the sound file!');
end;
end;
end;
end;
// Checar se o jogador esta atacando uma criatura e se sim registrar o seu id
function CheckAttacking: integer;
begin
UpdateWorld;
for x := 0 to Creatures.Count - 1 do
begin
UpdateWorld;
if Creatures.Creature[x].Attacking then
begin
if CreatureAttackingBefore > 0 and CreatureAttackingBefore <> Creatures.Creature[x].ID then
CreatureAttackingBefore := CreatureAttacking;
Result := Creatures.Creature[x].ID;
Exit;
end;
end;
Result := 0;
Exit;
end;
//Checar se um id esta na lista de ignorados
function CheckIgnored(ID : integer) : boolean;
var x : integer;
begin
if y >= 1 then
begin
for x := 0 to y-1 do
begin
if ID = CreaturesIgnore[x] then // criatura ignorada
begin
Result := true;
Exit;
end;
end;
end;
Result := false;
end;
// Adicionar um id a lista de ignorados
procedure IgnoreCreature(ID : integer);
begin
Self.DisplayText('IgnoreCreature #' + IntToStr(ID));
CreaturesIgnore[y] := ID;
y := y + 1;
if y > IgnoreLimit then y := 1;
end;
procedure StopAttack;
begin
for x := 0 to Creatures.Count - 1 do
begin
UpdateWorld;
if Creatures.Creature[x].Attacking then
begin
Creatures.Creature[x].Attacking := false;
Exit;
end;
end;
end;
// Checar se o jogador foi atacado, então atacar o atacante caso ele não seja um jogador
procedure Event_Attacked(ID: integer);
begin
if not CheckIgnored(ID) then
begin
for x := 0 to Creatures.Count - 1 do
begin
UpdateWorld;
if Creatures.Creature[x].ID = ID and
(not Creatures.Creature[x].WhiteSkull and not Creatures.Creature[x].RedSkull and not Creatures.Creature[x].YellowSkull) // ignorar ataque de um jogador (tem um jeito melhor?)
then
begin
TimeAttack := TimeNow;
Creatures.Creature[x].Attacking := True;
Exit;
end;
end;
end;
end;
begin
CreatureAttackingBefore := 0;
CreatureAttacking := 0;
y := 0;
CreaturesIgnore := VarArrayCreate([y, IgnoreLimit], $C);
UpdateWorld;
while not Terminated do
begin
UpdateWorld;
if not CheckAttacking then
begin
ProcessEvents;
CreatureAttacking := CheckAttacking;
end;
if CheckAttacking then
begin
TimeStamp := TimeNow;
TimeElapsed := TimeStamp - TimeAttack;
if CreatureAttacking = CreatureAttackingBefore and (TimeElapsed > (AverageTimeKill*1000)) then
begin
IgnoreCreature(CreatureAttacking);
StopAttack;
PlayAlarm;
end;
CreatureAttackingBefore := CreatureAttacking;
end;
sleep(500);
end;
end;
Para fazer ela funcionar é preciso tirar a opção "Attack Monsters" e "Target All".
Para inserir o script basta ir em "Tools" e na ultima linha em "Scripter". Cole o script dado acima (depois de você altera-lo, é claro) e clique em "Execute script".
-
Esta bem... Mas eu não vi problema em botar o nome de um outro fórum que não é um concorrente...
-
Acho que a area esta errada... Não seria em OTs?
-
Necessita de: TibiaBot NG
Creditos: Pardall BR e Milk xD pela tradução
Descrição: Script para ignorar as criaturas "super poderosas", que fazem com que você fique preso batendo em uma delas
Retirado: Outro fórum
// Ignores anti-botter creatures based on time to kill// @since Dec 14, 2008
// @author Pardall BR
// @colaboration Fal Dragonheart, cavalogrande
const
// Tempo para matar a criatura, caso leve mais tempo do que isso ela será considerada uma criatura ant botter e será ignorada.
AverageTimeKill = 25;
// Tocar alarme caso seja detectada uma criatura ant botter? 1 = sim / 0 = nao
SoundAlarm = 1;
// Alarm Path
AlertSound = 'c:\windows\media\notify.wav';
// Não mude isso
IgnoreLimit = 250;
var
CreaturesIgnore: array of integer;
CreatureAttacking : integer;
CreatureAttackingBefore : integer;
TimeAttack, TimeStamp, TimeElapsed : integer;
y : integer;
// @credits
É necessário se cadastrar para acessar o conteúdo.- Entre
- ou
- Cadastre-se
function TimeNow:integer;
var
hours, minutes, seconds, miliseconds:integer;
begin
DecodeTime(Now, hours, minutes, seconds, miliseconds);
Result := hours * 60 * 60 * 1000 + minutes * 60 * 1000 + seconds * 1000 + miliseconds;
end;
procedure PlayAlarm;
begin
if SoundAlarm then
begin
if (Pos('.wav', AlertSound) <> 0) then
begin
try
PlaySound(AlertSound);
except
ShowMessage('Please enter a valid path for the sound file!');
end;
end;
end;
end;
// Checar se o jogador esta atacando uma criatura e se sim registrar o seu id
function CheckAttacking: integer;
begin
UpdateWorld;
for x := 0 to Creatures.Count - 1 do
begin
UpdateWorld;
if Creatures.Creature[x].Attacking then
begin
if CreatureAttackingBefore > 0 and CreatureAttackingBefore <> Creatures.Creature[x].ID then
CreatureAttackingBefore := CreatureAttacking;
Result := Creatures.Creature[x].ID;
Exit;
end;
end;
Result := 0;
Exit;
end;
//Checar se um id esta na lista de ignorados
function CheckIgnored(ID : integer) : boolean;
var x : integer;
begin
if y >= 1 then
begin
for x := 0 to y-1 do
begin
if ID = CreaturesIgnore[x] then // criatura ignorada
begin
Result := true;
Exit;
end;
end;
end;
Result := false;
end;
// Adicionar um id a lista de ignorados
procedure IgnoreCreature(ID : integer);
begin
Self.DisplayText('IgnoreCreature #' + IntToStr(ID));
CreaturesIgnore[y] := ID;
y := y + 1;
if y > IgnoreLimit then y := 1;
end;
procedure StopAttack;
begin
for x := 0 to Creatures.Count - 1 do
begin
UpdateWorld;
if Creatures.Creature[x].Attacking then
begin
Creatures.Creature[x].Attacking := false;
Exit;
end;
end;
end;
// Checar se o jogador foi atacado, então atacar o atacante caso ele não seja um jogador
procedure Event_Attacked(ID: integer);
begin
if not CheckIgnored(ID) then
begin
for x := 0 to Creatures.Count - 1 do
begin
UpdateWorld;
if Creatures.Creature[x].ID = ID and
(not Creatures.Creature[x].WhiteSkull and not Creatures.Creature[x].RedSkull and not Creatures.Creature[x].YellowSkull) // ignorar ataque de um jogador (tem um jeito melhor?)
then
begin
TimeAttack := TimeNow;
Creatures.Creature[x].Attacking := True;
Exit;
end;
end;
end;
end;
begin
CreatureAttackingBefore := 0;
CreatureAttacking := 0;
y := 0;
CreaturesIgnore := VarArrayCreate([y, IgnoreLimit], $C);
UpdateWorld;
while not Terminated do
begin
UpdateWorld;
if not CheckAttacking then
begin
ProcessEvents;
CreatureAttacking := CheckAttacking;
end;
if CheckAttacking then
begin
TimeStamp := TimeNow;
TimeElapsed := TimeStamp - TimeAttack;
if CreatureAttacking = CreatureAttackingBefore and (TimeElapsed > (AverageTimeKill*1000)) then
begin
IgnoreCreature(CreatureAttacking);
StopAttack;
PlayAlarm;
end;
CreatureAttackingBefore := CreatureAttacking;
end;
sleep(500);
end;
end;
Para fazer ela funcionar é preciso tirar a opção "Attack Monsters" e "Target All".
Para inserir o script basta ir em "Tools" e na ultima linha em "Scripter". Cole o script dado acima (depois de você altera-lo, é claro) e clique em "Execute script".
-
Ta faltando ai a 4.8.2 e a 4.8.3.. Mas muito bom mesmo assim!!
-
Ngm aqui ta pedindo pra vc fazer, e pense bem antes de me chamar de lixo voc num sabe quem eu sou então pensa bem, e eu vou editar e colocar ali um download seguro.
Ele se refiriu a outra pessoa.. Não a você ;)
@Topic
Isso serve para todas as versões? Toda vez que atualiza o Tibia eu tenho que faze isso? Não atualiza com a atualização normal do Tibia?
-
funfa mesmo? eu preciso mas nao to achando em lugar nenhum!
-
Muito bom e funciona mesmo uso e aprovo vlw ai
-
Isso ai é keylogger em!
-
Legal isso ai mano.. Mas remove msm?
-
Area errada....
-
não é mais fácil você perguntar no tópico do magebomb?
Tibia MC 8.4
em RPG Zone - Lixão
Postado
Foi vc quem fez? Ele inicia logo qnd vc clica em qqlr icone do Tibia? Porque no meu aqui em asa eu tenho que i na pasta e clica no mc! no desktop n atualiza