Ultima Online Antares

Program Door;
var
    Door_id : Cardinal;
    i : Integer;
    door_type : array of Word;
    jTimer : TDateTime;
BEGIN
IgnoreReset;
  FindDistance := 1;
  door_type := [$06F1,$06F3,$06A9,$06E5,$06E7,$06ED,$06EF,$06A5,$06A7,$06AD,$06AF,$0675,$0677,$067D,$067F,$06DD,$06DF,$06B3,$06B5,$06B7,$06D5,$06D7,$0824,$0826]; // сюда можно дописать нужные двери.
  While not Dead do
    begin
      for i := 0 to GetArrayLength(door_type) - 1 do
      if findtype(door_type[i],ground) > 0 then
      begin
         Door_id := FindItem;
         jTimer:= now;
         UseObject(Door_id);
         wait(100);
            if InJournalBetweenTimes('door is locked', jTimer, Now)>0 then
            Ignore(Door_id);
      end;
    end;
end.