start:

mx = UO.GetX("self")
my = UO.GetY("self")
mz = UO.GetZ("self")
UO.DeleteJournal()
for i = mx-4 to mx+4
wait(4000)
for j = my -4 to my+4
#UO.Print("Now Mining In: "+str(mx-i)+" "+str(my-j))
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 not UO.InJournal("the Iron Ore") and not UO.InJournal("the Old Copper Ore") and not Uo.InJournal("the Rusty Ore") and not Uo.InJournal("the Dull Copper Ore") and not Uo.InJournal("the Bronze Ore") and not Uo.InJournal("the Copper Ore")
UO.DeleteJournal()
UO.Waittargettile("1341", str(i), str(j), str(mz))
UO.Usetype("0x0E86")
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 not UO.InJournal("the Iron Ore") and not UO.InJournal("the Old Copper Ore") and not Uo.InJournal("the Rusty Ore") and not Uo.InJournal("the Dull Copper Ore") and not Uo.InJournal("the Bronze Ore") and not Uo.InJournal("the Copper Ore")
wait (100)

if UO.InJournal("Gorgan") or UO.InJournal("Blood Crest") or UO.InJournal("Aqua") or UO.InJournal("Dragon") or UO.InJournal("Crystaline") or UO.InJournal("Elvin") or UO.InJournal("Krynite") or UO.InJournal("Steel") or UO.InJournal("Acid") or UO.InJournal("Eldar") or UO.InJournal("Plutonium") or UO.InJournal("Vulcan") or UO.InJournal("Sand Rock") then
r_v()
#UO.Print("nasel nugnoe")
endif

wend
wend

UO.DeleteJournal()

if uo.weight>q or uo.weight==q then
goto recoll:
endif

next
next

recoll:
vesel(q)

if uo.weight<q then
goto start
endif

end sub

sub vesel(q)

if uo.weight>q or uo.weight==q then
recoll_v:
uorecall("0x400C1BD7","9")
wait(15000)

move(3190,774)
move(3189,774)

UO.setreceivingcontainer("0x401C45AC")
One("0 x19ba")
One("0x19b7")
One("0x19b8")
One("0x19b9")
UO.setreceivingcontainer("backpack")
uo.usekill("Hiding")
uo.usekill("Hiding")
endi f

end sub

sub r_v()

uorecall("0x400C1BD7","9")
wait(15000)

move(3190,774)
move(3189,774)

UO.setreceivingcontainer("0x401C45AC")
One("0x19ba")
O ne("0x19b7")
One("0x19b8")
One("0x19b9")
UO.setreceivingcontainer("backpack")
uo.usekill("Hiding")

end sub

sub Move(x,y)
var i=1,cx,cy,e=0,dir=1, M="-40-231-657"
var Ox, Oy
while dir<>0
cx=uo.getx()
cy=uo.gety()
wait(10)
dir=(cy<y)+2*(cy>y)+4*(cx<x)+8*(cx>x)
UO.Print("Dir "+str(dir))
if dir<>0 then
MoveK(val(M[dir]))
if cx==uo.getx() && cy==uo.gety() then
e=e+1
if e==2 then
repeat
Ox=x+i*(cy<y)+i*(cy>y)
Oy=y+i*(cx<x)+i*(cx>x)
dir=(cy<Oy)+2*(cy>Oy)+4*(cx<Ox)+8*(cx>Ox)
MoveK(val(M[dir]))
wait(100)
i=i+1
if cx==uo.getx() && cy==uo.gety() then
Ox=x-i*(cy<y)-i*(cy>y)
Oy=y-i*(cx<x)-i*(cx>x)
UO.Print("Dir "+str(dir)+"Invert!!!")
endif
UO.Print("Dir "+str(dir)+"Ox"+str(Ox)+" Oy "+str(Oy))
until i==4
i=1
e=0
endif
else
e=0
endif
endif
wend
return 1
endsub

sub MoveK(dir)
var x,y,time,Key="06172435"
if UO.GetDir()<>dir then
UO.Press(val(Key[dir])+33)
time=500
if UO.GetDir()<>dir then
if time==0 then
return 0
endif
wait(100)
time=time-50
endif
endif
x=UO.GetX()
y=UO.GetY()
time=500
UO.Press(val(Key[dir])+33)
wait(10)
while x==UO.GetX() && y==UO.GetY() && time>0
time=time-50
wait(100)
wend
return time>0
end sub

Sub One(OreT)
while uo.count(OreT)>0
UO.Waittargettype(OreT)
UO.Grab("0")
wait(1000)
wend
EndSub