script for TT. Gracia Final

[gogoqwejojo]

Написал свой первый скрипт на тт рецы. Запускал только на l2e-global вроде все работает...

Спойлер

var obj: TL2NPC; obj21: TL2Effect;
i:Integer;
begin
for i:=1 to 1000 do
begin
while true do begin
if User.Dead then begin
Engine.gohome;
delay(1000);
end;


if user.inrange(147962, -55245, -2760,250,150) then begin
Engine.MoveTo(148049, -55357, -2760);
delay(300);
engine.settarget(32327);
delay(200);
engine.dlgOPen();
delay(200);
engine.dlgsel(1);
delay(200);
engine.dlgsel(1);

delay(1500);
Engine.MoveTo(147976, -55256, -2712);
delay(300);
engine.settarget(31275);
delay(200);
engine.dlgOPen();
delay(200);
engine.dlgsel(1);
delay(200); // задержка тп с Гдд в ХС
engine.dlgsel(11);
delay(5000);
end;

if user.inrange(144880, -113468, -2560,250,150) then begin
Engine.MoveTo(145976, -112696, -2384); //Бежим к Jeremy
Engine.MoveTo(148920, -112568, -2080);
Engine.MoveTo(149176, -112472, -2048);
Engine.MoveTo(149528, -112680, -2048);
end;

if user.inrange(149504, -112666, -2090,250,150) then begin
delay(200);
engine.SetTarget(31521); //Jeremy1quest
delay(100);
engine.dlgOpen();
delay(100);
engine.dlgsel(1);
delay(100);
engine.dlgsel(1);
delay(100);
engine.dlgsel(1);
delay(100);
delay(5000);


engine.SetTarget(31521); //Jeremy2quest
engine.dlgOpen();
delay(200);
engine.dlgsel(1);
delay(200);
engine.dlgsel(2);
delay(200);
engine.dlgsel(1);
delay(1000);
Engine.MoveTo(148958, -112453, -2112);
Engine.MoveTo(147514, -113268, -2138);



end;








if user.inrange(147514, -113268, -2104,250,150) then begin
engine.SetTarget(31547); //Beolin
engine.dlgOpen();
delay(200);
engine.dlgsel(2);
delay(200);
engine.dlgsel(1);
delay(1000);
Engine.MoveTo(148524, -113249, -2112);
Engine.MoveTo(149731, -113878, -2051);
Engine.MoveTo(151261, -115095, -1617);
Engine.MoveTo(154606, -115471, -1530);
Engine.MoveTo(157629, -115376, -1930);


end;



if user.inrange(157666, -115383, -1896,250,150) then begin
engine.SetTarget(31543); //pulin
delay(200);
engine.dlgOpen();
delay(200);
engine.dlgsel(2);
delay(200);
engine.dlgsel(1);
delay(1000);


Engine.MoveTo(157272, -113376, -1808);
Engine.MoveTo(156700, -112662, -1712);
Engine.MoveTo(156768, -111784, -2350);
Engine.MoveTo(156124, -110772, -2627);
Engine.MoveTo(156587, -107177, -2672);
Engine.MoveTo(155609, -105736, -2780);

end;


if user.inrange(155580, -105694, -2752,250,150) then begin
engine.SetTarget(31544); //naff
delay(200);
engine.dlgOpen();
delay(200);
engine.dlgsel(2);
delay(200);
engine.dlgsel(1);
delay(1000);



Engine.MoveTo(155238, -104356, -2794);
Engine.MoveTo(153790, -101151, -2959);
Engine.MoveTo(151692, -101234, -2880);
Engine.MoveTo(150926, -101377, -2906);
Engine.MoveTo(148404, -100873, -2999);
Engine.MoveTo(146678, -101038, -3172);
Engine.MoveTo(146137, -101990, -2929);
Engine.MoveTo(145395, -103006, -3537);
Engine.MoveTo(141303, -105043, -3656);
Engine.MoveTo(140666, -105455, -3658);

end;
if user.inrange(140666, -105455, -3658,250,150) then begin
engine.SetTarget(31545); // Crocus
delay(200);
engine.dlgOpen();
delay(200);
engine.dlgsel(2);
delay(200);
engine.dlgsel(1);
delay(1000);



Engine.MoveTo(140798, -106629, -3657);
Engine.MoveTo(141864, -108396, -3600);
Engine.MoveTo(141660, -109430, -3584);
end;

if user.inrange(141660, -109430, -3584,250,150) then begin
engine.SetTarget(31546); // Kuber1
delay(200);
engine.dlgOpen();
delay(200);
engine.dlgsel(2);
delay(200);
engine.dlgsel(1);
delay(200);
engine.dlgsel(1);
delay(6000);
engine.SetTarget(31546); // Kuber2
delay(200);
engine.dlgOpen();
engine.dlgsel(2);
delay(200);
engine.dlgsel(2);
delay(200);
engine.dlgsel(1);
delay(1000);

Engine.MoveTo(141708, -107616, -3559);
Engine.MoveTo(141198, -106001, -3646);
Engine.MoveTo(140686, -105489, -3658);
end;

if user.inrange(140686, -105489, -3658,250,150) then begin
engine.SetTarget(31545); // Crocus
delay(200);
engine.dlgOpen();
engine.dlgsel(2);
delay(200);
engine.dlgsel(1);
delay(1000);



Engine.MoveTo(142493, -104312, -3640);
Engine.MoveTo(144209, -103165, -3586);
Engine.MoveTo(144793, -100703, -3256);
Engine.MoveTo(148412, -100981, -2995);
Engine.MoveTo(150132, -101091, -2917);
Engine.MoveTo(151754, -101377, -2922);
Engine.MoveTo(153824, -101079, -2959);
Engine.MoveTo(154881, -104185, -2829);
Engine.MoveTo(155131, -105044, -2771);
Engine.MoveTo(155606, -105635, -2781);


end;
if user.inrange(155606, -105635, -2781,250,150) then begin
engine.SetTarget(31544); //naff
delay(200);
engine.dlgOpen();
delay(200);
engine.dlgsel(2);
delay(200);
engine.dlgsel(1);
delay(200);




Engine.MoveTo(155462, -106272, -2767);
Engine.MoveTo(154229, -109331, -2726);
Engine.MoveTo(153426, -110620, -2675);
Engine.MoveTo(151412, -112035, -2358);
Engine.MoveTo(150829, -112556, -2248);
Engine.MoveTo(151939, -113242, -1695);
Engine.MoveTo(152407, -113135, -1663);
Engine.MoveTo(154909, -114700, -1578);
Engine.MoveTo(157083, -114718, -1889);
Engine.MoveTo(157601, -115303, -1929);

end;

if user.inrange(157601, -115303, -1929,250,150) then begin
engine.SetTarget(31543); //pulin
delay(200);
engine.dlgOpen();
delay(200);
engine.dlgsel(2);
delay(200);
engine.dlgsel(1);
delay(1000);



Engine.MoveTo(156246, -114651, -1753);
Engine.MoveTo(153939, -113945, -1637);
Engine.MoveTo(152976, -113567, -1674);
Engine.MoveTo(152187, -113040, -1645);
Engine.MoveTo(149306, -112209, -2103);
Engine.MoveTo(148924, -112239, -2149);
Engine.MoveTo(147617, -113164, -2112);


engine.SetTarget(31547); //Beolin
delay(200);
engine.dlgOpen();
delay(200);
engine.dlgsel(2);
delay(200);
engine.dlgsel(1);
delay(1000);

Engine.MoveTo(149286, -112189, -2110);
Engine.MoveTo(149594, -112347, -2090);
Engine.MoveTo(149528, -112678, -2090);




engine.SetTarget(31521); //Jeremy
delay(200);
engine.dlgOpen();
delay(200);
engine.dlgsel(1);
delay(200);
engine.dlgsel(1);
delay(200);
engine.dlgsel(1);
delay(5000);

engine.dlgOpen();
delay(200);
engine.dlgsel(1);
delay(200);
engine.dlgsel(2);
delay(200);
engine.dlgsel(1);
delay(1500);
Engine.UseItem(736);
delay(20000);
end;



if user.inrange(147677, -58220, -2976,250,150) then begin
Engine.MoveTo(146051, -58115, -3007);
Engine.MoveTo(146337, -57682, -2993);
Engine.MoveTo(146398, -57558, -2993);
end;




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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


if user.inrange(146386, -57556, -2960, 250, 150) then begin
engine.SetTarget(31267);
delay(100);
engine.dlgOpen();
delay(100);
engine.dlgsel(4);
delay(100);
engine.dlgsel(1);
delay(100);
Engine.MoveTo(146072, -58200, -2960);
Engine.MoveTo(148584, -58120, -2960);
Engine.MoveTo(149208, -57896, -2960);
Engine.MoveTo(149112, -57672, -2952);
Engine.MoveTo(149320, -57480, -2952);
engine.SetTarget(31584);
delay(100);
engine.dlgOpen();
delay(100);
engine.dlgsel(1);
delay(100);
engine.dlgsel(1);
delay(100);
Engine.MoveTo(149080, -57640, -2952);
Engine.MoveTo(149256, -57976, -2960);
Engine.MoveTo(147672, -58184, -2960);
Engine.MoveTo(147720, -57272, -2760);
Engine.MoveTo(147720, -56040, -2768);
Engine.MoveTo(148072, -55608, -2720);
Engine.MoveTo(147976, -55256, -2712);
end;
end;
end;
end.