LumberJack Omega EasyUO

set %currentTree 0
set %treeCount 0
set %currentX 0
set %currentY 0
set %autoloop 8
set %waitTime 77s

msg .autoloop %autoloop $

sub scanTiles
    set #LPC 1000
    set %range 15
    tile init noOverrides
    set %minX #charPosX - %range
    set %maxX #charPosX + %range
    set %minY #charPosY - %range
    set %maxY #charPosY + %range
    set %usedTree #false
    for %x %minX %maxX
    {
        for %y %minY %maxY
        {
            tile cnt %x %y
            for %i 1 #tileCnt
            {
                tile get %x %y %i
                if TREE in #tileName
                {
                    set % , tx , %spot %x
                    set % , ty , %spot %y
                    set % , tz , %spot #tileZ
                    set % , tt , %spot #tileType
                    set %spot %spot + 1
                    set %treeX . %treeCount %x
                    set %treeY . %treeCount %y
                    set %treeCount ( %treeCount + 1 )
                }
            }
        }
  }
  msg Found %treeCount trees! $
  gosub walkToTree
return

sub walkToTree
    set #LPC 10
    msg Walk! $
    msg Tree %currentTree of %treeCount $
    set %currentX ( %treeX . %currentTree )
    set %currentY ( %treeY . %currentTree )
    msg %currentX : %currentY $
    if %currentTree = ( %treeCount - 1 ) {
       set %currentTree 0
    }
    if %currentTree = 0
    {
        move %currentX %currentY 0 10s
    }
    else
    {
        move %currentX %currentY 0 5s
    }
    gosub lumber
return

sub lumber
    msg Timber! $
    finditem WUDMURD
    set %SHOVEL #FINDID
    set #LOBJECTID %SHOVEL
    event macro 17
    wait 15
    Tile Get %currentX %currentY 2
    set #lTargetTile #tileType
    set #lTargetX %currentX
    set #lTargetY %currentY
    set #lTargetKind 3
    wait 10
    event macro 22
    wait %waitTime
    set %currentTree ( %currentTree + 1 )
    gosub walkToTree
return

gosub scanTiles