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

Скрипт на ТТ рецепты

E

EboshCensoredQQ

Рег
13 Июл 2017
Сообщения
1
Реакции
0
Twitch
1122
YouTube
1132
Всем привет, это мой первый скрипт, и всё бы вроде хорошо, но не берёт квест.
Подскажите в чём дело? Может я что то не так делаю)



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

procedure dead;
begin
while (true)do
if User.Dead then // умер- вырубаем интерфейс, возврат в город и пауза 5 секунд
begin
Engine.gohome;
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(ByPass,1,pos('action="',ByPass)+17);
Delete(s,pos('"',s),length (s));
Engine.ByPassToServer(s);
end;

procedure Step_1();
begin
print ('Step_1');
Engine.SetTarget(31621);
delay(500);
Engine.DlgOpen;
delay(1000);
Engine.DlgSel(1);
delay(500);
Engine.DlgSel(1);
delay(500);
Engine.DlgSel(1);
delay(500);
SendByPass;
Engine.DlgOpen;
delay(500);
Engine.DlgSel(1);
delay(500);
Engine.DlgSel(2);
delay(500);
Engine.DlgSel(1);
delay(500);
SendByPass;

END;

procedure Step_2();
begin
print('Step_2');
Engine.MoveTo(149164,-112467,-2064);
Engine.MoveTo(1148016,-113133,-2136);
Engine.MoveTo(147559,-113272,-2112);
delay(1000);
Engine.SetTarget(31547);
delay(1000);
Engine.DlgOpen;
delay(1000);
Engine.DlgSel(2);
delay(1000);
Engine.DlgSel(2);
delay(1000);
Engine.DlgSel(1);
SendByPass;
END;

procedure Step_3();
begin
print ('Step_3');
Engine.MoveTo(147913,-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,-114956,-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(1000);
Engine.SetTarget(31545);
delay(1000);
Engine.DlgOpen;
delay(1000);
Engine.DlgSel(2);
delay(1000);
Engine.DlgSel(1);
delay(1000);
Engine.DlgSel(1);
delay(1000);
SendByPass;
END;

procedure Step_4();
BEGIN
print ('Step_4');
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(1000);
Engine.SetTarget(31544);
delay(1000);
Engine.DlgOpen;
delay(1000);
Engine.DlgSel(2);
delay(1000);
Engine.DlgSel(1);
delay(1000);
Engine.DlgSel(1);
delay(1000);
SendByPass;
END;

procedure Step_5();
begin
print('Step_5');
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(1000);
Engine.SetTarget(31545);
delay(1000);
Engine.DlgOpen;
delay(1000);
Engine.DlgSel(2);
delay(1000);
Engine.DlgSel(1);
delay(1000);
Engine.DlgSel(1);
delay(1000);
SendByPass
END;

procedure Step_6();
begin
print('Step_6');
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(141622,-109426,-3617);
delay(1000);
Engine.SetTarget(31546);
delay(1000);
Engine.DlgOpen;
delay(1000);
Engine.DlgSel(2);
delay(1000);
Engine.DlgSel(1);
delay(1000);
Engine.DlgSel(1);
delay(1000);
SendByPass;
delay(1000);
Engine.DlgOpen;
delay(1000);
Engine.DlgSel(2);
delay(1000);
Engine.DlgSel(2);
delay(1000);
Engine.DlgSel(1);
delay(1000);
SendByPass
END;

procedure Step_7();
begin
print ('Step_7');
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(1000);
Engine.SetTarget(31545);
delay(1000);
Engine.DlgOpen;
delay(1000);
Engine.DlgSel(2);
delay(1000);
Engine.DlgSel(2);
delay(1000);
Engine.DlgSel(1);
delay(1000);
SendByPass;
END;

procedure Step_8();
begin
print('Step_8');
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(151376,-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(1000);
Engine.SetTarget(31544);
delay(1000);
Engine.DlgOpen;
delay(1000);
Engine.DlgSel(2);
delay(1000);
Engine.DlgSel(2);
delay(1000);
Engine.DlgSel(1);
delay(1000);
SendByPass;
END;

procedure Step_9();
begin
print('Step_9');
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(1000);
Engine.SetTarget(31543);
delay(1000);
Engine.DlgOpen;
delay(1000);
Engine.DlgSel(2);
delay(1000);
Engine.DlgSel(2);
delay(1000);
Engine.DlgSel(1);
delay(1000);
SendByPass;
END;

procedure Step_10();
begin
print('Step_10');
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(148213,-113304,-2112);
Engine.MoveTo(147891,-113443,-2120);
Engine.MoveTo(147574,-113316,-2112);
delay(1000);
Engine.SetTarget(31547);
delay(1000);
Engine.DlgOpen;
delay(1000);
Engine.DlgSel(2);
delay(1000);
Engine.DlgSel(1);
delay(1000);
Engine.DlgSel(1);
delay(1000);
SendByPass;
END;

procedure Step_11();
begin
print('Step_11');
Engine.MoveTo(147557,-113312,-2112);
Engine.MoveTo(148268,-113193,-2120);
Engine.MoveTo(149178,-112475,-2064);
Engine.MoveTo(149538,-112655,-2090);
delay(1000);
Engine.SetTarget(31521);
delay(1000);
Engine.DlgOpen;
delay(1000);
Engine.DlgSel(1);
delay(1000);
Engine.DlgSel(2);
delay(1000);
Engine.DlgSel(1);
delay(1000);
SendByPass;
delay(1000);
Engine.DlgOpen;
delay(1000);
Engine.DlgSel(1);
delay(1000);
Engine.DlgSel(1);
delay(1000);
Engine.DlgSel(1);
delay(1000);
SendByPass;
Engine.UseItem(736);
delay(1000);

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(1000);
Engine.DlgOpen;
delay(1000);
Engine.DlgSel(4);
delay(1000);
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(249086,-57626,-2994);
Engine.MoveTo(149343,-57477,-2994);
Engine.SetTarget(31584);
delay(1000);
Engine.DlgOpen;
delay(1000);
Engine.DlgSel(1);
delay(1000);
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,-58800,-2744);
Engine.MoveTo(147880,-55320,-2728);
END;

procedure GoHS();
begin
print('GoHS');
Engine.MoveTo(147944,-55256,-2728);
print('таргет');
engine.settarget(31275);
delay(2000);
print('1');
Engine.bypasstoserver('npc_268491933_Chat 1');
delay(2000);
Engine.bypasstoserver('npc_268491933_goto 1095');
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();
end;
end;
end.

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

procedure dead;
begin
while (true)do
if User.Dead then // умер- вырубаем интерфейс, возврат в город и пауза 5 секунд
begin
Engine.gohome;
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(ByPass,1,pos('action="',ByPass)+17);
Delete(s,pos('"',s),length (s));
Engine.ByPassToServer(s);
end;

procedure Step_1();
begin
print ('Step_1');
Engine.SetTarget(31621);
delay(500);
Engine.DlgOpen;
delay(1000);
Engine.DlgSel(1);
delay(500);
Engine.DlgSel(1);
delay(500);
Engine.DlgSel(1);
delay(500);
SendByPass;
Engine.DlgOpen;
delay(500);
Engine.DlgSel(1);
delay(500);
Engine.DlgSel(2);
delay(500);
Engine.DlgSel(1);
delay(500);
SendByPass;

END;

procedure Step_2();
begin
print('Step_2');
Engine.MoveTo(149164,-112467,-2064);
Engine.MoveTo(1148016,-113133,-2136);
Engine.MoveTo(147559,-113272,-2112);
delay(1000);
Engine.SetTarget(31547);
delay(1000);
Engine.DlgOpen;
delay(1000);
Engine.DlgSel(2);
delay(1000);
Engine.DlgSel(2);
delay(1000);
Engine.DlgSel(1);
SendByPass;
END;

procedure Step_3();
begin
print ('Step_3');
Engine.MoveTo(147913,-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,-114956,-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(1000);
Engine.SetTarget(31545);
delay(1000);
Engine.DlgOpen;
delay(1000);
Engine.DlgSel(2);
delay(1000);
Engine.DlgSel(1);
delay(1000);
Engine.DlgSel(1);
delay(1000);
SendByPass;
END;

procedure Step_4();
BEGIN
print ('Step_4');
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(1000);
Engine.SetTarget(31544);
delay(1000);
Engine.DlgOpen;
delay(1000);
Engine.DlgSel(2);
delay(1000);
Engine.DlgSel(1);
delay(1000);
Engine.DlgSel(1);
delay(1000);
SendByPass;
END;

procedure Step_5();
begin
print('Step_5');
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(1000);
Engine.SetTarget(31545);
delay(1000);
Engine.DlgOpen;
delay(1000);
Engine.DlgSel(2);
delay(1000);
Engine.DlgSel(1);
delay(1000);
Engine.DlgSel(1);
delay(1000);
SendByPass
END;

procedure Step_6();
begin
print('Step_6');
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(141622,-109426,-3617);
delay(1000);
Engine.SetTarget(31546);
delay(1000);
Engine.DlgOpen;
delay(1000);
Engine.DlgSel(2);
delay(1000);
Engine.DlgSel(1);
delay(1000);
Engine.DlgSel(1);
delay(1000);
SendByPass;
delay(1000);
Engine.DlgOpen;
delay(1000);
Engine.DlgSel(2);
delay(1000);
Engine.DlgSel(2);
delay(1000);
Engine.DlgSel(1);
delay(1000);
SendByPass
END;

procedure Step_7();
begin
print ('Step_7');
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(1000);
Engine.SetTarget(31545);
delay(1000);
Engine.DlgOpen;
delay(1000);
Engine.DlgSel(2);
delay(1000);
Engine.DlgSel(2);
delay(1000);
Engine.DlgSel(1);
delay(1000);
SendByPass;
END;

procedure Step_8();
begin
print('Step_8');
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(151376,-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(1000);
Engine.SetTarget(31544);
delay(1000);
Engine.DlgOpen;
delay(1000);
Engine.DlgSel(2);
delay(1000);
Engine.DlgSel(2);
delay(1000);
Engine.DlgSel(1);
delay(1000);
SendByPass;
END;

procedure Step_9();
begin
print('Step_9');
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(1000);
Engine.SetTarget(31543);
delay(1000);
Engine.DlgOpen;
delay(1000);
Engine.DlgSel(2);
delay(1000);
Engine.DlgSel(2);
delay(1000);
Engine.DlgSel(1);
delay(1000);
SendByPass;
END;

procedure Step_10();
begin
print('Step_10');
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(148213,-113304,-2112);
Engine.MoveTo(147891,-113443,-2120);
Engine.MoveTo(147574,-113316,-2112);
delay(1000);
Engine.SetTarget(31547);
delay(1000);
Engine.DlgOpen;
delay(1000);
Engine.DlgSel(2);
delay(1000);
Engine.DlgSel(1);
delay(1000);
Engine.DlgSel(1);
delay(1000);
SendByPass;
END;

procedure Step_11();
begin
print('Step_11');
Engine.MoveTo(147557,-113312,-2112);
Engine.MoveTo(148268,-113193,-2120);
Engine.MoveTo(149178,-112475,-2064);
Engine.MoveTo(149538,-112655,-2090);
delay(1000);
Engine.SetTarget(31521);
delay(1000);
Engine.DlgOpen;
delay(1000);
Engine.DlgSel(1);
delay(1000);
Engine.DlgSel(2);
delay(1000);
Engine.DlgSel(1);
delay(1000);
SendByPass;
delay(1000);
Engine.DlgOpen;
delay(1000);
Engine.DlgSel(1);
delay(1000);
Engine.DlgSel(1);
delay(1000);
Engine.DlgSel(1);
delay(1000);
SendByPass;
Engine.UseItem(736);
delay(1000);

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(1000);
Engine.DlgOpen;
delay(1000);
Engine.DlgSel(4);
delay(1000);
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(249086,-57626,-2994);
Engine.MoveTo(149343,-57477,-2994);
Engine.SetTarget(31584);
delay(1000);
Engine.DlgOpen;
delay(1000);
Engine.DlgSel(1);
delay(1000);
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,-58800,-2744);
Engine.MoveTo(147880,-55320,-2728);
END;

procedure GoHS();
begin
print('GoHS');
Engine.MoveTo(147944,-55256,-2728);
print('таргет');
engine.settarget(31275);
delay(2000);
print('1');
Engine.bypasstoserver('npc_268491933_Chat 1');
delay(2000);
Engine.bypasstoserver('npc_268491933_goto 1095');
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();
end;
end;
end.
 
Войдите или зарегистрируйтесь для ответа.
Назад
Сверху