sub maning()
var mx, my, mz, i, j, jor, ser, noto, ya,k, name, Goggy = '0x001DB7EC', cave = 1
Uo.exec("set norbcheck 1"); äė˙ šåźīėą
uo.exec("set norbcalc 1"); ņīęå

uo.print('!!Āūįåšč Ėīļąņó!! ')
uo.exec('addobject Shovel')
while uo.targeting()
wait(100)
wend

uo.print('!!Āūįåšč Šóķįóź!! ')
uo.exec('addobject Runebook')
while uo.targeting()
wait(100)
wend

na4alo:
mx = UO.GetX("self")
my = UO.GetY("self")
mz = UO.GetZ("self")
UO.DeleteJournal()
for i = mx-4 to mx+4
for j = my -4 to my+4
while not UO.Hidden()
UO.Say(",warmode 0")
wait(200)
uo.print("Ļš˙÷åģń˙...")
UO.UseSkill("Hiding")
wait(4000)
wend
UO.Print("Źīļąåģ ā źīīšäčķąņąõ: "+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('You put the Iron') and not UO.InJournal('You put the Old Copper') and not UO.InJournal('You put the Rusty') and not UO.InJournal('You put the Dull Copper') and not UO.InJournal('You put the Bronze') and not UO.InJournal('You put the Copper')
if UO.Dead() then
pwav()
UO.TextPrint('Źšūńą!!!==='+name+ 'Öāåņ=' +str(noto))
Pause()
end if
UO.DeleteJournal()
if uo.waiting() then
uo.canceltarget()
endif
UO.Deletejournal()
UO.Waittargettile("1341", str(i), str(j), str(mz))
UO.Useobject("Shovel")
k = 0
while not UO.InJournal("You put") and not UO.InJournal("heavy") 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 k < 10
wait (1000)
k = k + 1
for jor = 0 to 9
ser = uo.journalserial(jor)
noto = uo.getnotoriety(ser)
name = UO.GetName(ser)
ya = UO.GetSerial('self')
if ser <> ya and noto <> 0 and ser <> Goggy then
UO.TextOpen()
UO.TextPrint('Ńšóėčė --- '+name+ ' Öāåņ=' +str(noto))
if uo.waiting() then
uo.canceltarget()
endif
Save()
pwavw()
loot()
cave = cave + 1
if cave > 4 then
cave = 1
end if
Mana()
;wait(30000) ; āšåģ˙ ā ńåźóķäąõ ļšč īęčäąķčč ļīźą óéäåņ ĻŹ
goto reccal
endif
next
wend
if UO.InJournal("but fail") AND k < 2 then
wait(8000)
UO.DeleteJournal()
endif
if uo.weight > 165 then ; Ģąźńčģąėüķūé āåń ļšč źīņīšīģ äīģīé ń šóäīé
goto end
endif
wend
UO.DeleteJournal()
next
next
goto na4alo
end:
if uo.waiting() then
uo.canceltarget()
endif
uo.exec("recall Runebook 21") ; äīģīé ( ā šóķįóźå ńėīņ 1 )
wait(10000)
loot()
wait(3000)
reccal:
uo.deletejournal()
if uo.waiting() then
uo.canceltarget()
endif

if cave == 1 then
uo.exec("recall Runebook 94") ; ā ųąõņó ( ā šóķįóźå ńėīņ 8 )
end if

if cave == 2 then
uo.exec("recall Runebook 58") ; ā ųąõņó ( ā šóķįóźå ńėīņ 4 )
end if

if cave == 3 then
uo.exec("recall Runebook 73") ; ā ųąõņó ( ā šóķįóźå ńėīņ 6 )
end if

if cave == 4 then
uo.exec("recall Runebook 88") ; ā ųąõņó ( ā šóķįóźå ńėīņ 7 )
end if

mx = UO.GetX("self")
my = UO.GetY("self")
wait(10000)
if not UO.GetX("self") <> mx and not UO.GetY("self") <> my then
goto reccal
endif
goto na4alo
end sub

sub loot() ; ļåšåźėąäźą šóäū ā ńóķäóź
if uo.waiting() then
uo.canceltarget()
endif
VAR a,Exit
VAR UnloadCont= '0x401FB838' ; ĄÉÄČ ńóķäóźą äė˙ šóäū
DIM Ore[5]
Ore[0]=0x19B9 ; 4 and more ore
Ore[1]=0x19B7 ; 1 ore
Ore[2]=0x19BA ; 2 ore
Ore[3]=0x19B8 ; 3 ore
UO.SetReceivingContainer(UnloadCont)
wait(500)
For a=0 to 3
Exit=0
repeat
UO.FindType(Ore[a])
if UO.GetQuantity('finditem')>0 then
UO.Grab('0','finditem')
wait(1500)
Else
Exit=1
endif
until Exit==1
Next
UO.UnSetReceivingContainer()
end sub

sub Save() ; Šåźīėė īņ ĻŹ ļšč čõ ļī˙āėåķčč (ā ļąźå šóķźą ā įåēīļąńķīå ģåńņī č šåćč)
var mx, my
reccal:
uo.deletejournal()
if uo.waiting() then
uo.canceltarget()
endif
mx = UO.GetX("self")
my = UO.GetY("self")
UO.DeleteJournal()
UO.Usetype('0x0F0E','0x0631')
UO.FindType('0x1F17',-1,'my')
wait(200)
UO.Cast('Recall','finditem')
wait(4000)
if not UO.GetX("self") <> mx and not UO.GetY("self") <> my then
goto reccal
endif
end sub

sub pwav() ; ēāóź ļšč āūźąļūāąķčč ŻĖÅĢÅĶŅĄĖĄ
uo.playwav("C:\Trumpet1.wav")
endsub

sub pwavw(); ēāóź ļšč ļī˙āėåķčč ĻŹ
uo.playwav("C:\Alarm.wav")
endsub

sub Pause() ; Ļąóēą ńźščļņą åńėč āūźīļąėč Żėåģą (ļšīäīėęčņü ńźąēąā GO )
UO.DeleteJournal()
REPEAT
WAIT(3000)
UO.Print("!!!ŃŹŠČĻŅ ĶĄ ĻĄÓĒÅ!!!!")
UNTIL UO.InJournal('GO')
UO.Print("!!!ŃŹŠČĻŅ ĻŠĪÄĪĖĘÅĶ!!!!")
endif
end sub

#############################Ļš˙÷åģ īźķī ÓĪ##################################3
sub HideWindowUO()
UO.asmUOHideEx(); Ļš˙÷åģ īźķī ÓĪ ā ņšåé
end sub
########################################################

sub Mana()
while UO.Mana < UO.Int
UO.Useskill('Meditation')
wait(1000)
wend
end sub

Спасибо

Это ты кому? Если мне, то не надо переход на след руну происходит когда чар докапает точку -4 -4

подскажите где поправить чтоб он летел не в ту шахту в которой он уже был а в следуйщию!

себя експертом называеш ?