uses SysUtils, Classes;
var Figth_Flag:boolean;
Item: TL2Item;
Npc: TL2Npc;
procedure kvest1;
begin
Engine.SetTarget('Мартин');
Engine.MoveToTarget(-20);
Engine.DlgOpen;
Engine.DlgSel(8);
Engine.DlgSel(1);
Engine.DlgSel(1);
Engine.MoveTo(-81272, 150248, -3104);
Engine.MoveTo(-81016, 150104, -3024);
Delay(500);
Engine.SetTarget('Richlin');
Engine.MoveToTarget(-20);
Engine.DlgOpen;
Engine.DlgSel(1);
Engine.DlgSel(5);
Delay(5000);
Engine.SetTarget('Wirphy');
Engine.MoveToTarget(-20);
Engine.DlgOpen;
Engine.DlgSel(1);
Engine.DlgSel(10);
Delay(5000);
Engine.MoveTo(138536, -206040, -3584);
kvest2;
end;
procedure kvest2;
begin
Engine.LoadConfig('Спойл 20-25');
Delay(500);
Figth_Flag:=true;
Engine.Facecontrol(0,True);
Delay(300000);
Engine.Facecontrol(0,False);
Delay(500);
Engine.UseItem(736);
Delay(30000);
kvest3;
end;
procedure kvest3;
begin
Engine.MoveTo(116632, -179928, -1136);
Engine.MoveTo(115144, -178200, -880);
Engine.SetTarget('Wirphy');
Engine.MoveToTarget(-20);
Engine.DlgOpen;
Engine.DlgSel(1);
Engine.DlgSel(1);
Delay(5000);
Engine.SetTarget('Bella');
Engine.MoveToTarget(-20);
Engine.DlgOpen;
Engine.DlgSel(2);
Engine.DlgSel(9);
Delay(5000);
Engine.MoveTo(-82552, 150664, -3104);
Engine.SetTarget('Мартин');
Engine.MoveToTarget(-20);
Engine.DlgOpen;
Engine.DlgSel(8);
Engine.DlgSel(1);
kvest4;
end;
procedure kvest4;
begin
Engine.MoveTo(-81272, 150248, -3104);
Engine.MoveTo(-81016, 150104, -3024);
Delay(500);
Engine.SetTarget('Richlin');
Engine.MoveToTarget(-20);
Engine.DlgOpen;
Engine.DlgSel(1);
Engine.DlgSel(1);
Delay(5000);
Engine.SetTarget('Bella');
Engine.MoveToTarget(-20);
Engine.DlgOpen;
Engine.DlgSel(8);
Engine.DlgSel(1);
Engine.DlgSel(1);
Engine.SetTarget('Bella');
Engine.MoveToTarget(-20);
Engine.DlgOpen;
Engine.DlgSel(2);
Engine.DlgSel(5);
Delay(5000);
Engine.MoveTo(17992, 146040, -3104);
Engine.MoveTo(17384, 147576, -3104);
Engine.SetTarget('Метти');
Engine.MoveToTarget(-20);
Engine.DlgOpen;
Engine.DlgSel(2);
Engine.DlgSel(1);
Engine.MoveTo(17992, 146040, -3104);
Engine.MoveTo(15704, 143000, -2688);
Engine.SetTarget('Trisha');
Engine.MoveToTarget(-20);
Engine.DlgOpen;
Engine.DlgSel(1);
Engine.DlgSel(1);
Delay(5000);
Engine.MoveTo(81560, 149736, -3448);
Engine.MoveTo(81384, 150328, -3512);
Engine.MoveTo(80072, 149960, -3520);
Engine.MoveTo(79960, 149480, -3520);
Engine.SetTarget('Элли');
Engine.MoveToTarget(-20);
Engine.DlgOpen;
Engine.DlgSel(5);
Engine.DlgSel(1);
Engine.DlgSel(1);
Engine.MoveTo(79960, 149480, -3520);
Engine.MoveTo(80072, 149960, -3520);
Engine.MoveTo(81384, 150328, -3512);
Engine.MoveTo(81560, 149736, -3448);
Engine.SetTarget('Clarissa');
Engine.MoveToTarget(-20);
Engine.DlgOpen;
Engine.DlgSel(1);
Engine.DlgSel(7);
Delay(5000);
Engine.SetTarget('Bella');
Engine.MoveToTarget(-20);
Engine.DlgOpen;
Engine.DlgSel(2);
Engine.DlgSel(9);
Delay(5000);
Engine.MoveTo(-82552, 150664, -3104);
Engine.SetTarget('Мартин');
Engine.MoveToTarget(-20);
Engine.DlgOpen;
Engine.DlgSel(8);
Engine.DlgSel(1);
pause;
end;
//---------------------------------------------------------------------------------------------------
begin
repeat
Delay(700);
if User.InRange(-84456, 150792, -3104,4500){ and not Inventory.User.ByID(10477, Item)} then
begin
kvest1;
Delay(3000);
end;
if User.InRange(138536, -206040, -3584,3500) then
begin
kvest2;
Delay(3000);
end;
if User.InRange(115790, -179146, -976,3500) then
begin
kvest3;
Delay(3000);
end;
until Engine.Status = lsOnline;
end.
квест на волка, спасибо мне, если помог