срипт_тт_евро_пвп х100

[k23]

Скрипт Работает на ура! Сам Юзаю

Спойлер

var obj: TL2NPC;
obj2: TL2Effect;
Enemy: TL2Live;
var Captcha:string;
// Buff
function Buff(value:string):boolean;
var
s:string;
bypass:string;
i:integer;
b:boolean;
mass:array [1..100] of string;
Obj: TL2Buff;
begin
Engine.Settarget('Buffer');
Engine.DlgOpen();
s:=Engine.DlgText;
b:=true;
i:=1;
while b do
begin
Delete(s,1,Pos(' mass:=Copy(s,1,Pos('>',s));
Delete(s,1,Length(mass));
inc(i);
if Pos(' b:=false;
end;
for i:=1 to 100 do
if mass <> '' then
if Pos(value,mass) <> 0 then
begin
bypass := mass;
delete(bypass,1,pos('action="',bypass)+17);
bypass:=Copy(bypass,1,pos('"',bypass)-1);
break;
end;
Engine.ByPassToServer(bypass);
end;
procedure dead;
begin
while (true) do
if User.Dead then // умер- вырубаем интерфейс, возврат в город и пауза 15 секунд
begin
Engine.gohome;
delay(15000);
Goddart();
GoHS();
end;
end;


procedure Goddart();
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;
end;

procedure WH();
begin

end;
procedure capcha;
begin
while (true) do
begin
Captcha := Engine.DlgText;
if (Pos('Send', Captcha) <> 0) then
PlaySound('Sounds/hp.wav',false);
pause;
Delay(1800);
end;
end;

procedure SendByPass; overload;
var
s: string;
begin
s:=Engine.DlgText;
Delete(s,1,Pos('action="',s)+17);
Delete(s,pos('"',s),length(s));
Engine.ByPassToServer(s);
end;





procedure Step_1(); // Берем квесты
BEGIN
Engine.SetTarget('Jeremy');
delay(1000);
Engine.DlgOpen;
delay(1000);
Engine.DlgSel(1);
delay(1000);
Engine.DlgSel(1);
delay(1000);
SendByPass;
delay(500);
Engine.DlgOpen;
delay(1000);
Engine.DlgSel(1);
delay(1000);
Engine.DlgSel(2);
delay(1000);
SendByPass;

END;


procedure Step_2(); // Респ - Беолин
BEGIN
Engine.MoveTo(149416,-112600,-2064);
Engine.MoveTo(149112,-112472,-2080);
Engine.MoveTo(148456,-112824,-2144);
Engine.MoveTo(147896,-113288,-2120);
Engine.MoveTo(147800,-113352,-2112);
Engine.MoveTo(147576,-113320,-2112);
delay(1000);
Engine.SetTarget('Beolin');
delay(1000);
Engine.DlgOpen;
delay(1000);
Engine.DlgSel(2);
delay(1000);
Engine.DlgSel(2);
delay(1000);
SendByPass;
END;



procedure Step_3(); // Беолин - Пулин
BEGIN
Engine.MoveTo(147768,-113400,-2112);
Engine.MoveTo(147928,-113384,-2120);
Engine.MoveTo(148280,-113368,-2112);
Engine.MoveTo(150168,-114136,-1936);
Engine.MoveTo(150984,-115000,-1648);
Engine.MoveTo(152312,-115016,-1584);
Engine.MoveTo(154216,-114984,-1552);
Engine.MoveTo(156504,-115368,-1808);
Engine.MoveTo(157192,-115592,-1888);
Engine.MoveTo(157496,-115800,-1904);
Engine.MoveTo(157624,-115496,-1904);
delay(1000);
Engine.SetTarget('Pulin');
delay(1000);
Engine.DlgOpen;
delay(1000);
Engine.DlgSel(2);
delay(1000);
Engine.DlgSel(1);
delay(1000);
SendByPass;
END;


procedure Step_4(); // Пулин - Баварин - Нафф
BEGIN
Engine.MoveTo(157592,-115272,-1904);
Engine.MoveTo(157624,-114952,-1904);
Engine.MoveTo(157416,-114104,-1872);
Engine.MoveTo(157048,-113848,-1784);
Engine.MoveTo(156664,-113512,-1776);
Engine.MoveTo(156424,-112632,-1792);
Engine.MoveTo(156168,-112056,-1912);
Engine.MoveTo(156152,-111912,-1960);
Engine.MoveTo(156280,-111816,-2152);
Engine.MoveTo(156328,-111464,-2440);
Engine.MoveTo(156328,-111256,-2552);
Engine.MoveTo(156360,-111064,-2576);
Engine.MoveTo(156680,-110584,-2608);
Engine.MoveTo(156744,-110328,-2672);
Engine.MoveTo(156904,-109720,-2664);
Engine.MoveTo(157192,-109368,-2672);

Engine.MoveTo(157128,-109192,-2656);
Engine.MoveTo(157176,-109144,-2648);
Engine.MoveTo(157112,-108568,-2672);
Engine.MoveTo(156616,-107864,-2640);
Engine.MoveTo(156024,-106792,-2704);
Engine.CancelTarget;
Engine.MoveTo(155928,-106120,-2736);
Engine.MoveTo(155928,-105992,-2728);
Engine.MoveTo(155672,-105752,-2752);
delay(1000);
Engine.SetTarget('Naff');
delay(1000);
Engine.DlgOpen;
delay(1000);
Engine.DlgSel(2);
delay(1000);
Engine.DlgSel(1);
delay(1000);
SendByPass;
END;


procedure Step_5(); // Нафф - Крокус
BEGIN
Engine.MoveTo(155560,-105448,-2752);
Engine.MoveTo(155176,-105016,-2752);
Engine.MoveTo(153832,-103000,-2976);
Engine.MoveTo(153560,-102360,-2848);
Engine.MoveTo(153096,-101896,-2752);
Engine.MoveTo(152680,-101592,-2888);
Engine.MoveTo(152040,-101384,-2896);
Engine.MoveTo(149256,-101128,-2872);
Engine.MoveTo(148696,-101048,-2912);
Engine.MoveTo(148280,-101080,-2968);
Engine.MoveTo(146584,-101288,-3096);
Engine.MoveTo(146120,-101896,-2912);
Engine.MoveTo(145960,-102120,-2944);
Engine.MoveTo(145880,-102360,-3136);
Engine.MoveTo(145672,-102616,-3424);
Engine.MoveTo(145080,-102920,-3536);
Engine.MoveTo(144328,-103048,-3552);
Engine.MoveTo(142568,-104568,-3616);
Engine.MoveTo(141656,-105448,-3616);
Engine.MoveTo(141080,-105656,-3616);
Engine.MoveTo(140776,-105512,-3632);
delay(1000);
Engine.SetTarget('Crocus');
delay(1000);
Engine.DlgOpen;
delay(1000);
Engine.DlgSel(2);
delay(1000);
Engine.DlgSel(1);
delay(1000);
SendByPass;
END;



procedure Step_6(); // Крокус - Кубер
BEGIN
Engine.MoveTo(140776,-105832,-3624);
Engine.MoveTo(140824,-106760,-3632);
Engine.MoveTo(141624,-107944,-3568);
Engine.MoveTo(141800,-108472,-3584);
Engine.MoveTo(141704,-108840,-3584);
Engine.MoveTo(141672,-109240,-3584);
Engine.MoveTo(141640,-109368,-3584);
delay(1000);
Engine.SetTarget('Kuber');
delay(1000);
Engine.DlgOpen;
delay(1000);
Engine.DlgSel(2);
delay(1000);
Engine.DlgSel(1);
delay(1000);
SendByPass;
delay(500);
Engine.DlgOpen;
delay(1000);
Engine.DlgSel(2);
delay(1000);
Engine.DlgSel(2);
delay(1000);
SendByPass;
END;




procedure Step_7(); // Кубер - Крокус
BEGIN
Engine.MoveTo(141800,-109144,-3584);
Engine.MoveTo(141720,-108344,-3584);
Engine.MoveTo(141704,-108104,-3568);
Engine.MoveTo(141144,-106104,-3632);
Engine.MoveTo(140696,-105496,-3632);
delay(1000);
Engine.SetTarget('Crocus');
delay(1000);
Engine.DlgOpen;
delay(1000);
Engine.DlgSel(2);
delay(1000);
Engine.DlgSel(2);
delay(1000);
SendByPass;
END;




procedure Step_8(); // Крокус - Нафф
BEGIN
Engine.MoveTo(140664,-105784,-3608);
Engine.MoveTo(140760,-106152,-3632);
Engine.MoveTo(141176,-106584,-3616);
Engine.MoveTo(141360,-106686,-3584);
Engine.MoveTo(142957,-107570,-3456);
Engine.MoveTo(144920,-108648,-3456);
Engine.MoveTo(146408,-108952,-3240);
Engine.MoveTo(148136,-108856,-2760);
Engine.MoveTo(149272,-108984,-2512);
Engine.MoveTo(149832,-110728,-2272);
Engine.MoveTo(152360,-111400,-2488);
Engine.MoveTo(154232,-109832,-2704);
Engine.MoveTo(155016,-107352,-2656);
Engine.MoveTo(155592,-105720,-2752);
delay(1000);
Engine.SetTarget('Naff');
delay(1000);
Engine.DlgOpen;
delay(1000);
Engine.DlgSel(2);
delay(1000);
Engine.DlgSel(2);
delay(1000);
SendByPass;
END;



procedure Step_9(); // Нафф - Пулин
BEGIN
Engine.MoveTo(155432,-106200,-2752);
Engine.MoveTo(155224,-106984,-2672);
Engine.MoveTo(155154,-107529,-2632);
Engine.MoveTo(152851,-110992,-2568);
Engine.MoveTo(150728,-112648,-2208);
Engine.MoveTo(150296,-113960,-1968);
Engine.MoveTo(150904,-114984,-1640);
Engine.MoveTo(154040,-114984,-1552);
Engine.MoveTo(156984,-115384,-1888);
Engine.MoveTo(157624,-115368,-1904);
delay(1000);
Engine.SetTarget('Pulin');
delay(1000);
Engine.DlgOpen;
delay(1000);
Engine.DlgSel(2);
delay(1000);
Engine.DlgSel(2);
delay(1000);
SendByPass;
END;



procedure Step_10(); // Пулин - BEGIN
Engine.MoveTo(157048,-115272,-1888);
Engine.MoveTo(156952,-115320,-1888);
Engine.MoveTo(155064,-115112,-1584);
Engine.MoveTo(152008,-114920,-1584);
Engine.MoveTo(149976,-114264,-1952);
Engine.MoveTo(149864,-113336,-2080);
Engine.MoveTo(149848,-112856,-2072);
Engine.MoveTo(149528,-112664,-2064);
Engine.MoveTo(149256,-112504,-2064);
Engine.MoveTo(148696,-112616,-2144);
Engine.MoveTo(147928,-113272,-2144);
Engine.MoveTo(147880,-113320,-2120);
Engine.MoveTo(147736,-113304,-2112);
Engine.MoveTo(147528,-113304,-2112);
delay(1000);
Engine.SetTarget('Beolin');
delay(1000);
Engine.DlgOpen;
delay(1000);
Engine.DlgSel(2);
delay(1000);
Engine.DlgSel(1);
delay(1000);
SendByPass;
END;


procedure Step_11(); // Сдача
BEGIN
Engine.MoveTo(147816,-113288,-2112);
Engine.MoveTo(148232,-113128,-2128);
Engine.MoveTo(149160,-112520,-2064);
Engine.MoveTo(149416,-112520,-2064);
Engine.MoveTo(149528,-112680,-2064);
delay(1000);
Engine.SetTarget('Jeremy');
delay(1000);
Engine.DlgOpen;
delay(1000);
Engine.DlgSel(1);
delay(1000);
Engine.DlgSel(1);
delay(1000);
SendByPass;
delay(500);
Engine.DlgOpen;
delay(1000);
Engine.DlgSel(1);
delay(1000);
Engine.DlgSel(2);
delay(1000);
SendByPass;
delay(1000);
Engine.UseItem(736);
Delay (25000);

END;

procedure Step_12(); // Годарт ВХ
BEGIN
Goddart();
Engine.MoveTo(147800,-55336,-2728);
Engine.MoveTo(147752,-55976,-2784);
Engine.MoveTo(147672,-58072,-2976);
Engine.MoveTo(146664,-58168,-2976);
Engine.MoveTo(146168,-57960,-2976);
Engine.MoveTo(146248,-57848,-2960);
Engine.MoveTo(146376,-57592,-2960);
Engine.MoveTo(146408,-57544,-2960);
Engine.SetTarget('Lietta');
Delay(1000);
Engine.DlgOpen;
Delay(1000);
Engine.DlgSel(4);
Delay(1000);
SendByPass;

END;


procedure Step_13(); // ВХ - Валентин
BEGIN
Engine.MoveTo(146328,-57688,-2960);
Engine.MoveTo(146120,-58072,-2976);
Engine.MoveTo(147176,-58344,-2976);
Engine.MoveTo(148589,-58073,-2976);
Engine.MoveTo(149224,-57960,-2976);
Engine.MoveTo(149112,-57640,-2968);
Engine.MoveTo(149272,-57400,-2968);
Engine.SetTarget('Valentine');
Delay(1000);
Engine.DlgOpen;
Delay(1000);
Engine.DlgSel(1);
Delay(1000);
SendByPass;

END;

procedure Step_14(); // Гроцери - ГК
BEGIN
Engine.MoveTo(149192,-57544,-2968);
Engine.MoveTo(149160,-57688,-2968);
Engine.MoveTo(149160,-58008,-2976);
Engine.MoveTo(147928,-58248,-2976);
Engine.MoveTo(147736,-58008,-2976);
Engine.MoveTo(147752,-55800,-2744);
Engine.MoveTo(147880,-55320,-2728);
END;

procedure GoHS();
begin
// Buff
buff('Исп. профиль');
delay(1500);
Engine.SetTarget('Tatiana');
Delay(1500);
Engine.DlgOpen;
Delay(2000);
Engine.DlgSel(6);
Delay(2000);
Engine.DlgSel(11);
Delay(15000);
end;
begin
while 1<>2 do begin // бесконечный цикл

begin
Script.NewThread(@dead);
Script.NewThread(@capcha);
Step_1();
Step_2();
Step_3();
Step_4();
Step_5();
Step_6();
Step_7();
Step_8();
Step_9();
Step_10();
Step_11();
Step_12();
Step_13();
Step_14();
GoHS();
end;
end;
end.

',s)>',s)-1);

 

[westalex]

Не работает скрипт Delete(s,1,Pos(' mass:=Copy(s,1,Pos('>',s));

 

[k23]

ну не знаю, я пользуюсь! всё ок

 

[PocT]

и вправду там не работает , мб посомтришь?

 

[savant]

Да тут даже без компилятора видно, что автор криво скрипт вставил

 

[k23]

Скрипт сделан под анг/бота