Подбор Огоньков удачи

[aleksichenk]

Такая проблема вот написал я скриптик ( не судите строго только учусь) но он не всегда подбирает огоньки удачи вот сообственно сам скриптик и скрин где показано как они выглядят эти огоники ) а да огоньки на карте видны как НЦП тоесть желтые ! 32125 это ID

begin

while 1<>2 do begin
Engine.SetTarget(32125);delay(100);

Engine.DlgOpen;

end;end.

 

[Алеку]

begin
while 1<>2 do begin
Engine.SetTarget(32125);delay(100);
Engine.MoveToTarget(-20); // Подойти к НПС
Engine.DlgOpen;
end;
end.
Попробуй так
но я не оч разбераюсь в скриптах)

 

[aleksichenk]

@Алеку, подходит к Огоньку но не заводит диалог с ним ( не нажимает на него ито подходит не всегда

 

[Алеку]

begin
while 1<>2 do begin
Engine.SetTarget('Огонь удачи');
Engine.Facecontrol(0,False); //отключить бота
delay(100);
Engine.MoveToTarget(-20); // Подойти к НПС
Engine.DlgOpen;
delay(500)
Engine.Facecontrol(0,True); //включить
end;
end.
вот так пробуй
Кинь ссылочку в пм на сервер я попробую глянуть.

 

[aleksichenk]

beginwhile 1<>2 do begin Engine.SetTarget(32125);delay(100); Engine.MoveToTarget(-20); // Подойти к НПС Engine.DlgOpen(); end; end.

на 1 строке ругается )

 

[Алеку]

исправил)
в личку кинь сервер скачаю клиент и попробую сам.

 

[aleksichenk]

Ругается этой строке Engine.Facecontrol(0,True); //включить

 

[xHRUSTx]

Так он будет постоянно выключаться и не фармить, а только бегать по огонькам+будет цеплять огоньки других игроков(с другим титулом).
Надо проверять список нпсов, при нахождении нпс с таким айди и правильным титулом вырубать конфиг, подбегать, открывать диалог.
Попробуй вот так

uses Sysutils, classes;var
obj:TL2Live;
function CheckTitle:boolean;
begin
if obj.title='Pr0FeSoR' then Result:=True;
end;
begin //body
while 1<>2 do begin
if NpcList.ByID(32125,obj) and CheckTitle=True then begin //Если в списке есть огонек и у него правильный титул
Engine.Facecontrol(0,False);
Engine.settarget(obj);
Engine.Movetotarget(-20);
Delay(2000);
Engine.DlgOpen;
Engine.Facecontrol(0,True);
Delay(150);
end;
end;
end.
Исправил, лишняя скобка была и лишний бегин

 

[savant]

@Алеку, после delay(500) точку с запятой пропустил

 

[aleksichenk]

@xHRUSTx, вроде всё работает только задержка большая после того как подобрал огонёк , а в общем спасибо поставил вам лайк

 

[xHRUSTx]

xHRUSTx, вроде всё работает только задержка большая после того как подобрал огонёк , а в общем спасибо поставил вам лайк

Странно, там не должно быть задержки совсем. Попробуй где делей 2000 убавь, но это пауза перед подбором

 

[aleksichenk]

@xHRUSTx, 200 ставил тоже самое да ладно и на этом скрипте спасибо большое