Скрипт на мининг помогите

[noname1234]

Ребят, помогите может у кого есть скрипт на мининг, копает вокруг себя но не под собой и скидывает ненужную руду и если сломаеться кирка брал новую.
В идеала конечно, чтобы он по достижению опрделенного веса реколился через i'm stuck.
Искал по инкту так и не нашел либо копает под собой и останавливаеться, как такой перенастроить я хз. И нашел скрипт который так копает, но после дополнения о ненужности руды он чет встает через 10 минут.
Буду очень признателен за любую помощь!!!!

[ZeroDX]

запости сюда скрипты, которые нашёл

[noname1234]

запости сюда скрипты, которые нашёл

я что то такое замутил но через 10 мин скрипт отрубаеться(

sub main()
var mx, my, mz, i, j
repeat
uo.addobject("Shovel",0x400263F6) # ID лопаты или, чем ты, там, копаешь
na4:
gotoxy(2565,487) #точка копки
mx = UO.GetX("self")
my = UO.GetY("self")
mz = UO.GetZ("self")
UO.DeleteJournal()
for i = mx-2 to mx+2
for j = my-2 to my+2
while not UO.Hidden()
UO.Warmode("0")
UO.UseSkill("Stealth")
wait(4000)
wend
UO.Print("Now Mining In: "+str(mx-i)+" "+str(my-j))
while not UO.InJournal("mine for") and not UO.InJournal("location") and not UO.InJournal("far away") and not UO.InJournal("so close")
UO.DeleteJournal()
if uo.waiting() then
uo.canceltarget()
endif
UO.Waittargettile("1341", str(i), str(j), str(mz))
UO.Useobject("Shovel")
while not UO.InJournal("You put") and not UO.InJournal("so close") and not UO.InJournal("location") and not UO.InJournal("mine for") and not UO.InJournal("elsewhere") and not UO.InJournal("far away") and not UO.InJournal("in rock")
wait(500)
endif
wend
UO.DeleteJournal()
sbroska()
if uo.Weight>5009 then # максимальный вес
loot()
goto na4
endif
next
next
until uo.dead()
end sub

sub gotoxy(xx,yy)
var lagfactor=5
var msbase=150
var dx,dy
var x=val(xx)
var y=val(yy)
if x==0 then
x=xx
end if
if y==0 then
y=yy
end if
var mx,my
start:
mx=UO.GetX()
my=UO.GetY()
dx=mx-x
if dx<0 then
dx=0-dx
endif
dy=my-y
if dy<0 then
dy=0-dy
endif
if dy>dx then
dx=dy
end if
uo.print(STR(dx))
if dx<3 then
wait(msbase*lagfactor)
else
wait(msbase)
end if
if mx==x then
if my==y then
return
endif
if my>y then
UO.Print("UR")
UO.Press(33)
goto start
endif
UO.Print("DL")
UO.Press(35)
goto start
end if
if mx<x then
if my>y then
UO.Print("R")
UO.Press(39)
goto start
endif
if my==y then
UO.Print("DR")
UO.Press(34)
goto start
endif
UO.Print("D")
UO.Press(40)
goto start
end if
if my<y then
UO.Print("L")
UO.Press(37)
goto start
endif
if my==y then
UO.Print("LU")
UO.Press(36)
goto start
endif
UO.Print("U")
UO.Press(38)
goto start
end sub

Sub sbroska()
var i,j
Dim OreType[4]
OreType[01]='0x19B7' ## 1 ore
OreType[02]='0x19BA' ## 2 ore
OreType[03]='0x19B8' ## 3 ore
OreType[04]='0x19B9' ## 4 and more ore

Dim OreColor[5] ## ??? ????? ???? ????
OreColor[1]='0x0222' ; Copper
OreColor[2]='0x0750' ; Bronze
OreColor[3]='0x0000' ; Silver
OreColor[4]='0x0026' ; Shadow
OreColor[5]='0x03C0' ; gold

for j=1 to 4
for i=1 to 5
uo.findtype(OreType[j],OreColor[i],'backpack')
while uo.findcount()>0
uo.moveitem('finditem','-1','ground')
wait(700)
uo.findtype(OreType[j],OreColor[i],'backpack')
wend
next
next
end sub