Yoko

Sub Mining()
UO.DeleteJournal()
var x, y
var pick='0x0E85'
VAR ms1 = "There is no ore" 
VAR ms2 = "You can't use" 
VAR ms3 = "You loosen some rocks" 
VAR ms4 = "location" 
VAR ms5 = "Try mining" 
VAR ms6 = "You can't see that"
for x=-2 to 2
for y=-2 to 2
try:
UO.Exec ("waittargettile "+" 1340 "+STR(UO.GEtX()+x)+" "+STR(UO.GetY()+y)+" 0") 
UO.usetype(pick)
if UO.InJournal(ms1) OR UO.InJournal(ms2) OR UO.InJournal(ms3) OR UO.InJournal(ms4) OR UO.InJournal(ms5) OR UO.InJournal(ms6) then
wait (300)
UO.DeleteJournal() 
goto try
uo.print("   End ")
end sub

if UO.InJournal(ms1) OR UO.InJournal(ms2) OR UO.InJournal(ms3) OR UO.InJournal(ms4) OR UO.InJournal(ms5) OR UO.InJournal(ms6) then
wait (300)
UO.DeleteJournal()
goto try
end if
uo.print("   End ")
end sub