Достаточно встать у НПС у которого брать квест
Код:
function CheckItemCount (const itemID: Integer; const nenuzhnajaconst: Boolean = False) : Integer;
var tempItem: TL2Item;
begin
if Inventory.User.ByID(itemID, tempItem) then
Result := tempItem.Count;
end;
Begin
delay(2500);
// этот кусок не трогаем
if User.inrange(-119425, 49242, -16, 500, 100) then begin
delay(1000);
Engine.SetTarget(32173);
Engine.DlgOpen();
delay(1000);
Engine.DlgSel(3);
delay(1000);
Engine.DlgSel(1);
delay(1000);
Engine.DlgSel(1);
delay(1000);
Engine.MoveTo(-119400, 48714, 169);
Engine.MoveTo(-119386, 47920, 359);
Engine.MoveTo(-119320, 46989, 342);
Engine.MoveTo(-116857, 45761, 341);
Engine.MoveTo(-116471, 45432, 341);
Engine.MoveTo(-115973, 45221, 480);
Engine.MoveTo(-115208, 44647, 490);
Engine.MoveTo(-115013, 44670, 490);
end;
if User.inrange(-115013, 44670, 490, 250, 100) then begin
delay(1000);
Engine.SetTarget(32170);
Engine.DlgOpen();
delay(1000);
Engine.DlgSel(5);
delay(1000);
Engine.MoveTo(-115507, 44679, 476);
Engine.MoveTo(-118514, 46697, 341);
Engine.MoveTo(-119492, 47117, 366);
Engine.MoveTo(-119456, 47871, 364);
Engine.MoveTo(-119395, 49238, -16);
Engine.SetTarget(32173);
Engine.DlgOpen();
delay(1000);
Engine.DlgSel(3);
delay(1000);
Engine.DlgSel(1);
delay(1000);
Engine.MoveTo(-119350, 47922, 358);
Engine.MoveTo(-119315, 47005, 341);
Engine.MoveTo(-117696, 47104, 341);
Engine.MoveTo(-117163, 47623, 430);
Engine.MoveTo(-117156, 47945, 430);
end;
if User.inrange(-117156, 47945, 430, 250, 100) then begin
delay(1000);
Engine.SetTarget(32167);
Engine.DlgOpen();
delay(1000);
Engine.DlgSel(3);
delay(1000);
Engine.MoveTo(-117188, 47556, 418);
Engine.MoveTo(-119144, 47639, 422);
Engine.MoveTo(-119415, 47867, 364);
Engine.MoveTo(-119400, 49238, -16);
Engine.SetTarget(32173);
Engine.DlgOpen();
delay(1000);
Engine.DlgSel(3);
delay(1000);
Engine.DlgSel(1);
delay(1000);
end;
delay(550);
end.
