Yoko

sub main()
var i
uo.print("Poneslas`!!!")
While UO.Life>0
for i=1 to 15
kopat()
uo.press(116)
wait(1000)
uo.press(116)
next
uo.press(116)
wait(1000)
uo.press(116)
uo.print("Idem nazad!!!")
kopat()
for i=1 to 15
uo.press(117)
wait(1000)
uo.press(117)
next
uo.press(117)
wait(1000)
uo.press(117)

wend
end sub

sub kopat()
var where_x,where_y,where_z,coords,i
UO.DeleteJournal()
where_x=uo.getx()
where_y=uo.gety()
where_z=uo.getz()
for i=-2 to 2
uo.print("Kopaem "+str(i+3)+"/5")
coords="waittargettile 1343 "+str(where_x)+" "+str(where_y+i)+" 0"
uo.exec(coords)
uo.exec("usetype '0x0E85'")
UO.DeleteJournal()
while (not (UO.InJournal("stop mining") or UO.InJournal("left there") or UO.InJournal("far away")))
wait(1000)
wend
next
end sub

for i=-2 to 2
uo.print("Kopaem "+str(i+3)+"/5")

coords="waittargettile 1343 "+str(where_x)+" "+str(where_y+i)+" 0" 

while (not (UO.InJournal("stop mining") or UO.InJournal("left there") or UO.InJournal("far away")))
wait(1000)
wend 

for i=-2 to +2

while (not (UO.InJournal("stop mining") or UO.InJournal("left there") or UO.InJournal("far away"))) 

sub main()
var i
uo.print("Poneslas`!!!")
While not uo.dead()
for i=1 to 15
kopat()
wait(1000)
uo.press(116)
wait(1000)
uo.press(116)
next
uo.print("Idem nazad!!!")
wait(1000)
for i=1 to 15
uo.press(117)
wait(1000)
uo.press(117)
wait(1000)
kopat()
next
uo.press(117)
wait(1000)
uo.press(117)
wend
end sub 

sub kopat()
var where_x, where_y, i
UO.DeleteJournal()
where_x=uo.getx()
where_y=uo.gety()
for i=-2 to 2
uo.print("Kopaem "+str(i+3)+"/5")
uo.waittargettile(-1,str(where_x+i),str(where_y+i),0)
uo.usetype('0x0E85')
UO.DeleteJournal()
while not UO.InJournal("stop mining|left there|far away")
wait(200)
wend
next
end sub