Трабл...

[Altarlir]

вот скрипт на хилинг которым я пользуюсь

Code: Select all

program heal;
var a : Integer;
Begin
a := 20;
while a < 100 do
        begin
waittargetobject($271D17);

findtype($0E21,backpack);
useobject(finditem);
wait(4000);

end;
wait(2000);

End.

Через рэндомное время хилл перестаёт работать...в журнале постояно пишеться:"System: I am already doing something else."... и для того чтобы заново заработало нужно реконнектиться...
Что у меня косо в скрипте?

[ParadoX]

юзай

Code: Select all

program heal;
var a : Integer;


procedure IsCurMessages; 
var D : TDateTime; 
begin 
{5 minutes in DateTime = 5 / 1440 = 0.00347} 
D := Now - (0.00347); 
InJournalBetweenTimes(CharName + ': I am already performing another action.',D,Now); 

if LineCount > 5 then 
   begin 
   AddToSystemJournal('Error with target. Disconnected'); 
   Disconnect; 
   end; 


InJournalBetweenTimes('System: You must wait to perform another action.',D,Now); 

if LineCount > 5 then 
   begin 
   AddToSystemJournal('Error with target. Disconnected'); 
   Disconnect; 
   end; 



InJournalBetweenTimes('I am already doing something else.',D,Now); 

if LineCount > 2 then 
   begin 
   AddToSystemJournal('Error with target. Disconnected'); 
   Disconnect; 
   end; 
end;








Begin
a := 20;
while a < 100 do
        begin
waittargetobject($271D17);

findtype($0E21,backpack);
useobject(finditem);
wait(4000);

end;
IsCurMessages;
wait(2000);

End.

чтото типа этого.. ошибка получается в стелсе а не в скрипте...

[Altarlir]

Спасибо за помощь.....
Ещё вопрос эта ошибка будет исправлена?

[Miralex]

Ещё вопрос эта ошибка будет исправлена?

Да

[Altarlir]

недавно заметил что этот скрипт тоже глючит .....будем ждать апдэйта

[Miralex]

недавно заметил что этот скрипт тоже глючит

Разве что если ты системное время трогаешь.

[Altarlir]

Разве что если ты системное время трогаешь.

я вообще ничего не трогаю... я, как првило, включаю стэлс скрипты и ухожу куда-то

[Miralex]

Данный кусок кода и предназначен для любых запинаний в скрипте по разным причинам:
- неправильно выставил тайминги в скрипте;
- был сильный лаг и твой скрипт сбился намертво;
- сосед по комнате решил с тебя пошутить и подвигать вещи, на которые ты таргетом кликаешь;
- еще что-то;

Причин много для возникновения такой ситуации. А этот код как раз и делает реконнект в случае такого рода проблем.


P.S. не заметил ошибку Paradox-а.

[Miralex]

2 ParadoX,

Если ты внимательно посмотришь на твой кусок:

Code: Select all

Begin 
a := 20; 
while a < 100 do 
        begin 
waittargetobject($271D17); 

findtype($0E21,backpack); 
useobject(finditem); 
wait(4000); 

end; 
IsCurMessages; 
wait(2000); 

End.

То ты наверно заметишь, что ф-ция IsCurMessages в твоем варианте не будет выполняться никогда. Она стоит за пределами бесконечного цикла.

А надо так:

Code: Select all

Begin 
a := 20; 
while a < 100 do 
        begin 
waittargetobject($271D17); 

findtype($0E21,backpack); 
useobject(finditem); 
wait(4000); 
IsCurMessages;
end;
 
wait(2000); 

End.

P.S. код хороший, но будь внимателен.