20 Июня 2019 08:51 
Навигация
 +  - 
Скачать игры
Сейчас на сайте
19.06.2019
Warhangel
13:08:46
offline
15.06.2019
defred
4 дней
offline
11.06.2019
Artem02...
1 неделя
offline
10.06.2019
Vladislav
1 неделя
offline
07.06.2019
goobskiy
1 неделя
offline
Последние фото
Game of Blocks : WesterosCraft and Game of Thrones
Game of Blocks : Wes...
Альбом: Скриншоты

Вынос трёх пати куполом
Вынос трёх пати куполом
Альбом: Скриншоты



Альбом: Флора

Последние видео
Видео ТРИ СУДЬБЫ - Короткометражный фэнтези-боевик : Короткометражный CGI-фильм, посвященный игре The Elder Scrolls Online.

Игрофильмы:  ТРИ СУДЬБЫ - Короткометражный фэнтези-боевик

Видео Rhine Falls : Rhine Falls Live Camera streeeam

Онлайн камеры:  Rhine Falls

Видео Live Cam, Central Memorial Park, Calgary, Alberta : Central Memorial Park is a park located in central Calgary\

Онлайн камеры:  Live Cam, Central Memorial Park, Calgary, Alberta

Наша кнопочка
FAQ7.ru
Код:
RSS каналы
Новости
Комменты
Форум
Статьи
Фото
Файлы
Ссылки
Объявления
Реклама
Регистрация сайта в каталогах, раскрутка и оптимизация сайта, контекстная реклама
Автор темы: Warhangel
ID темы: 2144
Информация о теме:
Имеются 2 сообщений по данной теме, которая была просмотрена 226 раз.  Имеются также вложенные файлы.
Реклама
livecoin Обменник
Просмотр темы
Логин:
Пароль:  
Форум » Игровые форумы » Lineage » Боты и скрипты
Просмотр темы
Текущий рейтинг: (Всего: 0 голосов)  
Ответить
Иконка 
Адреналин: Авто-поиск РБ в Зале Иллюзий
Наверх Распечатать сообщение #1
Опубликовано 21-03-2019 02:39
Аватар пользователя

Супер Администратор



Сообщений: 2204
Вас поблагодарили: 18
раз(а) в 18 сообщениях

Зарегистрирован: 24.03.10
Со дня регистрации: 3375
Откуда: Россия
Пол: Мужской

Скрыть награды


Пожаловаться на это сообщение 

Авто-поиск РБ в Зале Иллюзий

(X) Для просмотра скрытого текста ( зарегистрируйтесь | зайдите под своим ником )
Warhangel присоединил файл:
rbsearch.rar [240.81кБ, скачали 10 раз(а)]
 Offline
 
Посетить сайт автора
Цитировать
Наверх Распечатать сообщение #2
Опубликовано 21-03-2019 02:40
Аватар пользователя

Супер Администратор



Сообщений: 2204
Вас поблагодарили: 18
раз(а) в 18 сообщениях

Зарегистрирован: 24.03.10
Со дня регистрации: 3375
Откуда: Россия
Пол: Мужской

Скрыть награды


Пожаловаться на это сообщение 
Иконка 
RE: Адреналин: Авто-поиск РБ в Зале Иллюзий

вариант 2

uses
  SysUtils, Classes;
   
var
  i, Count_Room, Count_Enter : integer;
  Gate: TL2Npc;
 
const // Самый важный раздел, прежде чем запускать скрипт - проверьте ID NPC в ЗИ на вашем сервере и выставьте актуальные
 
  Eastern = 32658; // Восток - фарм для милишников, РБ без отката
  Western = 32659; // Запад - фарм для лукарей, РБ без отката
  South = 32660; // Юг - фарм для магов, РБ без отката
  North = 32661; // Север - фарм для копейщиков, РБ без отката
  Great = 32662; // Площадь, слабый РБ, откат по вики - 24 часа
  Tower = 32663; // Башня, сильный РБ, откат по вики - 24 часа
 
  Escape = 32664; // НПС, который появляется внутри комнаты - через него можно 1 раз сменить комнату или выйти наружу
 
begin
 
i := 0;
Count_Enter := 0;
 
print('Приступаем к поиску РБ');
while Engine.Status = lsOnline do
begin
  for i:=0 to NpcList.count-1 do // По факту приближения к нужному киперу на 100 едениц будет произведен вход в инст и начат поиск РБ
  begin
    if ((NpcList.items(i).ID = Eastern)
    or (NpcList.items(i).ID = Western)
    or (NpcList.items(i).ID = South)
    or (NpcList.items(i).ID = North)
    or (NpcList.items(i).ID = Great)
    or (NpcList.items(i).ID = Tower))
    and (User.DistTo(NpcList.items(i)) < 100) then // Проверяем, что подошли именно к нужному нам НПС и он находится достаточно близко от нас
    begin
      Count_Room := 1; // Передали в переменную, что заходим в первую комнату
      inc(Count_Enter); // Увеличили счетчик проходов на 1
      Gate := NpcList.items(i); // Передали в переменную НПС рядом с которым мы находимся
      Engine.SetTarget(Gate); // Взяли в таргет НПС, рядом с которым мы находимся
      Engine.DlgOpen; // Открыли диалог   
      Engine.DlgSel(1); // Выбрали первую строку в диалоге, зашли в инст
      Delay(100); // Данную задержку можно увеличить до времени ожидания телепорта и прогрузки НПС в комнате, если вам не хочется сильно нагружать ЦПУ
    end;
  end;
 
  for i:=0 to NpcList.count-1 do // Попадаем в цикл как только в комнате отреспится наш "Escape" НПС
  begin
    if (NpcList.items(i).ID = Escape)
    and (User.DistTo(NpcList.items(i)) < 150) then // Проверка на дистанцию тут нужна, чтобы не пытаться бежать начинать диалог с "Escape" НПС из другой комнаты
    begin
      if user.InRange(-108062, -154692, -6672, 500, 250) // Проверяем не попали ли мы в комнату к РБ
      or user.InRange(-121465, -154628, -6704, 500, 250) then // Это координаты центров комнат в которых появляются РБ
      begin
        print('Нашли РБ с прохода № '+inttostr(Count_Enter)); // Если проверка на нахождение в комнате с РБ успешна, оповещаем игрока, останавливаем скрипт
        PlaySound('Sounds/target.wav',false); // Проигрываем звук из папки Sounds находящейся в папке с ADR
        Engine.BlinkWindow(true); // Мигаем окном игры в котором найден РБ
        exit;
      end
      else
      begin
        if Count_Room < 2 then // Тут мы проверяем, меняли мы уже комнату или нет
        begin
          inc(Count_Room); // Увеличили счетчик комнат, чтобы в следующей комнате выйти из инста, а не пытаться сменить комнату
          Engine.SetTarget(Escape); // Взяли в таргет нашего НПС
          Engine.DlgOpen; // Открыли диалог   
          Engine.DlgSel(1); // Выбрали первую строку в диалоге, сменили комнату
          delay(100); // Данную задержку можно увеличить до времени ожидания телепорта и прогрузки НПС в комнате, если вам не хочется сильно нагружать ЦПУ
        end
        else
        begin
          Engine.SetTarget(Escape); // Взяли в таргет нашего НПС
          Engine.DlgOpen; // Открыли диалог   
          Engine.DlgSel(2); // Выбрали вторую строку в диалоге, вышли из инста
          print('Закончили проход № '+inttostr(Count_Enter));
          delay(100); // Данную задержку можно увеличить до времени ожидания телепорта и прогрузки НПС в комнате, если вам не хочется сильно нагружать ЦПУ
        end;
      end;
    end;
  end;
delay(250); // Данная задержка определяет, как часто проверяется наличие рядом с вами нужных НПС. Если её убрать или поставить 0, то ADR будет сильно загружать ЦПУ.
end;
 
print('Персонаж перешел в режим OFFLINE - завершаем работу скрипта');
end.
 Offline
 
Посетить сайт автора
Цитировать
Ответить
Здесь присутствуют: 1 (пользователей: 0, гостей: 1)

« Предыдущая тема | Следующая тема »
 RSS Перейти на форум:
Розыгрыши 728х90

Последние объявления
ФотоЗаголовокГородРазмещено
АО «РФП лесозаготовка» реализует неликвиды в ассортименте
• Транспорт - Разное Цена: 1 1
Хабаровск07.06.2019
(на 1 месяц)
Поставщик кафельной плитки ПРАЙД Керамика
• Хозяйство - Сырье и материалы Цена: 1 1
Москва07.06.2019
(на 24 месяца)
Неликвиды НАЗ «Сокол» - филиал АО «РСК «МиГ»
• Транспорт - Грузовые авто Цена: 1 1
Нижний Новгород29.05.2019
(на 1 месяц)
Справка о несудимости в Москве
• Работа и бизнес - Разное Цена: 1 1
Москва05.12.2018
(на 24 месяца)
Универсальный гипермаркет Gecsa
• Развлечения - Туризм Цена: 1 1
Казань06.11.2017
(на 24 месяца)
Облако тегов тем форума
Серия квестов для прохода к Freya, ArcheAge CBT5 - PvP видео, 10 психологических хитростей, с помощью которых можно влиять на людей, 25 tо Life, Иду на грозу!, Корабли в Eve, Гайд по паладину., World of Warcraft - На PTR появилась система масштабирования локаций, Black Desert Bot Information, World of Warcraft Фарм без КД, кач в ЛОА 58+, Легендарная папка Con и псевдопорты MS-DOS, 10 самых полезных функций Windows 7, Как стать миллионером за 10 лет, Готовые сборки модов для World of Tanks
Главная Статьи Файлы Форум Ссылки Новости Фотогалерея Объявления Видео Файлобменник Гороскоп Поиск по торрентам Радио Видеочат
Яндекс.Метрика
Powered by PHP-Fusion copyright © 2002 - 2019 by Nick Jones. Released as free software without warranties under GNU Affero GPL v3.