Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- procedure buffer;
- 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('<button',s)-1);
- mass[i]:=Copy(s,1,Pos('>',s));
- Delete(s,1,Length(mass[i]));
- inc(i);
- if Pos('<button',s) = 0 then
- b:=false;
- end;
- for i:=1 to 100 do
- if mass[i] <> '' then
- if Pos(value,mass[i]) <> 0 then
- begin
- bypass := mass[i];
- delete(bypass,1,pos('action="',bypass)+17);
- bypass:=Copy(bypass,1,pos('"',bypass)-1);
- break;
- end;
- Engine.ByPassToServer(bypass);
- end;
- begin
- buff('Баффы мага'); //- Название нужной кнопки
- buff('HP,CP,MP');
- end;
- ///////////////////////////////////////////////////////////
- function deadCheck: Boolean;
- begin
- Result := false;
- if User.Dead then begin
- Result := true;
- Print('Dead. Pressing to village.');
- Delay(1000);
- Engine.GoHome;
- Delay(1000);
- end;
- end;
- ///////////////////////////////////////////////////////////
- var obj: TL2NPC;
- obj2: TL2Effect;
- Enemy: TL2Live;
- Begin
- while 1<>2 do begin // бесконечный цикл
- // этот кусок не трогаем
- if User.Dead then // умер- вырубаем интерфейс, возврат в город и пауза 15 секунд
- begin
- Engine.FaceControl(0,false);
- Engine.gohome;
- delay(15000);
- end;
- // этот кусок не трогаем
- //1 менять тут
- // этот кусок - точки респа выбранной деревни их просто заменить на нужную вам
- 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;
- // этот кусок - точки респа выбранной деревни
- //2 менять тут
- // точка которая указаная в инренж этот точка в которую видут все точки респа,
- //ее просто можно скопировать с конечной любой точки респа
- if User.inrange(147936, -55368, -2760, 250, 150) then begin // бежим к ГК и тпишмся в руины
- delay(2550);
- // тут указываем путь к нубскому баферу либо сразу к гк если мы не бафаемся
- Engine.MoveTo(147624, -55560, -2728);
- Engine.MoveTo(147320, -55688, -2744);
- // выделение нпц с ИД указанным в скобках,ид видны справа снизу в боте рядом с именем нпц
- Engine.SetTarget(31275);
- // открывем диалоговое окно и прожимаем строки ( у нас сначала 2 потом 15)
- Engine.DlgOpen();
- Engine.DlgSel(1);
- Engine.DlgSel(9); // руины страданий
- // эти точки ведут нас уже непосредственно на наш спот и по его достижению вкллючаем инфетфейс
- Engine.FaceControl(0,true);
- end;
- delay(550);
- end; delay(550);
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement