Code: Select all
Sub sbor()
var q=0
var dx, dy
sbor:
uo.set('finddistance','3')
uo.findtype('0x0C4F', -1 ,'ground')
If Uo.FindCount () then
if uo.weight > uo.str*4 then
return
endif
UO.Useobject('finditem')
wait(200)
q=q+1
UO.Ignore('finditem')
goto sbor
endif
uo.set('finddistance','10')
uo.findtype('0x0C4F', -1 ,'ground')
if uo.FindCount() then
dx=uo.getX('finditem')
dy=uo.getY('finditem')
walker(dx, dy, 1)
goto sbor
endif
if q then
UO.Print(' ... ')
else
UO.Print(' ... ')
endif
uo.print(' Go Home ...')
end sub