sub Metka_dereva()   #         Около дома копаем руду
repeat
uo.infotile()
wait(3000)
until false
end sub
;*********************************************************************************** 
var Derevo = 0x19b9   ; это руда
var Topor = 0x0e86      ; Это кирка для руды
var Box = 0x401e6ec4           ; Ящик около ограды
Var FileName='c:\_A\_Macr\min.txt' 
Var MaxWeight 
Var MoveDelay=1000 # Промежуток между шагами 
Var MoveNumber=1   # Количество шагов при смене дислокации 
Var Ep=0.172 # Значение ширины угла хождения при определении направления. 
#Если на пути встречаются сложные и широкие препятствия - увеличить. 
#0.172 - сбалансированный. 
var XN = 1117 
var YN = 1462 
MaxWeight= ((uo.STR*3.5)+39)
var Stoplocation 
sub start()
    uo.say("BANK")
UO.Exec('terminate main')
uo.exec('exec main')
end sub
sub Main() 
wait(1000)
uo.Targeting('self')

uo.set('norbcalc','1') 
uo.set('norbcheck','1') 
uo.set('injectecho','1') 

if uo.count(Topor) < 2  then 
      GrAxe() 
end if 
   Rubit() 
EndSub
;--------------------------------------------- РУБИМ -----------------------------
Sub Rubit()
Var Tl,T,X,Y,Z
Var F 
var Tim 
var Jurn 
var sc
var n
 Dim Сli[9] 
Сli[0]="cliloc# 0xA867"  ;You can't mine... 
Сli[1]="cliloc# 0xAD03"  ;You loosen 
Сli[2]="cliloc# 0xAD00"  ;there no metal 
Сli[3]="cliloc# 0x6B31"  ;backpack full 
Сli[4]="cliloc# 0xEE46"  ;worn out tool! 
Сli[5]="cliloc# 0x5DE1"  ;dull cuper 
Сli[6]="cliloc# 0x5DE6"  ;agapit 
Сli[7]="cliloc# 0xA2DE"  ;is too far away 
Сli[8]="cliloc# 0xACF9"   ;where do you wish to dig 
Сli[9]="cliloc# 0xA866"  ;You can't mine... 



Begin: 
if uo.count(Topor) < 3  then 
 GrAxe() 
end if 
   uo.say("Rubim!")
   sc =1
Stoplocation = 0 
F=File(FileName) 
F.Open()

Beg: 
Tl=safecall F.Readln() 
Tl=Trim(Tl) 
If Tl=='File read error' Then 
  GoTo Ext 
EndIf 
T=GetNumb(Tl,0) 
X=GetNumb(Tl,1) 
Y=GetNumb(Tl,2) 
Z=GetNumb(Tl,3) 
  UO.Print('GoTo next point ' + str(sc) + ' X= '+ str(X) + ' Y= '+str(Y))
   sc = sc+1
 if X == 0 then                                ;   --------------- Если координаты нулевые то днлаем вывод что список кончился ---
     UO.Print('Spisok konchilsia nachinaem snachala !!!') 
     main()
  end if  
  gotoxy(X,Y,1)                                  ;   --------------- Ходим по деревьям по точкам из  файла c тайлами -----------
  
if UO.Life<40 then
   gotoxy(3190,595,1)       ;                                ------------- Заместо реколла бежим сами к точке сброса
    GrDerevo()   ; Скидываем дерево
    wait(1000)
     ubili() 
endif

 
if Stoplocation == 1 then    
  GrDerevo() 
  GrAxe() 
 GoTo Ext 
EndIf 

REPEAT    
    uo.deletejournal()    
    UO.WaitTargetTile(Str(T),Str(X),Str(Y),Str(Z))    
    UO.usetype(Topor)    
    wait(1500)
    Jurn=UO.Journal(0) 
UNTIL  Jurn == Сli[0] or (UO.Weight > (MaxWeight-10)) or Jurn == Сli[2] or Jurn == Сli[7] or Jurn == Сli[9] ;
If Jurn == Сli[2] or Jurn == Сli[0] or Jurn == Сli[7] or Jurn == Сli[9] then 
  UO.Print('there no metal !!!') 
  GoTo Beg 
EndIf    
while uo.dead()                                 ; Если убили то бежим к точке оживления
   ubili()  
   UO.Exec('terminate all') 
wend



If (UO.Weight > (MaxWeight-10)) or uo.count(Topor) < 1  then 
  UO.Print('backpack full!!!') 
   gotoxy(3190,595,1)       ;                                ------------- Заместо реколла бежим сами к точке сброса
  GrDerevo()   ; Скидываем дерево
  GrAxe()   ; Берем топоры
  wait(1000)
  main()
EndIf 
EndSub 
;-------------------------------------------------------------------------------------------------
Sub GetNumb(C,I)     ; Процедура разборки тайлов по пробелам
var J,T,K 
J=0 
K=1 
While K>0 
  J=J+1 
  If (Mid(C,J,1)==' ') Or (J>=Len(C)-1) Then 
   If I==0 Then 
    T=Val(Left(C,J)) 
   Else 
    T=GetNumb(Right(C,Len(C)-J-1),I-1) 
   EndIf 
   K=0 
  EndIf 
wend 
UO.Print(T) 
return T 
endsub 
;--------------------------------------------- 
sub GrDerevo()             ; Процедура скидывания дерева в уазаный в начале ящик
repeat 
  uo.say("BANK")
  wait(500)
  uo.findtype(Derevo) #Derevo 
  uo.moveitem('finditem','0',Box) 
  wait(700) 
until not uo.count(Derevo)
end sub 
;--------------------------------------------- 
sub GrAxe()                   ; Процедура взятия топоров из ящика
var Mes='Contains' 
var Tim 
uo.deletejournal() 
uo.say('Started')
wait(3000)
if uo.count(Topor) < 4 then
      uo.findtype(Topor,'-1',Box) 
      UO.grab('1','finditem') 
      Wait(1200) 
     uo.findtype(Topor,'-1',Box) 
      UO.grab('1','finditem') 
      wait(1000)
      uo.findtype(Topor,'-1',Box) 
      UO.grab('1','finditem') 
      wait(1000)
end if 
end sub 
; ------------------------------------------  Ходилка --------------------------------------

sub GotoXY(x,y,prec) 
var myX,myY,LastX=0,LastY=0,i,halt=0,z,r=0 
for i=1 to 60
myX=uo.GetX() 
myY=uo.GetY() 
if LastX==myX and LastY==myY then 
halt=halt+1 
else 
halt=0 
end if 
if halt>=10 then 
if uo.GetDir()==1 then 
for z=0 to 8 
uo.Press(40) 
next 
end if 
if uo.GetDir()==3 then 
for z=0 to 8 
uo.Press(37) 
next 
end if 
if uo.GetDir()==5 then 
for z=0 to 8 
uo.Press(38) 
next 
end if 
if uo.GetDir()==7 then 
for z=0 to 8 
uo.Press(39) 
next 
end if 
halt=15 
end if 
if Numb(x-myX)<=1 and Numb(y-myY)<=2 then 
return 1 
end if 
if x<=myX then 
if y<=myY then 
for z=0 to 3 
uo.Press(38) 
next 
else 
for z=0 to 3 
uo.Press(37) 
next 
end if 
else 
if y<=myY then 
for z=0 to 3 
uo.Press(39) 
next 
else 
for z=0 to 3 
uo.Press(40) 
next 
end if 
end if 
LastX=myX 
LastY=myY 
wait(200) 
next 
return 0 
end sub 

sub Numb(num) 
if num>=0 then 
return num 
else 
return num*(-1) 
end if 
end sub 
;#######################################################
sub Control()
var Notoriety,IsNPC,Name
   while not uo.dead()
      if uo.InJournal('',1) then 
         IsNPC=str(uo.IsNPC(uo.JournalSerial(0)))
      if IsNPC == '1' then
            Notoriety=str(uo.GetNotoriety(uo.JournalSerial(0)))
            Name=uo.GetName(uo.JournalSerial(0))
            UO.Print(Notoriety)
            if Notoriety=='6' or Notoriety=='5' or Notoriety=='4'then
            UO.Exec('terminate main')
            gotoxy(592,2141,1)                 ; Сматываемся к точке сброса
            uo.say("Guard")
            uo.TextOpen() 
            uo.TextPrint('Появился грязный ПК - '+name)
             uo.Print('Warning PK Detected')
             UO.Exec('terminate all')
      end if
      end if
      end if
   #uo.DeleteJournal()
   wait(100)
   wend
end sub

sub ubili()
GotoXY(3268,571,1)
GotoXY(3338,493,1)
GotoXY(3353,289,1)
GotoXY(3353,289,1)        ; Слишком больше растояние не добежать за раз
end sub
sub ogil()
GotoXY(3338,493,1)
GotoXY(3268,571,1)
GotoXY(3190,610,1)
end sub