Вот вырезка из моего скрипта на добычу шкур, этот саб сам находит на 10 клеток, бежит к нему, режет и лутает шкуры и лутает все что в нем есть и режет потом шкуры; Если надо то ссылку на ходилку можно убрать
Code:
**************************************************** Скрипт на автолут **********************
sub Goto_loot()
uo.print('Lutaem')
var dx,dy,Obj2
UO.Set('finddistance',10) ; дистанция для поиска
UO.FindType('0x2006', '-1', '1') ; Ищем на земле труп и засовываем его в переменную
if uo.findcount() > 0 then
obj2 = UO.GetSerial("finditem")
dx=UO.GetX(obj2)
dy=UO.GetY(obj2)
uo.print ("TRup v tocke " + str(dx) + " " + str(dy))
if dx > 0 then
uo.print ("begim k trupu v tochke " + str(dx) + " " + str(dy))
Gotoxy(dx,dy,1) ; Бежим к трупу
uo.waittargetobject(Obj2) ; установить прицел на труп
wait(1000)
UO.usetype(Nogik) ; Использовать нож на прицеле
wait(2000)
uo.UseObject(Obj2)
UO.Set( 'finddistance', '2' )
Repeat
UO.FindType( '-1', '-1', obj2)
UO.Grab( 200, 'finditem' ) ; грабим все что есть в трупе
wait(1000)
Until UO.FindCount() == 0
uo.ignore(Obj2) ; игнорировать обьект в дальнейшем
end if
uo.findtype(Skur)
if uo.findcount() > 0 then
obj2 = UO.GetSerial("finditem")
uo.waittargetobject(Obj2) ; установить прицел на шкуры
UO.usetype(Nojnici)
end if
end if
end sub