Скрипт на баф NPC + вовзрат на спот

[Admin]

Приветствую,

ниже выложен код скрипта для возврата в город => тп в Гиран => бафа у NPC Buffer'a => тп обратно в свой город => тп в локацию на примере Варки:

begin    
    while User.Level > 1 do begin // Задаём условия, при котором скрипт будет всё время исполняться "Ваш уровень больше 1-го? Отлично. Поехали..
      if User.Dead then begin // Если персонаж умер
         Delay(1000);
         Engine.GoHome; // Жмем "To Village"
         Delay(5000);
         Engine.MoveTo(1477165,-56106,-2784); // Двигаемся к центральной точке в Годдарде
         Delay(5000);
         Engine.MoveTo(147965,-55282,-2728); // Двигаемся к ГК
       Delay(1000);
         Engine.SetTarget(31275); //Берем в таргет GK Tatiana
         Delay(500);
         Engine.DlgOpen; //Открываем диалог GK Tatiana
         Delay(500);
         Engine.DlgSel('Телепорт');//выбираем Teleport
        Delay(500);
        Engine.DlgSel('The Town of Giran - 63000 Adena'); // Выбираем нужное тп - тут важно указать точное имя строки
        Delay(5000); // Задержка на тп 5 секунд
        Engine.CancelTarget;
         Engine.MoveTo(83603,148000,-3400); // Подбегаем к NPC Buffer
         Delay(1000);
         Engine.SetTarget(35639); //Берём в таргет NPC Buffer
         Delay(500);
         Engine.DlgOpen; //Открываем диалоговое окно
         Delay(500);
         Engine.DlgSel('Атакующий');//выбиваем набор бафов Атакующий - здесь укажите свой.
         Delay(500);
         Engine.DlgSel('CP HP MP');//выбираем пополнить CP HP MP
         Delay(500);
         Engine.CancelTarget;
          Engine.MoveTo(83421,147931,-3400); //Бежим обратно к ГК
         Delay(500);
         Engine.SetTarget(30080); //Берем в таргет GK Clarissa
         Delay(500);
         Engine.DlgOpen; //Открываем диалоговое окно GK Clarissa
          Delay(500);
         Engine.DlgSel('Телепорт');//Выбираем Teleport
         Delay (500);
         Engine.DlgSel('Town of Goddard - 63000 Adena'); //Указываем точное название телепорта
       Delay(5000); // На тп 5 секунд
       Engine.CancelTarget;
       Engine.SetTarget(31275); //Берем в таргет GK Tatiana
         Delay(500);
         Engine.DlgOpen; //Открываем диалог GK Tatiana
         Delay(500);
         Engine.DlgSel('Телепорт');
        Delay(500);
        Engine.DlgSel('Varkas Silenos Stronghold - 4200 Adena'); // Точное название локации
        Delay(5000); // Нат тп 5 секунд
        Engine.MoveTo(124611,-42054,-3504); //В какую точку переместиться после тп в локацию. В этом примере указано переместить в ворота в Варке.
        end;
    end;
end.

Последних строк Engine.MoveTo(); у вас может быть несколько, в зависимости от удалённости Вашего спота от телепорта.

Скрипт иногда не выполняется на этапе в Гиране (перс может не портануться из Гирана или не взять баф).

Особенность: по утрам цены на тп в 2 раза ниже, из-за чего скрипт не портается - нужно указать новые цены в соответствующих строках, потом исправить обратно.

Delay(5000); //На телепорты - вы можете указать меньше, если используете SSD диск.

[Auth]

On 12.03.2021 at 01:07, Admin said:

Приветствую,

ниже выложен код скрипта для возврата в город => тп в Гиран => бафа у NPC Buffer'a => тп обратно в свой город => тп в локацию на примере Варки:

begin    
    while User.Level > 1 do begin // Задаём условия, при котором скрипт будет всё время исполняться "Ваш уровень больше 1-го? Отлично. Поехали..
      if User.Dead then begin // Если персонаж умер
         Delay(1000);
         Engine.GoHome; // Жмем "To Village"
         Delay(5000);
         Engine.MoveTo(1477165,-56106,-2784); // Двигаемся к центральной точке в Годдарде
         Delay(5000);
         Engine.MoveTo(147965,-55282,-2728); // Двигаемся к ГК
       Delay(1000);
         Engine.SetTarget(31275); //Берем в таргет GK Tatiana
         Delay(500);
         Engine.DlgOpen; //Открываем диалог GK Tatiana
         Delay(500);
         Engine.DlgSel('Телепорт');//выбираем Teleport
        Delay(500);
        Engine.DlgSel('The Town of Giran - 63000 Adena'); // Выбираем нужное тп - тут важно указать точное имя строки
        Delay(5000); // Задержка на тп 5 секунд
        Engine.CancelTarget;
         Engine.MoveTo(83603,148000,-3400); // Подбегаем к NPC Buffer
         Delay(1000);
         Engine.SetTarget(35639); //Берём в таргет NPC Buffer
         Delay(500);
         Engine.DlgOpen; //Открываем диалоговое окно
         Delay(500);
         Engine.DlgSel('Атакующий');//выбиваем набор бафов Атакующий - здесь укажите свой.
         Delay(500);
         Engine.DlgSel('CP HP MP');//выбираем пополнить CP HP MP
         Delay(500);
         Engine.CancelTarget;
          Engine.MoveTo(83421,147931,-3400); //Бежим обратно к ГК
         Delay(500);
         Engine.SetTarget(30080); //Берем в таргет GK Clarissa
         Delay(500);
         Engine.DlgOpen; //Открываем диалоговое окно GK Clarissa
          Delay(500);
         Engine.DlgSel('Телепорт');//Выбираем Teleport
         Delay (500);
         Engine.DlgSel('Town of Goddard - 63000 Adena'); //Указываем точное название телепорта
       Delay(5000); // На тп 5 секунд
       Engine.CancelTarget;
       Engine.SetTarget(31275); //Берем в таргет GK Tatiana
         Delay(500);
         Engine.DlgOpen; //Открываем диалог GK Tatiana
         Delay(500);
         Engine.DlgSel('Телепорт');
        Delay(500);
        Engine.DlgSel('Varkas Silenos Stronghold - 4200 Adena'); // Точное название локации
        Delay(5000); // Нат тп 5 секунд
        Engine.MoveTo(124611,-42054,-3504); //В какую точку переместиться после тп в локацию. В этом примере указано переместить в ворота в Варке.
        end;
    end;
end.

Последних строк Engine.MoveTo(); у вас может быть несколько, в зависимости от удалённости Вашего спота от телепорта.

Скрипт иногда не выполняется на этапе в Гиране (перс может не портануться из Гирана или не взять баф).

Особенность: по утрам цены на тп в 2 раза ниже, из-за чего скрипт не портается - нужно указать новые цены в соответствующих строках, потом исправить обратно.

Delay(5000); //На телепорты - вы можете указать меньше, если используете SSD диск.

Engine.DlgSel('The Town of Giran - 63000 Adena');

Можно указывать номер строки, и не надо *бли с ценами. 

Engine..DlgSel(3);

[Evgen]

Приветствую.

Подскажите как сюда вставить запуск боя.

[Evgen]

Вопрос снят, разобрался сам.