sub mining() 
var mx, my, mz, i, j 
var ismining, ixx, isheavy 
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 
UO.Print("Now Mining In: "+str(mx-i)+" "+str(my-j)) 
ismining = 1 
while not UO.InJournal("no ore here") and not UO.InJournal("location") and not UO.InJournal("far away") and not UO.InJournal("in rock") and ismining 

UO.DeleteJournal() 
UO.Waittargettile("1341", str(i), str(j), str(mz)) 
UO.Usetype('0x0e85') 
if UO.Weight>840 then 
UO.recall('0x40023FBD','2') 
Return 
endif 
ixx = 0 
ismining=1 
while not UO.InJournal("You put") and not UO.InJournal("location") and not UO.InJournal("no ore") and not UO.InJournal("but fail") and not UO.InJournal("far away") and not UO.InJournal("in rock") and ixx <= 100 
wait (100) 
ixx = ixx + 1 
wend 



if uo.injournal("Rusty") then 
ismining = 0 
endif 
if uo.injournal("Old Copper") then 
ismining = 0 
endif 
if uo.injournal("Dull Copper") then 
ismining = 0 
endif 
if uo.injournal("the Copper") then 
ismining = 0 
endif 
if uo.injournal("Iron") then 
ismining = 0 
endif 
if not ismining then 
uo.print("Not mining here") 
endif 
wend 
UO.DeleteJournal() 
next 
next 
goto allstop 
UO.recall('0x40023FBD','2') 
allstop: 
uo.print("*** Script ended ***") 
end sub 
sub healing() 
UO.SetArm('CWeapon') 
UO.Exec("bandageself") 
wait(500) 
UO.Arm('CWeapon') 
end sub