var allmsg='0xA20D|0xA2DE|0xA2E7|0xA308|0xA309|0xA30D|0xA311|0xA312|û ïîëîæèëè|nothing|ou put|û óäàðèëè ïî äåðåâó|ou hack at the tree|óò íå÷åãî ðóáèòü|no logs|û íå ìîæåòå äî ýòîãî äîñòàòü|ou can|reach this|åðåâî ñëèøêîì äàëåêî|hat is too far away|do much|òî êàæåòñÿ ñâîáîäíûì äëÿ âàøåãî óäàðà|t appears immune to your blow|àòàêóåò'
var endmsg='0xA20D|0xA2DE|0xA2E7|0xA308|0xA309|0xA30D|óò íå÷åãî ðóáèòü|nothing|no logs|ou can|û íå ìîæåòå äî ýòîãî äîñòàòü|åðåâî ñëèøêîì äàëåêî|too far away|ñâîáîäíûì äëÿ âàøåãî óäàðà'
var axe1='0x0F47', axe2='0x0F44'
sub Lumder()
   var X, Y, MaxRange = 3, MaxVes = 620, k = 0
   for Y = -MaxRange to MaxRange
      for X = -MaxRange to MaxRange
         if Tree(UO.GetX()+X, UO.GetY()+Y) then
            repeat
               UO.DeleteJournal()
               wait(100)
               UO.WaitTargetTile(Tree(UO.GetX()+X, UO.GetY()+Y), UO.GetX()+X, UO.GetY()+Y, UO.GetZ())
               ;ToHide()
               ;********************************
               ; Auto Tools
               if UO.Count(axe1) || UO.Count(axe2) then
                  if UO.Count(axe1) then
                     UO.UseType(axe1)
                  else
                     UO.UseType(axe2)
                  endif
               else
                  UO.Print('À òîïîðà òî íåò!')
                  return
               endif
               ;********************************
               repeat
                  wait(100)
               until UO.InJournal(allmsg)
               If UO.Weight > MaxVes Then
                  UO.Print('Ïåðåãðóç!')
                  return 0
               endif
            until UO.InJournal(endmsg)
         endif
      next
   next
   return 0
end sub
Sub Tree(X,Y)
   var i
   DIM  R[34]
   R[1] = 3274;
   R[2] = 3275;
   R[3] = 3276;
   R[4] = 3277;
   R[5] = 3280;
   R[6] = 3283;
   R[7] = 3286;
   R[8] = 3288;
   R[9] = 3290;
   R[10] = 3293;
   R[11] = 3296;
   R[12] = 3299;
   R[13] = 3302;
   R[14] = 3320;
   R[15] = 3323;
   R[16] = 3326;
   R[17] = 3329;
   R[18] = 3393;
   R[19] = 3394;
   R[20] = 3395;
   R[21] = 3396;
   R[22] = 3415;
   R[23] = 3416;
   R[24] = 3417;
   R[25] = 3418;
   R[26] = 3419;
   R[27] = 3438;
   R[28] = 3439;
   R[29] = 3440;
   R[30] = 3441;
   R[31] = 3442;
   R[32] = 3460;
   R[33] = 3461;
   R[34] = 3462;
   for i = 1 to 34
      if uo.privategettile( x, y, -1, R[i], R[i]) then
         return R[i]
      endif
   next
   return false
end sub