Sub mine()
var type = '0x19B9' #òèï
var color = '0x0000'
var color1 = '0x0601'
var color2 = '0x04C2'
###
var x, y, i, t, tmp, inside, goto_x, st, first
VAR ms1 = "There is nothing here to mine for" 
VAR ms2 = "You can't use"
VAR ms3 = "You put " 
VAR ms4 = "You loosen some rocks" 
VAR ms5 = "location" 
VAR ms6 = "Try mining" 
VAR ms7 = "You can't see that"
VAR ms8 = "You stop" 
VAR ms9 = "That is too"
first=UO.GetX()
start:
inside=0
for y=-1 to 1
for x=-1 to 1
repeat
uo.deletejournal()
t = UO.Timer() 
UO.Exec ("waittargettile "+" 1340 "+STR(UO.GEtX()+x)+" "+STR(UO.GetY()+y)+" 0")
UO.exec ("usetype 0x0E85")
##
uo.findtype(type,color, 'backpack')
if uo.findcount() then
uo.drophere('finditem')
else
uo.print ('Net dropa')
end if
##
repeat 
wait(300)
until UO.InJournal(ms1) OR UO.InJournal(ms2) OR UO.InJournal(ms3) OR UO.InJournal(ms4) OR UO.InJournal(ms5) OR UO.InJournal(ms6) OR UO.InJournal(ms7) OR UO.InJournal(ms9) OR ((t + 100) < UO.Timer()) 
until not UO.InJournal(ms8)
next
next
end sub

sub main()
var i
While UO.Life>0
for i=1 to 7
mine() 
uo.press(34)
wait(500)
uo.press(34)
wait(500)
uo.press(34)
next
uo.press(33)
wait(500)
uo.press(33)
wait(500)
uo.press(33)
mine() 
for i=1 to 7
uo.press(36)
wait(500)
uo.press(36)
wait(500)
uo.press(36)
next
uo.press(33)
wait(500)
uo.press(33)
wait(500)
uo.press(33)
wend
end sub