Ребят, помогите сюда впилить проверку на баф. Мало в етом разбираюсь, пробовал вклеивать сюда куски кода с проверкой, перепробовал кучу вариаций,но ничего не получается. Перелопатил сайт адреналина и весь гугл, не дано мне сообразить как это сделать....

[Pimpo4ka 1]

 procedure onn;
     
     begin
     Engine.FaceControl(0,true);
     end;

     procedure atak2;
     
     begin
     onn;
     Engine.LoadConfig(ник);
     delay(300);
     while 1<>2 do begin
     if User.Dead then 
     begin
     Engine.GoHome(rtClanHall);
     Engine.FaceControl(0,False);
     Delay(5000);
     buff;
     tp1;
     onn;
     end;
     delay(5000);
     end;
     end;
     
     procedure buff;
     begin
     Engine.MoveTo(146374, -55566, -2793);     
     Engine.SetTarget(35461);
     Engine.DlgOpen();
     delay(500);
     Engine.DlgSel(3);
     delay(500);
     Engine.DlgSel(3);
     delay(500);
     Engine.DlgSel(1);
     delay(500);
     Engine.DlgSel(3);
     delay(500);
     Engine.DlgSel(4);
     delay(500);
     Engine.DlgSel(5);
     delay(500);
     Engine.DlgSel(6);
     delay(500);
     Engine.DlgSel(7);
     delay(500);
     Engine.DlgSel(8);
     delay(500);
     Engine.DlgSel(9);
     delay(500);
     Engine.DlgSel(11);
     delay(500);
     Engine.DlgSel(12);
     delay(500);
     Engine.DlgSel(13);
     delay(500);
     Engine.DlgSel(14);
     delay(500);
     Engine.DlgSel(17);
     delay(500);
     Engine.DlgSel(18);
     delay(500);
     Engine.DlgSel(19); 
     end;

     procedure tp1;
     begin
     Engine.SetTarget(35461); 
     delay(1000);
     Engine.DlgOpen();
     delay(1000);
     Engine.DlgSel(3);
     delay(1000);
     Engine.DlgSel(2);
     delay(1000);
     Engine.DlgSel(9);
     delay(2500);
     Engine.MoveTo(146027, -112395, -2470);
     
     end;
     begin while 1<>2 do begin
     buff;
     tp1;
     atak2;
     end;
     end.

[P5LD2SE 24]

if not User.Buffs.ById(1204, Buff) then  // Проверка есть ли на нас бафф ВВ по ID
begin
Engine.FaceControl(0,false);
//Engine.UseItem(736); //Юзаем СоЕ если нет бафа ВВ
Engine.entertext('/unstuck');
end;

[Pimpo4ka 1]

13 hours ago, P5LD2SE said:

if not User.Buffs.ById(1204, Buff) then  // Проверка есть ли на нас бафф ВВ по ID
begin
Engine.FaceControl(0,false);
//Engine.UseItem(736); //Юзаем СоЕ если нет бафа ВВ
Engine.entertext('/unstuck');
end;

А есть ли возможность юзать сое когда персонаж не атакован? И поставить условие, что баф есть, но осталось до конца бафа 2 минуты? Потому как при других обстоятельствах пока перс юзает сое без бафа, его скорее всего убьют....

[Alehandro 14]

юзай бсое

[Pimpo4ka 1]

20 hours ago, P5LD2SE said:

if not User.Buffs.ById(1204, Buff) then  // Проверка есть ли на нас бафф ВВ по ID
begin
Engine.FaceControl(0,false);
//Engine.UseItem(736); //Юзаем СоЕ если нет бафа ВВ
Engine.entertext('/unstuck');
end;

Вставляю этот код в скрипт, ругается на первую строку

[Николай 2]

40 minutes ago, Pimpo4ka said:

Вставляю этот код в скрипт, ругается на первую строку

Перед процедурой, в которой вызываешь этот код - добавь:

 

var
  Buff: TL2Buff;

 

Изменено 7 июля, 2023 пользователем Николай

[Pimpo4ka 1]

12 hours ago, Николай said:

Перед процедурой, в которой вызываешь этот код - добавь:

 

var
  Buff: TL2Buff;

 

попробовал, все равно ругается

 

16 hours ago, Alehandro said:

юзай бсое

логику в етом вижу, но количество бсое ограничено и это может стать проблемой

 

[Николай 2]

3 hours ago, Pimpo4ka said:

попробовал, все равно ругается

Выложи скрипт, который получился и какую ошибку пишет.

[Pimpo4ka 1]

On 08.07.2023 at 09:56, Николай said:

Выложи скрипт, который получился и какую ошибку пишет.

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