Page 1 of 1
Трабл...
Posted: 27.07.2005 6:02
by 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."... и для того чтобы заново заработало нужно реконнектиться...
Что у меня косо в скрипте?
Re: Трабл...
Posted: 27.07.2005 6:36
by 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.
чтото типа этого.. ошибка получается в стелсе а не в скрипте...
Posted: 27.07.2005 7:57
by Altarlir
Спасибо за помощь.....
Ещё вопрос эта ошибка будет исправлена?
Posted: 27.07.2005 8:03
by Miralex
Altarlir wrote:Ещё вопрос эта ошибка будет исправлена?
Да
Posted: 27.07.2005 11:24
by Altarlir
недавно заметил что этот скрипт тоже глючит
.....будем ждать апдэйта
Posted: 27.07.2005 11:32
by Miralex
Altarlir wrote:недавно заметил что этот скрипт тоже глючит
Разве что если ты системное время трогаешь.
Posted: 27.07.2005 11:37
by Altarlir
Miralex wrote:Разве что если ты системное время трогаешь.
я вообще ничего не трогаю... я, как првило, включаю стэлс скрипты и ухожу куда-то
Posted: 27.07.2005 11:41
by Miralex
Данный кусок кода и предназначен для любых запинаний в скрипте по разным причинам:
- неправильно выставил тайминги в скрипте;
- был сильный лаг и твой скрипт сбился намертво;
- сосед по комнате решил с тебя пошутить и подвигать вещи, на которые ты таргетом кликаешь;
- еще что-то;
Причин много для возникновения такой ситуации. А этот код как раз и делает реконнект в случае такого рода проблем.
P.S. не заметил ошибку Paradox-а.
Posted: 27.07.2005 11:48
by 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. код хороший, но будь внимателен.