sub mining()
 var kirk=uo.GetSerial(uo.ObjAtLayer('Rhand'));
 var i
 var mx=uo.GetX()-2
 var my=uo.GetY()-2
 var rep=0
 var MW=500 ; max weight
 if uo.GetGraphic(uo.ObjAtLayer('Rhand'))<>"0x0E85" and uo.GetGraphic(uo.ObjAtLayer('Rhand'))<>"0x0E86" then
   uo.findtype(0x0E85)   
   if uo.findcount()==0 then
     uo.print("Нет кирки!!!")
     return 0
   end if
   kirk=uo.GetSerial('finditem')
   uo.equip('Rhand','finditem')
 end if 
 minst:
  rep=rep+1
  if uo.weight>MW or uo.dead() then
    goto minex
  end if
  uo.deletejournal()
  uo.exec("waittargettile tilenum "+str(mx)+" "+str(my)+" 0")
  uo.useobject(kirk);
  i=0
  wait(200)
  uo.exec("resend")
  repeat
   wait(700)
   i=i+1
   if uo.injournal("is attacking you") then
     uo.say("guards")
   end if
  until uo.injournal("loosen")or uo.injournal("You put") or uo.injournal("no ore") or uo.inJournal("You can't") or uo.InJournal("Try mining") or i>50
  if uo.injournal("no ore")or uo.injournal("You can't")or uo.InJournal("Try mining")or (rep>10) then
    wait(1000)
    rep=0
    my=my+1
    if my>uo.GetY()+2 then
      my=uo.GetY()-2
      mx=mx+1
    end if
    if mx>uo.GetX()+2 then
      goto minex
    else
      goto minst
    end if
  end if
 goto minst
 minex:
  uo.print("Скрипт завершился")
end sub