Ultima Online Antares

Program daily;

var
sTime, sTime1 : TDateTime;
ToolsType : array of Word;
ToolsID       : Cardinal;
i : Integer;
const
M_fjob = 'Рабочее место уже занято|Выполнение работы прервано|Вы успешно справились с работой|Вы нуждаетесь в отдыхе';
M_fjob2 = 'Вы нуждаетесь в отдыхе';
M_sjob  = 'Вы успешно справились с работой!';

begin
  FindDistance := 25;
  FindVertical := 9;
  sTime1 := Now;

  AddGumpIgnoreByID($044D);
  ToolsType := [$107C,$0C1C,$185B,$0F36,$091A]; // <----- Указать типЫ используемых в ежедневках предметОВ
  repeat
    repeat
      sTime := Now;
      for i := 0 to GetArrayLength(ToolsType) - 1 do
      if findtype(ToolsType[i],ground) > 0 then
      begin
        ToolsID := FindItem;
        MoveOpenDoor := True;
        NewMoveXY(GetX(ToolsID),GetY(ToolsID),true,1,true);
        CheckLag(30000);
        wait(700);
        UseObject(ToolsID);
        CheckLag(30000);
        wait(700);
        NumGumpButton((GetGumpsCount-1),1);
        while (InJournalBetweenTimes(M_fjob, sTime, Now) <= 0) do
        begin
          If not Hidden then UseSkill('Hiding'); //можно закоментировать, если хайд не нужен
          wait(1000);
        end;
        if (InJournalBetweenTimes('Рабочее место уже занято', sTime, Now) > 0) then
        Ignore(ToolsID);
        if (InJournalBetweenTimes(M_fjob2, sTime, Now) > 0) then
        begin
          AddToSystemJournal('Need Relax. Waiting 10 min')
          Wait(600000);
        end;
        CheckLag(30000);
        wait(700);
        if FindType(ToolsType[i],Ground) <= 0 then
        IgnoreReset;
      end;
    until (InJournalBetweenTimes(M_sjob, sTime1, Now) > 1);
  until Dead;
end.