Форум работает в тестовом режиме. Все данные были перенесены со старого сайта 2018 года. Некоторая информация может быть недоступна, например вложения или хайды. Просьба сообщать о данных случаях через функционал "Жалоба", прямо под постом, где отсуствуют данные из хайда или проблемы с вложением.
Могут быть проблемы в "выкидыванием" с форума (слетевшей авторизацией). Нужно собрать статистику таких случаев.
Есть Тема, куда можете сообщить о проблемах с сайтом либо просто передать привет.

скрипт-пропускает диалог

K

Kpoxo6op4uK

Рег
15 Янв 2016
Сообщения
27
Реакции
0
Доброго времени суток! ребята, прошу помощи, скрит на тт, не всегда берёт диалог, пропускает и бежит дальше...что тут не так? я и делей уже поставил на 3 секунды...один фиг...посмотрите пожалуйста! буду очень благодарен, в помощи для начинающего..

var obj: TL2NPC;
obj2: TL2Effect;
Enemy: TL2Live;
var Captcha:string;

procedure dead;
begin
while (true) do
if User.Dead then // умер- вырубаем интерфейс, возврат в город и пауза 5 секунд
begin
Engine.gohome;
delay(15000);
Goddart();
GoHS();
end;
end;

procedure Goddart();
begin
if user.inrange(146272, -58176, -2976, 250, 150) //возле хранилища
then
begin
Engine.MoveTo(147593, -58103, -3007);
Engine.MoveTo(147727, -57141, -2807);
Engine.MoveTo(147936, -55368, -2760); //возле гк
end;
if user.inrange(145264, -57680, -2976, 250, 150) //возле хранилища 2
then
begin
Engine.MoveTo(145588, -56926, -3007);
Engine.MoveTo(146673, -56095, -2807);
Engine.MoveTo(147543, -56054, -2807);
Engine.MoveTo(147936, -55368, -2760); //возле гк
end;
if user.inrange(145696, -57696, -2976, 250, 150) //возле хранилища 3
then
begin
Engine.MoveTo(145510, -56930, -3007);
Engine.MoveTo(146499, -56202, -2807);
Engine.MoveTo(147481, -56031, -2807);
Engine.MoveTo(147936, -55368, -2760); //возле гк
end;
if user.inrange(144944, -55392, -2976, 250, 150) //самый край
then
begin
Engine.MoveTo(145153, -56813, -3007);
Engine.MoveTo(145569, -56855, -3007);
Engine.MoveTo(146467, -56271, -2807);
Engine.MoveTo(147566, -56034, -2807);
Engine.MoveTo(147936, -55368, -2760); //возле гк
end;
if user.inrange(144752, -56752, -2976, 250, 150) //самый край
then
begin
Engine.MoveTo(145534, -56884, -3007);
Engine.MoveTo(146265, -56418, -2807);
Engine.MoveTo(147407, -56063, -2807);
Engine.MoveTo(147936, -55368, -2760); //возле гк
end;

//восточнаЯ лестница
if user.inrange(149120, -58064, -2976, 250, 150) //магазин
then
begin
Engine.MoveTo(147706, -58107, -3007);
Engine.MoveTo(147751, -56737, -2807);
Engine.MoveTo(147936, -55368, -2760); //возле гк
end;
if user.inrange(150400, -56752, -2976, 250, 150) //самый край
then
begin
Engine.MoveTo(149935, -56870, -3007);
Engine.MoveTo(149139, -56390, -2807);
Engine.MoveTo(147929, -56063, -2807);
Engine.MoveTo(147936, -55368, -2760); //возле гк
end;
if user.inrange(150704, -55744, -2976, 250, 150) //самый край 2
then
begin
Engine.MoveTo(149935, -56870, -3007);
Engine.MoveTo(149139, -56390, -2807);
Engine.MoveTo(147929, -56063, -2807);
Engine.MoveTo(147936, -55368, -2760); //возле гк
end;

//северная лелтница
if user.inrange(147680, -58208, -2976, 250, 150) //низ центр лестницы
then
begin
Engine.MoveTo(147727, -57141, -2807);
Engine.MoveTo(147936, -55368, -2760); //возле гк
end;
if user.inrange(148288, -58304, -2976, 250, 150) //низ центр лестницы чуть правее
then
begin
Engine.MoveTo(147738, -58050, -3007);
Engine.MoveTo(147727, -57141, -2807);
Engine.MoveTo(147936, -55368, -2760); //возле гк
end;
if user.inrange(147232, -58480, -2976, 250, 150) //низ центр лестницы чуть левее
then
begin
Engine.MoveTo(147677, -58063, -3007);
Engine.MoveTo(147727, -57141, -2807);
Engine.MoveTo(147936, -55368, -2760); //возле гк
end;
if user.inrange(149088, -56256, -2776, 250, 150)
then
begin
Engine.MoveTo(147854, -56054, -2807);
Engine.MoveTo(147934, -55354, -2760);
end;

//площадь
if user.inrange(146832, -55904, -2776, 250, 150) //площадь слева от лестницы
then
begin
Engine.MoveTo(147529, -56046, -2807);
Engine.MoveTo(147936, -55368, -2760); //возле гк
end;
if user.inrange(146368, -56256, -2776, 250, 150) //площадь слева от лестницы 2
then
begin
Engine.MoveTo(147529, -56046, -2807);
Engine.MoveTo(147936, -55368, -2760); //возле гк
end;
if user.inrange(147664, -56464, -2776, 250, 150) //площадь центр
then
begin
Engine.MoveTo(147936, -55368, -2760); //возле гк
end;
if user.inrange(147680, -56928, -2776, 250, 150) //площадь центр 2
then
begin
Engine.MoveTo(147810, -56110, -2807);
Engine.MoveTo(147936, -55368, -2760); //возле гк
end;
if user.inrange(148560, -55904, -2776, 250, 150) //площадь справа от лестницы
then
begin
Engine.MoveTo(147936, -55368, -2760); //возле гк
end;
if user.inrange(149872, -57424, -2976, 250, 150)
then
begin
Engine.MoveTo(149897, -56910, -2979);
Engine.MoveTo(149230, -56412, -2779);
Engine.MoveTo(147939, -55999, -2772);
Engine.MoveTo(147936, -55368, -2760); //возле гк
end;
if user.inrange(144960, -56224, -2976, 250, 150)
then
begin
Engine.MoveTo(145458, -56853, -2979);
Engine.MoveTo(146343, -56326, -2779);
Engine.MoveTo(147625, -55995, -2772);
Engine.MoveTo(147936, -55368, -2760); //возле гк
end;
if user.inrange(144496, -55088, -2976, 250, 150)
then
begin
Engine.MoveTo(145327, -56873, -2979);
Engine.MoveTo(146337, -56445, -2779);
Engine.MoveTo(147533, -55963, -2766);
Engine.MoveTo(147936, -55368, -2760); //возле гк
end;
if user.inrange(145392, -56960, -2976, 250, 150)
then
begin
Engine.MoveTo(146347, -56305, -2779);
Engine.MoveTo(147514, -56003, -2772);
Engine.MoveTo(147936, -55368, -2760); //возле гк
end;
end;

procedure SendByPass; overload;
var
s: string;
begin
s:=Engine.DlgText;
Delete(s,1,Pos('action="',s)+17);
Delete(s,pos('"',s),length(s));
Engine.ByPassToServer(s);
end;

procedure Step_1(); // Берем квесты
BEGIN
print('Step_1');
Engine.SetTarget(31521);
delay(3000);
Engine.DlgOpen;
delay(3000);
Engine.DlgSel(1);
delay(3000);
Engine.DlgSel(1);
delay(3000);
Engine.DlgSel(1);
delay(3000);
SendByPass;
delay(3000);
Engine.DlgOpen;
delay(3000);
Engine.DlgSel(1);
delay(3000);
Engine.DlgSel(2);
delay(3000);
Engine.DlgSel(1);
delay(3000);
SendByPass;

END;

procedure Step_2(); // Джереми - Беолин
begin
print('Step_2');
Engine.MoveTo(149164,-112467,-2064);
Engine.MoveTo(148015,-113133,-2136);
Engine.MoveTo(147559,-113272,-2112);
delay(3000);
Engine.SetTarget(31547);
delay(3000);
Engine.DlgOpen;
delay(3000);
Engine.DlgSel(2);
delay(3000);
Engine.DlgSel(2);
delay(3000);
Engine.DlgSel(1);
delay(3000);
SendByPass;
END;


procedure Step_3(); // Беолин - Пулин
begin
print('Step_3');
Engine.MoveTo(147914,-113269,-2126);
Engine.MoveTo(148103,-113233,-2136);
Engine.MoveTo(149773,-113998,-2000);
Engine.MoveTo(150388,-114497,-1824);
Engine.MoveTo(150850,-114838,-1656);
Engine.MoveTo(151276,-114958,-1600);
Engine.MoveTo(151702,-115087,-1560);
Engine.MoveTo(153203,-115033,-1568);
Engine.MoveTo(154706,-115178,-1536);
Engine.MoveTo(156779,-115424,-1848);
Engine.MoveTo(157376,-115408,-1896);
Engine.MoveTo(157346,-115531,-1888);

Engine.MoveTo(157607,-115449,-1904);
Engine.MoveTo(157642,-115386,-1930);
delay(3000);
Engine.SetTarget(31543);
delay(3000);
Engine.DlgOpen;
delay(3000);
Engine.DlgSel(2);
delay(3000);
Engine.DlgSel(1);
delay(3000);
Engine.DlgSel(1);
delay(3000);
SendByPass;
END;

procedure Step_4(); // Пулин - Нафф - Баварин
BEGIN
print('Step_3');
Engine.MoveTo(157275,-113821,-1816);
Engine.MoveTo(157064,-113230,-1760);
Engine.MoveTo(156466,-112684,-1776);
Engine.MoveTo(156452,-111251,-2536);
Engine.MoveTo(155697,-110419,-2624);
Engine.MoveTo(155623,-110058,-2624);
Engine.MoveTo(155358,-109167,-2664);
Engine.MoveTo(156124,-108262,-2624);
Engine.MoveTo(156165,-107460,-2654);
Engine.MoveTo(156133,-106761,-2680);
Engine.MoveTo(155840,-106032,-2744);
Engine.MoveTo(155681,-106011,-2765);
Engine.MoveTo(155601,-105781,-2752);
Engine.MoveTo(155606,-105723,-2780);
delay(3000);
Engine.SetTarget(31544);
delay(3000);
Engine.DlgOpen;
delay(3000);
Engine.DlgSel(2);
delay(3000);
Engine.DlgSel(1);
delay(3000);
Engine.DlgSel(1);
delay(3000);
SendByPass;
END;

procedure Step_5(); // Нафф - Крокус
begin
print('Step_4');
Engine.MoveTo(155194,-105057,-2744);
Engine.MoveTo(154941,-104679,-2781);
Engine.MoveTo(154306,-103769,-2904);
Engine.MoveTo(153785,-101694,-2936);
Engine.MoveTo(153564,-100996,-2928);
Engine.MoveTo(151076,-101411,-2896);
Engine.MoveTo(149452,-101010,-2935);
Engine.MoveTo(147913,-101032,-3024);
Engine.MoveTo(146270,-101561,-3048);
Engine.MoveTo(146277,-101770,-2959);
Engine.MoveTo(146201,-101965,-2888);
Engine.MoveTo(145572,-103032,-3456);
Engine.MoveTo(142227,-104577,-3600);
Engine.MoveTo(141288,-105066,-3624);
Engine.MoveTo(140724,-105469,-3632);
delay(3000);
Engine.SetTarget(31545);
delay(3000);
Engine.DlgOpen;
delay(3000);
Engine.DlgSel(2);
delay(3000);
Engine.DlgSel(1);
delay(3000);
Engine.DlgSel(1);
delay(3000);
SendByPass;
END;

procedure Step_6(); // Крокус - Кубер
begin
print('Step_5');
Engine.MoveTo(140712,-105472,-3632);
Engine.MoveTo(140703,-106053,-3624);
Engine.MoveTo(141280,-107818,-3600);
Engine.MoveTo(141786,-108080,-3552);
Engine.MoveTo(141648,-109262,-3584);
Engine.MoveTo(141662,-109426,-3617);
delay(3000);
Engine.SetTarget(31546);
delay(3000);
Engine.DlgOpen;
delay(3000);
Engine.DlgSel(2);
delay(3000);
Engine.DlgSel(1);
delay(3000);
Engine.DlgSel(1);
delay(3000);
SendByPass;
delay(2000);
Engine.DlgOpen;
delay(3000);
Engine.DlgSel(2);
delay(3000);
Engine.DlgSel(2);
delay(3000);
Engine.DlgSel(1);
delay(3000);
SendByPass;
END;

procedure Step_7(); // Кубер - Крокус
begin
print('Step_6');
Engine.MoveTo(141730,-108320,-3576);
Engine.MoveTo(141665,-107988,-3560);
Engine.MoveTo(140928,-106671,-3616);
Engine.MoveTo(140755,-105929,-3646);
Engine.MoveTo(140720,-105840,-3616);
Engine.MoveTo(140816,-105834,-3648);
Engine.MoveTo(140706,-105572,-3632);
Engine.MoveTo(140680,-105483,-3658);
delay(3000);
Engine.SetTarget(31545);
delay(3000);
Engine.DlgOpen;
delay(3000);
Engine.DlgSel(2);
delay(3000);
Engine.DlgSel(2);
delay(3000);
Engine.DlgSel(1);
delay(3000);
SendByPass;
END;

procedure Step_8(); // Крокус - Нафф
begin
print('Step_7');
Engine.MoveTo(141296,-105120,-3624);
Engine.MoveTo(141664,-104697,-3664);
Engine.MoveTo(142242,-104300,-3624);
Engine.MoveTo(143281,-103404,-3608);
Engine.MoveTo(144279,-102149,-3512);
Engine.MoveTo(144837,-100834,-3296);
Engine.MoveTo(145191,-100708,-3256);
Engine.MoveTo(146258,-100924,-3176);
Engine.MoveTo(147466,-100943,-3088);
Engine.MoveTo(147966,-100931,-3024);
Engine.MoveTo(148462,-100943,-2968);
Engine.MoveTo(149243,-101016,-2888);
Engine.MoveTo(151375,-101368,-2880);
Engine.MoveTo(152402,-101296,-2912);
Engine.MoveTo(153253,-101125,-2928);
Engine.MoveTo(153742,-101213,-2920);
Engine.MoveTo(154019,-102563,-2888);
Engine.MoveTo(154222,-103522,-2936);
Engine.MoveTo(154894,-104610,-2768);
Engine.MoveTo(155310,-105241,-2744);
Engine.MoveTo(155616,-105639,-2752);
delay(3000);
Engine.SetTarget(31544);
delay(3000);
Engine.DlgOpen;
delay(3000);
Engine.DlgSel(2);
delay(3000);
Engine.DlgSel(2);
delay(3000);
Engine.DlgSel(1);
delay(3000);
SendByPass;
END;

procedure Step_9(); // Нафф - Пулин
begin
print('Step_8');
Engine.MoveTo(155251,-106254,-2736);
Engine.MoveTo(154864,-107433,-2680);
Engine.MoveTo(154280,-109373,-2696);
Engine.MoveTo(153769,-110155,-2688);
Engine.MoveTo(152929,-110957,-2584);
Engine.MoveTo(152431,-111318,-2496);
Engine.MoveTo(151938,-111685,-2414);
Engine.MoveTo(151319,-112186,-2312);
Engine.MoveTo(150735,-112851,-2160);
Engine.MoveTo(150420,-113775,-1984);
Engine.MoveTo(150432,-114213,-1880);
Engine.MoveTo(150596,-114657,-1736);
Engine.MoveTo(151148,-114860,-1616);
Engine.MoveTo(151869,-114988,-1568);
Engine.MoveTo(152338,-115037,-1576);
Engine.MoveTo(153107,-115039,-1568);
Engine.MoveTo(154342,-115134,-1536);
Engine.MoveTo(156072,-115292,-1734);
Engine.MoveTo(157244,-115470,-1896);
Engine.MoveTo(157636,-115414,-1904);
delay(3000);
Engine.SetTarget(31543);
delay(3000);
Engine.DlgOpen;
delay(3000);
Engine.DlgSel(2);
delay(3000);
Engine.DlgSel(2);
delay(3000);
Engine.DlgSel(1);
delay(3000);
SendByPass;
END;

procedure Step_10(); // Пулин - Беолин
begin
print('Step_9');
Engine.MoveTo(156378,-115383,-1776);
Engine.MoveTo(155368,-115291,-1592);
Engine.MoveTo(154196,-115156,-1536);
Engine.MoveTo(153272,-115046,-1568);
Engine.MoveTo(150980,-114912,-1632);
Engine.MoveTo(149436,-114251,-1912);
Engine.MoveTo(148825,-113703,-2048);
Engine.MoveTo(148215,-113304,-2112);
Engine.MoveTo(147891,-113443,-2120);
Engine.MoveTo(147574,-113316,-2112);
delay(3000);
Engine.SetTarget(31547);
delay(3000);
Engine.DlgOpen;
delay(3000);
Engine.DlgSel(2);
delay(3000);
Engine.DlgSel(1);
delay(3000);
Engine.DlgSel(1);
delay(3000);
SendByPass;
END;

procedure Step_11(); // Сдача
begin
print('Step_10');
Engine.MoveTo(147557,-113312,-2112);
Engine.MoveTo(148268,-113193,-2120);
Engine.MoveTo(149178,-112475,-2064);
Engine.MoveTo(149538,-112655,-2090);
delay(3000);
Engine.SetTarget(31521);
delay(3000);
Engine.DlgOpen;
delay(3000);
Engine.DlgSel(1);
delay(3000);
Engine.DlgSel(2);
delay(3000);
Engine.DlgSel(1);
delay(3000);
SendByPass;
delay(2000);
Engine.DlgOpen;
delay(3000);
Engine.DlgSel(1);
delay(3000);
Engine.DlgSel(1);
delay(3000);
Engine.DlgSel(1);
delay(3000);
SendByPass;
delay(3000);
Engine.UseItem(736);
Delay (40000);

END;

procedure Step_12(); // Годарт Вх
BEGIN
print('Step_12');
Goddart();
Engine.MoveTo(147800,-55336,-2728);
Engine.MoveTo(147752,-55976,-2784);
Engine.MoveTo(147672,-58072,-2976);
Engine.MoveTo(146664,-58168,-2976);
Engine.MoveTo(146168,-57960,-2976);
Engine.MoveTo(146248,-57848,-2960);
Engine.MoveTo(146376,-57592,-2960);
Engine.MoveTo(146408,-57544,-2960);
Engine.SetTarget(31267);
Delay(3000);
Engine.DlgOpen;
Delay(3000);
Engine.DlgSel(4);
Delay(3000);
SendByPass;

END;

procedure Step_13(); // вх - Валентин
begin
print('Step_13');
Engine.MoveTo(146326, -57718, -2993);
Engine.MoveTo(146143, -58068, -2976);
Engine.MoveTo(147097, -58332, -3007);
Engine.MoveTo(148867, -58061, -3007);
Engine.MoveTo(149214, -57863, -3007);
Engine.MoveTo(149086, -57626, -2994);
Engine.MoveTo(149343, -57477, -2994);
Engine.SetTarget(31584);
Delay(3000);
Engine.DlgOpen;
Delay(3000);
Engine.DlgSel(1);
Delay(3000);
SendByPass;

END;

procedure Step_14(); // Валентин - ГК
BEGIN
print('Step_14');
Engine.MoveTo(149192,-57544,-2968);
Engine.MoveTo(149160,-57688,-2968);
Engine.MoveTo(149160,-58008,-2976);
Engine.MoveTo(147928,-58248,-2976);
Engine.MoveTo(147736,-58008,-2976);
Engine.MoveTo(147752,-55800,-2744);
Engine.MoveTo(147880,-55320,-2728);
END;

procedure GoHS();
begin
print('GoHS');
Engine.MoveTo(147976, -55256, -2712);
delay(3000);
engine.settarget(31275);
delay(4000);
Engine.DlgOpen;
delay(4000);
Engine.DlgSel(1);
delay(4000);
engine.dlgsel(11);
delay(8000);
END;

procedure Step_15();
BEGIN
Engine.MoveTo(145230,-113161,-2528);
Engine.MoveTo(145634,-112812,-2464);
Engine.MoveTo(145997,-112633,-2416);
Engine.MoveTo(146402,-112543,-2368);
Engine.MoveTo(146790,-112490,-2280);
Engine.MoveTo(147129,-112498,-2200);
Engine.MoveTo(147403,-112543,-2160);
Engine.MoveTo(147948,-112625,-2181);
Engine.MoveTo(148384,-112626,-2144);
Engine.MoveTo(148830,-112555,-2104);
Engine.MoveTo(149123,-112515,-2064);
Engine.MoveTo(149267,-112508,-2064);
Engine.MoveTo(149521,-112661,-2090);
END;

begin
while 1<>2 do begin // бесконечный цикл

begin
Step_1();
Step_2();
Step_3();
Step_4();
Step_5();
Step_6();
Step_7();
Step_8();
Step_9();
Step_10();
Step_11();
Step_12();
Step_13();
Step_14();
GoHS();
Step_15();
end;
end;
end.
 
ты думаешь кто-то будет разбираться в большом, неоформленном коде? ты хотя бы выделил проблемное место.
 
@SoundShocking, в любом из процедур он пропускает бывает диалог...я не могу понять в чём проблема((
 
Ну видимо нужно использовать не

Engine.DlgSel
а
Код: 
engine.bypasstoserver
 
если не прожимает строки у нпса вводи текст в место 1234 строки а "Текст"
 
Он видимо имеет ввиду что обычно нажимает а "иногда" пропускает, значит скрипт рабочий. Просто скорее всего его "тх" прожимает скиллы "даш. стелс" во время диалогов. В такие моменты диалог может не сработать. Добавляй процедуры на шаг квеста и что бы повторял шаги, если хочешь идеально надо еще записать пути от тп ко всем гномам (если слили в пк, проверил шаг и побежал).
 
Забыл сказать, сам не заморачивался, а просто убрал даш.
 
Войдите или зарегистрируйтесь для ответа.
Назад
Сверху