Ultima Online Antares

sub DoorsOpen()
    UO.AddFindList('Doors', 0x06E9)
    UO.AddFindList('Doors', 0x06F1)
    UO.AddFindList('Doors', 0x06F3)
    UO.AddFindList('Doors', 0x06A9)
    UO.AddFindList('Doors', 0x06E5)
    UO.AddFindList('Doors', 0x06E7)
    UO.AddFindList('Doors', 0x06ED)
    UO.AddFindList('Doors', 0x06EF)
    UO.AddFindList('Doors', 0x06A5)
    UO.AddFindList('Doors', 0x06A7)
    UO.AddFindList('Doors', 0x06AD)
    UO.AddFindList('Doors', 0x06AF)
    UO.AddFindList('Doors', 0x0675)
    UO.AddFindList('Doors', 0x0677)
    UO.AddFindList('Doors', 0x067D)
    UO.AddFindList('Doors', 0x067F)
    UO.AddFindList('Doors', 0x06DD)
    UO.AddFindList('Doors', 0x06DF)
    UO.AddFindList('Doors', 0x06B3)
    UO.AddFindList('Doors', 0x06B5)
    UO.AddFindList('Doors', 0x06B7)
    UO.AddFindList('Doors', 0x06D5)
    UO.AddFindList('Doors', 0x06D7)
    UO.AddFindList('Doors', 0x0824)
    UO.AddFindList('Doors', 0x0826)
    UO.AddFindList('Doors', 0x0870)
    UO.AddFindList('Doors', 0x0874)
    UO.AddFindList('Doors', 0x0866)
    UO.AddFindList('Doors', 0x0868)
    UO.AddFindList('Doors', 0x0839)
    UO.AddFindList('Doors', 0x083B)
    UO.AddFindList('Doors', 0x067B)
    UO.AddFindList('Doors', 0x0679)  
    var Door
    repeat
        if val(uo.getGlobal('dooropen'))==1 then
            if UO.FindList('Doors', 'ground', 1, -1, -1) <> '' && UO.GetDistance('finditem') <= 2 then
                Door= uo.getSerial('finditem')
                uo.useobject(Door)
                if UO.InJournal('door is locked') then
                    UO.DeleteJournal()
                    UO.Ignore(Door)
                end if
            end if
        endif
        wait(100)
    until uo.dead()
end sub

###Прописать в Sub Аutostart() строку do() либо запускать руками перед запуском скрипта DoorsOpen()
sub do()
    uo.setGlobal('dooropen',1)
end sub
sub dc()
    uo.setGlobal('dooropen',0)
end sub

Program Door;
var
    Door_id : Cardinal;
    i : Integer;
    door_type : array of Word;
    jTimer : TDateTime;
BEGIN
IgnoreReset;
  FindDistance := 1;
  door_type := [$06E9,$06F1,$06F3,$06A9,$06E5,$06E7,$06ED,$06EF,$06A5,$06A7,$06AD,$06AF,$0675,$0677,$067D,$067F,$06DD,$06DF,$06B3,$06B5,$06B7,$06D5,$06D7,$0824,$0826,$0870,$0874,$0866,$0868,$0839,$083B];
  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.