Скрипты фарм ЗИ (только комнаты с АТТ )

[Luni]

Для серверов х50+
Лучше всего фармить Маг + Биш
Скрипт настроен только на фарм комнат только с атрибутом Воды и Святости .

Скрипт для мага :

Спойлер

var l2buff: TL2Buff;
procedure Buffs; //ребаф
begin
Engine.BypassToServer(Сюда вставляем записанный баф через бота);
delay(500);
Engine.BypassToServer(Сюда вставляем записанный баф через бота);
delay(500);
Engine.BypassToServer(Сюда вставляем записанный баф через бота);
end;

procedure Dead; //якщо вмер
begin
Engine.FaceControl(0,false);
Engine.gohome;
delay(9000);
end;

procedure ReturnRoom; //повернутись в ЗІ
begin
Engine.FaceControl(0,false);
Engine.SetTarget(32664);
delay(500);
Engine.DlgOpen();
delay(500);
Engine.DlgSel(2);
end;

procedure ReturnFarm;//повернутись на фарм
begin
Engine.SetTarget(32660);
Engine.DlgOpen();
delay(100);
Engine.DlgSel(1);
Engine.FaceControl(0,true);
end;

begin
while true do begin
if User.Dead then begin
Dead;
end;

//Якщо офф бафф
if not User.Buffs.ById(1357, l2buff) then begin
Buffs; //ребафаємся
end;

//Якщо ми в ЗІ то йдем фармити
if user.InRange(-114584, -153064, -6704,2000,250) then begin
ReturnFarm;
end;

//Якщо ми не в ЗІ і не на споті то повертаємось в ЗІ
if not user.InRange(-114584, -153064, -6704,2000,250) then begin
if user.InRange(-122336, -152563, -6672,300,250) then begin//Якщо ми не в кімнаті з водою
Engine.FaceControl(0,true);
end
else if user.InRange(-120585, -152993, -6672,500,250) then begin//Якщо ми не в кімнаті з водою
Engine.FaceControl(0,true);
end
else begin
ReturnRoom;
end;
end;




delay(500);
end;
end.

Скрипт для биша

Спойлер

var Obj: TL2Buff;
begin
while true do begin // бесконечный цикл
if User.Dead then begin // умер- вырубаем интерфейс, возврат в город и пауза 15 секунд
Engine.gohome; //Кнопка вмісто
delay(9000); //Чекаєм 9сек
end;
if not User.Buffs.ById(1357, Obj) then begin
Engine.BypassToServer(Сюда вставляем записанный баф через бота);
delay(1000);
Engine.BypassToServer(Сюда вставляем записанный баф через бота);
delay(1000);
Engine.BypassToServer(Сюда вставляем записанный баф через бота);
end;
delay(1000);
end;
end.

 

[panamera13]

спасибо , но если бы еще по русски коменты писал , а не на укропском
и на биша какой то странный скрипт

 

[technogen]

Спойлер: Правила сайта

1. Общие положения
3. Будьте вежливы к другим участникам сообщества.

 

[Luni]

@panamera13, Персонаж с первым сриптом , всегда ПЛ пати , второй скрипт просто на ребаф , в боте уже сами поставите что бы он бегал за Пати Лидером .

 

[slavik]

хахах мой скрипт в шару выложили

 

[Emancipator]

@slavik,
Скрипт написанный за 10 минут, не грех выложить в шару

 

[SARCAZM]

Прекратите флейм Автор молодец в любом случае.

если бы еще по русски коменты писал , а не на укропском

На Равре добрая половина пользователей - украинцы

 

[lopgop]

какие строки надо убрать что бы он фармил все комнаты ? а не только со свят и водой.

 

[Ivanius]

На Равре добрая половина пользователей - украинцы

Как правило это - Во всем русскоязычном сегменте (кодинг, ботинг и т.д.) действует.

 

[ktozdes]

тоже интересует какие строки убрать и что добавить чтобы он фармил все румы а не только с атт

 

[ТигреноК]

1) Через снифер записывал баф, пишет ошибку (выделяет красным цветом первую строчку куда вписывал баф)

2) Убрал немного из скрипта, фармлю все комнаты

Спойлер

var l2buff: TL2Buff;
procedure Dead;
begin
Engine.FaceControl(0,false);
Engine.gohome;
delay(9000);
end;
procedure ReturnRoom;
begin
Engine.FaceControl(0,false);
Engine.SetTarget(32664);
delay(500);
Engine.DlgOpen();
delay(500);
Engine.DlgSel(2);
end;
procedure ReturnFarm;
begin
Engine.SetTarget(32660);
Engine.DlgOpen();
delay(100);
Engine.DlgSel(1);
Engine.FaceControl(0,true);
end;
begin
while true do begin
if User.Dead then begin
Dead;
end;
if user.InRange(-114584, -153064, -6704,2000,250) then begin
ReturnFarm;
end;
delay(500);
end;
end.

тут думаю ничего не стоит обьяснять.. вот только вопрос, почему после убийства рб он не уходит с комнаты? мб чего то не хватает?
3)Скрит на биша вообще отказался работать, почему? хз..
ps.Помогите решить проблему с бафером, в долгу не останусь.
pss. Адрик v1.61

 

[SARCAZM]

@ТигреноК, байпасс выдели в одинарные кавычки)

 

[ТигреноК]

@SARCAZM,
во я (человек с низким инелектом)
Благодарю

 

[ТигреноК]

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

 

[husteg]

@ТигреноК,
проблема в этой строчке,

if not User.Buffs.ById(1357, l2buff) then begin
он чекает баф под номером 1357, на тебе его видимо нет и он не перестает бафаться, просто измени 1357 на id любого своего бафа из набора