@magogs, это всё включается после нажатия у чара квест?!
ВОТ включаю его бежит к тп портуется в хс и стоит на месте
// КВЕСТ НА ТТ РЕЦЕПТ
var obj: TL2NPC;
obj2: TL2Effect;
Enemy: TL2Live;
CheckDeath: Boolean;
Item: TL2Item;
Npc: TL2Npc;
L2Skill: TL2Skill;
Control: TL2Control;
TNpcList: TL2List;
Begin
while 1<>2 do 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;
if user.inrange(144940, -55396, -2971, 250, 150)
then
begin
Engine.MoveTo(145075, -56487, -2983);
Engine.MoveTo(145472, -56848, -2976);
Engine.MoveTo(146030, -56527, -2805);
Engine.MoveTo(147025, -56189, -2783);
Engine.MoveTo(147655, -55872, -2759);
end;
delay(100);
Engine.MoveTo(147679, -56013, -2775);
Engine.MoveTo(149119, -56388, -2783);
Engine.MoveTo(149595, -56685, -2883);
Engine.MoveTo(149999, -57151, -2976);
Engine.MoveTo(149516, -57868, -2983);
Engine.MoveTo(149210, -57878, -2983);
Engine.MoveTo(149106, -57671, -2970);
Engine.MoveTo(149321, -57477, -2970);
delay(100);
engine.settarget(31584); // Valentina
engine.dlgOpen(); // открываем диалог
Engine.DlgSel(1);
Engine.DlgSel(1);
Engine.Bypasstoserver('Quest 621_EggDelivery 31584-2.htm',true); // ЗАМЕНИТЬ БАЙПАС
delay(100);
Engine.MoveTo(149121, -57736, -2970);
Engine.MoveTo(149191, -57937, -2983);
Engine.MoveTo(148436, -58094, -2983);
Engine.MoveTo(147772, -58084, -2983);
Engine.MoveTo(147721, -57413, -2821);
Engine.MoveTo(147819, -56543, -2790);
Engine.MoveTo(147916, -55644, -2745);
Engine.MoveTo(147959, -55359, -2735);
Engine.MoveTo(148065, -55534, -2735);
delay(100);
begin
Engine.SetTarget(31031); // берем в таргет НПЦ с ИД( можно имя в скобках 'имя'
Engine.DlgOpen(); // открываем диалоговое окно
delay(100);
Engine.DlgSel('Buffs'); // выбираем строку под номером 1 (можно ставить любой)
delay(100);
Engine.DlgSel('Magic Barrier');
delay(100);
Engine.DlgSel('Malaria');
delay(100);
Engine.DlgSel('Berserker Spirit');
delay(100);
Engine.DlgSel('Bless the Body');
delay(100);
Engine.DlgSel('Mental Shield');
delay(100);
Engine.DlgSel('Wind Walk');
delay(100);
Engine.DlgSel('Songs');
delay(100);
Engine.DlgSel('Warding');
delay(100);
Engine.DlgSel('Wind');
delay(100);
Engine.DlgSel('Earth');
delay(100);
Engine.DlgSel('Vitality');
delay(100);
Engine.DlgSel('Chants');
delay(100);
Engine.DlgSel('Shielding');
delay(100);
Engine.DlgSel('Earth');
delay(100);
Engine.DlgSel('Magnus');
delay(100);
Engine.DlgSel('Other');
delay(100);
Engine.DlgSel('Resist Shock');
delay(100);
Engine.DlgSel('Elemental Protection');
delay(100);
Engine.DlgSel('Main');
delay(100);
Engine.DlgSel('HP/CP/MP');
delay(100);
Engine.MoveTo(147996, -55414, -2735);
Engine.MoveTo(147993, -55241, -2735);
Engine.SetTarget(31275); // берем в таргет НПЦ с ИД( можно имя в скобках 'имя'
Engine.DlgOpen(); // открываем диалоговое окно
delay(100);
Engine.DlgSel(1);
delay(100);
Engine.DlgSel('Hot Springs');
delay(10000);
end;
if user.InRange(149594, -112698, -2059,300,300) then begin // здесь все аналог предыдущему с радиусом от точки,но тут мы уже двигаемся по маршруту к нашей фарм локе
delay(100);
engine.settarget(31521); // Jeremy
engine.dlgOpen(); // открываем диалог
Engine.DlgSel(1);
Engine.DlgSel(1);
Engine.Bypasstoserver('Quest 621_EggDelivery 31521-1.htm',true);
delay(1000);
Engine.FaceControl(1,true);
delay(1000);
Engine.MoveTo(149840, -112855, -2076);
Engine.MoveTo(149934, -113389, -2071);
Engine.MoveTo(150416, -114261, -1873);
Engine.MoveTo(151192, -114949, -1617);
Engine.MoveTo(152321, -114947, -1581);
Engine.MoveTo(153835, -114863, -1556);
Engine.MoveTo(154947, -115047, -1562);
Engine.MoveTo(156099, -115248, -1726);
Engine.MoveTo(156974, -115346, -1882);
Engine.MoveTo(157576, -115360, -1906);
delay(100);
engine.settarget(31543); // Pulin
engine.dlgOpen(); // открываем диалог
Engine.DlgSel(2);
Engine.Bypasstoserver('Quest 621_EggDelivery 31543-1.htm',true);
delay(100);
Engine.MoveTo(157479, -114450, -1892);
Engine.MoveTo(157467, -113645, -1818);
Engine.MoveTo(156983, -113074, -1767);
Engine.MoveTo(156238, -112283, -1864);
Engine.MoveTo(156631, -112001, -2208);
Engine.MoveTo(156507, -111813, -2266);
Engine.MoveTo(156170, -110883, -2593);
Engine.MoveTo(156020, -110599, -2621);
Engine.MoveTo(155983, -110172, -2641);
Engine.MoveTo(156293, -108869, -2643);
Engine.MoveTo(156108, -107540, -2627);
Engine.MoveTo(156096, -106864, -2682);
Engine.MoveTo(155904, -106160, -2736);
Engine.MoveTo(155637, -105733, -2756);
delay(100);
engine.settarget(31544); // Naffy
engine.dlgOpen(); // открываем диалог
Engine.DlgSel(2);
Engine.Bypasstoserver('Quest 621_EggDelivery 31544-1.htm',true); // ЗАМЕНИТЬ БАЙПАС
delay(100);
Engine.MoveTo(155347, -105984, -2744);
Engine.MoveTo(154988, -105891, -2740);
Engine.MoveTo(154628, -105271, -2729);
Engine.MoveTo(154225, -104258, -2848);
Engine.MoveTo(153983, -103034, -2973);
Engine.MoveTo(153632, -101473, -2911);
Engine.MoveTo(153513, -101015, -2930);
Engine.MoveTo(152135, -101218, -2880);
Engine.MoveTo(150831, -101320, -2892);
Engine.MoveTo(149245, -101083, -2892);
Engine.MoveTo(147705, -100921, -3050);
Engine.MoveTo(146342, -100886, -3163);
Engine.MoveTo(145268, -100803, -3265);
Engine.MoveTo(144746, -100910, -3325);
Engine.MoveTo(144204, -102058, -3485);
Engine.MoveTo(143861, -102658, -3515);
Engine.MoveTo(143095, -103847, -3593);
Engine.MoveTo(142861, -104136, -3596);
Engine.MoveTo(141193, -105068, -3628);
Engine.MoveTo(140688, -105458, -3634);
delay(100);
engine.settarget(31545); // Crocus
engine.dlgOpen(); // открываем диалог
Engine.DlgSel(2);
Engine.Bypasstoserver('Quest 621_EggDelivery 31545-1.htm',true); // ЗАМЕНИТЬ БАЙПАС
delay(100);
Engine.MoveTo(140777, -105920, -3622);
Engine.MoveTo(140956, -106701, -3624);
Engine.MoveTo(141292, -107568, -3594);
Engine.MoveTo(141766, -108241, -3569);
Engine.MoveTo(141797, -108718, -3581);
Engine.MoveTo(141637, -109389, -3592);
delay(100);
engine.settarget(31546); // Kuber
engine.dlgOpen(); // открываем диалог
Engine.DlgSel(2);
Engine.Bypasstoserver('Quest 621_EggDelivery 31546-1.htm',true); // ЗАМЕНИТЬ БАЙПАС
delay(100);
Engine.MoveTo(142526, -109070, -3585);
Engine.MoveTo(143445, -108968, -3525);
Engine.MoveTo(144076, -108928, -3487);
Engine.MoveTo(145015, -108840, -3450);
Engine.MoveTo(145901, -108879, -3364);
Engine.MoveTo(146691, -108879, -3158);
Engine.MoveTo(147439, -108886, -2956);
Engine.MoveTo(147984, -108895, -2811);
Engine.MoveTo(148402, -108960, -2679);
Engine.MoveTo(149008, -109168, -2544);
Engine.MoveTo(149184, -109328, -2480);
Engine.MoveTo(149502, -110614, -2308);
Engine.MoveTo(148949, -111343, -2184);
Engine.MoveTo(148291, -111962, -2184);
Engine.MoveTo(147893, -112344, -2191);
Engine.MoveTo(147681, -112768, -2138);
Engine.MoveTo(147517, -113245, -2114);
delay(100);
engine.settarget(31547); // Beolin
engine.dlgOpen(); // открываем диалог
Engine.DlgSel(2);
Engine.Bypasstoserver('Quest 621_EggDelivery 31547-1.htm',true); // ЗАМЕНИТЬ БАЙПАС
delay(100);
Engine.MoveTo(148020, -113030, -2122);
Engine.MoveTo(148578, -112773, -2128);
Engine.MoveTo(149262, -112521, -2066);
Engine.MoveTo(149489, -112674, -2066);
delay(100);
engine.settarget(31521); // Jeremy
engine.dlgOpen(); // открываем диалог
Engine.DlgSel(1);
Engine.DlgSel(1);
Engine.Bypasstoserver('Quest 621_EggDelivery 31521-3.htm',true); // ЗАМЕНИТЬ БАЙПАС
delay(100);
Engine.UseItem(736, false);
delay(100);
end;
end;
end.