COMMON Автоматическое изучение артефактов

[pwnZorik]

Хотелось бы ввести на сервере возможность автоматического изучения артефактов как автоматическая заточка скиллов, вставка ЛС и заточка оружия.
Чтоб сам ловил нужный артефакт, а ненужный удалял

 

[Decabria]

А скрипт написать не? Если не, то ручками.

 

[Vasily]

var art: string = 'Puma Atk';
var del: integer = 500;
var minfa: integer = 500;

function StrInDlg(str: string): boolean;
begin
    result := Pos(str, Engine.DlgText) > 0;
end;

procedure CheckFA();
var item: TL2Item;
begin
    if(not Inventory.User.ByID(12014, item) or (item.Count<minfa)) then begin
        print('Low friends adena');
        Halt;
    end;
end;

procedure JoinArts();
begin
    CheckFA;
    Engine.SetTarget('Magician');
    Delay(del);
    Engine.DlgOpen;
    Delay(del);
    Engine.DlgSel(3);   
    Delay(del);
    if(StrInDlg('5 LvL')) then
    begin
      Print('Done');
      Halt;
    end
    else begin
        if(StrInDlg('Нет артефактов')) then Exit
        else begin
           Engine.DlgSel(1);
           Delay(del*3);
           JoinArts;
        end;
    end;
end;

procedure SearchArts();
begin
    Engine.SetTarget('Magician');
    Delay(del);     
    Engine.DlgOpen;
    Delay(del);
    while(not StrInDlg(art)) do
    begin     
      Engine.DlgSel(1); 
      Delay(del*3);
      CheckFA;
      Engine.DlgSel(1);   
      Delay(del);
    end;
    JoinArts;
    SearchArts;
end;

begin
  CheckFA;
  JoinArts;
  SearchArts;
end.

Включаешь автоприем диалогов от всех и качаешь

 

[pwnZorik]

Включаешь автоприем диалогов от всех и качаешь

Спасибо большое