; Скрипт на вип шахту с хождением 
;  by WOLVERINE!!!!
;  
;   это первый мой крупный скрипт поэтому может он не слишком крутой 
;  Но я старался...
;  by WOLVERINE!!!
; Скрипт делает следующее: чар копает всё вокруг себя, потом переходит к сле-
; дующему месту и т.д. Если набирёт указанный вес (по умолчанию 700) то пойдёт
; разгрузит руду в сундук, затем вернётся и продолжит с того места, на котором
; остановился. Копание происходит стоя в хайде.
;
; В случае выкапывания элементали, если включенно убийство элей 
; (переменная KillElemental равна 1) чар будет пить инвизку, морфиться
; в демона, брать в руки щит, одевать горжетку,лечиться и килять элю, 
; потом лутать руду и продолжать копать (чтобы всё это работало желательно,
; чтобы у чара были прокачены Wrestling, Parrying, Tactics, в бекпеке должны 
; быть инвизки (чар будет пить перед тем как морфиться, чтобы эля не убила),
; тотал манки, щит, горжетка (это та часть армора, которая на шею одевается).
; Если убийство элей отключено (переменная KillElemental равна 0), то чар
; сначала, стоя в хайде, докапает всё вокруг себя, потом будет просто стоять.
;
; В скрипте предусмотренна одновременная прокачка спирит спика (это не отразиться
; на эффетивности скрипта).
;
; Настройка:
; Укажите нужно ли убивать элементалей (переменная KillElemental). По умолчанию включено.
; Укажите вес, набрав который чар пойдёт разгружаться (переменная maxweight)
; Укажите координаты х и у точки, находящейся рядом с сундуком (переменные x[0],y[o])
; Введите координаты тайлов, между которыми нужно ходить и стоя в которых копать (массивы x и y)
; Укажите количество тайлов, между которыми ходит чар (переменная n) 
; Укажите ID ящика и подконтейнера внутри этого ящика, в который чар будет складывать руду 
; (переменные Container и Container2 в функции Razgruzka()).
;
; Всё. Наслаждайтесь.

sub main() 
VAR KillElemental=0 ;Убивать элей, или нет 
VAR my, mx,i,j,p=1,time=UO.Time(),maxweight=700,n=2
DIM x[1],y[1]
x[0]=5519 ;Координаты тайла 
y[0]=1594  ;рядом с ящиком

;Парами х,у укажите координаты тайлов, стоя в которых чар будет копать вокруг себя
x[1]=5522  
y[1]=1583


uo.deletejournal()
while (not uo.dead())   
  WalkN(x[p],y[p],'') 
  if p==1 then ;Вместо цифры 2 укажите порядковый номер последнего тайла, стоя в котором вы копаете
    p=1
  else
    p=p+1
  endif
  mx = UO.GetX("self") 
  my = UO.GetY("self") 
  tohide() 
  for i = mx-3 to mx+3 
   for j = my-3 to my+3     
   dig(i,j,KillElemental) 
if UO.Weight>=maxweight then 
   WalkN(x[0],y[0],'') 
   razgruzka()
   WalkN(x[p],y[p],'')
   endif
###### Spirit Speak ######
UO.FindType('0x0010',-1,'ground')
if uo.Time()-time>500 and UO.FindCount()>0 and UO.SkillVal('Spirit',1)<1000 then
uo.deletejournal()
uo.useskill('Spirit')
while not uo.injournal('netherworld')
   wait(200)
   wend
time=uo.Time()
tohide() 
endif
##########################
   UO.Print("Now Mining In: "+str(mx-i)+" "+str(my-j))    
  next 
   next 
UO.FindType('0x0010',-1,'ground')
if UO.FindCount()>0 then
   i = UO.GetX("self") 
   j = UO.GetY("self") 
   if KillElemental==1 Then
      KillElem()
      WalkN(i,j,'') 
   else
      repeat
      wait(1000)
      until UO.IsNPC('finditem')==0
   endif
endif
  WalkN(x[0],y[0],'') 
  razgruzka()
  wend 
end sub 

sub dig(i,j,KillElemental) 
var MMM,count,x,y

while (not uo.injournal("no ore")) and (not uo.injournal("in rock")) and (not uo.injournal ("That is too far")); and (not uo.injournal ("You put the Iron Ore")) 
  tohide() 
  UO.Waittargettile("1339", str(i), str(j),"0") 
  UO.Usetype (0x0F39)  ;a shovel
  uo.deletejournal() 
  count=0
  while (not uo.injournal("fail")) and (not uo.injournal("put")) and (not uo.injournal("elemental")) and (not uo.injournal("no ore")) and (not uo.injournal("in rock")) and (not uo.injournal ("That is too far")) and count<300
    wait(100) 
   count=count+1
    wend 
   if count<10 and uo.injournal("fail") then
      wait(9000)
      endif
  UO.FindType('0x0010',-1,'ground')
  if UO.InJournal('something with ore') OR UO.InJournal("attacking you") OR uo.findcount()>0 then
    x = UO.GetX("self") 
    y = UO.GetY("self") 
    if KillElemental==1 Then
      KillElem()
      WalkN(x,y,'')          
    endif
  endif  
wend 
uo.deletejournal() 
end sub 

sub razgruzka()
VAR Container='0x4015C687'; Тут укажите ID своего ящика
VAR Container2='0x4038E9D7';ID сумки внутри ящика
UO.UseObject(Container)
wait(1000)
while uo.count('0x19B7')<>0
   UO.FindType('0x19B7')
   UO.MoveItem('finditem','0',Container2)    
   wait(900)
   wend
  while uo.count('0x19B8')<>0
   UO.FindType('0x19B8')
   UO.MoveItem('finditem','0',Container2)    
   wait(900)
   wend
  while uo.count('0x19B9')<>0
   UO.FindType('0x19B9')
   UO.MoveItem('finditem','0',Container2)    
   wait(900)
   wend
  while uo.count('0x19BA')<>0
   UO.FindType('0x19BA')
   UO.MoveItem('finditem','0',Container2)    
   wait(900)
   wend 
  while uo.count('0x0EED')<>0
   UO.FindType('0x0EED')
   UO.MoveItem('finditem','0',Container2)    
   wait(900)
   wend 
  while uo.count('0x0F11')<>0
   UO.FindType('0x0F11')
   UO.MoveItem('finditem','0',Container2)    
   wait(900)
   wend 
  while uo.count('0x0F15')<>0
   UO.FindType('0x0F15')
   UO.MoveItem('finditem','0',Container2)    
   wait(900)
   wend 
  while uo.count('0x0F16')<>0
   UO.FindType('0x0F16')
   UO.MoveItem('finditem','0',Container2)    
   wait(900)
   wend 
  while uo.count('0x0F10')<>0
   UO.FindType('0x0F10')
   UO.MoveItem('finditem','0',Container2)    
   wait(900)
   wend 
  while uo.count('0x0F26')<>0
   UO.FindType('0x0F26')
   UO.MoveItem('finditem','0',Container2)    
   wait(900)
   wend
  while uo.count('0x0F0F')<>0
   UO.FindType('0x0F0F')
   UO.MoveItem('finditem','0',Container2)    
   wait(900)
   wend
  while uo.count('0x143E')<>0
   UO.FindType('0x143E')
   UO.MoveItem('finditem','0',Container2)    
   wait(900)
   wend
  while uo.count('0x0F18')<>0
   UO.FindType('0x0F18')
   UO.MoveItem('finditem','0',Container2)    
   wait(900)
   wend
end sub

sub tohide() 
while NOT UO.Hidden() 
UO.DeleteJournal() 
if UO.Life<50 then 
  UO.UseType('0x0F0E','0x0631') ; inviz potion 
  wait(2000) 
    else 
  UO.UseSkill('Hiding') 
  repeat 
    wait(50) 
    until UO.InJournal('You have hidden') OR UO.InJournal('seem to hide') OR UO.InJournal('preoccupied') 
  endif 
UO.WarMode('flip') 
wait(100) 
UO.Warmode(0) 
wend 
end sub


#=====================================thx to SavageV=========== 
# CheckLag() - click on backpack and awaiting "backpack" 
#    message in journal. 
# 
# Journal has been deleted!!! 
#-------------------------------------------------------------- 
sub CheckLag() 
 UO.DeleteJournal() 
 UO.Click('backpack') 

 Repeat 
  wait(500) 
 Until UO.InJournal('backpack') 
end sub 


#======================================thx to SavageV========== 
# WalkN(X,Y,Serial) - char is walking by dX and dY step 
#    sub using Home, End, PgUp, PgDown keys 
#    d'not rebind this key from default action! 
#  serial - Serial of target or "" - string 
#  walkwait - delay after keypress 
#  Example: 
#  WalkN(2080,2113,'') - go to coordinates 
#  WalkN(0,0,'0x12345678') - go to target position 
#-------------------------------------------------------------- 
sub WalkN(x,y,Target) 
 VAR i,StepSucess 
 VAR dx,dy,Exit=0 
 
 While Exit<>1 
  If Target<>"" Then 
   dx=UO.GetX(Target)-UO.GetX() 
   dy=UO.GetY(Target)-UO.GetY() 
   If UO.GetDistance(Target)<2 Then 
   Exit=1 
   Endif 
  Else 
   dx=x-UO.GetX() 
   dy=y-UO.GetY() 
   If dx==0 AND dy==0 Then 
   Exit=1 
   Endif 

  Endif 
 
  If dx<>0 AND dy<>0 Then 
   If dx>0 AND dy>0 Then 
   StepSucess=Go(3,40,300) ;SE - DownArrow 
   Endif 

   If dx>0 AND dy<0 Then 
   StepSucess=Go(1,39,300) ;NE - RightArrow 
   Endif 

   If dx<0 AND dy>0 Then 
   StepSucess=Go(5,37,300) ;SW - LeftArrow 
   Endif 

   If dx<0 AND dy<0 Then 
   StepSucess=Go(7,38,300) ;WN - UpArrow 
   Endif 

  Endif 
 
  If dx<>0 AND dy==0 Then 
   If dx>0 Then 
   StepSucess=Go(2,34,300) ;E - PgDown 
   If StepSucess==-1 Then 
    StepSucess=Go(3,40,300) ;SE - DownArrow 
    If StepSucess==-1 Then 
     StepSucess=Go(1,39,300) ;NE - RightArrow 
    Endif 
   Endif 
   Endif 
   
   If dx<0 Then 
   StepSucess=Go(6,36,300) ;W - Home 
   If StepSucess==-1 Then 
    StepSucess=Go(7,38,300) ;WN - UpArrow 
    If StepSucess==-1 Then 
     StepSucess=Go(5,37,300) ;SW - LeftArrow 
    Endif 
   Endif 
   Endif 
  Endif 


  If dx==0 AND dy<>0 Then 
   If dy>0 Then 
   StepSucess=Go(4,35,300) ;S - End 
   If StepSucess==-1 Then 
    StepSucess=Go(3,40,300) ;SE - DownArrow 
    If StepSucess==-1 Then 
     StepSucess=Go(5,37,300) ;SW - LeftArrow 
    Endif 
   Endif 
   Endif 
   
   If dy<0 Then 
   StepSucess=Go(0,33,300) ;N - PgUp 
   If StepSucess==-1 Then 
    StepSucess=Go(7,38,300) ;WN - UpArrow 
    If StepSucess==-1 Then 
     StepSucess=Go(1,39,300) ;NE - RightArrow 
    Endif 
   Endif 
   Endif 
  Endif 
 Wend 
end sub 


sub Go(dir,key,walkwait) 
 VAR x,y 

 x=UO.GetX() 
 y=UO.GetY() 

 while UO.GetDir()<>dir 
  UO.Press(key) 
  wait(walkwait) 
  If UO.GetDir()<>dir Then 
   CheckLag() 
  Endif 
 wend 

 UO.Press(key) 
 wait(walkwait) 

 If x==UO.GetX() AND y==UO.GetY() Then 
  CheckLag() 
 Endif 
 
 If x==UO.GetX() AND y==UO.GetY() Then 
  return -1 
 Else 
  return 1 
 Endif 
end sub 

sub killelem()
  VAR LastTimer, Elem
  UO.UseType('0x0F0E','0x0631') ; inviz potion
  While UO.STR<201 ; U'r not morfed char max Strength + 1
    If UO.Mana>=50 then
      UO.WaitMenu('What','Daemon')
      UO.Cast('Polymorph')
      wait(8000)
    else
      UO.UseType('0x0F0E','0x09DF') ; total mana potion
      wait(3000)
    endif
  Wend  
  LastTimer=UO.Timer()  
  repeat
    UO.BandageSelf()
    wait(4000)
  until UO.Life==UO.STR
  UO.UseType(0x1B76) ; heater shield
  UO.UseType(0x1413) ; platemail gorget  
  UO.DeleteJournal()
  UO.Exec('warmode 1')
  UO.FindType('0x0010',-1,'ground')
  Elem=UO.GetSerial('finditem')
  UO.Attack(Elem)  
  repeat
    wait(1000)
    If UO.Life<50 Then
      UO.UseType('0x0F0E','0x09BB') ;GH
    Endif
    If UO.GetDistance(Elem)>1 Then
      WalkN(0,0,Elem)
    Endif
  until UO.IsNPC(Elem)==0
  wait(3000)
  UO.findtype('0x19B9',-1,'ground') ; 3 ore
  UO.moveitem('finditem')
  wait(1000)
  UO.findtype('0x19B8',-1,'ground') ; 3 ore
  UO.moveitem('finditem')
  wait(1000)
  UO.findtype('0x19BA',-1,'ground') ; 3 ore
  UO.moveitem('finditem')
  wait(1000)
  UO.findtype('0x19B7',-1,'ground') ; 3 ore
  UO.moveitem('finditem')
  wait(1000)
  UO.findtype('0x0EED',-1,'ground') ; 3 ore
  UO.moveitem('finditem')
  wait(1000)
  UO.FindType('0x0010',-1,'ground')
  If UO.GetQuantity('finditem')>0 Then
    KillElem()
  Endif
  UO.Exec('warmode 0')
  wait(1000)
  UO.Print("Sdoh skotina!")
  LastTimer=UO.Timer()
  if UO.Life<180 then ; U'r max HP
    repeat
      UO.BandageSelf()
      wait(4000)
    until UO.Life>180 OR LastTimer+300<UO.Timer()
  endif
  UO.DeleteJournal()
end sub

  
if p==1 then ;Вместо цифры 2 укажите порядковый номер последнего тайла, стоя в котором вы копаете 
    p=1 
  else 
    p=p+1 
  endif

И почему же в поиске ненашёл - незнаю
Скрипт на копание по 4м точкам
Скрипт на копание по 2м точкам
АФФтар - Savage.

з.ы. Лично копав в малой ВИПке настроил себе на 3и точки.

;Парами х,у укажите координаты тайлов, стоя в которых чар будет копать вокруг себя 
x[1]=5522  
y[1]=1583 

  if p==5 then ;Вместо цифры 2 укажите порядковый номер последнего тайла, стоя в котором вы копаете 
    p=1 
  else 
    p=p+1 
  endif