sub main() 
var mx, my, mz, i, j, jor, ser, noto
mx = UO.GetX("self") 
my = UO.GetY("self") 
mz = UO.GetZ("self")
UO.DeleteJournal()
for i = mx-4 to mx+4
for j = my -4 to my+4
tohide()
UO.Print("Now Mining In: "+str(mx-i)+" "+str(my-j))   
while (not uo.injournal("no ore")) and (not uo.injournal("in rock"))  and (not uo.injournal("You have no line")) and (not uo.injournal("trhtrhr")) and (not uo.injournal ("That is too far")) 
uo.deletejournal()
if uo.waiting() then
uo.canceltarget()
endif
  UO.Waittargettile("1341", str(i), str(j), str(mz))
UO.UseType(pic)
while (not uo.injournal("fail")) and (not uo.injournal("put")) and (not uo.injournal("You have no line")) and (not uo.injournal("elemental")) and (not uo.injournal("no ore")) and (not uo.injournal("in rock")) and (not uo.injournal ("That is too far")) 
    wait(500) 
if uo.injournal("heavy") or uo.dead() then
endif