Ultima Online Antares

Program SborReg;

var
reagent,prod:Array of Word;
i,counter:Integer;

const
Sunduk=$40CDAC45; // сундук
col=13; //количество элементов


procedure SysInit();
begin
  AddToSystemJournal('Инициализация системных переменных...');

  //ростки
  setlength(reagent, col);
  reagent[0]:=$0C94; // обсидиан
  reagent[1]:=$0C4F; // Хлопок
  reagent[2]:=$0C8A; // вулканик аш
  reagent[3]:=$18E9; // гинсенг
  reagent[4]:=$18DF; // мандрэйк
  reagent[5]:=$18E1; // гарлик
  reagent[6]:=$18E5; // найтшэйд
  reagent[7]:=$1A92; // Сено
  reagent[8]:=$0C7D; // Кукуруза
  reagent[9]:=$1A9E; // хонс
  reagent[10]:=$0C8D; // дерьмо
  reagent[11]:=$0C8A; // Вулканик
  reagent[12]:=$0D1B; // Виноград

  //собранные реги
  setlength(prod, col);
  prod[0]:=$0F89; // обсидиан
  prod[1]:=$1EBD; // Сено
  prod[2]:=$0F8F; // вулканик аш
  prod[3]:=$0F85; // гинсенг
  prod[4]:=$0F86; // мандрэйк
  prod[5]:=$0F84; // гарлик
  prod[6]:=$0F88; // найтшэйд
  prod[7]:=$0DF9; // Хлопок
  prod[8]:=$0C7F; // Кукуруза
  prod[9]:=$0C66; // Хонс
  prod[10]:=$0F81; // дерьмо
  prod[11]:=$0F8F; // Вулканик
  prod[12]:=$09D1; // Виноград  
  
  
end;


Begin

  SysInit;
  UseObject(Backpack);
  Wait(500);
  UseObject(Sunduk);
  Wait(500);

  while not dead do
  begin
    if WarMode then SetWarMode(false);
    if (Life < MaxLife) then
    begin
      UOSay('.bandageself');
      wait(1500);
    end;
    if Not Hidden then
    begin
      UseSkill('Hiding');
      Wait(5000);
    end;
    for i := 0 to (col-1) do
    begin
      if FindType(reagent[i],ground)>0 then
      begin
        AddToSystemJournal('Собрали ресурс!');
        UseObject(FindItem );
        Wait(500);
      end;
      if FindType(prod[i], Backpack)>0 then
      begin
        MoveItem(FindItem,0,Sunduk,0,0,0);
        For counter:=0 To 100 Do Begin Wait(10); If (GetParent(FindItem)=Sunduk) Then Break; End;
        AddToSystemJournal('Переложили ресурс!');
      end;
    end;
    wait(1000);
  end;
end.