В этой теме нет ответов

[Убивашка]

uses sysutils;

var obj: TL2NPC; obj21: TL2Effect;
i:Integer;
X:Integer=0;
buff:TL2Buff;
procedure MoveToCheckStealth(x,y,z:integer);
begin
Engine.Useskill(411);
Engine.Useskill(4);
Engine.MoveTo(x,y,z);
end;


begin
for i:=1 to 1000 do
begin
while true do begin
if User.Dead then begin
Engine.gohome;
delay(500);
end;
X:=X+1;
Engine.Say('go go ' + inttostr(X));
delay(300);
Engine.UseItem(734);
delay(500);
MoveToCheckStealth(147976, -55256, -2712);
delay(500);
engine.settarget(31275);
delay(500);
engine.dlgOPen();
delay(1500);
engine.dlgsel(1);
delay(500);
engine.dlgsel(11);
delay(2000); // задержка тп с Гдд в ХС
MoveToCheckStealth(145976, -112696, -2384);
MoveToCheckStealth(148920, -112568, -2080);
MoveToCheckStealth(149176, -112472, -2048);
MoveToCheckStealth(149528, -112680, -2048);
engine.SetTarget(31521);
delay(1500);
engine.dlgOpen();
delay(1500);
engine.dlgsel(1);
delay(500);
engine.dlgsel(1);
delay(1000);
engine.bypasstoserver('Quest _621_EggDelivery jeremy_q0621_0104.htm');
delay(1500);
engine.dlgOpen();
delay(1500);
engine.dlgsel(1);
delay(500);
engine.dlgsel(2);
delay(1000);
engine.bypasstoserver('Quest _622_DeliveryofSpecialLiquor jeremy_q0622_0104.htm');
delay(1500);
MoveToCheckStealth(149100, -112430, -2072);
MoveToCheckStealth(148169, -112663, -2164);
MoveToCheckStealth(147912, -113048, -2144);
MoveToCheckStealth(147528, -113304, -2112);
MoveToCheckStealth(147528, -113304, -2112);
engine.SetTarget(31547);
delay(500);
engine.dlgOpen();
delay(1500);
engine.dlgsel(2);
delay(500);
engine.dlgsel(2);
delay(500);
engine.bypasstoserver('Quest _622_DeliveryofSpecialLiquor beolin_q0622_0201.htm');
delay(1500);
MoveToCheckStealth(148637, -111871, -2159);
MoveToCheckStealth(149627, -110822, -2273);
MoveToCheckStealth(148967, -108781, -2569);
MoveToCheckStealth(145763, -108986, -3402);
MoveToCheckStealth(143215, -108754, -3526);
MoveToCheckStealth(141682, -109407, -3594);
MoveToCheckStealth(141682, -109407, -3594);
engine.SetTarget(31546);
delay(500);
engine.dlgOpen();
delay(1500);
engine.dlgsel(2);
delay(500);
engine.dlgsel(2);
delay(500);
engine.bypasstoserver('Quest _622_DeliveryofSpecialLiquor kuber_q0622_0301.htm');
delay(1500);
MoveToCheckStealth(141763, -107971, -3552);
MoveToCheckStealth(140663, -106423, -3634);
MoveToCheckStealth(140668, -105535, -3635);
MoveToCheckStealth(140668, -105535, -3635);
engine.SetTarget(31545);
delay(500);
engine.dlgOpen();
delay(1500);
engine.dlgsel(2);
delay(500);
engine.dlgsel(2);
delay(500);
engine.bypasstoserver('Quest _622_DeliveryofSpecialLiquor crocus_q0622_0401.htm');
delay(1500);
MoveToCheckStealth(142225, -104436, -3632);
MoveToCheckStealth(143084, -104068, -3599);
MoveToCheckStealth(143630, -103422, -3595);
MoveToCheckStealth(143701, -102734, -3518);
MoveToCheckStealth(144408, -102045, -3505);
MoveToCheckStealth(144797, -100712, -3283);
MoveToCheckStealth(146350, -101089, -3173);
MoveToCheckStealth(149050, -100855, -2929);
MoveToCheckStealth(151284, -101495, -2900);
MoveToCheckStealth(153809, -101009, -2933);
MoveToCheckStealth(154831, -104208, -2810);
MoveToCheckStealth(155733, -104693, -2748);
MoveToCheckStealth(155813, -105614, -2756);
MoveToCheckStealth(155654, -105680, -2757);
MoveToCheckStealth(155654, -105680, -2757);
engine.SetTarget(31544);
delay(500);
engine.dlgOpen();
delay(1500);
engine.dlgsel(2);
delay(500);
engine.dlgsel(2);
delay(500);
engine.bypasstoserver('Quest _622_DeliveryofSpecialLiquor naff_q0622_0501.htm');
delay(1500);
MoveToCheckStealth(155448, -106680, -2704);
MoveToCheckStealth(156472, -106888, -2656);
MoveToCheckStealth(159512, -106904, -2400);
MoveToCheckStealth(161480, -107640, -2224);
MoveToCheckStealth(162664, -108904, -2232);
MoveToCheckStealth(162296, -111432, -2088);
MoveToCheckStealth(162504, -113080, -2512);
MoveToCheckStealth(161704, -116232, -2128);
MoveToCheckStealth(159656, -115928, -1744);
MoveToCheckStealth(158136, -115784, -1864);
MoveToCheckStealth(157720, -115512, -1888);
MoveToCheckStealth(157640, -115368, -1888);
MoveToCheckStealth(157640, -115368, -1888);
engine.SetTarget(31543);
delay(1500);
engine.dlgOpen();
delay(1500);
engine.dlgsel(2);
delay(500);
engine.dlgsel(2);
delay(500);
engine.bypasstoserver('Quest _622_DeliveryofSpecialLiquor pulin_q0622_0601.htm');
delay(1500);
engine.dlgOpen();
delay(1500);
engine.dlgsel(2);
delay(500);
engine.dlgsel(1);
delay(500);
engine.bypasstoserver('Quest _621_EggDelivery pulin_q0621_0201.htm');
delay(1500);
MoveToCheckStealth(156536, -113928, -1712);
MoveToCheckStealth(156328, -112392, -1824);
MoveToCheckStealth(156648, -110952, -2560);
MoveToCheckStealth(156760, -110328, -2656);
MoveToCheckStealth(156360, -109128, -2656);
MoveToCheckStealth(155944, -106168, -2720);
MoveToCheckStealth(155656, -105736, -2736);
MoveToCheckStealth(155656, -105736, -2736);
engine.SetTarget(31544);
delay(1500);
engine.dlgOpen();
delay(1500);
engine.dlgsel(2);
delay(500);
engine.dlgsel(1);
delay(500);
engine.bypasstoserver('Quest _621_EggDelivery naff_q0621_0301.htm');
delay(1500);
MoveToCheckStealth(155624, -105624, -2736);
MoveToCheckStealth(154184, -103608, -2912);
MoveToCheckStealth(153224, -101848, -2720);
MoveToCheckStealth(152120, -101432, -2896);
MoveToCheckStealth(150392, -101272, -2880);
MoveToCheckStealth(148296, -101000, -2960);
MoveToCheckStealth(144776, -100808, -3296);
MoveToCheckStealth(144248, -102824, -3536);
MoveToCheckStealth(140760, -105416, -3616);
MoveToCheckStealth(140760, -105416, -3616);

engine.SetTarget(31545);
delay(1500);
engine.dlgOpen();
delay(1500);
engine.dlgsel(2);
delay(500);
engine.dlgsel(1);
delay(500);
engine.bypasstoserver('Quest _621_EggDelivery crocus_q0621_0401.htm');
delay(1500);
MoveToCheckStealth(141080, -107528, -3600);
MoveToCheckStealth(141720, -107912, -3536);
MoveToCheckStealth(141624, -109400, -3568);
MoveToCheckStealth(141624, -109400, -3568);
engine.SetTarget(31546);
delay(1500);
engine.dlgOpen();
delay(1500);
engine.dlgsel(2);
delay(500);
engine.dlgsel(1);
delay(500);
engine.bypasstoserver('Quest _621_EggDelivery kuber_q0621_0501.htm');
delay(1500);
MoveToCheckStealth(143144, -108936, -3520);
MoveToCheckStealth(144696, -108936, -3472);
MoveToCheckStealth(146488, -108936, -3208);
MoveToCheckStealth(148248, -108888, -2720);
MoveToCheckStealth(149032, -108904, -2544);
MoveToCheckStealth(149576, -110168, -2368);
MoveToCheckStealth(149464, -111016, -2256);
MoveToCheckStealth(148712, -111880, -2160);
MoveToCheckStealth(147928, -112776, -2128);
MoveToCheckStealth(147528, -113272, -2096);
MoveToCheckStealth(147528, -113272, -2096);
engine.SetTarget(31547);
delay(1500);
engine.dlgOpen();
delay(1500);
engine.dlgsel(2);
delay(500);
engine.dlgsel(1);
delay(500);
engine.bypasstoserver('Quest _621_EggDelivery beolin_q0621_0601.htm');
delay(1500);
MoveToCheckStealth(148984, -112552, -2080);
MoveToCheckStealth(149240, -112472, -2048);
MoveToCheckStealth(149512, -112680, -2048);
MoveToCheckStealth(149512, -112680, -2048);
engine.SetTarget(31521);
delay(1500);
engine.dlgOpen();
delay(1500);
engine.dlgsel(1);
delay(500);
engine.dlgsel(1);
delay(500);
engine.bypasstoserver('Quest _621_EggDelivery jeremy_q0621_0701.htm');
delay(1500);
engine.dlgOpen();
delay(1500);
engine.dlgsel(1);
delay(500);
engine.dlgsel(2);
delay(500);
engine.bypasstoserver('Quest _622_DeliveryofSpecialLiquor jeremy_q0622_0701.htm');
delay(1500);
Engine.UseItem(736);
delay(25000);

if user.inrange(145264, -57680, -2960,250,150) then begin
MoveToCheckStealth(146104, -58104, -2960);
MoveToCheckStealth(146392, -57544, -2944);
end;


if user.inrange(147232, -58480, -2960,250,150) then begin
MoveToCheckStealth(146120, -58072, -2960);
MoveToCheckStealth(146408, -57544, -2944);
end;


if user.inrange(144752, -56752, -2960,250,150) then begin
MoveToCheckStealth(145880, -57944, -2960);
MoveToCheckStealth(146120, -58072, -2960);
MoveToCheckStealth(146392, -57544, -2944);
end;


if user.inrange(145696, -57696, -2960,250,150) then begin
MoveToCheckStealth(146152, -58024, -2960);
MoveToCheckStealth(146392, -57544, -2944);
end;


if user.inrange(147664, -56464, -2768,250,150) then begin
MoveToCheckStealth(147720, -58344, -2960);
MoveToCheckStealth(146040, -58200, -2960);
MoveToCheckStealth(146392, -57544, -2944);
end;


if user.inrange(145392, -56960, -2960,250,150) then begin
MoveToCheckStealth(145784, -57800, -2960);
MoveToCheckStealth(146168, -58008, -2960);
MoveToCheckStealth(146408, -57544, -2944);
end;


if user.inrange(147680, -56928, -2768,250,150) then begin
MoveToCheckStealth(147688, -58424, -2960);
MoveToCheckStealth(146104, -58104, -2960);
MoveToCheckStealth(146392, -57544, -2944);
end;


if user.inrange(150400, -56752, -2960,250,150) then begin
MoveToCheckStealth(149720, -57816, -2960);
MoveToCheckStealth(148120, -58360, -2960);
MoveToCheckStealth(146584, -58232, -2960);
MoveToCheckStealth(146168, -57976, -2960);
MoveToCheckStealth(146392, -57544, -2944);
end;


if user.inrange(146832, -55904, -2768,250,150) then begin
MoveToCheckStealth(145336, -57000, -2960);
MoveToCheckStealth(146040, -58200, -2960);
MoveToCheckStealth(146408, -57544, -2944);
end;


if user.inrange(144496, -55088, -2960,250,150) then begin
MoveToCheckStealth(144776, -55448, -2960);
MoveToCheckStealth(145368, -57592, -2960);
MoveToCheckStealth(146120, -58024, -2960);
MoveToCheckStealth(146408, -57544, -2944);
end;


if user.inrange(150704, -55744, -2960,250,150) then begin
MoveToCheckStealth(150248, -56952, -2960);
MoveToCheckStealth(149656, -57896, -2960);
MoveToCheckStealth(147240, -58376, -2960);
MoveToCheckStealth(146120, -58056, -2960);
MoveToCheckStealth(146392, -57544, -2944);
end;


if user.inrange(144944, -55392, -2960,250,150) then begin
MoveToCheckStealth(145144, -57224, -2960);
MoveToCheckStealth(146168, -58040, -2960);
MoveToCheckStealth(146408, -57544, -2944);
end;


if user.inrange(148560, -55904, -2768,250,150) then begin
MoveToCheckStealth(147848, -56232, -2768);
MoveToCheckStealth(146600, -56184, -2768);
MoveToCheckStealth(145288, -57016, -2960);
MoveToCheckStealth(145912, -57960, -2960);
MoveToCheckStealth(146120, -58088, -2960);
MoveToCheckStealth(146392, -57544, -2944);
end;


if user.inrange(147680, -56928, -2768,250,150) then begin
MoveToCheckStealth(147720, -58440, -2960);
MoveToCheckStealth(146456, -58216, -2960);
MoveToCheckStealth(146152, -58056, -2960);
MoveToCheckStealth(146392, -57544, -2944);
end;


if user.inrange(144960, -56224, -2960,250,150) then begin
MoveToCheckStealth(145672, -57816, -2960);
MoveToCheckStealth(146104, -58056, -2960);
MoveToCheckStealth(146392, -57560, -2944);
end;


if user.inrange(148288, -58304, -2960,250,150) then begin
MoveToCheckStealth(146728, -58312, -2960);
MoveToCheckStealth(146152, -58024, -2960);
MoveToCheckStealth(146392, -57528, -2944);
end;


if user.inrange(146272, -58176, -2976, 250, 150) then begin
MoveToCheckStealth(146152, -58088, -2960);
MoveToCheckStealth(146408, -57544, -2944);
end;


if user.inrange(149120, -58064, -2976, 250, 150) then begin
MoveToCheckStealth(146584, -58232, -2960);
MoveToCheckStealth(146152, -58008, -2960);
MoveToCheckStealth(146392, -57528, -2944);
end;


if user.inrange(149088, -56256, -2776, 250, 150) then begin
MoveToCheckStealth(148024, -56328, -2768);
MoveToCheckStealth(147736, -57208, -2768);
MoveToCheckStealth(147672, -58312, -2960);
MoveToCheckStealth(146072, -58152, -2960);
MoveToCheckStealth(146392, -57544, -2944);
end;
if user.inrange(146368, -56256, -2776, 250, 150) then begin
MoveToCheckStealth(145336, -56968, -2960);
MoveToCheckStealth(145832, -57864, -2960);
MoveToCheckStealth(146120, -58024, -2960);
MoveToCheckStealth(146408, -57544, -2944);
end;


if user.inrange(149872, -57424, -2976, 250, 150) then begin
MoveToCheckStealth(149320, -58008, -2960);
MoveToCheckStealth(147496, -58392, -2960);
MoveToCheckStealth(146120, -58072, -2960);
MoveToCheckStealth(146392, -57528, -2944);
end;


engine.SetTarget(31267);
delay(1500);
engine.dlgOpen();
delay(1500);
engine.dlgsel(4);
delay(500);
engine.bypasstoserver('Quest _622_DeliveryofSpecialLiquor warehouse_keeper_lietta_q0622_0801.htm');
delay(1500);
MoveToCheckStealth(146072, -58200, -2960);
MoveToCheckStealth(148584, -58120, -2960);
MoveToCheckStealth(149208, -57896, -2960);
MoveToCheckStealth(149112, -57672, -2952);
MoveToCheckStealth(149320, -57480, -2952);
MoveToCheckStealth(149320, -57480, -2952);
engine.SetTarget(31584);
delay(1500);
engine.dlgOpen();
delay(1500);
engine.dlgsel(1);
delay(500);
engine.bypasstoserver('Quest _621_EggDelivery brewer_valentine_q0621_0801.htm');
delay(1500);
MoveToCheckStealth(149080, -57640, -2952);
MoveToCheckStealth(149256, -57976, -2960);
MoveToCheckStealth(147672, -58184, -2960);
MoveToCheckStealth(147720, -57272, -2760);
MoveToCheckStealth(147864, -56008, -2784); //меняем если застрял у тп с следущей строкой(стоит ловушка из персонажей)
//MoveToCheckStealth(147720, -56040, -2768);
MoveToCheckStealth(148072, -55608, -2720);
MoveToCheckStealth(148072, -55608, -2720);
//engine.SetTarget(31031);
//delay(1500);
//engine.dlgOpen();
//delay(1500);
//Engine.BypassToServer('06');
//delay(1500);
//Engine.BypassToServer('01'); // 4 профиль
delay(1500);
MoveToCheckStealth(147976, -55256, -2712);
end;
end;
end.