Хостинг, который использует TopHope.RU более 2-х лет

Хостинг, который использует TopHope.RU более 2-х лет

Сайт для программистов

Adrenaline сборник скриптов

Тема в разделе "Архив скриптов", создана пользователем MrTraC, июл 21, 2015.

  1. MrTraC

    MrTraC Старший модератор Команда форума Старший модератор

    Сообщения:
    423
    Симпатии:
    616
    Баллы:
    143
    Хорошо тхт сохранил)
    Код:
    uses sysutils,Classes;
    var
    charT:tl2live;
    obj:tl2effect;
    
    begin
    while engine.status = lsonline do begin
      if (user.target.valid) then if not (User.Buffs.byID(18,obj)) and not (User.Buffs.ByID(28,obj)) then    chart:=user.target;
      if not user.target.valid then while not (User.Target.name = chart.name) do Engine.SetTarget(chart.name);
    delay(100);
    end;
    end.
    

    Код:
    var
    item: TL2Item;
    
    begin
    while true do 
      if inventory.user.byid(10771, item) and not (Item.Equipped) then begin // 10771 ид пухи
        Delay(500);
        Engine.UseItem(10771); // Меняем
        Delay(800);
      end;
    end.
    

    Код:
    function keybd_event(bVk,bScan:byte;dwFlags,dwExtraInfo: integer): integer;  stdcall; external 'user32.dll';
    function SetCursorPos(x, y : integer): boolean; stdcall; external 'user32.dll';
    function mouse_event(dwFlags, dx, dy, dwData: byte; dwExtraInfo: integer): void; stdcall; external 'user32.dll';
    
    procedure pressKey(hexCode: BYTE);
    begin
      keybd_event(hexCode, 45, 1, 0 );
      delay(200);
    end;
    
    procedure mouseClick(x, y, _delay : integer);
    begin
      SetCursorPos(x, y);
      mouse_event($2, 0, 0, 0, 0);
      delay(_delay);
      mouse_event($4, 0, 0, 0, 0);
    end;
    
    begin
         //login
         pressKey($4C);
         pressKey($4F);
         pressKey($47);
         pressKey($49);
         pressKey($4E);
         //press tab
         pressKey($09);
         //pwd
         pressKey($50);
         pressKey($57);
         pressKey($44);
         //enter
         pressKey($0D);
         delay(1000);
         mouseClick(920, 740, 3000); //клик на соглашение
         delay(1000);
         mouseClick(960, 550, 1000); // клик на "принять сервер"
         delay(1000);
         mouseClick(960, 951, 1000); // кнопка старта на выборе чара. Хотя с этого момента можно уже использовать стандартные функции адреналина.
    end.
    

    Код:
    procedure runAway;
    begin
      Engine.MoveTo(11, 22, 33);
      //...
    end;
    
    procedure returnToSpot;
    begin
      Engine.MoveTo(11, 22, 33);
      //...
    end;
    
    procedure agroCheck;
    var
    i, n : integer;
    begin
       while True do begin
          n := 0;
    
          for i := 0 to NpcList.Count - 1 do begin
             if (NpcList.Items(i).Target = User) and not NpcList.Items(i).Dead then begin
                Inc(n);
                print(NpcList.Items(i).Name);    /// <<<<<<<<<<<<<<<<<<
             end;
        
             if i = NpcList.Count - 1 then print('-------------' + ' n = ' + n.ToString);   /// <<<<<<<<<<<<<<<<<<
          end;
    
          if (n > 1) or ((User.HP < 10) and User.InCombat) then begin
             print('Running n = ' + n.ToString);  /// <<<<<<<<<<<<<<<<<<
             Engine.FaceControl(0, False);
             Script.NewThread(@runAway);
             Engine.BlinkWindow(True);
             While User.InCombat do
                Delay(100);
             if not User.Dead then begin
                Engine.Restart;
                Engine.GameStart(0); //GameStart(CharIndex: cardinal) 0 = first CharIndex
                while not (Engine.Status = lsOnline) do
                   Delay(500);
                returnToSpot;
                Engine.FaceControl(0, True);
             end
             else begin
                Engine.GoHome;
                // код если всётаки умерли
             end;
          end;
    
          Delay(500); // two checks per second
    
       end;
    end;
    
    begin
       Script.NewThread(@agroCheck);
    end.
    
    Сами вписываем куда убегать (runAway) и куда возвращаться (returnToSpot).

    if (n > 1) or ((user.hp < 10) and user.inCombat) then
    Здесь n число мобов, которое на нас сагрилось.
    User.HP наше хп%.
    В данном случае мы начнём убегать, если на нас сагрилось больше 1 моба или у нас меньше 20% хп, тогда релогаемся и бежим обратно.

    Ещё можно изменить эту строчку на
    if (n > 1) or ((user.hp < 10) and user.inCombat) or inDanger then

    и добавить фикцию в код
    Код:
    function inDanger: boolean;
    var mobsInTrain,minMobs,i,j: integer;
    begin
    Result := false;
    minMobs := 3;
        for i:=0 to charlist.count-1 do begin
            mobsInTrain := 0;
            if (user.distto(charlist.items(i)) < 3000) and charlist.items(i).moved then begin //close, runing
                for j:=0 to npclist.count-1 do begin
                    if (npclist.items(j).target = charlist.items(i)) and (charlist.items(i).distto(npclist.items(j)) < 1500) then inc(mobsInTrain);
                    if (mobsInTrain >= minMobs) then begin
                        Result := true;
                        exit;
                    end;
                end;
            end;
        end;
    end;
    

    Код:
    function GetAsyncKeyState(vKey: integer): integer; stdcall; external 'user32.dll';
    begin
    while true do begin
    
    begin
      while GetAsyncKeyState([b]120[/b])=0 do Delay(100);
      [b]тут чо будет делать при нажатии на клаву[/b]
    end;
    delay(100);
    end;
    end;
    end.
    

    Код:
    uses SysUtils, Classes;
    
    var Figth_Flag:boolean;
         Item: TL2Item;
         Npc: TL2Npc;
         Obj: TL2Buff;
         IdBuff: integer;
         Buffs:TL2Buff;
    var L2Skill: TL2Skill;
    
    
    procedure toVillage;
    begin
      Delay(100);
        if (User.HP=0) then
          begin
           Delay(7000);
           Engine.GoHome;
           Engine.Facecontrol(0,False);
           Buff;
          end;
    end;
    
    
    procedure buff;
    begin
       Engine.MoveTo(-14092, 123203, -3117);
       Engine.SetTarget('BUFFER');
       Engine.DlgOpen;
       Engine.DlgSel(1);
       Engine.DlgSel(3);
       RunTo;
    end;
    
    
    procedure RunTo;
    begin
        Engine.MoveTo(-14215+random(50), 123730+random(50), -3112);
        Engine.MoveTo(-14275+random(50), 124657+random(50), -3120);
        Engine.MoveTo(-14231+random(50), 125668+random(50), -3136);
        Engine.MoveTo(-14121+random(50), 126691+random(50), -3152);
        Engine.MoveTo(-13804+random(50), 127792+random(50), -3264);
        Engine.MoveTo(-12614+random(50), 129469+random(50), -3600);
        Engine.MoveTo(-11936, 129644, -3672);
        Fight;
    end;
    
    
    procedure toBuff;
      begin
      IdBuff:=1357 ;
       while not User.Buffs.ById(IdBuff,obj) do begin
            Print('нет бафа');
            Engine.EnterText('/unstuck');
            Delay(20000);
            buff;
       end;
    end;
    
    
    procedure Fight;
       begin
        Delay(500);
        Engine.LoadConfig('1');    //Название Вашего конфига
        Engine.LoadZone('1.zmap');
        Print('Фарм');
        toVillage;
        Engine.Facecontrol(0,True);
    end;
    
    
    //-----------------------------------------------------------------------------
    begin
      repeat
       toBuff;
       toVillage;
      until Engine.Status = lsOffline;
      Delay(5000);
    end.
    

    Код:
    uses SysUtils, ICQ;
    
    const ICQUin = 12341234; //ICQ на которую будет заходить бот
    ICQPas = 'пароль'; //Пароль для входа
    ICQContact = 44445555; //ICQ кому нужно писать
    
    type
    TMyICQ = class(TICQ)
    public
    procedure OnMessageRecv(Sender: tobject; Msg, UIN: string); override;
    end;
    
    var
    MyICQ: TMyICQ;
    IcqLog: boolean = false;
    
    
    procedure TMyICQ.OnMessageRecv(Sender: tobject; Msg, UIN: string);
    begin
    if Msg = 'Да' then begin
    MyICQ.SendMessage(ICQContact, 'ОК! Начинаю логировать...');
    IcqLog := true;
    end;
    end;
    
    procedure Log(S: string);
    begin
    if IcqLog then MyICQ.SendMessage(ICQContact, S);
    end;
    
    procedure OnFree; //Вызывается перед остановкой скрипта, для очистки ресурсов
    begin
    Log('Все, давай, ББ - я офф =)');
    IcqLog := false;
    MyICQ.Free;
    end;
    
    procedure Fight;
    begin
    Log('Fight! Иду убивать его > ' + User.Target.Name);
    if User.DistTo(User.Target) > 100 then engine.MoveToTarget(-50);
    with engine do while not User.Target.Dead do Attack(1000);
    Log('Завалил! Мои HP = ' + inttostr(User.HP) + '%');
    end;
    
    
    begin
    MyICQ := TMyICQ.create;
    if MyICQ.Connect(ICQUin, ICQPas) then begin
    MyICQ.SendMessage(ICQContact, 'Привет! Узнал? Это я - твой бот =)');
    MyICQ.SendMessage(ICQContact, 'Тебе логировать в аську: Да / Нет ?');
    end;
    delay(-1);
    end.
    
    by Elite <
    

    Код:
            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;
    
    if User.inrange(-14704,122032,-3056, 250, 150) then begin
          Engine.MoveTo(-14704,122032,-3056);
          Engine.MoveTo(-14538,122671,-3116);
          Engine.MoveTo(-14599,123458,-3113);
          Engine.MoveTo(-14510,124033,-3125);
        end;
        if User.inrange(-13709,123563,-3112, 250, 150) then begin
          Engine.MoveTo(-13709,123563,-3112);
          Engine.MoveTo(-14115,123802,-3119);
          Engine.MoveTo(-14510,124033,-3125);
        end;
        if User.inrange(-14465,124434,-3120, 250, 150) then begin
          Engine.MoveTo(-14465,124434,-3120);
          Engine.MoveTo(-14510,124033,-3125);
        end;
        if User.inrange(-13513,123752,-3112, 250, 150) then begin
          Engine.MoveTo(-13513,123752,-3112);
          Engine.MoveTo(-14245,123748,-3109);
          Engine.MoveTo(-14510,124033,-3125);
        end;
        if User.inrange(-15564,123896,-3112, 250, 150) then begin
          Engine.MoveTo(-15564,123896,-3112);
          Engine.MoveTo(-14813,123869,-3124);
          Engine.MoveTo(-14510,124033,-3125);
        end;
        if User.inrange(-14288,122752,-3112, 250, 150) then begin
          Engine.MoveTo(-14288,122752,-3112);
          Engine.MoveTo(-14525,123547,-3109);
          Engine.MoveTo(-14510,124033,-3125);
        end;
        if User.inrange(-15314,124131,-3112, 250, 150) then begin
          Engine.MoveTo(-15314,124131,-3112);
          Engine.MoveTo(-14710,123973,-3122);
          Engine.MoveTo(-14510,124033,-3125);
        end;
        if User.inrange(-14592,123232,-3112, 250, 150) then begin
          Engine.MoveTo(-14592,123232,-3112);
          Engine.MoveTo(-14510,124033,-3125);
        end;
    
    
           if User.inrange(-14510,124033,-3125, 250, 150) then begin    // бежим к ГК и тпишмся в руины
            delay(2550);
              Engine.MoveTo(-14136, 123752, -3104);
              Engine.MoveTo(-12744, 123544, -3104);
              Engine.MoveTo(-12280, 123432, -3088);
              Engine.MoveTo(-12392, 122920, -3088);
              Engine.SetTarget(30256);
              Engine.DlgOpen();
              Engine.DlgSel(2);
                  Engine.DlgSel(15);    // руины страданий
    end;
    
        if User.inrange(-41221, 122790, -2896, 250, 150) then begin    // точка под собйо после телепорта
            delay(2550);
    Engine.MoveTo(-42151, 122807, -2876);
    Engine.MoveTo(-43800, 122840, -2640);
    
               Engine.FaceControl(0,true);
                       end;
           delay(550);
        end;     delay(550);
        end.
    

    Код:
    var
    shot: TL2Item;
    Item: TL2Item;
    qItem: TL2Item;
    shw: TL2Item;
    function CheckStatus: Boolean;  //proverka smerti
    begin
    Result:=true;
        if User.Dead then begin
            Print('Dead. Pressing to village.');
            Delay(1000);
            Engine.FaceControl(0,false);
            Engine.GoHome;
            Delay(10000);
        end;
    Result:=false;
    end;
    procedure create;  // sozadl chara i vibil gem
    begin
         Engine.Settarget(30400);  // newbie gid
         Delay(1500);
         Engine.DlgOpen;
         Delay(1500);
         Engine.DlgSel(1);
         Delay(1500);
         Engine.MoveTo(46040, 41528, -3488);  // podoiti k gremlinam
         Engine.LoadZone('zona');
         Engine.Loadconfig('config');
         Engine.FaceControl(0, true);
    end;
    procedure tpkam; // tp v kamael vilage
    begin
         print('1');
         Engine.FaceControl(0, false);
         Delay(1500);
         Engine.MoveTo(46120, 41224, -3488);
         Engine.Settarget(30400); // newbie gid ( s sinim gemom)
         Delay(1500);
         Engine.DlgOpen;
         Delay(1500);
         Engine.DlgSel(1);
         Delay(1500);
         Engine.Settarget(30370);  // kakoi to hui kotorii tp v kamael delaet
         Delay(1500);
         Engine.DlgOpen;
         Delay(1500);
         Engine.DlgSel(1);
         Delay(1500);
         Engine.DlgSel(2);
         Delay(1500);
         Engine.DlgSel(1);
         Delay(1500);
         Engine.DlgSel(2);
         Delay(1500);
         print('done');
    end;
    function woodenset: boolean;  // berem kvest na set
    begin
         Engine.MoveTo(-119752, 44504, 376);
         Engine.Settarget(32135);  // npc buffer (soski)
         Delay(1500);
         Engine.Dlgopen;
         Engine.MoveTo(-119640, 45784, 400);
         Engine.MoveTo(-119512, 47816, 400);
         Engine.MoveTo(-119384, 49192, 32);
         Engine.Settarget(32173); // npc na wooden set
         Delay(1500);
         Engine.Dlgopen;
         Delay(1500);
         Engine.DlgSel(3);
         Delay(1500);
         Engine.DlgSel(1);
         Delay(1500);
         Engine.DlgSel(1);
         Delay(1500);
         Engine.MoveTo(-119416, 47928, 400);
         Engine.MoveTo(-119320, 46920, 376);
         Engine.MoveTo(-116824, 45784, 376);
         Engine.MoveTo(-115992, 45560, 520);
         Engine.MoveTo(-115208, 44632, 528);
         Engine.MoveTo(-115000, 44648, 528);
         Engine.Settarget(32170);  // wh npc
         Engine.Dlgopen;
         Delay(1500);
         Engine.DlgSel(5);
         Delay(1500);
         Engine.MoveTo(-115560, 44728, 512);
         Engine.MoveTo(-118888, 46888, 376);
         Engine.MoveTo(-119350, 47038, 381);
         Engine.MoveTo(-119416, 48552, 248);
         Engine.MoveTo(-119368, 49208, 24);
         Engine.Settarget(32173);  // npc na set
         Engine.Dlgopen;
         Delay(1500);
         Engine.DlgSel(3);
         Delay(1500);
         Engine.DlgSel(1);
         Delay(1500);
         Engine.MoveTo(-119381, 47992, 378);
         Engine.MoveTo(-119336, 47016, 376);
         Engine.MoveTo(-117192, 47640, 472);
         Engine.MoveTo(-117144, 47976, 472);
         Engine.Settarget(32167);   //npc v grocery
         Engine.Dlgopen;
         Delay(1500);
         Engine.DlgSel(3);
         Delay(1500);
         Engine.MoveTo(-117176, 47640, 472);
         Engine.MoveTo(-117606, 47446, 462);
         Engine.MoveTo(-119240, 47688, 464);
         Engine.MoveTo(-119368, 47944, 392);
         Engine.MoveTo(-119368, 49192, 32);
         Engine.Settarget(32173);  // npc na set
         Engine.Dlgopen;
         Delay(1500);
         Engine.DlgSel(3);
         Delay(1500);
         Engine.DlgSel(1);
         Delay(1500);
         Engine.MoveTo(-119400, 47960, 384);
         Engine.MoveTo(-119672, 44632, 376);
         Engine.Settarget(32135);  // newbie gid wadow pyha (magicheskaya)
         Engine.Dlgopen;
         Delay(1500);
         Engine.DlgSel(7);
         Delay(1500);
         Engine.DlgSel(1);
         Delay(1500);
         Engine.Dlgopen;
         Delay(1500);
         Engine.DlgSel(7);
         Delay(1500);
         Engine.DlgSel(1);
         Delay(1500);
         Engine.Dlgopen;
         Delay(1500);
         Engine.DlgSel(7);
         Delay(1500);
         Engine.DlgSel(2);
         Delay(1500);
         Engine.NpcExchange(10474,1);
         Delay(1500);
         Engine.Settarget(32135);
         Engine.Dlgopen;
         Delay(1500);
         Engine.DlgSel(5);
         print('done 2');
    end;
    function shots:boolean;    // berem kvest na soski i odevaem wmot i bejim kachatsya
    begin
        Engine.Useitem(10474);
        Delay(500);
        Engine.Useitem(906);
        Delay(500);
        Engine.Useitem(113);
        Delay(500);
        Engine.Useitem(875);
        Delay(500);
        Delay(500);
        Engine.Useitem(37);
        Delay(500);
        Engine.Useitem(49);
        Delay(500);
        Engine.Useitem(43);
        Delay(500);
        Engine.Useitem(464);
        Delay(500);
        Engine.Useitem(429);
        Delay(500);
        Engine.MoveTo(-119240, 45240, 376);
        Engine.MoveTo(-119512, 46552, 384);
        Engine.MoveTo(-119448, 48536, 248);
        Engine.MoveTo(-119384, 49192, 32);
        Engine.Settarget(32173);
        Engine.Dlgopen;
        Delay(1500);
        Engine.DlgSel(3);
        Delay(1500);
        Engine.DlgSel(2);
        Delay(1500);
        Engine.DlgSel(1);
        Delay(1500);
        Engine.MoveTo(-119384, 47160, 400);
        Engine.MoveTo(-119144, 46728, 376);
        Engine.MoveTo(-116920, 46584, 368);
        Engine.Settarget(32181);
        Engine.Dlgopen;
        Delay(1500);
        Engine.DlgSel(1);
        Delay(1500);
        Engine.DlgSel(8);
        Delay(1500);
        Engine.MoveTo(-122296, 73848, -2856);
        Engine.MoveTo(-122552, 76856, -3200);
        Engine.MoveTo(-121960, 79224, -3176);
        Engine.MoveTo(-121704, 80344, -3104);
        Engine.Loadconfig('config');
        Delay(1000);
        Engine.LoadZone('zona');
        Engine.FaceControl(0, true);
    end;
    function getshots: boolean;  // sdaem soski
    begin
        Engine.FaceControl(0, false);
        Engine.Useitem(9716);
        Delay(10000);
        Engine.MoveTo(-118408, 46216, 376);
        Engine.MoveTo(-119384, 47032, 376);
        Engine.MoveTo(-119400, 48408, 248);
        Engine.MoveTo(-119384, 49208, 24);
        Engine.Settarget(32173);
        Engine.Dlgopen;
        Delay(1500);
        Engine.DlgSel(3);
        Delay(1500);
        Engine.DlgSel(2);
        Delay(1500);
        Engine.DlgSel(1);
        Delay(1500);
    end;
    begin
    if (user.level = 1) and  user.inrange(46182, 41198, -3424, 200) then Script.Newthread(@create);
      while Engine.Status = lsOnline do
        begin
        delay(1500);
        if Inventory.User.ByID(6353, item) and (item.count = 1)and (user.level = 3) then tpkam;
    checkstatus;
        end;
    end.
    
     
    Последнее редактирование: авг 14, 2015
    6aPmaJIei, Electronik, Firest и ещё 1-му нравится это.
  2. MrTraC

    MrTraC Старший модератор Команда форума Старший модератор

    Сообщения:
    423
    Симпатии:
    616
    Баллы:
    143
    Код:
    Фарм в тяж1+Баф(сохранить в профиле1) с возвратом на место фарма
    Включать только в адене
    Код:
    var obj: TL2NPC;
        obj2: TL2Effect;
    
       Enemy: TL2Live;
    Begin
    while 1<>2 do begin
    
    
          if User.Dead then
           begin
    Engine.FaceControl(0,false);
    Engine.gohome;
    delay(15000);
    end;
    
    if User.inrange(146811,27109,-2231,500)  then
    begin
     Engine.MoveTo(146811,27109,-2231);
     Engine.MoveTo(147289,26926,-2229);
     Engine.MoveTo(147267,26400,-2185);
     Engine.MoveTo(147266,26195,-2103);
     Engine.MoveTo(147250,25969,-2039);
     Engine.MoveTo(147206,25899,-2039);
     Engine.MoveTo(147138,25906,-2039);
    
    end;
    if User.inrange(146810,28059,-2294,500)  then
    begin
     Engine.MoveTo(146810,28059,-2294);
     Engine.MoveTo(146847,27874,-2294);
     Engine.MoveTo(147004,27611,-2294);
     Engine.MoveTo(147004,27611,-2294);
     Engine.MoveTo(147004,27611,-2232);
     Engine.MoveTo(147244,26822,-2230);
     Engine.MoveTo(147267,26400,-2185);
     Engine.MoveTo(147266,26195,-2103);
     Engine.MoveTo(147250,25969,-2039);
     Engine.MoveTo(147206,25899,-2039);
     Engine.MoveTo(147138,25906,-2039);
    
    end;
    if User.inrange(145686,21112,-2167,500)  then
    begin
     Engine.MoveTo(145686,21112,-2167);
     Engine.MoveTo(145697,21616,-2167);
     Engine.MoveTo(145050,22609,-2167);
     Engine.MoveTo(145218,23947,-2167);
     Engine.MoveTo(146377,24455,-2039);
     Engine.MoveTo(146484,25685,-2039);
     Engine.MoveTo(147130,25700,-2039);
     Engine.MoveTo(147112,25921,-2039);
    
    end;
    if User.inrange(148076,27069,-2231,500)  then
    begin
     Engine.MoveTo(148076,27069,-2231);
     Engine.MoveTo(147666,27110,-2230);
     Engine.MoveTo(147308,26954,-2230);
     Engine.MoveTo(147267,26400,-2185);
     Engine.MoveTo(147266,26195,-2103);
     Engine.MoveTo(147250,25969,-2039);
     Engine.MoveTo(147206,25899,-2039);
     Engine.MoveTo(147138,25906,-2039);
    
    end;
    if User.inrange(148949,21125,-2167,500)  then
    begin
     Engine.MoveTo(148949,21125,-2167);
     Engine.MoveTo(146122,21227,-2167);
     Engine.MoveTo(145697,21616,-2167);
     Engine.MoveTo(145050,22609,-2167);
     Engine.MoveTo(145218,23947,-2167);
     Engine.MoveTo(146377,24455,-2039);
     Engine.MoveTo(146484,25685,-2039);
     Engine.MoveTo(147130,25700,-2039);
     Engine.MoveTo(147112,25921,-2039);
    
    end;
    if User.inrange(144549,22828,-2167,500)  then
    begin
     Engine.MoveTo(144549,22828,-2167);
     Engine.MoveTo(145697,21616,-2167);
     Engine.MoveTo(145050,22609,-2167);
     Engine.MoveTo(145218,23947,-2167);
     Engine.MoveTo(146377,24455,-2039);
     Engine.MoveTo(146484,25685,-2039);
     Engine.MoveTo(147130,25700,-2039);
     Engine.MoveTo(147112,25921,-2039);
    
    end;
    if User.inrange(144543,24666,-2167,500)  then
    begin
     Engine.MoveTo(144543,24666,-2167);
     Engine.MoveTo(145279,24307,-2167);
     Engine.MoveTo(146377,24455,-2039);
     Engine.MoveTo(146484,25685,-2039);
     Engine.MoveTo(147130,25700,-2039);
     Engine.MoveTo(147112,25921,-2039);
    
    end;
    if User.inrange(146497,30582,-2487,500)  then
    begin
     Engine.MoveTo(146497,30582,-2487);
     Engine.MoveTo(147058,30323,-2487);
     Engine.MoveTo(147427,29959,-2487);
     Engine.MoveTo(147427,29339,-2295);
     Engine.MoveTo(147373,28351,-2294);
     Engine.MoveTo(147100,27643,-2294);
     Engine.MoveTo(147246,26930,-2230);
     Engine.MoveTo(147267,26400,-2185);
     Engine.MoveTo(147266,26195,-2103);
     Engine.MoveTo(147250,25969,-2039);
     Engine.MoveTo(147206,25899,-2039);
     Engine.MoveTo(147138,25906,-2039);
    
    end;
    if User.inrange(144648,29158,-2487,500)  then
    begin
     Engine.MoveTo(144648,29158,-2487);
     Engine.MoveTo(144966,28868,-2487);
     Engine.MoveTo(145110,27659,-2295);
     Engine.MoveTo(146220,27622,-2231);
     Engine.MoveTo(147108,27272,-2231);
     Engine.MoveTo(147224,26929,-2230);
     Engine.MoveTo(147267,26400,-2185);
     Engine.MoveTo(147266,26195,-2103);
     Engine.MoveTo(147250,25969,-2039);
     Engine.MoveTo(147206,25899,-2039);
     Engine.MoveTo(147138,25906,-2039);
    
    end;
    if User.inrange(150247,29109,-2487,500)  then
    begin
     Engine.MoveTo(150247,29109,-2487);
     Engine.MoveTo(149921,28836,-2487);
     Engine.MoveTo(149859,28063,-2339);
     Engine.MoveTo(149776,27675,-2295);
     Engine.MoveTo(148731,27683,-2231);
     Engine.MoveTo(148224,27383,-2231);
     Engine.MoveTo(147306,26932,-2230);
    
    end;
    if User.inrange(147848,30309,-2487,500)  then
    begin
     Engine.MoveTo(147848,30309,-2487);
     Engine.MoveTo(147677,30089,-2487);
     Engine.MoveTo(147462,29870,-2447);
     Engine.MoveTo(147462,29413,-2295);
     Engine.MoveTo(147335,28272,-2294);
     Engine.MoveTo(147108,27664,-2294);
     Engine.MoveTo(147194,26961,-2229);
     Engine.MoveTo(147267,26400,-2185);
     Engine.MoveTo(147266,26195,-2103);
     Engine.MoveTo(147250,25969,-2039);
     Engine.MoveTo(147206,25899,-2039);
     Engine.MoveTo(147138,25906,-2039);
    
    end;
    if User.inrange(144651,26680,-2295,500)  then
    begin
     Engine.MoveTo(144651,26680,-2295);
     Engine.MoveTo(144681,27050,-2294);
     Engine.MoveTo(144936,27135,-2295);
     Engine.MoveTo(145145,27605,-2295);
     Engine.MoveTo(146182,27682,-2231);
     Engine.MoveTo(146921,27360,-2231);
     Engine.MoveTo(147218,26948,-2229);
     Engine.MoveTo(147267,26400,-2185);
     Engine.MoveTo(147266,26195,-2103);
     Engine.MoveTo(147250,25969,-2039);
     Engine.MoveTo(147206,25899,-2039);
     Engine.MoveTo(147138,25906,-2039);
    
    end;
    if User.inrange(148557,30461,-2487,500)  then
    begin
     Engine.MoveTo(148557,30461,-2487);
     Engine.MoveTo(148114,30076,-2487);
     Engine.MoveTo(147453,30049,-2487);
     Engine.MoveTo(147474,29710,-2368);
     Engine.MoveTo(147397,28461,-2294);
     Engine.MoveTo(147044,27389,-2231);
     Engine.MoveTo(147242,26823,-2230);
     Engine.MoveTo(147267,26400,-2185);
     Engine.MoveTo(147266,26195,-2103);
     Engine.MoveTo(147250,25969,-2039);
     Engine.MoveTo(147206,25899,-2039);
     Engine.MoveTo(147138,25906,-2039);
    
    end;
    if User.inrange(147971,27982,-2294,500)  then
    begin
     Engine.MoveTo(147971,27982,-2294);
     Engine.MoveTo(147846,27354,-2231);
     Engine.MoveTo(147265,26878,-2230);
     Engine.MoveTo(147267,26400,-2185);
     Engine.MoveTo(147266,26195,-2103);
     Engine.MoveTo(147250,25969,-2039);
     Engine.MoveTo(147206,25899,-2039);
     Engine.MoveTo(147138,25906,-2039);
    end;
    
    begin
    Engine.MoveTo(147395, 25788, -2008);
    Engine.MoveTo(147778, 25652, -2008);
    Engine.SetTarget(42320);
    Engine.DlgOpen();
    Engine.DlgSel(7); 
    delay(5000);
    end;
    
    begin
    Engine.MoveTo(147455, 25762, -2008);
    Engine.MoveTo(146787, 25814, -2008);
    Engine.SetTarget(30848);
    Engine.DlgOpen();
    Engine.DlgSel(1); 
    Engine.DlgSel(12);
    delay(10000);
    end;
    
    if user.InRange(188597, 20607, -3704,300,300) then   begin
    ////////////////////////////////////////////////////ЗАМЕНЯЕМ НА СВОЙ ПУТЬ К ТОЧКЕ ФАРМА
    Engine.MoveTo(189283, 20919, -3688);
    Engine.MoveTo(190514, 21413, -3664);
    Engine.MoveTo(189781, 22575, -3718);
    Engine.MoveTo(189073, 22949, -3712);
    ////////////////////////////////////////////////////ЗАМЕНЯЕМ НА СВОЙ ПУТЬ К ТОЧКЕ ФАРМА
    Engine.FaceControl(0,true);
    end;
    delay(6000);
    end;
    end.
    

    Код:
    var Item:TL2Item;
    
    Begin
    while 1<>2 do begin
    
    if User.Dead then
    begin
    Engine.FaceControl(0,false);
    Engine.gohome;
    delay(15000);
    end;
    if (Inventory.User.ByID(728,Item)) and (Item.Count < 55) then begin // докуп мп
    Engine.BypassToServer('_bbshome', True) ;
    Engine.BypassToServer('_bbspage:Shop_equip', True) ;
    Engine.BypassToServer('_bbspage:Shop_сonsume', True) ;
    Engine.BypassToServer('_bbsmultisell:200011;_bbspage:Shop_сonsume', True) ;
    Engine.NPCExchange(728, 111);
    end;
    delay(1000);
    if user.InRange(119862, 76603, -2256,31700) then begin // проверка на место в городе
    Engine.SendMail('theTest', 'тема', 'комент',[9550,100,6622,50]); // скидываем кодексы и камни тьмы
    delay(3300);
    Engine.BypassToServer('_bbshome', True) ; \\баф
    delay(1000);
    Engine.BypassToServer('_bbsbuffer', True) ;
    delay(1000);
    Engine.BypassToServer('_bbscastgroupbuff 2 Player', True) ;
    delay(1000);
    Engine.BypassToServer('_bbshome', True) ; // тп в дв
    delay(1000);
    Engine.BypassToServer('_bbsteleport', True) ;
    delay(1000);
    Engine.BypassToServer('_bbsteleport:page teleport_location', True) ;
    delay(1000);
    Engine.BypassToServer('_bbsteleport:page teleport_villages_locations_huntersvillage', True) ;
    delay(1000);
    Engine.BypassToServer('_bbsteleport:go 73024 118485 -3688', True) ;
    Delay(12000);
    end;
    Delay(1000);
    if user.InRange(73128, 118280, -3696, 777) then begin // проверка на место в дв
    Engine.MoveTo(73982, 117879, -3701);
    Engine.MoveTo(75320, 117512, -3744);
    Engine.MoveTo(77316, 117125, -3772);
    Engine.MoveTo(79544, 115608, -3712);
    Engine.MoveTo(79208, 113160, -3224);
    Engine.MoveTo(79016, 112440, -3056);
    Engine.MoveTo(79224, 111352, -2960);
    Engine.MoveTo(79589, 110995, -2975);
    Engine.MoveTo(80520, 110040, -3040);
    engine.facecontrol(0, true); //включаем инт
    end;
    end;
    end.
    

    Код:
    uses zubat;
    begin
    while Engine.Status= lsOnline do begin
    if  User.Level<7 then lvl1to7;
    if (User.Level>=7)    and (User.Level<18)   then lvl7to18;
    if (User.Level >= 18) and (User.Level < 20) then changeclass1;
    if (User.Level >= 20) and (User.Level < 40) then gotoGludio;
    if (User.Level >= 40) and (User.Level < 46) then gotoQuest;
    if (User.Level >= 46) and (User.Level < 52) then kekropusq2;
    if (User.Level >= 52) and (User.Level < 58) then kekropusq3;
    if (User.Level >= 58) and (User.Level < 61) then kekropusq4;
    if (User.Level >= 61) and (User.Level < 65) then kekropusq5;
    if (User.Level >= 65) and (User.Level < 70) then kekropusq6;
    if (User.Level >= 70) and (User.Level < 76) then kekropusq7;
    if (User.Level >= 76) and (User.Level < 81) then kekropusq8;
    if (User.Level >= 81) and (User.Level < 85) then kekropusq9;
    if User.Level >= 85 then kartia;
    
      end; 
    end.
    

    Код:
    unit 
        Collecting_Spores_Quest;
    
    interface
    
    uses     SysUtils, Classes, RespPoint_ElvenVillage, Utils;
    const 
        QuestItemId = 1118;
       
        QuestId = 313;
       
        //iee a?aeaa?a
        PmUserName = '';
       
        //Eiy eaanoiaiai IIO
        QuestNpcName = 'Aa?aeyeu';
       
        //ioi?aaeyou ee niiauaiey a ee?eo a?aeaa?o
        ShouldPmToDriver = true;
    
        //iaeneiaeuiia eiee?anoai nia?oae 
        MaxDeathsCount = 5;
    
    implementation
    
    var deathCounts: Integer;
    
    procedure TakeQuest;
    begin
        Engine.SetTarget(QuestNpcName);
        Utils.RandomDelay(300, 500);
        Engine.DlgOpen();
        Utils.RandomDelay(300, 500);
        Engine.DlgSel(3);
        Utils.RandomDelay(500, 1500);
        Engine.DlgSel(1);
        Utils.RandomDelay(500, 1500);
        Engine.DlgSel(1);
        Utils.RandomDelay(500, 1500);
    end;
    
    procedure EndQuest;
    begin
        Engine.SetTarget(QuestNpcName);
        Utils.RandomDelay(300, 500);
        Engine.DlgOpen();
        Utils.RandomDelay(500, 1500);
        Engine.DlgSel(3);
        Utils.RandomDelay(500, 1500);
    end;
    
    procedure MoveToSpot;
    begin
      Engine.MoveTo(42914, 50649, -2984);
      Utils.RandomDelay(300, 800);
      Engine.MoveTo(42913, 51193, -2992);
      Utils.RandomDelay(300, 800);  
      Engine.MoveTo(42019, 51869, -3016);
      Utils.RandomDelay(300, 500);
      Engine.MoveTo(40562, 52983, -3256);
      Utils.RandomDelay(400, 800);
      Engine.MoveTo(40819, 53861, -3304);
      Utils.RandomDelay(400, 800);
      Engine.MoveTo(42024, 56669, -3648);
      Utils.RandomDelay(400, 800);
      Engine.MoveTo(42815, 58504, -3672);
      Utils.RandomDelay(400, 800);
      Engine.MoveTo(41859, 59476, -3568);
      Utils.RandomDelay(400, 800);
      Engine.MoveTo(39698, 60227, -3592);
      Utils.RandomDelay(400, 800);
      Engine.MoveTo(38537, 60272, -3552);
      Utils.RandomDelay(400, 800);
      Engine.MoveTo(37345, 60235, -3584);
      Utils.RandomDelay(400, 800);  
    end;
    
    procedure MoveToNpc;
    begin
      Engine.MoveTo(43945, 50257, -3056);
      Utils.RandomDelay(100, 200);
      Engine.MoveTo(43428, 50329, -2992);
      Utils.RandomDelay(100, 200);
      Engine.MoveTo(43031, 50033, -2984);
      Utils.RandomDelay(100, 200);
      Engine.MoveTo(42847, 50061, -2976);
      Utils.RandomDelay(100, 200);  
    end;
    
    
    procedure MoveHome;
    begin
      Engine.MoveTo(37345, 60235, -3584);
      Utils.RandomDelay(100, 200);
      Engine.MoveTo(36982, 58862, -3648);
      Utils.RandomDelay(100, 200);
      Engine.MoveTo(36376, 56651, -3664);
      Utils.RandomDelay(100, 200);
      Engine.MoveTo(36155, 55622, -3536);
      Utils.RandomDelay(100, 200);
      Engine.MoveTo(36130, 54336, -3496);
      Utils.RandomDelay(100, 200);
      Engine.MoveTo(36531, 53598, -3576);
      Utils.RandomDelay(100, 200);
      Engine.MoveTo(38101, 53966, -3600);
      Utils.RandomDelay(100, 200);
      Engine.MoveTo(40703, 52809, -3224);
      Utils.RandomDelay(100, 200);
      Engine.MoveTo(41763, 52043, -3032);
      Utils.RandomDelay(100, 200);
      Engine.MoveTo(42882, 51188, -2992);
      Utils.RandomDelay(100, 200);
      Engine.MoveTo(42912, 50633, -2984);
      Utils.RandomDelay(100, 200);
      Engine.MoveTo(42847, 50061, -2976);  
    end;
    
    procedure ExecuteCollectingSporesQuest;
    var 
        index: Integer;
        item:TL2Item;
        tempStr:string;
        lastsporecount:Integer;
    begin
    
        if(User.Dead) then begin
         Print('Stop bot');
            Engine.FaceControl(0, false);
            Utils.RandomDelay(1000, 2000);
        Print('Go to town');
            Engine.GoHome;
           
            deathCounts := deathCounts + 1;
    
            while not User.InRange(45409, 49673, -3064, 3550, 3550) do  //i?iaa?yai a ai?iaa ee iu, anee iao caaa??ea e oae caoeeeeaaai
            begin
             Print('We are not in town, so wait');
                Delay(10000);
            end;
        end;
    
    
      if(not User.InRange(42825, 50065, -2976, 100, 100)) then
      begin  
          Print('Going to start point');
          RespPoint_ElvenVillage.MoveToStartPoint;
          Print('Arrived to start point');
          Print('Going to quest NPC');
          MoveToNpc;
          Print('Arrived to quest NPC');
      end;
    
        Utils.RandomDelay(500, 1000);
    
        if((Inventory.Quest.ByID(QuestItemId, item) = false) and (item.count = 10) ) then begin
         Print('We have quest done, so end it');
            EndQuest;
        end;
       
        if(not Engine.QuestStatus(QuestId, 1)) then begin //quest taken
         Print('We take new quest');
            TakeQuest;
        end;
    
      Print('MoveToSpot');
        MoveToSpot;
    
        Utils.RandomDelay(500, 1500);
        Print('Start fight');  
        Engine.FaceControl(0, true);
       
        //caoeeeeaaai i?iaa?eo ia iaee?ea eaano eoaia
        while( (Inventory.Quest.ByID(QuestItemId, item) = false) or (item.count < 10)) do begin
            if(lastsporecount <> item.count) then begin
                tempStr:= 'Iaoi?eia ni nii?aie inoaeinu: ' + IntToStr(10 - item.count);
                Print(tempStr);      
            end;
            lastsporecount:= item.count;  
            if(User.Dead) then begin
             Engine.FaceControl(0, false);
                exit;
            end;
        end;
    
        Utils.RandomDelay(500, 1000);
        Engine.FaceControl(0, false);
    
      MoveHome;
      Utils.RandomDelay(200, 500);  
    
        EndQuest;
    end;
    
    begin
    while ( (1=1) and (deathCounts < MaxDeathsCount) ) do begin
        ExecuteCollectingSporesQuest();
    end;
    end.
    

    Код:
    function CheckItemCount (const itemID: Integer; const questItem: Boolean = False) : Integer;
    var tempItem: TL2Item;
    begin
       if questItem then Inventory.Quest.ByID(itemID, tempItem)
       else Inventory.User.ByID(itemID, tempItem);
       Result := tempItem.Count;
    end;
    
    function UserInTown : Boolean;
    begin
       Result := User.InRange(45752, 49768, -3056, 3000, 300);
    end;
    
    function mobsAttacking : Boolean;
    var i, n: Integer;
    begin
       n := 0;
        for i := 0 to NpcList.Count - 1 do
          if (NpcList.Items(i).Target = User) and not NpcList.Items(i).Dead then inc(n);
    
       Result := n > 0;
    end;
    
    procedure MoveToSpot;
    begin
       Engine.MoveTo(43784, 50248, -3056);
       Engine.MoveTo(42920, 51256, -2992);
       Engine.MoveTo(39688, 53496, -3408);
       Engine.MoveTo(37080, 53864, -3616);
       Engine.MoveTo(33512, 52728, -3712);
       Engine.MoveTo(30216, 51528, -3728);
       Engine.MoveTo(28296, 52616, -3568);
       Engine.MoveTo(26344, 53896, -3456);
       Engine.MoveTo(23816, 54184, -3616);
       Engine.MoveTo(20680, 54936, -3552);
       Engine.MoveTo(18232, 54984, -3680);
       
       Engine.FaceControl(1, True);
    end;
    
    procedure MoveToTown;
    begin
       Engine.FaceControl(1, False);
       
       if User.Dead then begin
          Engine.GoHome;
         
          while not UserInTown do 
             delay(3000);
       end
       else begin
          Engine.MoveTo(20680, 54936, -3552);
          Engine.MoveTo(23816, 54184, -3616);
          Engine.MoveTo(26344, 53896, -3456);
          Engine.MoveTo(28296, 52616, -3568);
          Engine.MoveTo(30216, 51528, -3728);
          Engine.MoveTo(33512, 52728, -3712);
          Engine.MoveTo(37080, 53864, -3616);
          Engine.MoveTo(39688, 53496, -3408);
          Engine.MoveTo(42920, 51256, -2992);
          Engine.MoveTo(43784, 50248, -3056);
          Engine.MoveTo(45864, 50776, -3056);
       end;
       
       EndQuest;
       NewQuest;
    end;
    
    procedure EndQuest;
    begin
       if Engine.QuestStatus(261, 2) then begin
          if not User.InRange(45864, 50776, -3056, 250, 150) then 
             Engine.MoveTo(45864, 50776, -3056);
          Engine.SetTarget(30222);
          Engine.DlgOpen();
          delay(1000);
          Engine.DlgSel(1);
          delay(1000);
       end;  
    end;
    
    procedure NewQuest;
    begin
       if not Engine.QuestStatus(261, 1) then begin
          if not User.InRange(45864, 50776, -3056, 250, 150) then 
             Engine.MoveTo(45864, 50776, -3056);
          Engine.SetTarget(30222);
          Engine.DlgOpen();
          delay(1000);
          Engine.DlgSel(1);
          delay(1000);
          Engine.DlgSel(1);  
          delay(1000);
       end;
    end;
    
    begin
    
       if not Engine.LoadZone('QuestZone') then
          print('No Zone');
         
       Engine.FaceControl(1, False);
       Engine.FaceControl(0, True);
       
       while Engine.Status = lsOnline do begin                                                                    
       
          if UserInTown then begin
             EndQuest;
             NewQuest;
             MoveToSpot;
          end;
             
          while CheckItemCount(1087, True) < 8 do begin
             if User.Dead then begin
                delay(3000);
                MoveToTown;
                MoveToSpot;
             end;
             delay(2000);
          end;
         
          while not User.InRange(18232, 54984, -3680, 100, 100) do begin // пытаемся добежать до дороги
    
             if mobsAttacking then begin
                Engine.FaceControl(1, True);
             end
             else begin
                Engine.FaceControl(1, False);
                Engine.MoveTo(18232, 54984, -3680, 10);
             end;
             delay(500);
          end;
         
          MoveToTown;
    
       end;
       
    end.
    

    Код:
    uses SysUtils, Classes;
    var Figth_Flag:boolean;
    DlgOpen:string;
    CheckDeath: Boolean; 
    Item: TL2Item;
    Npc: TL2Npc;
    Obj: TL2Buff;
    L2Skill: TL2Skill;
    Control: TL2Control;
    TNpcList: TL2List;
    
    procedure scroll;
        begin
            Engine.Unstuck;
            Print('тп');
            delay(20000);
            proverka_tp;
            Print('проверяю тп') ;
        end;
    
    procedure buff_i_tp;
    begin
        Engine.MoveTo(17102,144883,-3008); // buff
        Engine.SetTarget(31077); // buff id
        Engine.DlgOpen;
        delay(500);
        Engine.DlgSel(2); // nr
        delay(500);
        Engine.MoveTo(15663,142915,-3008); // gk
        Engine.SetTarget(30059); // gk id
        Engine.DlgOpen;
        delay(500);
        Engine.DlgSel(1); // nr tp
        delay(500);
        Engine.DlgSel(11); // nr tp spota
        delay(5111);
        begim_k_farmu;
    end;
    
    procedure farm;
        begin
            Engine.LoadConfig('DionSpoil');
            Delay(111) ;
            Engine.LoadZone('DionSpoi') ;
            Delay(111) ;
            Engine.Facecontrol(0,True);
            Delay(111);
        end;
    
    procedure proverka_na_smertb;
        begin
            if User.Dead then begin
            Engine.FaceControl(0,false);
            Engine.GoHome;
            Delay(10000);
                proverka_tp;
            end;
       
    
                begin
                    buff_i_tp;
                end;
        end;
    //------------------------------------------------------------------------
    
    procedure proverka_tp;
    begin
    if User.inrange(19134,144847,-3096, 250, 150) then begin
    Engine.MoveTo(19134,144847,-3096);
    Engine.MoveTo(18041,144052,-3057);
    Engine.MoveTo(16727,144111,-2980);
    Engine.MoveTo(15933,143331,-2771); 
    Engine.MoveTo(15628,142920,-2704);
    buff_i_tp;
    end;
    if User.inrange(18954,144428,-3096, 250, 150) then begin
    Engine.MoveTo(18954,144428,-3096);
    Engine.MoveTo(18600,144387,-3070);
    Engine.MoveTo(17733,143924,-3037);
    Engine.MoveTo(16711,144167,-2980);
    Engine.MoveTo(16622,144034,-2932);
    Engine.MoveTo(15963,143381,-2784); 
    Engine.MoveTo(15628,142920,-2704);
    buff_i_tp;
    end;
    if User.inrange(19012,145140,-3120, 250, 150) then begin
    Engine.MoveTo(19012,145140,-3120);
    Engine.MoveTo(19021,145126,-3123);
    Engine.MoveTo(17600,145497,-3079);
    Engine.MoveTo(16468,144129,-2964); 
    Engine.MoveTo(15628,142920,-2704);
    buff_i_tp;
    end;
    if User.inrange(19613,145607,-3104, 250, 150) then begin
    Engine.MoveTo(19613,145607,-3104);
    Engine.MoveTo(17638,145591,-3084);
    Engine.MoveTo(16214,143659,-2863); 
    Engine.MoveTo(15628,142920,-2704);
    buff_i_tp;
    end;
    if User.inrange(18576,145136,-3104, 250, 150) then begin
    Engine.MoveTo(18576,145136,-3104);
    Engine.MoveTo(17727,145541,-3082);
    Engine.MoveTo(16414,144174,-2969); 
    Engine.MoveTo(15628,142920,-2704);
    buff_i_tp;
    end;
    if User.inrange(17398,145456,-3048, 250, 150) then begin
    Engine.MoveTo(17398,145456,-3048);
    Engine.MoveTo(17727,145541,-3082);
    Engine.MoveTo(16414,144174,-2969); 
    Engine.MoveTo(15628,142920,-2704);
    buff_i_tp;
    end;
    if User.inrange(17144,145055,-3024, 250, 150) then begin
    Engine.MoveTo(17144,145055,-3024);
    Engine.MoveTo(16350,143905,-2923);
    Engine.MoveTo(15628,142920,-2704);
    buff_i_tp;
    end;
    if User.inrange(18078,145925,-3112, 250, 150) then begin
    Engine.MoveTo(18078,145925,-3112);
    Engine.MoveTo(16559,144353,-2987);
    Engine.MoveTo(15628,142920,-2704);
    buff_i_tp;
    end;
    if User.inrange(19150,143941,-3056, 250, 150) then begin
    Engine.MoveTo(19150,143941,-3056);
    Engine.MoveTo(18112,145633,-3104);
    Engine.MoveTo(17108,145059,-3031);
    Engine.MoveTo(16469,144176,-2969); 
    Engine.MoveTo(15628,142920,-2704);
    buff_i_tp;
    end;
    if User.inrange(18512,145536,-3120, 250, 150) then begin
    Engine.MoveTo(18512,145536,-3120);
    Engine.MoveTo(17226,145360,-3048);
    Engine.MoveTo(16419,143955,-2935); 
    Engine.MoveTo(15628,142920,-2704);
    buff_i_tp;
    end;
    if User.inrange(18717,145711,-3080, 250, 150) then begin
    Engine.MoveTo(18717,145711,-3080);
    Engine.MoveTo(17226,145360,-3048);
    Engine.MoveTo(16419,143955,-2935); 
    Engine.MoveTo(15628,142920,-2704);
    buff_i_tp;
    end;
    end;
    
    procedure begim_k_farmu;
        begin
            Engine.MoveTo(49054, 111382, -2126);
            Engine.MoveTo(50625, 111329, -2004);
            Engine.MoveTo(51500, 111349, -2004);
            Engine.MoveTo(52287, 112165, -2026);
            Engine.MoveTo(54319, 114664, -2139);
            Engine.MoveTo(54053, 115589, -1758);
            Engine.MoveTo(52455, 116093, -1696);
            Engine.MoveTo(53276, 115175, -1656);
            Engine.MoveTo(53576, 115243, -1707);
            Engine.MoveTo(53277, 115179, -1649);
            farm;
        end;
    
    begin
        while Engine.Status = lsOnline do begin
        delay(150);
        proverka_na_smertb;
    end;
    end.
    
     
    6aPmaJIei, HumanOFF, Firest и ещё 1-му нравится это.
  3. MrTraC

    MrTraC Старший модератор Команда форума Старший модератор

    Сообщения:
    423
    Симпатии:
    616
    Баллы:
    143
    Код:
    // start near gates
    begin
        Engine.MoveTo(81543, 143632, -3559);
        Engine.MoveTo(80892, 141531, -3610);
        Engine.MoveTo(79084, 141123, -3629);
        Engine.MoveTo(77826, 140860, -3691);
        Engine.MoveTo(77156, 140339, -3751);
        Engine.MoveTo(74201, 137678, -3666);
        Engine.MoveTo(73926, 134948, -3688);
        Engine.MoveTo(71633, 133974, -3681);
        Engine.MoveTo(71168, 133826, -3682);
        Engine.MoveTo(70419, 133885, -3687);
        Engine.MoveTo(69165, 133983, -3779);
        Engine.MoveTo(67456, 133932, -3657);
        Engine.MoveTo(66641, 134223, -3632);
        Engine.MoveTo(66085, 134674, -3674);
        Engine.MoveTo(65058, 134930, -3761);
        Engine.MoveTo(63315, 134884, -3658);
        Engine.MoveTo(60789, 134211, -3376);
        Engine.MoveTo(59525, 134264, -3217);
        Engine.MoveTo(58526, 134390, -3117);
        Engine.MoveTo(55634, 136593, -2627);
        Engine.MoveTo(54557, 137332, -2635);
        Engine.MoveTo(53585, 137229, -2627);
        Engine.MoveTo(51940, 136705, -2833);
        Engine.MoveTo(50888, 135595, -2909);
        Engine.MoveTo(47857, 134213, -3204);
        Engine.MoveTo(44764, 133867, -3429);
        Engine.MoveTo(42372, 132803, -3557);
        Engine.MoveTo(38715, 133687, -3402);
        Engine.MoveTo(36125, 133862, -3155);
        Engine.MoveTo(34974, 134066, -3129);
        Engine.MoveTo(32424, 134492, -3149);
        Engine.MoveTo(31624, 134994, -3176);
        Engine.MoveTo(30379, 136636, -3147);
        Engine.MoveTo(28515, 137035, -3212);
        Engine.MoveTo(26766, 136859, -3266);
        Engine.MoveTo(24879, 138048, -3436);
        Engine.MoveTo(22960, 139776, -3594);
        Engine.MoveTo(18921, 142338, -3079);
        Engine.MoveTo(19079, 143394, -3077);
        Engine.MoveTo(18853, 145302, -3156);
    end.
    

    Код:
    //Start from Gludin gates
    begin
        Engine.MoveTo(-78826, 152743, -3176);
        Engine.MoveTo(-77361, 152255, -3184);
        Engine.MoveTo(-74579, 150888, -2951);
        Engine.MoveTo(-72208, 149617, -2821);
        Engine.MoveTo(-68585, 151031, -2599);
        Engine.MoveTo(-67007, 151958, -2559);
        Engine.MoveTo(-65852, 152957, -2560);
        Engine.MoveTo(-61849, 154479, -2564);
        Engine.MoveTo(-60445, 154823, -2581);
        Engine.MoveTo(-56255, 154489, -2573);
        Engine.MoveTo(-53976, 153266, -2596);
        Engine.MoveTo(-52347, 151818, -2591);
        Engine.MoveTo(-50204, 147785, -2793);
        Engine.MoveTo(-48661, 145344, -2894);
        Engine.MoveTo(-47529, 142226, -2978);
        Engine.MoveTo(-45295, 138898, -2937);
        Engine.MoveTo(-44697, 137162, -2910);
        Engine.MoveTo(-44835, 133894, -2881);
        Engine.MoveTo(-45878, 130655, -2874);
        Engine.MoveTo(-45420, 128393, -2885);
        Engine.MoveTo(-44424, 126072, -2921);
        Engine.MoveTo(-42595, 123905, -2906);
        Engine.MoveTo(-41898, 123416, -2937);
        Engine.MoveTo(-38848, 124168, -2909);
        Engine.MoveTo(-35024, 125318, -2880);
        Engine.MoveTo(-33093, 125041, -2947);
        Engine.MoveTo(-32091, 124585, -3065);
        Engine.MoveTo(-31398, 124576, -3176);
        Engine.MoveTo(-29874, 126613, -3481);
        Engine.MoveTo(-29198, 127541, -3442);
        Engine.MoveTo(-27593, 127579, -3299);
        Engine.MoveTo(-26361, 126662, -3323);
        Engine.MoveTo(-24612, 125295, -3562);
        Engine.MoveTo(-20492, 124555, -3465);
        Engine.MoveTo(-18522, 124101, -3225);
        Engine.MoveTo(-16446, 124164, -3160);
    end.
    

    Код:
    //
    begin
        Engine.MoveTo(-14042, 126736, -3177);
        Engine.MoveTo(-13383, 127848, -3288);
        Engine.MoveTo(-11323, 128791, -3716);
        Engine.MoveTo(-6960, 129484, -3724);
        Engine.MoveTo(-5055, 129382, -3712);
        Engine.MoveTo(-1826, 130190, -3726);
        Engine.MoveTo(1130, 131915, -3707);
        Engine.MoveTo(2249, 132309, -3635);
        Engine.MoveTo(3652, 132359, -3601);
        Engine.MoveTo(4572, 133691, -3309);
        Engine.MoveTo(4987, 134836, -3189);
        Engine.MoveTo(6081, 135952, -3200);
        Engine.MoveTo(6505, 136649, -3249);
        Engine.MoveTo(6227, 137778, -3211);
        Engine.MoveTo(5832, 138776, -3258);
        Engine.MoveTo(6146, 141673, -3424);
        Engine.MoveTo(8526, 143520, -3317);
        Engine.MoveTo(9689, 144353, -3214);
        Engine.MoveTo(11614, 143700, -3253);
        Engine.MoveTo(12942, 143604, -3157);
        Engine.MoveTo(15104, 144528, -3142);
    end.
    

    Код:
    begin
      Engine.MoveTo(-11971, 123637, -3096);
      Engine.MoveTo(-9277, 123912, -2872);
      Engine.MoveTo(-6905, 123847, -3032);
      Engine.MoveTo(-6898, 122385, -3032);
      Engine.MoveTo(-7556, 117833, -3336);
      Engine.MoveTo(-8512, 115806, -3280);
      Engine.MoveTo(-8034, 110891, -3184);
      Engine.MoveTo(-7338, 107544, -3264);
      Engine.MoveTo(-5978, 104951, -2904);
      Engine.MoveTo(-9008, 101422, -2776);
      Engine.MoveTo(-9307, 96799, -3368);
      Engine.MoveTo(-8773, 94360, -3256);
      Engine.MoveTo(-9636, 92476, -3144);
      Engine.MoveTo(-7718, 90415, -3064);
      Engine.MoveTo(-9649, 87123, -3416);
      Engine.MoveTo(-9765, 85876, -3528);
      Engine.MoveTo(-9776, 84518, -3568);
      Engine.MoveTo(-9860, 80045, -3640);               
      Engine.MoveTo(-10690, 75587, -3592);
      Engine.MoveTo(-9207, 76028, -3568);
      Engine.MoveTo(-8152, 76413, -3528);
      Engine.MoveTo(-3307, 77329, -3552);
      Engine.MoveTo(-2263, 76684, -3344);
      Engine.MoveTo(1386, 74676, -3712);
      Engine.MoveTo(2757, 74282, -3840);
      Engine.MoveTo(4518, 71000, -3408);
      Engine.MoveTo(5035, 68411, -3256);
      Engine.MoveTo(5699, 64526, -3680);
      Engine.MoveTo(7696, 62340, -3616);
      Engine.MoveTo(11022, 60058, -3440);
      Engine.MoveTo(12730, 57660, -3432);
      Engine.MoveTo(14476, 55758, -3640);
      Engine.MoveTo(17208, 54822, -3704);
      Engine.MoveTo(20158, 54951, -3560);
      Engine.MoveTo(20819, 54849, -3552);
      Engine.MoveTo(21924, 54605, -3616);
      Engine.MoveTo(26353, 53868, -3440);
      Engine.MoveTo(30120, 51361, -3720);
      Engine.MoveTo(31137, 51631, -3720);
      Engine.MoveTo(32598, 52254, -3720);
      Engine.MoveTo(35936, 53502, -3600);
      Engine.MoveTo(38291, 53935, -3584);
      Engine.MoveTo(41191, 52404, -3112);
      Engine.MoveTo(43042, 51114, -2992);
      Engine.MoveTo(43560, 50364, -2992);
      Engine.MoveTo(45173, 50108, -3056);
      Engine.MoveTo(46049, 50000, -3064);
    end.
    

    Код:
    //start from dion center
    begin
    Engine.MoveTo(19079, 143394, -3077);
        Engine.MoveTo(18853, 145302, -3156);
        Engine.MoveTo(18921, 142338, -3079);
        Engine.MoveTo(22960, 139776, -3594);
        Engine.MoveTo(24879, 138048, -3436);
        Engine.MoveTo(26766, 136859, -3266);
        Engine.MoveTo(28515, 137035, -3212);
        Engine.MoveTo(30379, 136636, -3147);
        Engine.MoveTo(31624, 134994, -3176);
        Engine.MoveTo(32424, 134492, -3149);
        Engine.MoveTo(34974, 134066, -3129);
        Engine.MoveTo(36125, 133862, -3155);
        Engine.MoveTo(38715, 133687, -3402);
        Engine.MoveTo(42372, 132803, -3557);
        Engine.MoveTo(44764, 133867, -3429);
        Engine.MoveTo(47857, 134213, -3204);
        Engine.MoveTo(50888, 135595, -2909);
        Engine.MoveTo(51940, 136705, -2833);
        Engine.MoveTo(53585, 137229, -2627);
        Engine.MoveTo(54557, 137332, -2635);
        Engine.MoveTo(55634, 136593, -2627);
        Engine.MoveTo(58526, 134390, -3117);
        Engine.MoveTo(59525, 134264, -3217);
        Engine.MoveTo(60789, 134211, -3376);
        Engine.MoveTo(63315, 134884, -3658);
        Engine.MoveTo(65058, 134930, -3761);
        Engine.MoveTo(66085, 134674, -3674);
        Engine.MoveTo(66641, 134223, -3632);
        Engine.MoveTo(67456, 133932, -3657);
        Engine.MoveTo(69165, 133983, -3779);
        Engine.MoveTo(70419, 133885, -3687);
        Engine.MoveTo(71168, 133826, -3682);
        Engine.MoveTo(71633, 133974, -3681);
        Engine.MoveTo(73926, 134948, -3688);
        Engine.MoveTo(74201, 137678, -3666);
        Engine.MoveTo(77156, 140339, -3751);
        Engine.MoveTo(77826, 140860, -3691);
        Engine.MoveTo(79084, 141123, -3629);
        Engine.MoveTo(80892, 141531, -3610);
        Engine.MoveTo(81543, 143632, -3559);
    end.
    

    Код:
    uses SysUtils;
    
    var CenterX,CenterY,CenterZ,NowRadius,NowAngle: integer;
        GuardName:string;
        DisableBot:boolean;
        Obj:Tl2Live;
    
    procedure GoToPoint(X,Y,Z,Radius,Angle:integer);   //Расчёт конечной точки с учетом угла
    begin
      Engine.MoveTo(X+trunc(Radius*sin(Angle)),Y+trunc(Radius*cos(Angle)),Z+20);   //Z чуть добавляем, иначе будет тупить на неровной поверхности и пытаться "закопаться" - спорный момент, можно не добавлять.
    end;
    
    function MobAggrToMe:boolean;         //Проверка на атакующих меня мобов
    var num:integer;
    begin
    result:=false;     //"не пойман-не вор!" (с)
    for num:=0 to NpcList.Count - 1 do   //Если я хоть у одного из окружающих живых мобов в таргете - пора бежать
      if (NpcList.Items(num).Target=User) and not(NpcList.Items(num).Dead) then begin
        result:=true;      //пора бежать!
        exit;
        end;
    end;
            
    begin
    GuardName:='СуперДД';  //Имя защитника (вокруг кого бегать)
    NowRadius:=150;   //Радиус, по которому бегать вокруг Защитника
    NowAngle:=0;      //Начальный угол (можно не трогать)
    DisableBot:=true;   //Отключать остальные функции бота пока бегаем от мобов (хил, бафф и т.п.)
    
    while true do begin  //Бесконечный цикл
      CharList.ByName(GuardName,Obj);    //В каждом цикле обновляем координаты защитника
      CenterX:=Obj.X;                    //X
      CenterY:=Obj.Y;                    //Y
      CenterZ:=Obj.Z;                    //Z
      if MobAggrToMe then begin
        if DisableBot then Engine.FaceControl(0,false);       
        GoToPoint(CenterX,CenterY,CenterZ,NowRadius,NowAngle);  //Двигаемся вокруг защитника с изменяющимся углом
        NowAngle:=NowAngle+20;                                  //Шаг угла
        if NowAngle>=340 then NowAngle:=0;   //Если перевалило за 340 градусов, обнуляем (360 лучше не ставить)
        end
        else if DisableBot then Engine.FaceControl(0,true);
      end;
      
    end.
    

    Код:
    uses
      Classes, SysUtils;
    
    var
      myChars: TStringList;
    
    procedure allDlgOpen;
    var
      remoteControl: TL2Control;
      i: integer;
    begin
      for i:=0 to myChars.Count-1 do
      begin
         remoteControl := GetControl(myChars[i]);
            if Assigned(remoteControl) then
            begin
               remoteControl.DlgOpen; //открыли диалог окном
            end;
      end;
    
      Engine.DlgOpen; // открыли диалог мейном
    end;
    
    procedure allDlgSel(index: integer);
    var
      remoteControl: TL2Control;
      i: integer;
    begin
      for i:=0 to myChars.Count-1 do
      begin
         remoteControl := GetControl(myChars[i]);
            if Assigned(remoteControl) then
            begin
               remoteControl.DlgSel(index); //открыли диалог окном
            end;
      end;
      Engine.DlgSel(index); // выбрали строку мейном
    end;
    
    begin
      myChars := TStringList.Create;
      myChars.add('Char1');
      myChars.add('Char2');
    
      allDlgOpen;
      allDlgSel(1);
      allDlgSel(2);
    end.
    

    Код:
    begin
       while User.Level > 35 do begin // lvl
        
          if not User.InCombat then begin
          
             if not Engine.SetTarget(30870) then    // target id guarda + bug fix
                if not Engine.SetTarget(30871) then begin // target id drugogo guarda
                   delay(11000);        // delay do restarta in combat
                   Engine.Restart;
                   delay(3000);
                   Engine.GameStart(0);  // Nr chara
                   delay(3000);
                end;
    
             Engine.Attack(100, True);
            
          end;
        
          if User.Dead then begin
             Delay(1000);
             Engine.GoHome;
             Delay(1000);
             Engine.MoveTo(147366, 19833, -2035);
          end;
        
          Delay(2000);
       end;
    end.
    

    Код:
    uses sysutils,classes;
    begin
       while Engine.Status = lsOnline do begin
          if (ChatMessage.ChatType = mtPrivate) and ChatMessage.Unread then //непрочитанное сообщение тип чата mtPrivate=ПМ mtParty  mtAll=белый
          begin
            if (ChatMessage.Text = 'пати плз') then  Engine.InviteParty(ChatMessage.Sender, ldRandom); //текстом - делаем
            if (ChatMessage.Text = 'бпк') then  engine.useskill(3521); //текстом - делаем
          end;
        delay(2000);
       end;
    end.
    

    Скрипт преднозначен для интерлюд крафт-пвп серверов, где есть бафер и тп прямо в каты без разговора с нпц
    Код:
    uses SysUtils, Classes;
    var Figth_Flag:boolean;
         DlgOpen:string;
         CheckDeath: Boolean;
         Item: TL2Item;
         Npc: TL2Npc;
         Obj: TL2Buff;
         L2Skill: TL2Skill;
         Control: TL2Control;
         TNpcList:   TL2List;
    //------------------------------------------------------------------------   
    procedure scroll;
    begin
    Engine.Unstuck;
    Print('тп');
        delay(20000);
        proverka_tp;
    Print('проверяю тп') ;
    end;
    //------------------------------------------------------------------------
    procedure buff_i_tp;
    begin
        Engine.Facecontrol(0,False);
        Delay(1111);
        Engine.MoveTo(82310, 148631, -3472);
        Delay(1111) ;
        if not User.InRange(82310, 148631, -3472,500) then
        begin
          if User.InRange(точка фарма,3000) then
            begin
                farm;
            end;
           scroll;
        end;
        Engine.SetTarget('Buffer');
        Delay(1111) ;
        Engine.MoveToTarget(-20);
        Delay(1111) ;
        Engine.attack;
        Delay(1111) ;
        Engine.DlgSel(3);
        delay(5000);
        Engine.DlgSel(12);
        delay(1000);
        Engine.SetTarget('Global GK');
        Delay(1111) ;
        Engine.MoveToTarget(-20);
        Engine.attack;
        Delay(1111) ;
        Engine.DlgSel(2);
        Delay(1111);
        Engine.DlgSel(????????????????);
        Delay(5111);
        begim_k_farmu;
    end;
    //------------------------------------------------------------------------
    procedure farm;
    begin
    Engine.LoadConfig('Спойл_брендеты');
    Delay(111)            ;
    Engine.LoadZone('Спойл_брендеты') ;
    Delay(111) ;
    Engine.Facecontrol(0,True);
    Delay(111);
    end;
    //------------------------------------------------------------------------
    procedure proverka_na_smertb;
    begin
      if User.Dead then begin
            Engine.FaceControl(0,false);
            Engine.GoHome;
            Delay(10000);
            proverka_tp;
      end;
      if User.InRange(точка фарма,3000) and not GetFaceState(0) then
      begin
        farm;
      end;
      if User.InRange(82310, 148631, -3472,3000) then
      begin
      if User.InRange(82310, 148631, -3472,500) then
      begin
       buff_i_tp;
       end;
       scroll;
       end;
    end;
    
    //------------------------------------------------------------------------           
    procedure begim_k_farmu;
    begin
    Engine.MOVETO(47363,170372,-4976)  ;
    Delay(100);
    if not User.InRange(47363,170372,-4976,500) then
    begin
       scroll;
    end;
    точка от тп до фарма, извините ребятки но точку фарма допиливайте сами, не хочу встречать на своем споте по 10 человек.
    if not User.InRange(последняя точка,500) then
    begin
    scroll;
    end;
    farm;
    end;
    //------------------------------------------------------------------------
    procedure proverka_tp;
    begin
    if User.InRange(83468,149207,-3413,300) then
    begin
    Engine.MOVETO(83470,149031,-3400);
    Engine.MOVETO(83509,148670,-3400);
    Engine.MOVETO(83401,147958,-3400);
    buff_i_tp;
    end;
    
    if User.InRange(81045,148135,-3345,300) then
    begin
    Engine.MOVETO(81452,148113,-3464) ;
    Engine.MOVETO(81985,148026,-3464);
    Engine.MOVETO(82849,147904,-3464) ;
    Engine.MOVETO(83010,147903,-3464);
    buff_i_tp;
    end;
    
    if User.InRange(82869,148227,-3464,1500) then
    begin
    Engine.MOVETO(82940,148222,-3464)   ;
    buff_i_tp;
    end;
    
    if User.InRange(81045,148135,-3345,300) then
    begin
    Engine.MOVETO(81452,148113,-3464) ;
    Engine.MOVETO(81985,148026,-3464) ;
    Engine.MOVETO(82849,147904,-3464) ;
    Engine.MOVETO(83010,147903,-3464) ;
    buff_i_tp;
    end;
    
    if User.InRange(81458,149137,-3464,300) then
    begin
    Engine.MOVETO(82373,148972,-3464) ;
    Engine.MOVETO(82729,148561,-3464) ;
    Engine.MOVETO(82979,147895,-3464) ;
    buff_i_tp;
    end;
    
    if User.InRange(82484,148089,-3471,300) then
    begin
    Engine.MOVETO(82780,148020,-3464);
    Engine.MOVETO(82941,147923,-3464)     ;
    buff_i_tp;
    end;
    
    if User.InRange(82290,149472,-3464,300) then
    begin
    Engine.MOVETO(82507,149163,-3464)    ;
    Engine.MOVETO(82987,147991,-3464)    ;
    Engine.MOVETO(83001,147892,-3464)    ;
    buff_i_tp;
    end;
    
    if User.InRange(81434,149120,-3464,300) then
    begin
    Engine.MOVETO(82026,149080,-3464)      ;
    Engine.MOVETO(82413,148812,-3464)     ;
    Engine.MOVETO(82707,148192,-3464)     ;
    Engine.MOVETO(82977,147883,-3464)     ;
    buff_i_tp;
    end;
    
    if User.InRange(82311,147829,-3464,300) then
    begin
    Engine.MOVETO(82588,147940,-3464);
    Engine.MOVETO(82958,147894,-3464);
    buff_i_tp;
    end;
    
    if User.InRange(81631,149410,-3464,300) then
    begin
    Engine.MOVETO(82454,148970,-3464);
    Engine.MOVETO(82627,148216,-3464);
    Engine.MOVETO(82960,147875,-3464);
    buff_i_tp;
    end;
    
    if User.InRange(83465,149209,-3407,300) then
    begin
    Engine.MOVETO(83399,149112,-3400)  ;
    Engine.MOVETO(83362,148600,-3400) ;
    Engine.MOVETO(83274,148197,-3400) ;
    Engine.MOVETO(83059,148147,-3464);
    Engine.MOVETO(83018,147872,-3464);
    buff_i_tp;
    end;
    
    if User.InRange(82261,147803,-3464,300) then
    begin
    Engine.MOVETO(82747,147932,-3464) ;
    Engine.MOVETO(82965,147904,-3464) ;
    buff_i_tp;
    end;
    if not User.InRange('последняя точка куда бот прибегает в катах',1000) then
    begin
    scroll;
    end;
    end;
    //------------------------------------------------------------------------
    begin
    while Engine.Status = lsOnline do
    begin
    proverka_na_smertb;
    end;
    end.
    

    Код:
    var
      i: Integer;
    begin
      while engine.status = lsOnline do begin
    
        for i := 0 to NpcList.Count - 1 do begin
          if (NpcList.Items(i).Dead) and (NpcList.Items(i).Sweepable) then begin
            Engine.FaceControl(0,false);
            Engine.CancelTarget;
            Engine.SetTarget(NpcList.Items(i));
            delay(500);
            Engine.UseSkill(42);
            delay(500);
          end;
        end;
      end;
    end.
    

    Код:
       begin
      while 1<>2 do begin
    
      Engine.ConfirmDialog(false);  // отказ  true согласие
    //Также именно ЭТА команда отвечает за принятие\отказ (респа,трейда и т.д. не только ивенты)
           delay(10000);
          end;
         delay(10000);
    
    end.
    

    Код:
    if inventory.User.ByID(57, Item) and (Item.count > 250000) then
    begin
    Engine.SendMail('Ник', 'тема', 'комент',[id,кол-во,id,кол-во,id,кол-во,id,кол-во,id,кол-во,id,кол-во]);
    delay(1000);
    end;
    end.
    

    Код:
    function CheckDeath: Boolean;//Проверка на смерть
    begin
      Result:=false;
        if User.Dead then //умерли
        begin
            Result:=true;
            Print('Bot Umer');//печатаем в лог
            Delay(1000);
            Engine.FaceControl(0,false);//выключаем бота
            Engine.GoHome;//встаем в город
            Delay(10000);//отдыхаем
        end;
    end;
    

    Код:
    uses SysUtils, Classes;
    var Figth_Flag:boolean;
    Item: TL2Item;
    Npc: TL2Npc;
    
    begin
    Print('Продаю дроп'); // Пишет в систем чат что продает дроп
    Delay(500); // Пауза
    Engine.SetTarget('Manor Manager'); // Выбрать в таргет НПС с таким то ником
    Engine.MoveToTarget(-20); // Подойти к НПС
    Engine.DlgOpen; // Начать диалог с НПС
    Engine.DlgSel(5); // Выбрать диалог по списку
    Delay(2500); // Пауза
    Engine.NPCTrade(true,[15785,99999]); // Продать дроп (true,[ID предмета,кол-во])
    Delay(3000); // Пауза
    end.
    

    Код:
    var s:string;
    begin
    s:='!';
    while true do begin
    Engine.Say(' ПРОДАМ ДУШУ ДЬЯВОЛУ НЕДОРОГО',1,s);
    delay(10000); //ждём 10 секунд и спамим заново
    end;
    end.
    
     
    6aPmaJIei, HumanOFF, Firest и ещё 1-му нравится это.
  4. MrTraC

    MrTraC Старший модератор Команда форума Старший модератор

    Сообщения:
    423
    Симпатии:
    616
    Баллы:
    143
    Первая яма
    Код:
    var obj: TL2NPC;
        obj2: TL2Effect;
    
       Enemy: TL2Live;
    Begin
    while 1<>2 do begin   // бесконечный цикл
    
    
          if User.Dead then    // умер- вырубаем интерфейс, возврат в город и пауза 15 секунд
           begin
    Engine.gohome;
    delay(15000);
    end;
    if User.inrange(87184,-140256,-1536, 250, 150) then begin
          Engine.MoveTo(87184,-140256,-1536);
          Engine.MoveTo(87368,-140838,-1512);
          Engine.MoveTo(87319,-141796,-1338);
          Engine.MoveTo(87145,-142916,-1313);
          Engine.MoveTo(87070,-143418,-1290);
        end;
        if User.inrange(87408,-142304,-1336, 250, 150) then begin
          Engine.MoveTo(87408,-142304,-1336);
          Engine.MoveTo(87145,-142916,-1313);
          Engine.MoveTo(87070,-143418,-1290);
        end;
        if User.inrange(88240,-142736,-1336, 250, 150) then begin
          Engine.MoveTo(88240,-142736,-1336);
          Engine.MoveTo(87585,-142662,-1338);
          Engine.MoveTo(87070,-143418,-1290);
        end;
        if User.inrange(85056,-141328,-1528, 250, 150) then begin
          Engine.MoveTo(85056,-141328,-1528);
          Engine.MoveTo(85181,-141845,-1539);
          Engine.MoveTo(85804,-142279,-1339);
          Engine.MoveTo(87157,-142636,-1338);
          Engine.MoveTo(87070,-143418,-1290);
        end;
        if User.inrange(88624,-142480,-1336, 250, 150) then begin
          Engine.MoveTo(88624,-142480,-1336);
          Engine.MoveTo(87548,-142686,-1331);
          Engine.MoveTo(87070,-143418,-1290);
        end;
        if User.inrange(86400,-142672,-1336, 250, 150) then begin
          Engine.MoveTo(86400,-142672,-1336);
          Engine.MoveTo(87143,-142570,-1338);
          Engine.MoveTo(87070,-143418,-1290);
        end;
        if User.inrange(86560,-140320,-1536, 250, 150) then begin
          Engine.MoveTo(86560,-140320,-1536);
          Engine.MoveTo(87300,-140655,-1539);
          Engine.MoveTo(87385,-141436,-1339);
          Engine.MoveTo(87246,-142537,-1338);
          Engine.MoveTo(87070,-143418,-1290);
        end;
        if User.inrange(88448,-140512,-1536, 250, 150) then begin
          Engine.MoveTo(88448,-140512,-1536);
          Engine.MoveTo(87410,-140642,-1539);
          Engine.MoveTo(87299,-141493,-1338);
          Engine.MoveTo(87291,-142607,-1338);
          Engine.MoveTo(87070,-143418,-1290);
        end;
        if User.inrange(89712,-141472,-1528, 250, 150) then begin
          Engine.MoveTo(89712,-141472,-1528);
          Engine.MoveTo(89497,-141893,-1539);
          Engine.MoveTo(88963,-142272,-1339);
          Engine.MoveTo(87737,-142631,-1338);
          Engine.MoveTo(87070,-143418,-1290);
        end;
        if User.inrange(87344,-141696,-1336, 250, 150) then begin
          Engine.MoveTo(87344,-141696,-1336);
          Engine.MoveTo(87354,-142594,-1338);
          Engine.MoveTo(87070,-143418,-1290);
        end;
        if User.inrange(85472,-140752,-1536, 250, 150) then begin
          Engine.MoveTo(85472,-140752,-1536);
          Engine.MoveTo(85191,-141803,-1539);
          Engine.MoveTo(85909,-142322,-1338);
          Engine.MoveTo(87096,-142671,-1338);
          Engine.MoveTo(87070,-143418,-1290);
        end;
        if User.inrange(89360,-140944,-1536, 250, 150) then begin
          Engine.MoveTo(89360,-140944,-1536);
          Engine.MoveTo(89539,-141762,-1539);
          Engine.MoveTo(88910,-142276,-1339);
          Engine.MoveTo(87637,-142734,-1332);
          Engine.MoveTo(87070,-143418,-1290);
        end;
        if User.inrange(87776,-140384,-1536, 250, 150) then begin
          Engine.MoveTo(87776,-140384,-1536);
          Engine.MoveTo(87403,-140707,-1539);
          Engine.MoveTo(87351,-141645,-1338);
          Engine.MoveTo(87310,-142568,-1338);
          Engine.MoveTo(87070,-143418,-1290);
        end;
        if User.inrange(84720,-141936,-1536, 250, 150) then begin
          Engine.MoveTo(84720,-141936,-1536);
          Engine.MoveTo(85201,-141842,-1539);
          Engine.MoveTo(85807,-142262,-1339);
          Engine.MoveTo(87116,-142704,-1338);
          Engine.MoveTo(87070,-143418,-1290);
        end;
        if User.inrange(85968,-142384,-1336, 250, 150) then begin
          Engine.MoveTo(85968,-142384,-1336);
          Engine.MoveTo(87116,-142704,-1338);
          Engine.MoveTo(87070,-143418,-1290);
        end;
    begin
    Engine.MoveTo(87062, -143465, -1318);
    
    Engine.SetTarget(31964);     // берем в таргет НПЦ с ИД( можно имя в скобках 'имя'
    Engine.DlgOpen();   // открываем диалоговое окно
    Engine.DlgSel(1);    // выбираем строку под номером 1 (можно ставить любой)
    Engine.DlgSel(15);
    delay(22000);
    end;
    
    Engine.MoveTo(90677, -117612, -3946);
    Engine.MoveTo(90236, -118698, -3893);
    Engine.MoveTo(90156, -120420, -3848);
    Engine.MoveTo(89646, -120992, -3952);
    Engine.MoveTo(87991, -120950, -4280);
    Engine.MoveTo(86190, -121611, -4416);
    delay(6000);
    end;
    end.
    
    Вторая яма
    Код:
    var obj: TL2NPC;
        obj2: TL2Effect;
    
       Enemy: TL2Live;
    Begin
    while 1<>2 do begin   // бесконечный цикл
    
    
          if User.Dead then    // умер- вырубаем интерфейс, возврат в город и пауза 15 секунд
           begin
    Engine.gohome;
    delay(15000);
    end;
    if User.inrange(87184,-140256,-1536, 250, 150) then begin
          Engine.MoveTo(87184,-140256,-1536);
          Engine.MoveTo(87368,-140838,-1512);
          Engine.MoveTo(87319,-141796,-1338);
          Engine.MoveTo(87145,-142916,-1313);
          Engine.MoveTo(87070,-143418,-1290);
        end;
        if User.inrange(87408,-142304,-1336, 250, 150) then begin
          Engine.MoveTo(87408,-142304,-1336);
          Engine.MoveTo(87145,-142916,-1313);
          Engine.MoveTo(87070,-143418,-1290);
        end;
        if User.inrange(88240,-142736,-1336, 250, 150) then begin
          Engine.MoveTo(88240,-142736,-1336);
          Engine.MoveTo(87585,-142662,-1338);
          Engine.MoveTo(87070,-143418,-1290);
        end;
        if User.inrange(85056,-141328,-1528, 250, 150) then begin
          Engine.MoveTo(85056,-141328,-1528);
          Engine.MoveTo(85181,-141845,-1539);
          Engine.MoveTo(85804,-142279,-1339);
          Engine.MoveTo(87157,-142636,-1338);
          Engine.MoveTo(87070,-143418,-1290);
        end;
        if User.inrange(88624,-142480,-1336, 250, 150) then begin
          Engine.MoveTo(88624,-142480,-1336);
          Engine.MoveTo(87548,-142686,-1331);
          Engine.MoveTo(87070,-143418,-1290);
        end;
        if User.inrange(86400,-142672,-1336, 250, 150) then begin
          Engine.MoveTo(86400,-142672,-1336);
          Engine.MoveTo(87143,-142570,-1338);
          Engine.MoveTo(87070,-143418,-1290);
        end;
        if User.inrange(86560,-140320,-1536, 250, 150) then begin
          Engine.MoveTo(86560,-140320,-1536);
          Engine.MoveTo(87300,-140655,-1539);
          Engine.MoveTo(87385,-141436,-1339);
          Engine.MoveTo(87246,-142537,-1338);
          Engine.MoveTo(87070,-143418,-1290);
        end;
        if User.inrange(88448,-140512,-1536, 250, 150) then begin
          Engine.MoveTo(88448,-140512,-1536);
          Engine.MoveTo(87410,-140642,-1539);
          Engine.MoveTo(87299,-141493,-1338);
          Engine.MoveTo(87291,-142607,-1338);
          Engine.MoveTo(87070,-143418,-1290);
        end;
        if User.inrange(89712,-141472,-1528, 250, 150) then begin
          Engine.MoveTo(89712,-141472,-1528);
          Engine.MoveTo(89497,-141893,-1539);
          Engine.MoveTo(88963,-142272,-1339);
          Engine.MoveTo(87737,-142631,-1338);
          Engine.MoveTo(87070,-143418,-1290);
        end;
        if User.inrange(87344,-141696,-1336, 250, 150) then begin
          Engine.MoveTo(87344,-141696,-1336);
          Engine.MoveTo(87354,-142594,-1338);
          Engine.MoveTo(87070,-143418,-1290);
        end;
        if User.inrange(85472,-140752,-1536, 250, 150) then begin
          Engine.MoveTo(85472,-140752,-1536);
          Engine.MoveTo(85191,-141803,-1539);
          Engine.MoveTo(85909,-142322,-1338);
          Engine.MoveTo(87096,-142671,-1338);
          Engine.MoveTo(87070,-143418,-1290);
        end;
        if User.inrange(89360,-140944,-1536, 250, 150) then begin
          Engine.MoveTo(89360,-140944,-1536);
          Engine.MoveTo(89539,-141762,-1539);
          Engine.MoveTo(88910,-142276,-1339);
          Engine.MoveTo(87637,-142734,-1332);
          Engine.MoveTo(87070,-143418,-1290);
        end;
        if User.inrange(87776,-140384,-1536, 250, 150) then begin
          Engine.MoveTo(87776,-140384,-1536);
          Engine.MoveTo(87403,-140707,-1539);
          Engine.MoveTo(87351,-141645,-1338);
          Engine.MoveTo(87310,-142568,-1338);
          Engine.MoveTo(87070,-143418,-1290);
        end;
        if User.inrange(84720,-141936,-1536, 250, 150) then begin
          Engine.MoveTo(84720,-141936,-1536);
          Engine.MoveTo(85201,-141842,-1539);
          Engine.MoveTo(85807,-142262,-1339);
          Engine.MoveTo(87116,-142704,-1338);
          Engine.MoveTo(87070,-143418,-1290);
        end;
        if User.inrange(85968,-142384,-1336, 250, 150) then begin
          Engine.MoveTo(85968,-142384,-1336);
          Engine.MoveTo(87116,-142704,-1338);
          Engine.MoveTo(87070,-143418,-1290);
        end;
    begin
    Engine.MoveTo(87062, -143465, -1318);
    
    Engine.SetTarget(31964);     // берем в таргет НПЦ с ИД( можно имя в скобках 'имя'
    Engine.DlgOpen();   // открываем диалоговое окно
    Engine.DlgSel(1);    // выбираем строку под номером 1 (можно ставить любой)
    Engine.DlgSel(15);
    delay(22000);
    end;
    
    Engine.MoveTo(91656, -117798, -3908);
    Engine.MoveTo(92096, -118404, -3774);
    Engine.MoveTo(92301, -118613, -3811);
    Engine.MoveTo(92422, -119061, -4196);
    Engine.MoveTo(92643, -119292, -4510);
    Engine.MoveTo(94029, -120973, -4581);
    delay(6000);
    end;
    end.
    
    Так же создайте в папке settings файл с разрешением .xml
    И всунте туда это
    Код:
    <?xml version="1.0" encoding="UTF-8"?>
    <BasicSettings>
      <General Active="true" AutoAtk="false" AutoHeal="false" AutoBuff="false" AutoEvent="false" FRange1="0" FRange2="100" FAutoMove="false" Performance="5" Performance2="5" FastNuke="false" MTarget="false" BuffBypass0="_bbshome&#xA;_servicebuff 0&#xA;_servicebuff list 1_0 Воину&#xA;_servicebuff get 0 1_0 Воину" BuffBypass1="_bbshome&#xA;_servicebuff 0&#xA;_servicebuff list 1_0 Магу&#xA;_servicebuff get 0 1_0 Магу" BuffBypass2="_bbshome&#xA;_servicebuff 0&#xA;_servicebuff list 2_0 1&#xA;_servicebuff get 0 2_0 1" BuffBypass3="_bbshome&#xA;_servicebuff 0&#xA;_servicebuff list 2_0 2&#xA;_servicebuff get 0 2_0 2" BuffBypass4="_bbshome&#xA;_servicebuff 0&#xA;_servicebuff list 2_0 3&#xA;_servicebuff get 0 2_0 3"/>
      <SelfHeal/>
      <Relax SkillUse="false" SkillName="" minHPUse="false" minHP="40" minMPUse="false" minMP="20" maxHPUse="false" maxHP="100" maxMpUse="false" maxMP="100" PauseUse="false" PauseV1="1" PauseV2="3" Pos1Use="false" Pos2Use="false" Pos3Use="false" Pos1X="0" Pos1Y="0" Pos1Z="0" Pos2X="0" Pos2Y="0" Pos2Z="0" Pos3X="0" Pos3Y="0" Pos3Z="0"/>
      <Death Resp="false" RespType="0" WaitResp="false" WaitRespV1="60" WaitRespV2="30" WaitFight="false" WaitFightV="10"/>
      <SelfBuff/>
      <Party Invite="false" InviteList="" DropType="1" Accept="false" AcceptList="" Assist="false" AssistList="" ProtectMA="false" ProtectMAV="5" AttackType="0" ProtectParty="false" ProtectPartyList="" ProtectMyPet="false" BreakRelax="false" BreakRelax2="true" FollowMov="false" FollowList="" FollovMinDist="0" FollowMaxDist="200" FollowType="1" RelaxWith="false" RelaxWithList="" RelaxWithNear="false" LeavePL="false" ProtectByOne="false" FriendList="" AcceptResp="false" AcceptRespType="1" PauseBuff="false" PauseBuffList="" PauseBuffTime="30" DeathAcceptMy="false" PartyAcceptMy="false"/>
      <PartyBuff/>
      <Fight>
        <Items/>
      </Fight>
      <Path MapZoneName="" PathType="5" PathX="0" PathY="0" PathZ="0" PathR1="1500" ZLimit="true" ZLimitV="250" Return="false" ReturnV="10" AttackInRangeOnly="false" IsCircle="true" ZByUser="true" CAtkV="5" Evs="true" EvsTimeOut="3500" EvsBackV1="30" EvsBackV2="50" EvsSideV1="70" EvsSideV2="100">
        <Points/>
      </Path>
      <Mons NoAtkInCombat="true" NoAtkInTarget="true" FullCombat="false" TargetDelay="false" TargetDelayV1="1000" TargetDelayV2="2000" FindAgro="true" FindTargetMe="false" MonsFindNear="true" SkeepTarget="false" SkeepRange="false" SkeepRangeV="300" SkeepChamp="false" SkeepChamp2="false" SkeepChampV="10000" SkeepHP="true" SkeepHPV1="60" SkeepHPV2="10" SkeepHPV3="7" SkeepInv="true" SkeepInvV="7" ProtectPVP="true" AttackPK="false" AttackPVP="true" AttackPVPR="1500" NoAtkPVP="true" MonsFriends="true" MonsMapNear="false" NoAtkLvl1="false" NoAtkLvlV1="3" NoAtkLvl2="false" NoAtkLvlV2="3" NoAtkResp="false" NoAtkRespV="5" NoAtkTitle="true" NoAtkTitleV="ВНИМАНИЕ АНТИБОТ, ANTIBOT" C1="0" C2="0" V1="0" V2="0"/>
      <Drop PickUp="true" PickUpRange="2500" ZLimit="true" ZLimitR="300" OnlyMy="false" OnlyInCZ="false" DropTime="15" TimeOut="3"/>
      <Shot AutoShot="true" Extract1="false" Extract2="false" Extract3="false" ExtractName1="" ExtractName2="" ExtractName3="" ExtractItem1="" ExtractItem2="" ExtractItem3="" ExtractItem4="" ExtractCount1="1500" ExtractCount2="1500" ExtractCount3="1500" ExtractCount4="0" ExtractDelay1="5" ExtractDelay2="5" ExtractDelay3="5" Fishing="false" FishBreak="true" FishExtract="false" FishMov="false" FishInv="false" FishMTime="15" FishShots="true" FishMovC1="false" FishMovC2="true" FishTrigger="true" FishRelog="false" FishRelogV1="1" FishRelogV2="10" F1X1="0" F1Y1="0" F1Z1="0" F1X2="0" F1Y2="0" F1Z2="0" F2X1="0" F2Y1="0" F2Z1="0" F2X2="0" F2Y2="0" F2Z2="0" Craft="false" CraftList="1,2,3" CraftMP="5" CraftWeight="80" CraftDelay="1000"/>
      <Event/>
      <NpcFilter/>
      <ItemFilter>
        <Item_0 ObjType="0" ID="57" FGrade="0" FPickup="true" FInFight="false" FFightR="150" FNpc="false" FNpcV="3" FNpcAgro="false" PCount="false" PCountV="1" PCond="0" PCondV="0" PLoad="false" PLoadV="55" FDel="false" FDelC="false" FDelCV="0" FDelL="false" FDelLV="54"/>
        <Item_1 ObjType="0" ID="8602" FGrade="0" FPickup="false" FInFight="false" FFightR="150" FNpc="false" FNpcV="3" FNpcAgro="false" PCount="false" PCountV="1" PCond="0" PCondV="0" PLoad="false" PLoadV="55" FDel="false" FDelC="false" FDelCV="0" FDelL="false" FDelLV="54"/>
        <Item_2 ObjType="0" ID="10656" FGrade="0" FPickup="false" FInFight="false" FFightR="150" FNpc="false" FNpcV="3" FNpcAgro="false" PCount="false" PCountV="1" PCond="0" PCondV="0" PLoad="false" PLoadV="55" FDel="false" FDelC="false" FDelCV="0" FDelL="false" FDelLV="54"/>
        <Item_3 ObjType="0" ID="8601" FGrade="0" FPickup="false" FInFight="false" FFightR="150" FNpc="false" FNpcV="3" FNpcAgro="false" PCount="false" PCountV="1" PCond="0" PCondV="0" PLoad="false" PLoadV="55" FDel="false" FDelC="false" FDelCV="0" FDelL="false" FDelLV="54"/>
        <Item_4 ObjType="0" ID="8600" FGrade="0" FPickup="false" FInFight="false" FFightR="150" FNpc="false" FNpcV="3" FNpcAgro="false" PCount="false" PCountV="1" PCond="0" PCondV="0" PLoad="false" PLoadV="55" FDel="false" FDelC="false" FDelCV="0" FDelL="false" FDelLV="54"/>
        <Item_5 ObjType="0" ID="8604" FGrade="0" FPickup="false" FInFight="false" FFightR="150" FNpc="false" FNpcV="3" FNpcAgro="false" PCount="false" PCountV="1" PCond="0" PCondV="0" PLoad="false" PLoadV="55" FDel="false" FDelC="false" FDelCV="0" FDelL="false" FDelLV="54"/>
        <Item_6 ObjType="0" ID="4042" FGrade="0" FPickup="false" FInFight="false" FFightR="150" FNpc="false" FNpcV="3" FNpcAgro="false" PCount="false" PCountV="1" PCond="0" PCondV="0" PLoad="false" PLoadV="55" FDel="false" FDelC="false" FDelCV="0" FDelL="false" FDelLV="54"/>
        <Item_7 ObjType="0" ID="10655" FGrade="0" FPickup="false" FInFight="false" FFightR="150" FNpc="false" FNpcV="3" FNpcAgro="false" PCount="false" PCountV="1" PCond="0" PCondV="0" PLoad="false" PLoadV="55" FDel="false" FDelC="false" FDelCV="0" FDelL="false" FDelLV="54"/>
        <Item_8 ObjType="0" ID="8610" FGrade="0" FPickup="false" FInFight="false" FFightR="150" FNpc="false" FNpcV="3" FNpcAgro="false" PCount="false" PCountV="1" PCond="0" PCondV="0" PLoad="false" PLoadV="55" FDel="false" FDelC="false" FDelCV="0" FDelL="false" FDelLV="54"/>
        <Item_9 ObjType="0" ID="8603" FGrade="0" FPickup="false" FInFight="false" FFightR="150" FNpc="false" FNpcV="3" FNpcAgro="false" PCount="false" PCountV="1" PCond="0" PCondV="0" PLoad="false" PLoadV="55" FDel="false" FDelC="false" FDelCV="0" FDelL="false" FDelLV="54"/>
        <Item_10 ObjType="0" ID="1895" FGrade="0" FPickup="false" FInFight="false" FFightR="150" FNpc="false" FNpcV="3" FNpcAgro="false" PCount="false" PCountV="1" PCond="0" PCondV="0" PLoad="false" PLoadV="55" FDel="false" FDelC="false" FDelCV="0" FDelL="false" FDelLV="54"/>
        <Item_11 ObjType="0" ID="8608" FGrade="0" FPickup="false" FInFight="false" FFightR="150" FNpc="false" FNpcV="3" FNpcAgro="false" PCount="false" PCountV="1" PCond="0" PCondV="0" PLoad="false" PLoadV="55" FDel="false" FDelC="false" FDelCV="0" FDelL="false" FDelLV="54"/>
        <Item_12 ObjType="0" ID="8607" FGrade="0" FPickup="false" FInFight="false" FFightR="150" FNpc="false" FNpcV="3" FNpcAgro="false" PCount="false" PCountV="1" PCond="0" PCondV="0" PLoad="false" PLoadV="55" FDel="false" FDelC="false" FDelCV="0" FDelL="false" FDelLV="54"/>
        <Item_13 ObjType="0" ID="8611" FGrade="0" FPickup="true" FInFight="false" FFightR="150" FNpc="false" FNpcV="3" FNpcAgro="false" PCount="false" PCountV="1" PCond="0" PCondV="0" PLoad="false" PLoadV="55" FDel="false" FDelC="false" FDelCV="0" FDelL="false" FDelLV="54"/>
        <Item_14 ObjType="0" ID="8609" FGrade="0" FPickup="false" FInFight="false" FFightR="150" FNpc="false" FNpcV="3" FNpcAgro="false" PCount="false" PCountV="1" PCond="0" PCondV="0" PLoad="false" PLoadV="55" FDel="false" FDelC="false" FDelCV="0" FDelL="false" FDelLV="54"/>
        <Item_15 ObjType="0" ID="8606" FGrade="0" FPickup="false" FInFight="false" FFightR="150" FNpc="false" FNpcV="3" FNpcAgro="false" PCount="false" PCountV="1" PCond="0" PCondV="0" PLoad="false" PLoadV="55" FDel="false" FDelC="false" FDelCV="0" FDelL="false" FDelLV="54"/>
        <Item_16 ObjType="0" ID="1894" FGrade="0" FPickup="false" FInFight="false" FFightR="150" FNpc="false" FNpcV="3" FNpcAgro="false" PCount="false" PCountV="1" PCond="0" PCondV="0" PLoad="false" PLoadV="55" FDel="false" FDelC="false" FDelCV="0" FDelL="false" FDelLV="54"/>
        <Item_17 ObjType="0" ID="8612" FGrade="0" FPickup="false" FInFight="false" FFightR="150" FNpc="false" FNpcV="3" FNpcAgro="false" PCount="false" PCountV="1" PCond="0" PCondV="0" PLoad="false" PLoadV="55" FDel="false" FDelC="false" FDelCV="0" FDelL="false" FDelLV="54"/>
        <Item_18 ObjType="0" ID="4043" FGrade="0" FPickup="false" FInFight="false" FFightR="150" FNpc="false" FNpcV="3" FNpcAgro="false" PCount="false" PCountV="1" PCond="0" PCondV="0" PLoad="false" PLoadV="55" FDel="false" FDelC="false" FDelCV="0" FDelL="false" FDelLV="54"/>
      </ItemFilter>
      <NpcFilterDef>
        <Item_0 ObjType="0" ID="0" FAction="1" FPriority="1" FPNew="false" FAtkAlone="false" FAtkAloneV1="400" FAtkAloneC="0" FAtkAloneV2="3" FDodge="false" FDodgeV="300" FCAtk="false" FPosition="false" FPosX="0" FPosY="0" FPosZ="0" FPosR="0" FC="0" FV="0"/>
        <Item_1 ObjType="1" ID="0" FAction="0" FPriority="1" FPNew="false" FAtkAlone="false" FAtkAloneV1="400" FAtkAloneC="0" FAtkAloneV2="3" FDodge="false" FDodgeV="300" FCAtk="false" FPosition="false" FPosX="0" FPosY="0" FPosZ="0" FPosR="0" FC="0" FV="0"/>
      </NpcFilterDef>
      <ItemFilterDef>
        <Item_0 ObjType="-1" ID="0" FGrade="0" FPickup="true" FInFight="false" FFightR="150" FNpc="false" FNpcV="3" FNpcAgro="false" PCount="false" PCountV="0" PCond="0" PCondV="0" PLoad="false" PLoadV="55" FDel="false" FDelC="false" FDelCV="0" FDelL="false" FDelLV="54"/>
      </ItemFilterDef>
    </BasicSettings>
    
     
    Последнее редактирование: авг 14, 2015
    6aPmaJIei, Firest и Sacred нравится это.
  5. MrTraC

    MrTraC Старший модератор Команда форума Старший модератор

    Сообщения:
    423
    Симпатии:
    616
    Баллы:
    143
    Немного моих скриптов

    Квест на нг шмот
    Код:
    //Начало в деревне камаэлей, возле Маркеллы
    var
    Npc: TL2Npc;
    begin
         Delay(2500);
         Engine.Settarget(32173);
         Delay(1500);
         Engine.Dlgopen;
         Delay(2000);
         Engine.DlgSel(3);
         Delay(1500);
         Engine.DlgSel(1);
         Delay(1500);
         Engine.DlgSel(1);
         Delay(1500);
         Engine.BypassToServer('00');
         Delay(1500);
         Engine.Dlgopen;
         Delay(2000);
         Engine.DlgSel(3);
         Delay(1500);
         Engine.DlgSel(2);
         Delay(1500);
         Engine.DlgSel(1);
         Delay(1500);
         Engine.BypassToServer('00');
         Delay(1500);
         Engine.MoveTo(-119416, 47928, 400);
         Engine.MoveTo(-119320, 46920, 376);
         Engine.MoveTo(-116824, 45784, 376);
         Engine.MoveTo(-115992, 45560, 520);
         Engine.MoveTo(-115208, 44632, 528);
         Engine.MoveTo(-115000, 44648, 528);
         Engine.Settarget(32170);
         Engine.Dlgopen;
         Delay(1500);
         Engine.DlgSel(5);
         Delay(1500);
         Engine.MoveTo(-115560, 44728, 512);
         Engine.MoveTo(-118888, 46888, 376);
         Engine.MoveTo(-119350, 47038, 381);
         Engine.MoveTo(-119416, 48552, 248);
         Engine.MoveTo(-119368, 49208, 24);
         Engine.Settarget(32173);
         Engine.Dlgopen;
         Delay(1500);
         Engine.DlgSel(3);
         Delay(1500);
         Engine.DlgSel(1);
         Delay(1500);
         Engine.Dlgopen;
         Delay(1500);
         Engine.DlgSel(3);
         Delay(1500);
         Engine.DlgSel(2);
         Delay(1500);
         Engine.MoveTo(-119381, 47992, 378);
         Engine.MoveTo(-119336, 47016, 376);
         Engine.MoveTo(-117192, 47640, 472);
         Engine.MoveTo(-117144, 47976, 472);
         Engine.Settarget(32167);
         Engine.Dlgopen;
         Delay(1500);
         Engine.DlgSel(3);
         Delay(1500);
         Engine.MoveTo(-117176, 47640, 472);
         Engine.MoveTo(-117606, 47446, 462);
         Engine.MoveTo(-119240, 47688, 464);
         Engine.MoveTo(-119368, 47944, 392);
         Engine.MoveTo(-119368, 49192, 32);
         Engine.Settarget(32173);
         Engine.Dlgopen;
         Delay(1500);
         Engine.DlgSel(3);
         Delay(1500);
         Engine.DlgSel(1);
         Delay(1500);
         Engine.Dlgopen;
         Delay(1500);
         Engine.DlgSel(3);
         Delay(1500);
         Engine.DlgSel(2);
         Delay(1500);
         Engine.BypassToServer('00');
         Delay(1500);
    end.   
    
    Квест на нг соски
    Код:
    //Начало в деревне камаэлей, возле Маркеллы
    uses SysUtils, Classes;
    var
    Npc: TL2Npc;
    shot: TL2Item;
    Item: TL2Item;
    qItem: TL2Item;
    shw: TL2Item;
    Quest: TItemList;
    function CheckStatus: Boolean;
    begin
    Result:=true;
        if User.Dead then begin
        begin
        Delay(1500);
            Engine.FaceControl(0,false);
            Engine.GoHome;
            Delay(3000);
        end;
        end;
    Result:=false;
    end;
    function shots: boolean;
    begin
         Delay(2500);
         Engine.Settarget(32173);
         Delay(1500);
         Engine.Dlgopen;
         Delay(2000);
         Engine.DlgSel(3);
         Delay(1500);
         Engine.DlgSel(1);
         Delay(1500);
         Engine.DlgSel(1);
         Delay(1500);
         Engine.BypassToServer('00');
         Delay(1500);
         Engine.Dlgopen;
         Delay(2000);
         Engine.DlgSel(3);
         Delay(1500);
         Engine.DlgSel(2);
         Delay(1500);
         Engine.DlgSel(1);
         Delay(1500);
         Engine.BypassToServer('00');
         Delay(1500);
         Engine.MoveTo(-119416, 47944, 392);
         Engine.MoveTo(-119320, 46984, 376);
         Engine.MoveTo(-117672, 46776, 368);
         Engine.MoveTo(-116936, 46600, 368);
         Engine.Settarget(32163);
         Engine.Dlgopen;
         Delay(1500);
         Engine.DlgSel(1);
         Delay(1500);
         Engine.DlgSel(8);
         Delay(2000);
         Engine.MoveTo(-122296, 73848, -2856);
         Engine.MoveTo(-122552, 76856, -3200);
         Engine.MoveTo(-121960, 79224, -3176);
         Engine.MoveTo(-121704, 80344, -3104);
         Engine.Loadconfig('Bot1');  //Меняем на свой или удаляем если настроено
         Delay(1000);
         Engine.FaceControl(0, true);
    end;
    procedure kamael;
    begin
         if (Inventory.Quest.ByID(9796, item) = true) and Inventory.User.ByID(9716, item) then begin
         Engine.FaceControl(0, false);
         Engine.UseItem(9716);
         Delay(25000);
         end;
    end;
    function getshots: boolean;
    begin
        Delay(1500);
        Engine.FaceControl(0, false);
        Engine.MoveTo(-119672, 45576, 384);
        Engine.MoveTo(-119496, 47768, 400);
        Engine.MoveTo(-119384, 49208, 24);
        Engine.Settarget(32173);
        Engine.Dlgopen;
        Delay(1500);
        Engine.DlgSel(3);
        Delay(1500);
        Engine.DlgSel(1);
        Delay(1500);
        Engine.BypassToServer('01');
        Delay(1500);
        Engine.BypassToServer('00');
        Delay(1500);
        end;
    begin
         while true do
         begin
         Delay(2000);
         if (user.level >=6) and user.inrange(-119400, 49224, 24, 200) and Inventory.User.ByID(5789, item) and (item.count <=5555) then begin
         if not (Inventory.Quest.ByID(9796, item) = true) then Script.Newthread(@shots);
         Delay(25000);
         end;
         //Тут указываем кол-во сое в камаель, стоит 9
         if (user.level >=10) and Inventory.User.ByID(9716, item) and (item.count >=9) then kamael;
         if user.inrange(-120000, 44500, 368, 200) then Script.Newthread(@getshots);
         end;
         Delay(2000);
    end.   
    
    Квест на адену 20+
    Код:
    //Начало возле Тамилы, гк в деревне орков
    var
    Npc: TL2Npc;
    begin
         Delay(2500);
         Engine.MoveTo(-45128, -112568, -224);
         Engine.MoveTo(-45080, -113112, -224);
         Engine.MoveTo(-46040, -113640, -184);
         Engine.MoveTo(-46328, -113208, -184);
         Engine.MoveTo(-46296, -112936, -184);
         Engine.MoveTo(-45896, -112568, -184);
         Engine.Settarget(30572);
         Delay(1500);
         Engine.Dlgopen;
         Delay(1500);
         Engine.DlgSel(3);
         Delay(1500);
         Engine.DlgSel(1);
         Delay(1500);
         Engine.DlgSel(1);
         Delay(1500);
         Engine.BypassToServer('00');
         Delay(2500);
         Engine.MoveTo(-46312, -112952, -184);
         Engine.MoveTo(-46296, -113240, -184);
         Engine.MoveTo(-46072, -113592, -184);
         Engine.MoveTo(-45704, -113512, -224);
         Engine.MoveTo(-45048, -112984, -224);
         Engine.MoveTo(-45224, -112568, -224);
         Engine.Settarget(30576);
         Delay(1500);
         Engine.Dlgopen;
         Delay(1500);
         Engine.DlgSel(1);
         Delay(1500);
         Engine.DlgSel(2);
         Delay(2500);
         Engine.MoveTo(87256, -143320, -1272);
         Engine.MoveTo(87672, -142648, -1328);
         Engine.MoveTo(88936, -142232, -1328);
         Engine.MoveTo(89640, -141848, -1520);
         Engine.MoveTo(90424, -142904, -1520);
         Engine.MoveTo(90472, -143176, -1520);
         Engine.MoveTo(90024, -143176, -1504);
         Engine.Settarget(31979);
         Delay(1500);
         Engine.Dlgopen;
         Delay(1500);
         Engine.DlgSel(2);
         Delay(1500);
         Engine.DlgSel(2);
         Delay(1500);
         Engine.DlgSel(1);
         Delay(1500);
         Engine.BypassToServer('00');
         Delay(1500);
         Engine.Dlgopen;
         Delay(1500);
         Engine.DlgSel(2);
         Delay(1500);
         Engine.DlgSel(1);
         Delay(1500);
         Engine.DlgSel(1);
         Delay(1500);
         Engine.BypassToServer('00');
         Delay(1500);
         Engine.MoveTo(90504, -143192, -1520);
         Engine.MoveTo(90408, -142824, -1520);
         Engine.MoveTo(89624, -141864, -1520);
         Engine.MoveTo(88952, -142168, -1320);
         Engine.MoveTo(87512, -142808, -1312);
         Engine.MoveTo(87096, -143416, -1272);
         Engine.Settarget(31964);
         Delay(1500);
         Engine.Dlgopen;
         Delay(1500);
         Engine.DlgSel(1);
         Delay(1500);
         Engine.DlgSel(14);
         Delay(2500);
         Engine.Settarget(32017);
         Delay(1500);
         Engine.Dlgopen;
         Delay(1500);
         Engine.DlgSel(1);
         Delay(1500);
         Engine.DlgSel(1);
         Delay(1500);
         Engine.DlgSel(1);
         Delay(1500);
         Engine.BypassToServer('00');
         Delay(1500);
         Engine.Dlgopen;
         Delay(1500);
         Engine.DlgSel(1);
         Delay(1500);
         Engine.DlgSel(1);
         Delay(1500);
         Engine.DlgSel(1);
         Delay(1500);
         Engine.BypassToServer('00');
         Delay(1500);
    end.   
    
    Альтернативный квест на 2 профу
    Код:
    //Начало в кузнице гирана (40+ первая профа и 3кк адены)
    var
    Npc: TL2Npc;
    begin
         Delay(2500);
         Engine.MoveTo(77624, 148280, -3576);
         Engine.Settarget(31435);
         Delay(1500);
         Engine.Dlgopen;
         Delay(1500);
         Engine.DlgSel(2);
         Delay(1500);
         Engine.DlgSel(1);
         Delay(1500);
         Engine.DlgSel(1);
         Delay(1500);
         Engine.MoveTo(77544, 148312, -3576);
         Engine.MoveTo(77512, 148520, -3584);
         Engine.MoveTo(77096, 148600, -3576);
         Engine.MoveTo(74712, 148056, -3408);
         Engine.MoveTo(73496, 147864, -3376);
         Engine.MoveTo(72648, 148024, -3312);
         Engine.Settarget(32487);
         Engine.Settarget(32488);
         Delay(1500);
         Engine.Dlgopen;
         Delay(1500);
         Engine.DlgSel(1);
         Delay(1500);
         Engine.DlgSel(1);
         Delay(1500);
         Engine.Loadconfig('Bot1');  //меняем на свой или удаляем если настроено
         Delay(1000);
         Engine.FaceControl(0, true);
         Delay(10000);
         Engine.FaceControl(0, false);
         Delay(10000);
         Engine.Settarget(32488);
         Engine.Settarget(32487);
         Delay(1500);
         Engine.Dlgopen;
         Delay(1500);
         Engine.DlgSel(1);
         Delay(1500);
         Engine.DlgSel(1);
         Delay(1500);
         Engine.MoveTo(72696, 148024, -3312);
         Engine.MoveTo(74744, 148200, -3392);
         Engine.MoveTo(77272, 148616, -3576);
         Engine.MoveTo(77528, 148440, -3576);
         Engine.MoveTo(77592, 148296, -3576);
         Delay(1500);
         Engine.Settarget(31435);
         Delay(1500);
         Engine.Dlgopen;
         Delay(1500);
         Engine.DlgSel(2);
         Delay(1500);
         Engine.DlgSel(1);
         Delay(1500);
         Engine.MoveTo(77512, 148312, -3576);
         Engine.MoveTo(77576, 148488, -3584);
         Engine.MoveTo(79608, 148504, -3520);
         Engine.MoveTo(79800, 148376, -3512);
         Engine.MoveTo(79848, 148232, -3512);
         Engine.MoveTo(80152, 148184, -3488);
         Engine.MoveTo(80456, 147960, -3488);
         Engine.Settarget(30081);
         Delay(1500);
         Engine.Dlgopen;
         Delay(1500);
         Engine.DlgSel(4);
         Delay(1500);
         Engine.DlgSel(1);
         Delay(1500);
         Engine.DlgSel(1);
         Delay(1500);
         Engine.DlgSel(1);
         Delay(1500);
         Engine.Dlgopen;
         Delay(1500);
         Engine.DlgSel(4);
         Delay(1500);
         Engine.DlgSel(1);
         Delay(1500);
         Engine.DlgSel(1);
         Delay(1500);
         Engine.MoveTo(80152, 148184, -3488);
         Engine.MoveTo(79800, 148264, -3512);
         Engine.MoveTo(79752, 148456, -3512);
         Engine.MoveTo(77096, 148600, -3576);
         Engine.MoveTo(74984, 148168, -3408);
         Engine.MoveTo(72632, 148072, -3312);
         Engine.Settarget(32487);
         Engine.Settarget(32488);
         Delay(1500);
         Engine.Dlgopen;
         Delay(1500);
         Engine.DlgSel(1);
         Delay(1500);
         Engine.DlgSel(1);
         Delay(1500);
         Engine.MoveTo(74728, 148184, -3392);
         Engine.MoveTo(77320, 148632, -3584);
         Engine.MoveTo(77544, 148424, -3576);
         Engine.MoveTo(77576, 148296, -3576);
         Engine.Settarget(31435);
         Delay(1500);
         Engine.Dlgopen;
         Delay(1500);
         Engine.DlgSel(2);
         Delay(1500);
         Engine.DlgSel(1);
         Delay(1500);
         Engine.Dlgopen;
         Delay(1500);
         Engine.DlgSel(2);
         Delay(1500);
         Engine.MoveTo(77512, 148312, -3576);
         Engine.MoveTo(77544, 148456, -3576);
         Engine.MoveTo(80840, 148664, -3456);
         Engine.MoveTo(81528, 149768, -3448);
         Engine.MoveTo(81480, 150056, -3520);
         Engine.Settarget(31092);
         Delay(1500);
         Engine.Dlgopen;
         Delay(1500);
         Engine.DlgSel(5);
         Delay(1500);
    end.   
    
    И не готовый скрипт на проигрывания звука, когда вас берут в таргет. Проблема в том что звук идет без остановки, пока тот кто вас взял в таргет его не уберет.
    Код:
    uses SysUtils, Classes;
    
    var
      charT: tl2live;
      num: integer;
      obj: tl2effect;
    begin
    while engine.status = lsonline do begin
      for num:=0 to CharList.Count - 1 do
         if (CharList.Items(num).Target=User) and not(CharList.Items(num).Dead) then begin
         PlaySound(exepath + '\sounds\' + 'hp' + '.wav', False);
         Delay(2000);
         end;
    end;
    end;
    
    Анти дизарм обновил, оказался нерабочим)
     
    Последнее редактирование: авг 14, 2015
    6aPmaJIei и Gant нравится это.
  6. MrFantastik

    MrFantastik

    Сообщения:
    17
    Симпатии:
    4
    Баллы:
    13
    Кач ЕЕ не работает, бот тупо берет квест на кристал и дрочит мобов до без сознания.
    Кач ФС 1-85 можно было не выкладывать, ибо там только оболочка, самих скриптов которые объявляет оболочка нету.
     
    DaVilka нравится это.
  7. behelf

    behelf Упырь

    Сообщения:
    60
    Симпатии:
    86
    Баллы:
    15
    Ищу 1-85 скрипт, на любую профу.
     
  8. MrTraC

    MrTraC Старший модератор Команда форума Старший модератор

    Сообщения:
    423
    Симпатии:
    616
    Баллы:
    143
    Написал скрипт на фарм мобов под ореном (школа полномочий), если умер ребафается и летит обратно. начало возле гк.
    Код:
    function CheckStatus: Boolean;
    begin
        if User.Dead then begin
        begin
        Delay(1500);
            Engine.FaceControl(0,false);
            Engine.GoHome;
            Delay(3000);
        end;
        end;
    end;
    
    procedure buffAltB;
    begin
        Engine.FaceControl(0, false);
        Engine.BypassToServer('_bbshome');
        Delay(1000);
        Engine.BypassToServer('_bbsbuffer');
        Delay(1000);
        Engine.BypassToServer('_bbsbufferuse sss Player');
    end;
    
    function farm: boolean;
    begin
         Engine.FaceControl(0, false);
         Delay(3000);
         Engine.Settarget(30177);
         Delay(1500);
         Engine.Dlgopen;
         Delay(2500);
         Engine.DlgSel(1);
         Delay(1500);
         Engine.DlgSel(14);
         Delay(5000);
         Engine.MoveTo(87480, 61399, -3648);
         Engine.MoveTo(85720, 60296, -3440);
         Engine.MoveTo(85160, 60216, -3424);
         Engine.FaceControl(0, true);
    end;
    
    function respawnOren: boolean;
    begin
        if User.inrange(80334,54400,-1552, 250, 150) then begin
        buffAltB;
          Engine.MoveTo(80334,54400,-1552);
          Engine.MoveTo(80969,53698,-1558);
          Engine.MoveTo(81540,53454,-1494);
          Engine.MoveTo(82480,53340,-1494);   
          Engine.MoveTo(82950,53186,-1494);
        end;
        if User.inrange(82323,55466,-1520, 250, 150) then begin
        buffAltB;
          Engine.MoveTo(82323,55466,-1520);
          Engine.MoveTo(82403,54498,-1523);
          Engine.MoveTo(82589,53861,-1486);   
          Engine.MoveTo(82950,53186,-1494);
        end;
        if User.inrange(82123,53535,-1488, 250, 150) then begin
        buffAltB;
          Engine.MoveTo(82123,53535,-1488);   
          Engine.MoveTo(82950,53186,-1494);
        end;
        if User.inrange(80304,56241,-1552, 250, 150) then begin
        buffAltB;
          Engine.MoveTo(80304,56241,-1552);
          Engine.MoveTo(81470,55682,-1523);
          Engine.MoveTo(82256,55294,-1523);
          Engine.MoveTo(82510,54035,-1494); 
          Engine.MoveTo(82950,53186,-1494);
        end;
        if User.inrange(82445,56012,-1520, 250, 150) then begin
        buffAltB;
          Engine.MoveTo(82445,56012,-1520);
          Engine.MoveTo(82341,54950,-1523);
          Engine.MoveTo(82574,53833,-1486); 
          Engine.MoveTo(82950,53186,-1494);
        end;
        if User.inrange(80054,53209,-1552, 250, 150) then begin
        buffAltB;
          Engine.MoveTo(80054,53209,-1552);
          Engine.MoveTo(80624,53611,-1558);
          Engine.MoveTo(81772,53468,-1494);
          Engine.MoveTo(82289,53472,-1494);
          Engine.MoveTo(82950,53186,-1494);
        end;
        if User.inrange(80513,52980,-1552, 250, 150) then begin
        buffAltB;
          Engine.MoveTo(80513,52980,-1552);
          Engine.MoveTo(80165,53065,-1558);
          Engine.MoveTo(80630,53610,-1558);
          Engine.MoveTo(81688,53447,-1494);
          Engine.MoveTo(82303,53338,-1494); 
          Engine.MoveTo(82950,53186,-1494);
        end;
        if User.inrange(80267,55497,-1552, 250, 150) then begin
        buffAltB;
          Engine.MoveTo(80267,55497,-1552);
          Engine.MoveTo(80359,54536,-1558);
          Engine.MoveTo(80792,53785,-1558);
          Engine.MoveTo(81495,53421,-1494);
          Engine.MoveTo(82323,53362,-1494);
          Engine.MoveTo(82950,53186,-1494);
        end;
        if User.inrange(79933,55752,-1552, 250, 150) then begin
        buffAltB;
          Engine.MoveTo(79933,55752,-1552);
          Engine.MoveTo(80349,55208,-1558);
          Engine.MoveTo(80470,54217,-1558);
          Engine.MoveTo(81053,53602,-1558);
          Engine.MoveTo(81974,53465,-1494);   
          Engine.MoveTo(82950,53186,-1494);
        end;
        if User.inrange(80594,55837,-1552, 250, 150) then begin
        buffAltB;
          Engine.MoveTo(80594,55837,-1552);
          Engine.MoveTo(81899,55492,-1523);
          Engine.MoveTo(82240,55142,-1523);
          Engine.MoveTo(82531,53946,-1494);   
          Engine.MoveTo(82950,53186,-1494);
        end;
        if User.inrange(82213,53964,-1488, 250, 150) then begin
        buffAltB;
          Engine.MoveTo(82213,53964,-1488);
          Engine.MoveTo(82668,53709,-1486); 
          Engine.MoveTo(82950,53186,-1494);
        end;
        if User.inrange(83327,55410,-1520, 250, 150) then begin
        buffAltB;
          Engine.MoveTo(83327,55410,-1520);
          Engine.MoveTo(82607,55592,-1523);
          Engine.MoveTo(82184,54809,-1523);
          Engine.MoveTo(82563,53882,-1488);   
          Engine.MoveTo(82950,53186,-1494);
        end;
        if User.inrange(79706,52986,-1552, 250, 150) then begin
        buffAltB;
          Engine.MoveTo(79706,52986,-1552);
          Engine.MoveTo(80427,53549,-1558);
          Engine.MoveTo(80812,53655,-1558);
          Engine.MoveTo(81979,53439,-1494);   
          Engine.MoveTo(82950,53186,-1494);
        end;
        if User.inrange(82880,55390,-1520, 250, 150) then begin
        buffAltB;
          Engine.MoveTo(82880,55390,-1520);
          Engine.MoveTo(82375,55524,-1523);
          Engine.MoveTo(82367,54313,-1493);
          Engine.MoveTo(82651,53734,-1486);   
          Engine.MoveTo(82950,53186,-1494);
        end;
        if User.inrange(82552,53447,-1488, 250, 150) then begin
        buffAltB;
          Engine.MoveTo(82552,53447,-1488);   
          Engine.MoveTo(82950,53186,-1494);
        end;
        if User.inrange(82638,53885,-1488, 250, 150) then begin
        buffAltB;
          Engine.MoveTo(82638,53885,-1488);   
          Engine.MoveTo(82950,53186,-1494);
        end;
    end;
    
    begin
    while engine.status = lsonline do begin
      CheckStatus; //Проверка на смерть
      Delay(333);
      respawnOren;  //К гк
      Delay(333);
      if User.inrange(82950,53186,-1494, 80) then farm;  //К фарму
      Delay(333);
    end;
    end.
    
     
    Последнее редактирование: сен 16, 2015
    6aPmaJIei нравится это.
  9. lxa

    lxa

    Сообщения:
    2
    Симпатии:
    0
    Баллы:
    1
    для каких хроник последний скрипт?
     
  10. hammer9mln

    hammer9mln Адекват

    Сообщения:
    46
    Симпатии:
    14
    Баллы:
    13
    хф и выше