sub Camping()
var Exit=0
var q=3
var w=0
var e=0
uo.Print('Выбери Сундук с Хворостом: ')
uo.Exec('addobject Chest')
while uo.Targeting()
wait(100)
wend
var mx, my, mz, i, j
mx = UO.GetX("self")
my = UO.GetY("self")
mz = UO.GetZ("self")
UO.DeleteJournal()
uo.exec("set distance 1")
while not uo.dead()
for i = mx-q to mx+q
for j = my-q to my+q
uo.deletejournal()
UO.Print("Now Camping In: "+str(mx-i)+" "+str(my-j))
CheckLag()
uo.FindType('0x0DE1','0x0000','Chest')
if uo.GetQuantity('finditem')>0 Then
UO.Drop('1',str(i),str(j),str(mz),'finditem')
uo.UseObject('finditem')
wait(1000)
uo.UseObject('finditem')
wait(1000)
next

UO.DeleteJournal()
next
wend

end sub

sub CheckLag()
UO.DeleteJournal()
UO.Click('backpack')
repeat
wait(500)
until UO.InJournal('backpack')
end sub


Предыдушая версия скрипта с ходибой немного глючила - пришлось переделать ) Нужна плошадка 4х4 клетки - ставите под ноги сумку с хворостом - запускаем - указываем на сумку - и все )

Переменая q - отвечает за плошадь територии . менять от 2 до 4
Скрипт переделан со скриптов кампинг и фишинг.