na4alo: 
mx = UO.GetX("self") 
my = UO.GetY("self") 
mz = UO.GetZ("self") 
UO.DeleteJournal() 
for i = mx-3 to mx+3 
for j = my -3 to my+3 
while not UO.Hidden() 
UO.Warmode('0') 
UO.UseSkill("Hiding") 
wait(4000) 
wend 
infologs() 
Poytka = 0 
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 have found some") and Poytka < qPopytok and not UO.InJournal("Iron Ore") and not UO.InJournal("Copper Ore") and not UO.InJournal("Oops!")
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("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 not UO.InJournal("You have found some") 
wait (500)
if Uo.injournal("You have found some") then
podbor()
end if
if uo.injournal("heavy") then 
##Pause() 
endif 
if uo.dead() then 
##Pause() 
endif 
if UO.InJournal("but fail") then 
   Poytka = Poytka+1 
end if
if uo.InJournal('Ore Elemental') or uo.InJournal('Earth Elemental') or uo.InJournal('You have been revealed')then 
   uo.usetype(0x0f09)
   wait(500)
   goto end
   uo.DeleteJournal()
end if
for jor = 0 to 9    
ser = uo.journalserial(jor) 
noto = uo.getnotoriety(ser) 

if noto <> 1 and noto <> 0 and not uo.injournal("elemental") then 
if uo.waiting() then 
uo.canceltarget() 
endif 
goto end 
endif 


next    
wend 
if uo.weight > uo.str*4 then  ;Вес при котором домой 
goto end 
endif 
wend 
UO.DeleteJournal() 
next 
next
end: 
if uo.waiting() then 
uo.canceltarget() 
endif 
RecallRune('DRuna') 
wait(5000) 
while not UO.Hidden() 
UO.Warmode("0") 
uo.print("Ïðÿ÷åìñÿ...") 
UO.UseSkill("Hiding") 
wait(4000) 
wend 
loot()



UO.SetReceivingContainer(UnloadCont)
Wait(1000)

Wait(1000)
NRuna=NRuna+1
if NRuna>10 then
NRuna=1
endif
UO.UnSetReceivingContainer()
uo.useobject(UnloadCont)
Wait(1000)

GetRegy()
wait(1000)
EatingFood()
wait(500)
reccal: 
uo.deletejournal() 
if uo.waiting() then 
uo.canceltarget() 
endif 
RecallRune(MRuna[NRuna])
wait(4000) 
goto na4alo 
end sub