while islocation(20) do
    reachlocation($wptx,$wpty,$wptz)
    useitemon("small emerald",0,ground($wptx,$wpty,$wptz))
    waitping(2,3)
end