Code: Select all
sub m()
var t = 0
var tree
while uo.life < 500
uo.set('finddistance','2')
uo.FindType('0x0D94',-1,'ground')
tree = uo.getserial('finditem')
wait(1000)
uo.waittargetobject(tree)
wait(1000)
uo.UseType('0x0F43')
wait(4000)
t = t + 1
while not uo.InJournal('You put') or (t > 5)
wait(1000)
wend
t = 0
wend
end sub