Ultima Online Antares

program sbor;

{$Include 'all.inc'}

const
  max_weight = 600; //Максимальный Вес

var
  types: array[1..6] of word;  // 6 - размер массива, кол-во элементов.
  num_of_types,i: integer;
  tmp_id:cardinal;

procedure Init;
  begin
    types[1] := $0C85; // бримстоун
    types[2] := $0C94; // обсидиан
    types[3] := $0C8A; // вулканик аш
    types[4] := $0C88; // пумис
    types[5] := $0D04; // дед вуд
    types[6] := $18E9; // гинсик

    num_of_types := 6;  //кол-во элементов в массиве
  end;


Begin
  Init;
  while not dead do
    begin
      checksave;
      while Weight < max_weight do
        begin
          for i := 1 to num_of_types do
            begin
              FindDistance:= 4;
              tmp_id := FindType(types[i], Ground);
              wait(100);
              if tmp_id <> 0 then
                begin
                  repeat
                    AddToSystemJournal('Что-то нашел, иду рвать...');
                    UseObject(tmp_id);
                    AddToSystemJournal('Сорвал...');
                    wait(1000);
                    tmp_id := FindType(types[i], Ground);
                    wait(100);
                  until (tmp_id = 0);
                end;
            end;
          AddToSystemJournal('Нечего рвать... жду 5 секунд...');
          wait(5000);
        end;
      AddToSystemJournal('--->!!!Вес набран, закругляемся!!!');
      exit;
    end;
  AddToSystemJournal('--->!!!Убили Гады!!!');
End.