sub gp()
VAR gp = "0x0000"
VAR bag = "0x0000000"
uo.findtype(gp)
while uo.findcount()
UO.moveitem('finditem','10', bag ,44,121,0 ) #тут прописать кординаты в каком углу кидать гп(мешочек) менять только Х(44) и У(121)
wait(200)
uo.findtype(gp)
wend
endsub

sub Mining()
    UO.AddObject('Catch_Bag')
    UO.Print('Укажите на мешёк куда будет руда складываться...') 
   while UO.Targeting() 
    wait(10)
   wend
    UO.SetReceivingContainer('Catch_Bag')
    UO.SetCatchBag('Catch_Bag')
    UO.MoveItem('Catch_Bag','1','backpack','1','250','1')
    
    MineArea(2);
endsub

sub MineArea(Dist) ; Капание
    var PX, PY, PZ, Ix,Iy, rx, ry, DistArea, Done, Circle
     
    PX=0
    PY=0
    Done=0
    Circle=0
    DistArea=(Dist*Dist+1)
    DistArea=DistArea*DistArea
    UO.Print("Yoko Injection(C) 2005.")
    UO.DeleteJournal()
              
 Start_Mine_Area:
    For Iy = -Dist to Dist
      For Ix = -Dist to Dist
      if ((PX <> UO.GetX()) or (PY <> UO.GetY())) then 
         if (PX <> 0) or (PY <> 0) then
            UO.Print("Have moved, mining ore on circle again")
         endif
         PX = UO.GetX()
         PY = UO.GetY()
         PZ = UO.GetZ()      
         Done=0
         GOTO Start_Mine_Area
      endif
      if UO.Weight < (UO.Str*4) then
         UO.Print("Mine point: "+Str(PX+Ix)+","+Str(PY+Iy))
        while not UO.InJournal('There is no ore') and not UO.InJournal("You have no line") and not UO.InJournal("That is to far away") and not UO.InJournal("You can't think") and not UO.InJournal("You have no line of") and not UO.InJournal("too far away") and not UO.InJournal("mining in rock.")
         UO.DeleteJournal()
         UO.WaitTargetTile(-1,Str(PX+Ix),Str(PY+Iy),Str(PZ))
         UO.UseType("0x0E85")
         while not UO.InJournal("You put the") and not UO.InJournal("You loosen some") and not UO.InJournal("You can't think") and not UO.InJournal("That is to far away") and not UO.InJournal("There is no ore") and not UO.InJournal("You have no line of") and not UO.InJournal("too far away") and not UO.InJournal("mining in rock.")
          Wait(100)
         wend
         if UO.InJournal('peek into your backpack') then
           UO.Sayu("Слыш чукча - отвали!")
         endif  
        wend
        if ((PX == UO.GetX()) and (PY == UO.GetY())) then
           UO.Print("There were "+Str(DistArea-Done)+" more cells")
        endif
      else
        UO.Print("Warning of heavy wieght...");
      endif   
        Done=Done+1
        UO.DeleteJournal()
      next
    next
     Done=0
     if UO.Weight >= (UO.Str*4) then
   Sell ()
   wait (8000)
        UO.Print("Moving smelt ore(s)...")
        GotoXY(5180, 1176)
        if UO.SkillVal('Mining') < 1000 then   
          repeat
           UO.usetype('0x19B9')
           Wait(200);
           UO.findtype('0x19B9', '-1', 'my') ; Ищем большой кусок руды, больше 3-х в куче
          Until UO.FindCount() == 0
          repeat
           UO.usetype('0x19B8')
           Wait(200);
           UO.findtype('0x19B8', '-1', 'my') ; Ищем средний кусок руды, 3и в куче
          Until UO.FindCount() == 0
          repeat
           UO.usetype('0x19BA')
           Wait(200);
           UO.findtype('0x19BA', '-1', 'my') ; Ищем средний кусок руды, 2е в куче
          Until UO.FindCount() == 0
          repeat
           UO.usetype('0x19B7')
           Wait(200);
           UO.findtype('0x19B7', '-1', 'my') ; Ищем средний кусок руды, одна
          Until UO.FindCount() == 0
        else
           UO.UnSetReceivingContainer()
           UO.UnSetCatchBag()
           Smelt();
           UO.SetReceivingContainer('Catch_Bag')
           UO.SetCatchBag('Catch_Bag')
        endif 
      endif   
    repeat   
     rx = ((PX-10) + UO.random(20))
     ry = ((PY-10) + UO.random(20))
    until (rx < 5208) and (rx > 5186) and (ry < 1182) and (ry > 1153)
     UO.Print("Moving to new point: "+Str(rx)+","+Str(ry));
     GotoXY(rx,ry)
  if UO.Weight < (UO.Str*4) then  
     GOTO Start_Mine_Area
  else
     UO.Print("Script Stoped.");
     UO.Print("Not have a weight for mine.");
  endif
end sub

sub gotoXY(x,y) 
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 abs(x-myX) <= 1 and abs(y-myY) <= 1 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 abs(num)
 if num >= 0 then 
    return num 
 else 
    return num*(-1) 
 endif 
end sub 

sub Sell() 
if (uo.weight>10)then
  UO.Say(".sell") 
  UO.Waittargettype('0x19b9',0x0000) 
  wait(1000) 
  UO.LClick(343,317)   
  wait(300)

  UO.Say(".sell") 
  UO.Waittargettype('0x19b9',0x0488) 
  wait(1000) 
  UO.LClick(343,317)   
  wait(300)
  
  UO.Say(".sell") 
  UO.Waittargettype('0x19b9',0x0482) 
  wait(1000) 
  UO.LClick(343,317)   
  wait(300)
  
  UO.Say(".sell") 
  UO.Waittargettype('0x19b9',0x0514) 
  wait(1000) 
  UO.LClick(343,317)   
  wait(300)
  
  UO.Say(".sell") 
  UO.Waittargettype('0x19b9',0x0487) 
  wait(1000) 
  UO.LClick(343,317)   
  wait(300)  

  UO.Say(".sell") 
  UO.Waittargettype('0x19b9',0x0481) 
  wait(1000) 
  UO.LClick(343,317)   
  wait(300)  

endif
end sub

sub DropOre() 
var o,exit 
dim Ore[14] 
Ore[0]=0x19B9 
Ore[1]=0x19B7 
Ore[2]=0x19BA 
Ore[3]=0x19B8 
Ore[4]=0x0F11 
Ore[5]=0x0F16 
Ore[6]=0x0F18 
Ore[7]=0x0F15 
Ore[8]=0x0F10 
Ore[9]=0x0F0F 
Ore[10]=0x0F26 
Ore[11]=0x1F4C 
Ore[12]=0x0EED 
Ore[13]=0x0F20 
ToHide() 
if uo.Waiting() then 
uo.CancelTarget() 
end if 
uo.useobject(' id ') #id каробки 
wait(500) 
for o=0 to 13 
exit=0 
repeat 
uo.FindType(Ore[o]) 
if uo.GetQuantity('finditem')>0 then 
uo.moveitem('finditem', -1 ,'ид банка') 
wait(500) 
else 
exit=1 
end if 
until exit==1 
next 

end sub