Автоламбер с лодкой (сервер new age)

[Oasis]

попробую в массивы прописать и процедуру клонировать из дропа дерева в новую дроп регов. ибо втыкаю в дроп дерева и немогу понять как туда впихнуть реги.

[drabadan]

попробую в массивы прописать и процедуру клонировать из дропа дерева в новую дроп регов. ибо втыкаю в дроп дерева и немогу понять как туда впихнуть реги.

читай тут

Code: Select all

procedure DropLog;
begin
repeat
FindType(LogType,Backpack);
if (FindCount > 0) then
   begin
   stack(LogType,GetColor(finditem));
   wait(500);
   end;
until (Count(LogType) = 0);
FindType(LogType,ground);
Addtosystemjournal('Дерева всего на лодке - '+intToStr(findfullquantity));
FindType(TynkType,ground);
Addtosystemjournal('Тулзов на лодке - '+intToStr(findfullquantity));
FindType(eda,ground);
Addtosystemjournal('Еды осталось - '+intToStr(findfullquantity));
Addtosystemjournal('=========================================');
{уот етот кусок можешь копировать доусерачки, сколько типов захочешь выгружать столько и копируй. Так будет проще всего}
if FindType(ТУТ ВПИШИ ТИП ИТЕМА КОТОРЫЙ ХОЧЕШЬ ВЫГРУЖАТЬ, Backpack) > 0 then
  begin
    MoveItem(FindItem, 0, Ground, 0,0,0); {у вас там, что не пропадают вещи валяющиеся на земле? если пропадают то  вместо Ground впиши айдишку сундука или трюма.}
    Wait(1000);
  end;
//конец куска для копирования
end;

[Oasis]

drabadan Спасибо большое все работает=)