Very simple script, but it increases your chance of getting roots if there are other players hunting there as well.
It only checks the squares around you:
X X X
X P X
X X X
Here it is:
auto(200,500)
for x = -1, 1 do
for y = -1, 1 do
if topuseitem($posx+x,$posy+y,$posz).id == 21104 then
pausewalking(5000)
useitem(0, ground($posx+x,$posy+y,$posz))
waitping()
pausewalking(0)
end
end
end