sub Camping()
var i,j
var MX=uo.GetX()
var MY=uo.GetY()
var MZ=uo.GetZ()
var time=uo.Time()
uo.Print('Выбери Сундук с Хворостом: ')
uo.Exec('addobject Chest')
while uo.Targeting()
wait(100)
wend
while not uo.Dead()
for i=MX-3 to MX+3
for j=My-3 to MY+3
if uo.Count('0x0DE1')==0 then
uo.FindType('0x0DE1',-1,'Chest')
if uo.FindCount()>0 then
uo.MoveItem('finditem','6')
else
return
end if
end if
uo.FindType('0x0DE1',-1,'backpack')
uo.MoveItem('finditem','1','ground',str(i),str(j),str(MZ))
CheckLag()
wait(1000)
uo.FindType('0x 0DE1','0x0000','ground')
while uo.FindCount()>0
repeat
uo.UseObject('finditem')
wait(500)
CheckLag()
until not uo.InJournal('You fail')
wait(500)
uo.FindType('0x0DE1','0x0000','ground')
wend
next
next
wend
end sub

sub CheckLag()
if uo.Waiting()>0 then
uo.Exec('canceltarget')
end if
uo.DeleteJournal()
uo.Click('backpack')
repeat
wait(50)
until uo.InJournal('backpack')
end sub