18 Апреля 2019 23:56 
Навигация
 +  - 
Скачать игры
Сейчас на сайте
18.04.2019
maksim2019
08:25:32
offline
18.04.2019
Respect
09:35:19
offline
17.04.2019
Oleg158
1 день
offline
17.04.2019
iotopia
1 день
offline
16.04.2019
hazzitlt
2 дней
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 сообщений по данной теме, которая была просмотрена 153 раз.  Имеются также вложенные файлы.
Реклама
livecoin Обменник
Просмотр темы
Логин:
Пароль:  
Форум » Игровые форумы » Lineage » Боты и скрипты
Просмотр темы
Текущий рейтинг: (Всего: 0 голосов)  
Ответить
Иконка 
Адреналин: Авто-поиск РБ в Зале Иллюзий
Наверх Распечатать сообщение #1
Опубликовано 21-03-2019 02:39
Аватар пользователя

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



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

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

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


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

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

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

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



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

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

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


Пожаловаться на это сообщение 
Иконка 
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
Другой10.04.2019
(на 1 месяц)
ООО «ЛУКОЙЛ-Нижневолжскнефть» реализует неликвиды
• Транспорт - Водный транспорт Цена: 1 1
Астрахань25.03.2019
(на 1 месяц)
Справка о несудимости в Москве
• Работа и бизнес - Разное Цена: 1 1
Москва05.12.2018
(на 24 месяца)
Универсальный гипермаркет Gecsa
• Развлечения - Туризм Цена: 1 1
Казань06.11.2017
(на 24 месяца)
Продажа опрессовочного оборудования для РВД
• Хозяйство - Оборудование Цена: 1 1
Москва18.10.2017
(на 24 месяца)
Облако тегов тем форума
Korean Test server update. 23/06/2010, Баг с сумоном(конём) в Lineage 2, Path of Exile: Видео-рассказ об игре и Grinding Gear Games, Что подарить девушке?, Бизнес в свободное от РАБОТЫ время!, Что будет если исчезнет солнце, Blizzard решили закрыть внутриигровые аукционы в Diablo 3, Тактика на Синдрагосу, Адреналин: продажа айтемов в магазин, Пора-пора-порадуется дядька Саркисян, Он вызвал крики тысяч обезъян., Эпизод из прошлого 1, На тестовый сервер установлено обновление Aion 2.5 "Зов богов", Следственный комитет: видеоролики о нарушениях на выборах смонтированы, ArcheAge Новое интервью с Сонгом, Call of Duty: Modern Warfare 3 vs Battlefield 3 - По версии читателей IGN
Главная Статьи Файлы Форум Ссылки Новости Фотогалерея Объявления Видео Файлобменник Гороскоп Поиск по торрентам Радио Видеочат
Яндекс.Метрика
Powered by PHP-Fusion copyright © 2002 - 2019 by Nick Jones. Released as free software without warranties under GNU Affero GPL v3.