Авто фарм ЗИ и Рифта Adrenalin

[SARCAZM]

Автор iR_. Название темы может немного​

не совпадать с действительным назначением скрипта.​

Из набора http://rawr.su/topic/343-sbornik-skriptov-ot-irev/​

За шару огромное спасибо @NeonEye​

От автора:
Скрипт для Delusion Chamber & Rift с такими особенностями:
1. Добавлена поддержка рифта
2. Добавлена возможность поиска РБ
3. Добавлена возможность пропуска РБ
4. Добавлено возможность простого ожидания(поиск РБ в рифте)
5. Автоматический заход в рифт\ЗИ после выхода.
6. Автоматический выход из рифта\ЗИ после убийства РБ.
7. Удобный конфиг для настройки

Спойлер: Часть кода

uses
SysUtils, SettingsModule, Classes;

var
Settings: TSettings;
waitingRoomNpcID: integer = 32659;
throwRaid : boolean;
findRaid : boolean;
isDimensionRift : boolean;
effectsArray: array of integer;
isAutoAccept: boolean;

procedure waitingRoomController(npcID: integer);
var
i: integer;
obj: TL2Live;
begin
while Engine.Status = lsOnline do
begin
if NpcList.ById(npcID, obj) then
begin
delay(1 * 1000);
Engine.MoveTo(obj);
Engine.SetTarget(obj);
Engine.DlgOpen;
Engine.DlgSel(1);
end;

delay(1000);
end;
end;

function getManager: TL2Live;
var
i: integer;
begin
Result := nil;
for i:=0 to NpcList.count-1 do
begin
if ((NpcList.items(i).ID >= 32664) and (NpcList.items(i).ID <= 32701))//Delusion Chamber
or ((NpcList.items(i).ID >= 31865) and (NpcList.items(i).ID <= 31918))//Dimension Rift
and (User.DistTo(NpcList.items(i)) < 1000)
then
begin
Result := NpcList.items(i);
exit;
end;
end;
end;

procedure raidRoomController(npcID: integer = -1);
var
i: integer;
swapCounter: integer;
begin
swapCounter := 0;
while Engine.Status = lsOnline do
begin
delay(1000);

if findRaid and (getManager <> nil) and not isContainsRaid then
begin

if (User.DistTo(getManager) > 300) then
continue;

Engine.SetTarget(getManager);
Engine.DlgOpen;
if swapCounter = 0 then
begin
Engine.DlgSel(1);
inc(swapCounter);
end
else
begin
Engine.DlgSel(2);
swapCounter := 0;
end;
continue;
end;

if isDimensionRift and findRaid and (getManager <> nil) and not isContainsRaid then
begin
delay(10 * 1000);
continue;
end;

if throwRaid and (getManager <> nil) and isContainsRaid then
begin
Engine.SetTarget(getManager);
Engine.DlgOpen;
Engine.DlgSel(2);
end;

if not throwRaid and not findRaid and (getManager <> nil) and isContainsRaid then
begin
while isContainsRaid do
delay(1000);

delay(30 * 1000);

Engine.SetTarget(getManager);
Engine.DlgOpen;
Engine.DlgSel(2);
end;

end;
end;

function isContainsRaid: boolean;
var
i: integer;
begin

for i:=0 to NpcList.count-1 do
begin
if ((NpcList.items(i).ID >= 25690) and (NpcList.items(i).ID <= 25695))
or ((NpcList.items(i).ID >= 25333) and (NpcList.items(i).ID <= 25339))
then
begin
Result := true;
exit;
end;
end;
Result := false;
end;

procedure trimText(text: string; separator: char);
var
sl:TStringList;
i: integer;
begin
sl := TStringList.Create;
try
sl.Delimiter := separator;
sl.DelimitedText := text;

SetLength(effectsArray, sl.Count);
for i:=0 to sl.count-1 do
effectsArray := StrToInt(sl);

finally
sl.Free;
end;
end;

procedure buffDispel(buffID: integer);
var
Buff: TL2Effect;
begin
if User.Buffs.ByID(buffID, Buff) then
begin
Engine.Dispel(Buff.Name);
end
else
exit;
end;

procedure dispelController(effArr: array of integer);
var
i: integer;
begin
while Engine.Status = lsOnline do
begin
for i:=0 to Length(effArr)-1 do
begin
buffDispel(effArr);
end;
delay(500);
end;
end;


//07BD99B5
//1) Автоматическое снятие эффектов

procedure acceptDialogs;
begin
print('[Thread] Auto accept dialogs activated');
while Engine.Status=lsOnline do
begin
Engine.ConfirmDialog(true);
Delay(3000);
end;
end;

procedure loadSettings;
var
i: integer;
resStr: String;
begin
Settings.SetFile(Script.Path + User.Name + '_DCsettings.ini');
waitingRoomNpcID := Settings.Load('Params', 'Entry npc ID', -1);
throwRaid := Settings.LoadBool('Params', 'Throw raid', 'true');
findRaid := Settings.LoadBool('Params', 'Find raid', 'false');
isDimensionRift := Settings.LoadBool('Params', 'Dimension rift', 'false');

resStr := Settings.Load('Effects', 'Effect list', '1;2');
isAutoAccept := Settings.LoadBool('Effects', 'AcceptDialogs', 'false');

trimText(resStr, ';');

end;

begin
loadSettings;

script.newThread(@raidRoomController);
script.newThread(@waitingRoomController(waitingRoomNpcID));

if isAutoAccept then
script.newThread(@acceptDialogs);

delay(-1);
end.

Скачать полный архив: Посмотреть вложение delusion chamber.rar​

 

[grettens]

странно,вставляю скрипт,жму плей,перс тупо стоит 0 эмоций

 

[Ashir1]

Помогите плз со сриптом . Выходит ошибка (2): File "SettingsModule.PCU" not found .

 

[SARCAZM]

В архиве есть SettingsModule, он вроде как должен лежать в той же папке, что и адреналин (или в той же где скрипт).
Могу ошибаться, с модулями в адреналине не работал

 

[Ashir1]

да есть в архиве нужно как то указать путь ?

 

[SARCAZM]

@Ashir1, Попробуй положить файл SettingsModule.txt в папку со скриптом. Я уже забыл как в делфи подключаются модули.

 

[Ashir1]

ВСе пашет )

 

[gerato]

Вопрос, вроде все сделал, но при вылети из рифта, почему то таргетит мобов в другом рифте, и начинает тыркаться между заводящим нпс в рифт и этими мобами oO.если выключить бота и оставить скрипт то он спокойно заходит.Но находясь в рифте он продолжает таргетить нпс который заводит в рифт. В итоге картина как в комнатах он бьется головой об стену пока не реснуться мобы, как починить ?

 

[hten]

@Ashir1, как сделал?

 

[112]

грамотный скрипт ++ автору!

 

[Plegas]

Чуть допилить под себя и норм

 

[Zorinn]

Кто нибудь может объяснить? Какие исходные суловия, то есть какие персонажи должны быть в группе, с кого запускать скрипт? Кто ПЛ, я прошу прощения за нубские вопросы, но все же мне не совсем ясно.

 

[PandaTrader]

Эм...такая проблема.Подхожу к ГК в рифт - скрипт вроде запущен,но приходится ручками заходить.Дальше чекает комнаты нормально,но при выходе бот опять стоит.Такое тестилось на РПГ клабе,талесе и скрайде.

 

[vir20z]

тоже не заходит

 

[Select]

Если адрр крякнутый функция лоада настроек работает не правильно там немного править надо.

 

[inparadise]

Всем доброе утро , обьясните пожалуйста как его запустить )) запустил вродь в адрике (платный) включаю ,а действия 0 ... создал папку в папке с адриналином

 

[Suslyandia]

Открой файл NickName_DCsettings, проверь настройки, так же замени NickName на имя своего чара

 

[inparadise]

@Suslyandia, запустил ,настроил , делает тп в комнату зи и все ... рб не ищет ,дальше тп не делает

 

[inparadise]

я вас люблю ) получилось все норм запустить )

 

[TBT]

подскажите пожалуйста, как сделать что бы он пропускал рб?