Проверка бафа и ТП если бафа нет. +готовый скрипт на фарм

[WeTerBotovod]

У меня есть очень просто и хороший скрипт для фарма "Филд оф висперс" 80 лвл маг фарм соло зона.
Поставил и забыл.
Можно добавить его в базу такие не замороченные весьма просты и полезны для новичков.

Спойлер

var obj: TL2NPC; obj21: TL2Effect; buff:TL2buff;

begin
while true do begin // вечный цыкл
delay(500); //задержка
if User.Dead then begin // если чарт мертв выполнять следующие действия
Engine.FaceControl(0,false); //отключить интерфейс бота
Engine.gohome; // нажать To Vilage
delay(15000);
end; //конец отрывка скрипта


// начинаем бежать к ГК



if User.inrange(110912,219584,-3664, 250, 150) then begin
Engine.MoveTo(110912,219584,-3664);
Engine.MoveTo(111154,219735,-3675);
Engine.MoveTo(111176,219395,-3546);
Engine.MoveTo(111387,219387,-3544);
end;
if User.inrange(111888,219584,-3664, 250, 150) then begin
Engine.MoveTo(111888,219584,-3664);
Engine.MoveTo(111617,219703,-3674);
Engine.MoveTo(111591,219371,-3544);
Engine.MoveTo(111387,219387,-3544);
end;
if User.inrange(112064,219792,-3664, 250, 150) then begin
Engine.MoveTo(112064,219792,-3664);
Engine.MoveTo(111665,219800,-3675);
Engine.MoveTo(111580,219329,-3544);
Engine.MoveTo(111387,219387,-3544);
end;
if User.inrange(107808,217856,-3672, 250, 150) then begin
Engine.MoveTo(107808,217856,-3672);
Engine.MoveTo(107769,217524,-3673);
Engine.MoveTo(109387,217509,-3747);
Engine.MoveTo(110037,217257,-3747);
Engine.MoveTo(110072,219029,-3477);
Engine.MoveTo(111202,219130,-3541);
Engine.MoveTo(111387,219387,-3544);
end;
if User.inrange(110896,220768,-3664, 250, 150) then begin
Engine.MoveTo(110896,220768,-3664);
Engine.MoveTo(111191,219621,-3663);
Engine.MoveTo(111190,219303,-3544);
Engine.MoveTo(111387,219387,-3544);
end;
if User.inrange(110768,219824,-3664, 250, 150) then begin
Engine.MoveTo(110768,219824,-3664);
Engine.MoveTo(111163,219763,-3671);
Engine.MoveTo(111199,219319,-3544);
Engine.MoveTo(111387,219387,-3544);
end;
if User.inrange(112112,220576,-3664, 250, 150) then begin
Engine.MoveTo(112112,220576,-3664);
Engine.MoveTo(111600,219666,-3669);
Engine.MoveTo(111586,219305,-3544);
Engine.MoveTo(111387,219387,-3544);
end;
if User.inrange(110688,220576,-3664, 250, 150) then begin
Engine.MoveTo(110688,220576,-3664);
Engine.MoveTo(111183,219655,-3669);
Engine.MoveTo(111201,219292,-3544);
Engine.MoveTo(111387,219387,-3544);
end;
if User.inrange(108032,218048,-3672, 250, 150) then begin
Engine.MoveTo(108032,218048,-3672);
Engine.MoveTo(107862,218003,-3673);
Engine.MoveTo(107840,217532,-3673);
Engine.MoveTo(109383,217465,-3747);
Engine.MoveTo(110036,217280,-3747);
Engine.MoveTo(110096,219040,-3478);
Engine.MoveTo(111086,219100,-3541);
Engine.MoveTo(111387,219387,-3544);
end;
if User.inrange(107568,218256,-3672, 250, 150) then begin
Engine.MoveTo(107568,218256,-3672);
Engine.MoveTo(107542,217872,-3673);
Engine.MoveTo(107840,217532,-3673);
Engine.MoveTo(109383,217465,-3747);
Engine.MoveTo(110036,217280,-3747);
Engine.MoveTo(110096,219040,-3478);
Engine.MoveTo(111086,219100,-3541);
Engine.MoveTo(111387,219387,-3544);
end;
if User.inrange(107552,218000,-3672, 250, 150) then begin
Engine.MoveTo(107552,218000,-3672);
Engine.MoveTo(107862,218003,-3673);
Engine.MoveTo(107840,217532,-3673);
Engine.MoveTo(109383,217465,-3747);
Engine.MoveTo(110036,217280,-3747);
Engine.MoveTo(110096,219040,-3478);
Engine.MoveTo(111086,219100,-3541);
Engine.MoveTo(111387,219387,-3544);
end;
if User.inrange(111856,220752,-3664, 250, 150) then begin
Engine.MoveTo(111856,220752,-3664);
Engine.MoveTo(111573,219730,-3675);
Engine.MoveTo(111589,219342,-3544);
Engine.MoveTo(111387,219387,-3544);
end;
// бежим к бафера
Engine.MoveTo(111199, 219172, -3520);
Engine.MoveTo(111206, 220224, -3664);
Engine.MoveTo(111194, 220903, -3536);




engine.settarget(32327); // выделить таргет БАФЕР
engine.dlgOPen(); // начать чат
delay(500);
engine.dlgsel(1); // выбрать строку под номером 1
delay(500);
engine.dlgsel(1);
// бежим от бафера к ГК
Engine.MoveTo(111189, 219547, -3600);
Engine.MoveTo(111202, 219254, -3528);
Engine.MoveTo(111372, 219379, -3528);


engine.settarget(30899); // выделить таргет с ID 31275 \ГК хайн
engine.dlgOPen(); // начать чат
delay(500);
engine.dlgsel(1); // выбрать строку под номером 1
delay(500);
engine.dlgsel(11); // улетаем в локу


delay(1000);



begin
Engine.FaceControl(0,true); //включить бота (true включить , false выключить)
end;


if not User.Buffs.ById(4324, Obj) then // - если нет бафа с таким ID, то
Engine.Facecontrol(0,False);
engine.useitem (1830); // юзаем скрол тп (это не стандартное сое)
end;


end. // конец всего скрипта

беда в этой части... я мало что понимаю в програмировании... но очень хорошо обычно... умею склеивать кусочки скриптов и как нуб наслождатся.
вырвал эту строку из подобной темы.

нужно что бы он улетал в город когда нет 1 бафа от бафера. в данном случае это блес боди.

в идиале что бы он добивал моба и останавливался и проводил эту процедуру.
но это особо не важно.

   if not User.Buffs.ById(4324, Obj) then // - если нет бафа с таким ID, то
Engine.Facecontrol(0,False);
engine.useitem (1830);    // юзаем скрол тп (это не стандартное сое)
end;

 

[ane13]

класс баффом определен как Buff

var obj: TL2NPC; obj21: TL2Effect; buff:TL2buff;
соответсвенно вместо Obj нужно поставить Buff

не
if not User.Buffs.ById(4324, Obj) then
а
if not User.Buffs.ById(4324, Buff) then

 

[iPipen]

Ребяты. Давно искал подобную штуку. Обрадовался когда наткнулся ппц как. Но изучив (насколько смог...) сий пост и попытавшись воплотить всё это дело в жизнь - столкнулся с тем, что перс начинает нонстопом по кд долбить по сое. Сразу после прокрутки одного свитка, начинает долбить второй. И так пока не релогну клиент. Даже отключение скрипта/бота не помогало. Помогите разобраться пожалуйста.