Stealth Client Forum

Паразит wrote:В скриптах я полный НОЛЬ, максимумл для УОпилота и для инжы самую малость что-то сделать могу!
прошу помощи!!!
Собсна сам скрипт на рубку одного дерева:

Code: Select all

Program Rub;
Begin
while not dead do 
begin
  uosay('.macro on');
  WaitTargetTile(3230,828,830,0);
  UseObject($520F6C60);
  wait (60000);
end;
end.

Пытался сюда воткнуть перекладывалку логов и дедвудов из бекпака персонажа в мешок лежащий рядом. Ничего не выходит. Выдавал ошибку что не синхронизирован знак ";" (или что-то вроде этого). Как старался, ошибка не уходила.
Помогите пожалуйста! Мне нужно чтоб при удачной рубке дерева логи и\или дедвуды сразу сбрасывались мешочек рядом, а не копились в паке перса...

Program Rub;
Begin
while not dead do 
begin
  uosay('.macro on');
  WaitTargetTile(3230,828,830,0);
  UseObject($520F6C60);
  wait (60000);
if (getquantity(findtype($1111,Backpack))>0) then //$1111 замени на тип логов
begin
moveitem(finditem,0,Box_Drova,0,0,0); //Box_Drova замени на ИДишник мешочка для древесины
wait(5000);
end;

end;
end.