[Taran]

LUMBERJACKING: This will pretty much just wander from tree to tree using a hatchet on it. I like to use a Razor macro with it to move the logs to a pack horse.

Code:

=========================================================================
; Script Name: EnCode MegaLumberjack
; Author: EnCode
; Version: 1.2.0
; Client Tested with: 4.0.10b
; EUO version tested with: 1.42.00A5
; Shard OSI / FS: FS
; Revision Date: 5-31-05
; Public Release: 5-15-05
; Global Variables Used: All global vars used by settings starts by *ECLJ
; This is a very powerful and easy to set up fully automatic script without rails!
; All you need is enough skills to craft tools and recall and some ingots in your bank box.
=========================================================================

; if you wish to use login by password (NOT RECOMMENDED)
; set up the macro as using razorlogin but uncomment and change these lines:

;You may edit these values if you wish but you should do just fine
;with these.
set %axetype FSF_LSF_BSF_NSF_ZRF_RMH_LPH_UOH
set %tooltype AIG_AGG_BIG_CIG_CGG_EGG_IGG_KGG_WFG_YFG_ZHG
set %solvepk 0 ;if you have the PKCurses.txt set up change this to 1
set %forcebankweight 400 ;maxweight before bankup
;================================
;do not change below here
;================================
set %VerMajor 1
set %VerMinor 2
set %VerRevision 0

set %spot 0
tile init
linespercycle 200
set %hod 0


gosub chooseforest
start:
gosub closest
move %x %y 1 10s
gosub checkdistance
gosub choptree
goto start

sub checkdistance
    set %distx #charposx - %x
    set %disty #charposy - %y
    if %distx > -2 && %distx < 2 && %disty > -2 && %disty < 2
        return
    set %tempx #charposx - 5
    move %tempx #charposy 1 2s
    set %tempy #charposy - 5
    move #charposx %tempy 1 2s
    move %x %y 1 10s
return

sub choptree
    menu delete status
    menu Text status 116 119 Chopping...
    set %backupwait #scnt + 60
    choploop:
    if #scnt > %backupwait
        goto ready
    wait 17
    gosub hit
    set %hitwait #scnt + 5
    deletejournal
    jrloop:
    wait 1
    scanjournal 1
    if logs in #journal
        goto choploop
    if hack in #journal
        goto choploop
    if not_enough_wood in #journal
        goto ready
    if you_can't_use_an_axe_on_that in #journal
        goto ready
    if cannot_be_seen in #journal
        goto ready
    if that_is_too_far in #journal
        goto ready
    gosub checkConLost
    gosub toboards
    if is_attacking_you in #journal
    {
        gosub antipk
        return
    }
    if #scnt > %hitwait
        goto choploop
    goto jrloop
    ready:
return

sub hit
    chop:
    finditem %axetype C_ , #charid
    if #findkind = -1
    {
        finditem %axetype C_ , #backpackid
        if #findkind = -1
        {
            gosub toboards
            menu delete status
            set %hod 0
            gosub chooseforest
            return

        }
        set #lhandid #findid
        event macro 24 1
        wait 15
    }
    set #lobjectid #findid
    event macro 17
    target 1s
    set #ltargetkind 3
    set #ltargettile %tiletype
    set #ltargetx %x
    set #ltargety %y
    set #ltargetz %tilez
    event macro 22
return

sub closest
    menu delete status
    menu Text status 116 119 Finding tree...
    set %x #charposx
    set %y #charposy
    set %r 0
    set %fspiral -1
    treefinder:
    if %fspiral = -1
    {
        set %fspiral 1
    }
    else
    {
        set %fspiral -1
    }
    set %r %r + 1
    for %yx 1 %r
    {
        set %x %x + %fspiral
        gosub checktile
        if %findkind = 1
            return
    }
    for %yy 1 %r
    {
        set %y %y + %fspiral
        gosub checktile
        if %findkind = 1
            return
    }
    goto treefinder

sub checktile
    tile cnt %x %y
    set %ennestaan 0
    set %findkind -1
    for %cnt 1 #tilecnt
    {
        tile get %x %y %cnt
        if tree in #tilename
        {
            if %hod > 0
            {
                set %doh 0
                for %doh 1 %hod
                {
                    if %x = %hodx . %doh && %y = %hody . %doh
                    {
                        set %ennestaan 1
                    }
                }
            }
            if %ennestaan = 0
            {
                set %hod %hod + 1
                set %hodx . %hod %x
                set %hody . %hod %y
                set %findkind 1
                set %tilez #tilez
                set %tiletype #tiletype
            }
        }
    }
return

sub chooseforest
    set %spot %spot + 1
    if %spot > %ljspots
        set %spot 1
    set %runenum %spot + 1
    menu delete status
    menu Text status 116 119 Recalling to forest # %spot
    gosub recall %runenum %recallstyle
return

sub findcol
    finditem %1 %3
    for %i 1 #findcnt
    {
        finditem %1 %i %3
        if #findcol = %2
        return
    }
    set #findkind -1
return

sub target
    set %wait #scnt + 1
    wait_for_target:
        wait 1
        scanjournal 1
        if fizzles in #journal || already_performing in #journal ||  more_reagants in #journal || not_yet_recovered in #journal ||  your_concentration in #journal || insufficent_mana in #journal
            return
        scanjournal 2
        if fizzles in #journal || already_performing in #journal ||  more_reagants in #journal || not_yet_recovered in #journal ||  your_concentration in #journal || insufficent_mana in #journal
            return
        if #scnt > %wait
            return
        if #targcurs = 0
            goto wait_for_target
    if %1 = 1
    {
        chkdistance:
            wait 1
            finditem #ltargetid
            if #findkind = -1 && #targcurs = 1
                goto chkdistance
            if #finddist > 12 && #targcurs = 1
                goto chkdistance
        event macro 22
    }
    if %1 = 2
    {
        event macro 23
    }
return

[soMa]

I Have problems with this macro, freezing uo for a minute when it seems to do it when any of the journal messages example *There is no lumber*
if I stop the macro or wait out that minute it eventually resumes to macroing. I have tried running it as an administrator but it wont let me hit the play button when I do so.

Anyone have any ideas ? It's been two weeks.

[soMa]

Can someone at least help me get rid of the bank and organize agent in the macro ? Its annoying when it spams the screen I have to be at the computer anyways. Just trying to make it so it just walks around and cuts trees would even be help full if it cut the logs into boards but that's it, the rest I can do.

[Morwen]

I'll rewrite it to openeasyuo soon & probably with improvements

[Saragok]

Mega edited dis script for a gunda, mega guess mega can post it here. Mega removed the protection youga cast and youga will have to fill in %bordContainer manually, it is da container in your bank you wunt da boards to drop in to.
Let mega nuv if it works! *farts*

Code:

=========================================================================
; Script Name: EnCode MegaLumberjack
; Author: EnCode
; Version: 1.2.0
; Client Tested with: 4.0.10b
; EUO version tested with: 1.42.00A5
; Shard OSI / FS: FS
; Revision Date: 5-31-05
; Public Release: 5-15-05
; Global Variables Used: All global vars used by settings starts by *ECLJ
; This is a very powerful and easy to set up fully automatic script without rails!
; All you need is enough skills to craft tools and recall and some ingots in your bank box.
=========================================================================

; if you wish to use login by password (NOT RECOMMENDED)
; set up the macro as using razorlogin but uncomment and change these lines:

set *ECLJloginmode bypassword
set %password asd

;You may edit these values if you wish but you should do just fine
;with these.
set %axetype FSF_LSF_BSF_NSF_ZRF_RMH_LPH_UOH
set %paperdollid GRIB
set %boardContainer IGMTJMD
set %solvepk 0 ;if you have the PKCurses.txt set up change this to 1
set %forcebankweight 450 ;maxweight before bankup
;================================
;do not change below here
;================================
set %VerMajor 1
set %VerMinor 2
set %VerRevision 0
gosub showMenu
menu HideEuo
if SEND in #opts
{
    menu delete status
    menu Text status 116 119 Checking for updates...
    send httppost leiska.ath.cx /~encode/getversion.php?$scriptname=EnCode%20Megalumberjack
    if %Major <> N/A && %Minor <> N/A && %Revision <> N/A
    {
        if %Major > %VerMajor
        {
            menu hide
            Display YesNo There is a completely new version of this script available!$The newest version is: %Major , #dot , %Minor , #dot , %Revision , $Yours is: %VerMajor , #dot , %VerMinor , #dot , %VerRevision , $Would like to dowload the newest file?
            if #dispres = Yes
            {
                if EXEC in #opts
                {
                    execute http://www.easyuo.com/psl.php?page=mypsl&scripter=EnCode^
                    halt
                }
                else
                {
                    display ok Cannot open the page automatically.$Please go to the following address:$http://www.easyuo.com/psl.php?page=mypsl&scripter=EnCode^
                    halt
                }
            }
        }
        if %Major = %VerMajor && %Minor > %VerMinor
        {
            menu hide
            Display YesNo There is an update with new features available!$The newest version is: %Major , #dot , %Minor , #dot , %Revision , $Yours is: %VerMajor , #dot , %VerMinor , #dot , %VerRevision , $Would like to dowload the newest file?
            if #dispres = Yes
            {
                if EXEC in #opts
                {
                    execute http://www.easyuo.com/psl.php?page=mypsl&scripter=EnCode^
                    halt
                }
                else
                {
                    display ok Cannot open the page automatically.$Please go to the following address:$http://www.easyuo.com/psl.php?page=mypsl&scripter=EnCode^
                    halt
                }
            }
        }
        if %Major = %VerMajor && %Minor = %VerMinor && %Revision > %VerRevision
        {
            menu hide
            Display YesNo There is an update with bugfixes available!$The newest version is: %Major , #dot , %Minor , #dot , %Revision , $Yours is: %VerMajor , #dot , %VerMinor , #dot , %VerRevision , $Would like to dowload the newest file?
            if #dispres = Yes
            {
                if EXEC in #opts
                {
                    execute http://www.easyuo.com/psl.php?page=mypsl&scripter=EnCode^
                    halt
                }
                else
                {
                    display ok Cannot open the page automatically.$Please go to the following address:$http://www.easyuo.com/psl.php?page=mypsl&scripter=EnCode^
                    halt
                }
            }
        }
    }
    menu delete status
    menu Text status 116 119 Initializing
}
if *ECLJok <> 2
{
    menu hide
    if *ECLJok = 1
        display ok You have to setup the macro again as your settings are from older version!
    gosub settings
}
display YesNo Do you wish to use your last settings?
if #dispres = Yes
{
    set %shardid *ECLJshardid
    set %charnum *ECLJcharnum
    set %loginmode *ECLJloginmode
    set %recallstyle *ECLJrecallstyle
    set %showmap *ECLJshowmap
    set %bookid *ECLJbookid
    set %bankid *ECLJbankid
    set %ljspots *ECLJspots
}
if #dispres = No
    gosub settings
set %spot 0
tile init
linespercycle 200
set %hod 0
if #clilogged = 0
{
    if %loginmode <> none
    {
        gosub Login %loginmode %password #true
    }
    else
    {
        display Ok Please log in and unpause.
        pause
    }
}
if %solvepk = 1
    call PKCurses.txt
gosub openwhatneeded

if %recallstyle = Magery
{
    set %healspell 28
    set %curespell 10
    set %protspell 14
    set %lrc 0
    set %arcane 0
    finditem * C_ , #charid
    set %findcnt #findcnt
    for %i 1 %findcnt
    {
        finditem * %i C_ , #charid
        event property #findid
        str pos #property Lower , #spc , Reagent , #spc , Cost
        if #strres > 0
        {
            set %pos #strres + 18
            str len #property
            str mid #property %pos #strres - %pos
            set %str #strres
            str pos %str %
            set %pos #strres - 1
            str left %str %pos
            set %lrc %lrc + #strres
        }
        str pos #property Arcane , #spc , Charges: , #spc
        if #strres > 0
        {
            set %pos #strres + 16
            str len #property
            str mid #property %pos #strres - %pos
            set %str #strres
            str pos %str #spc
            set %pos #strres - 1
            str left %str %pos
            set %arcane %arcane + #strres
        }
    }
    set %restockregs 1
    if %lrc > 69
    {
        set %restockregs 0
    }
    else
    {
        if %arcane > 0
        {
            display yesno You seem to have %arcane arcane charges on your clothning
                + $Do you wish to use them instead of reagants?
                + $(Remember that YOU need to make sure that they won't run out!)
            if #dispres = yes
                set %restockregs 0
        }
    }
}
menu delete lrc
menu Text lrc 60 112 Lrc: %lrc
menu delete arcane
menu Text arcane 60 124 Arc: %arcane
if %recallstyle = Chivalry
{
    set %healspell 202
    set %curespell 201
    set %protspell 0
    set %restockregs 0
}
menu delete restock
if %restockregs = 0
    menu Text restock 116 75 Restock Reagants: No
else
    menu Text restock 116 75 Restock Reagants: Yes
menu delete status
menu Text status 116 119 Recalling to bank
gosub recall 1 %recallstyle
gosub bankup
;gosub checkprot
gosub chooseforest
start:
gosub checkweight
gosub checkpk
gosub checkConLost
gosub closest
move %x %y 1 10s
gosub checkpk
gosub checkdistance
gosub choptree
gosub toboards
goto start

sub checkdistance
    set %distx #charposx - %x
    set %disty #charposy - %y
    if %distx > -2 && %distx < 2 && %disty > -2 && %disty < 2
        return
    set %tempx #charposx - 5
    move %tempx #charposy 1 2s
    set %tempy #charposy - 5
    move #charposx %tempy 1 2s
    move %x %y 1 10s
return

sub checkweight
    gosub toboards
    if #weight > #maxweight || #weight > %forcebankweight
    {
        menu delete status
        menu Text status 116 119 Recalling to bank
        gosub recall 1 %recallstyle
        gosub bankup
        gosub chooseforest
        set %hod 0
    }
return

sub toboards
    if #weight > #maxweight || #weight > %forcebankweight
    {
    set %jrnl #jindex
    set %status hacking
    set %count 0
    while %status = hacking
    {
      set %count %count + 1
        if #jindex > %jrnl
      {
        set %jrnl %jrnl + 1
        scanjournal %jrnl

        if logs in #journal
          set %status idle
        if hack in #journal
          set %status idle
        if wood in #journal
          set %status idle
      }
      
      if %count > 80 ;timeout
        set %status idle
        
      wait 1
    }
    
        menu delete status
        menu Text status 116 119 Making boards...
        wait 17
        finditem ZLK C_ , #backpackid
        if #findcnt < 1
            goto nowood

    finditem %axetype C_ , %paperdollid
    if #FINDCNT < 1
    {
      finditem %axetype C_ , #backpackid
          if #FINDCNT < 1
          {
              display ok Something went wrong and we can't find an axe!$This should never happen!
              halt
          }
    }
    set !_orig.lobjectid #LOBJECTID
        set #lobjectid #findid
        event macro 17
        set #LOBJECTID !_orig.lobjectid
        wait 10

    finditem ZLK C_ , #backpackid
    if #FINDCNT > 0
    {
      set !_orig.ltargetid #LTARGETID
      set !_orig.ltargetkind #LTargetKind
      target 5s
      set #LTARGETID #findId
      set #LTargetKind 1
      event macro 22 0
      set #LTARGETID !_orig.ltargetid
      set #LTargetKind !_orig.ltargetkind
      wait 10
      }
      finditem TLK C_ , #backpackid
        set %boards %boards_in_bank + #findstack
        menu delete boards
        menu Text boards 12 44 Boards: %boards | Iron: %iron
  }
    nowood:
return

sub choptree
    menu delete status
    menu Text status 116 119 Chopping...
    set %backupwait #scnt + 60
    choploop:
    if #scnt > %backupwait
        goto ready
    wait 17
    gosub hit
    set %hitwait #scnt + 5
    deletejournal
    jrloop:
    wait 1
    scanjournal 1
    if logs in #journal
        goto choploop
    if hack in #journal
        goto choploop
    if not_enough_wood in #journal
        goto ready
    if you_can't_use_an_axe_on_that in #journal
        goto ready
    if cannot_be_seen in #journal
        goto ready
    if that_is_too_far in #journal
        goto ready
    gosub checkConLost
    gosub toboards
    if is_attacking_you in #journal
    {
        gosub antipk
        return
    }
    if #scnt > %hitwait
        goto choploop
    goto jrloop
    ready:
return

sub hit
    chop:
    finditem %axetype C_ , #charid
    if #findkind = -1
    {
        finditem %axetype C_ , #backpackid
        if #findkind = -1
        {
            gosub toboards
            menu delete status
            menu Text status 116 119 Recalling to bank
            gosub recall 1 %recallstyle
            gosub bankup
            set %hod 0
            gosub chooseforest
            return

        }
        set #lhandid #findid
        event macro 24 1
        wait 15
    }
    set #lobjectid #findid
    event macro 17
    target 1s
    set #ltargetkind 3
    set #ltargettile %tiletype
    set #ltargetx %x
    set #ltargety %y
    set #ltargetz %tilez
    event macro 22
return

sub closest
    menu delete status
    menu Text status 116 119 Finding tree...
    set %x #charposx
    set %y #charposy
    set %r 0
    set %fspiral -1
    treefinder:
    if %fspiral = -1
    {
        set %fspiral 1
    }
    else
    {
        set %fspiral -1
    }
    set %r %r + 1
    for %yx 1 %r
    {
        set %x %x + %fspiral
        gosub checktile
        if %findkind = 1
            return
    }
    for %yy 1 %r
    {
        set %y %y + %fspiral
        gosub checktile
        if %findkind = 1
            return
    }
    goto treefinder

sub checktile
    tile cnt %x %y
    set %ennestaan 0
    set %findkind -1
    for %cnt 1 #tilecnt
    {
        tile get %x %y %cnt
        if tree in #tilename
        {
            if %hod > 0
            {
                set %doh 0
                for %doh 1 %hod
                {
                    if %x = %hodx . %doh && %y = %hody . %doh
                    {
                        set %ennestaan 1
                    }
                }
            }
            if %ennestaan = 0
            {
                set %hod %hod + 1
                set %hodx . %hod %x
                set %hody . %hod %y
                set %findkind 1
                set %tilez #tilez
                set %tiletype #tiletype
            }
        }
    }
return

sub waitforgump
    set %tempwait #scnt
    loop:
    if #contname = %1 && ( #contsize = %2 || %2 = varies )
        return
    if #scnt > %tempwait + 3
        return
    goto loop

sub chooseforest
    set %spot %spot + 1
    if %spot > %ljspots
        set %spot 1
    set %runenum %spot + 1
    menu delete status
    menu Text status 116 119 Recalling to forest # %spot
    gosub recall %runenum %recallstyle
return

sub antipk
    menu delete status
    menu Text status 116 119 ESCAPING!!!
    if %solvepk = 1
        gosub curse
    gosub toboards
    gosub recall 1 %recallstyle
    wait 2s
    gosub HealMe
    wait 20
    gosub chooseforest
    set %hod 0
return

sub curse
    set %random #random * %curses + 1000
    set %random %random / 1000
    str lower %curse . %random
    event macro 1 0 #strres
return

sub checkpk
    set %journalkohta 0
    chkpkloop:
    set %journalkohta %journalkohta + 1
    wait 1
    scanjournal %journalkohta
    if is_attacking_you in #journal
    {
        gosub antipk
        return
    }
    if #hits < #maxhits - 1
    {
        gosub antipk
        return
    }
    if %journalkohta < 5
        goto chkpkloop
    deletejournal
return

sub dragfinditem
    event drag #findid
    if #findstack > 1
    {
        set %oottele #scnt2
        oota2:
        click #cursorx #cursory
        if #contname <> stack_gump
        {
            if #scnt2 > %oottele + 3
                goto oota2
        }
        if %0 = 0
            msg $
        else
            msg %1 , $
        wait 1
    }
return

sub openbank
        bankstart:
        set %nextcposx #nextcposx
        set %nextcposy #nextcposy
        set #nextcposx #cliXres - 180
        set #nextcposy #cliYres - 240
        set %attempts 0
        rebank:
        set %attempts %attempts + 1
        if %attempts > 5
        {
            menu delete status
            menu Text status 116 119 Recalling to bank
            gosub recall 1 %recallstyle
            goto bankstart
        }
        event macro 1 0 bank
        set %bankkiwaitti #scnt
        ootabank:
            if #scnt > %bankkiwaitti + 2
                goto rebank
            if #contid <> %bankid
                goto ootabank
        set #nextcposx %nextcposx
        set #nextcposy %nextcposy
return

sub bankup
    gosub openbank
    menu delete status
    menu Text status 116 119 Banking boards

BankMore:
  finditem TLK C
  if #FINDCNT > 0
  {
        Exevent Drag #findid #findstack
        wait 10
        Exevent Dropc %boardContainer
        wait 10
        set %boards_in_bank %boards_in_bank + #findstack
        goto BankMore
  }
  wait 1s
        
    if %restockregs = 1
      gosub restockregs
      
    menu delete boards
    menu Text boards 12 44 Boards: %boards_in_bank | Iron: %iron
return

sub checkConLost
    if #contsize = 203_121 && #contname = waiting_gump
    {
        menu delete status
        menu Text status 116 119 Connection Lost
        set %clickx #contposx + 100
        set %clicky #contposy + 90
        click %clickx %clicky
        wait 60s
        gosub Login %loginmode %password
    }
    if #clilogged = 0
    {
        gosub Login %loginmode %password
    }
return

sub Login
    set %lpc #lpc
    linespercycle 10
    set %noprot %3
    restartlogin:
    menu delete status
    menu Text status 116 119 Logging in
    if %1 = none
    {
        menu hide
        halt
    }
    if %1 = bypassword
    {
        str lower %2
        click 355 400
        wait 10
        msg #strres , $
        set #strres N/A
    }
    else
    {
        click 620 460
    }
    oottele666:
    wait 1
    savepix 255 173 1
    set %pixcol1 #pixcol
    savepix 363 192 1
    set %pixcol2 #pixcol
    if %pixcol1 = 3750201 && %pixcol2 = 3750201 && #contsize = 408_288
    {
        click 317 353
        wait 60s
        click 620 460
        goto oottele666
    }
    if #contname <> normal_gump || #contsize <> 640_480
        goto oottele666
    retry666:
    wait 1
    scanshard:
    menu delete status
    menu Text status 116 119 Scanning...
    set %_shardid 0
    click 0 0 mc
    for %x 200 375
    {
        savepix %x 115 1
        set %_shardid %_shardid + #pixcol
    }
    if %_shardid = %lastshard
    {
        click 595 455
        for %i 60 0
        {
            menu delete status
            menu Text status 116 119 Shard down, waiting ( , %i , s)...
            wait 1s
        }
        goto restartlogin
    }
    if %_shardid <> %shardid
    {
        set %lastshard %_shardid
        click 540 350
        wait 10
        goto scanshard
    }
    menu delete status
    menu Text status 116 119 Logging in
    click 260 120 d
    set %scnt #scnt + 3
    oottele69:
    wait 1
    if #scnt > %scnt
        goto retry666
    if #contname <> Login_gump  || #contsize <> 640_480
        goto oottele69
    set %clicky %charnum * 40 + 120
    retry69:
    wait 1
    click 235 %clicky d
    set %scnt #scnt + 3
    oottele64:
    wait 1
    if #scnt > %scnt
        goto retry69
    if #clilogged = 0
        goto oottele64
    wait 60
    gosub openwhatneeded
    wait 20
    ;Next is for annoying motd gumps on most freeshards
    ;they allmost everytime appear on the middle of screen so
    ;that is where we click to get rid of it
    set %x #clixres / 2 + #clileft
    set %y #cliyres / 2 + #clitop
    click %x %y r
    wait 10
    ;Lets hide the top bar too :)
    click 15 15
    wait 10
    linespercycle %lpc
    ;if %noprot <> #true
    ;    gosub checkprot
    wait 25
return

sub recall
    set %rn %1
    set %st %2
    if %0 = 1
        set %st Magery
    if %0 = 0 || %0 > 2
    {
        menu hide
        display ok Invalid use of recall function, please inform EnCode about the bug
        halt
    }
    REcall:
    if #LLIFTEDKIND = 1
    {
        gosub droptobackpack
    }
    gosub DropWood
    if #mana < 11
        goto REcall
    gosub checkConLost
    set #lobjectid %bookid
    event macro 17
    gosub waitforgump generic_gump 452_236
    set %clickx #contposx + 410
    set %clicky #contposy + 25
    set %sivu ( ( %rn - 1 ) / 2 ) + 1
    for %i 1 %sivu
    {
        click %clickx %clicky
        wait 4
    }
    if %st = Magery
        set %clicky #contposy + 145
    if %st = Chivalry
        set %clicky #contposy + 180
    set %rune ( %rn + 1 ) % 2 + 1
    if %rune = 1
    {
        set %clickx #contposx + 140
        click %clickx %clicky d
        wait 20
        event macro 23 0

    }
    else
    {
        set %clickx #contposx + 300
        click %clickx %clicky d
        wait 20
        event macro 23 0
    }
    set %seisomapaikka #charposx , _ , #charposy
    set %oottamisjuba #scnt + 6
    heimeloopitaantaas:
    if %seisomapaikka = #charposx , _ , #charposy && %oottamisjuba > #scnt
        goto heimeloopitaantaas
    if %seisomapaikka = #charposx , _ , #charposy
    {
        gosub toboards
        set %movex #charposx - 2
        set %movey #charposy - 2
        move %movex %movey 0 1s
        goto REcall
    }
    menu delete moss
    menu delete perl
    menu delete drake
    menu delete tithe
    finditem JUF C_ , #backpackid
    menu Text moss 12 76 Bm: #findstack
    finditem KUF C_ , #backpackid
    menu Text perl 12 88 Bp: #findstack
    finditem MZF C_ , #backpackid
    menu Text drake 12 100 Mr: #findstack
    menu Text tithe 60 100 Tth: #tp
return

sub findcol
    finditem %1 %3
    for %i 1 #findcnt
    {
        finditem %1 %i %3
        if #findcol = %2
        return
    }
    set #findkind -1
return

sub openwhatneeded
    if %1 <> Paperdoll_Only
    {
        menu delete status
        menu Text status 116 119 Placing needed gumps...
        event macro 9 7
        wait 15
        event macro 8 7
        gosub waitforgump container_gump 230_204
        set %x #contposx + 113
        set %y #contposy + 172
        click %x %y
        set #contposx 20 + #clileft
        set #contposy 5 + #clitop
        wait 10
        event macro 8 2
        gosub waitforgump status_gump 432_184
        set %x #contposx + 395
        set %y #contposy + 160
        click %x %y
        set #contposx 100 + #clileft
        set #contposy 5 + #clitop
        wait 10
        if %showmap = 1
        {
            map:
            event macro 8 8
            gosub waitforgump radar_gump varies
            if #contsize = 200_200
            {
                set #contposx #clixres - 190 + #clileft
                set #contposy #cliyres - 190 + #clitop
            }
            else
            {
                goto map
            }
            wait 10
        }
    }
    event macro 8 1
    gosub waitforgump paperdoll_gump 262_324
    set %x #contposx + 235
    set %y #contposy + 270
    click %x %y
    set #contposx 15 + #clileft
    set #contposy 70 + #clitop
    wait 20
return

sub droptobank
    wait 15
    if_something_goes_wrong:
    if #lliftedkind = 1
    {
        gosub openbank
        set %x #contposx + 90
        set %y #contposy + 220
        click %x %y p
        wait 10
    }
    if #lliftedkind = 1
        goto if_something_goes_wrong
return

sub droptobackpack
    wait 15
    if_something_goes_wrong2:
    if #lliftedkind = 1
    {
        event macro 9 1
        wait 10
        event macro 8 1
        gosub waitforgump paperdoll_gump 262_324
        set #findmod 140_220
        finditem #backpackid
        click #findx #findy p
        set #findmod 0_0
        wait 5
        gosub openwhatneeded Paperdoll_Only
        wait 10
    }
    if #lliftedkind = 1
        goto if_something_goes_wrong
return

sub showWizard
    menu Clear
    menu Window Title EnCode MegaLumberjack
    menu Window Color BtnFace
    menu Window Size 335 124
    menu Font Transparent #true
    menu Font Align Right
    menu Shape Logo1 16 4 9 17 5 7 1 Black 7 $000000C0
    menu Shape Logo2 16 12 9 17 5 7 1 Black 7 $000000B0
    menu Shape Logo3 16 20 9 17 5 7 1 Black 7 $000000A0
    menu Shape Logo4 24 4 9 17 5 7 1 Black 7 $000000D0
    menu Shape Logo5 32 4 9 17 5 7 1 Black 7 $000000E0
    menu Shape Logo6 24 20 9 17 5 7 1 Black 7 $000000F0
    menu Shape Logo7 16 28 9 17 5 7 1 Black 7 $00A0A0FF
    menu Shape Logo8 16 36 9 17 5 7 1 Black 7 $00B0B0FF
    menu Shape Logo9 24 36 9 17 5 7 1 Black 7 $00C0C0FF
    menu Shape Logo10 32 36 9 17 5 7 1 Black 7 $00D0D0FF
    menu Shape Logo11 44 20 9 13 5 7 1 Black 7 $00E0E0FF
    menu Shape Logo12 52 20 9 13 5 7 1 Black 7 $00E0E0FF
    menu Shape Logo13 60 20 9 13 5 7 1 Black 7 $00E0E0FF
    menu Shape Logo14 44 28 9 13 5 7 1 Black 7 $00EFF0FF
    menu Shape Logo15 44 36 9 13 5 7 1 Black 7 $00EFF0FF
    menu Shape Logo16 44 44 9 13 5 7 1 Black 7 $00EFF0FF
    menu Shape Logo17 44 52 9 13 5 7 1 Black 7 $00F0F0FF
    menu Shape Logo18 52 52 9 13 5 7 1 Black 7 $00F0F0FF
    menu Shape Logo19 60 52 9 13 5 7 1 Black 7 $00F0F0FF
    menu Shape Logo22 24 49 17 21 2 7 1 Gray 7 Gray
    menu Shape Logo20 22 54 17 21 2 7 1 Gray 7 Gray
    menu Shape Logo21 22 60 17 21 2 7 1 Gray 7 Gray
    menu Shape Logo26 41 51 9 9 2 7 1 $00004080 7 $00004080
    menu Shape Logo24 37 72 9 9 2 7 1 $00004080 7 $00004080
    menu Shape Logo25 35 79 9 9 2 7 1 $00004080 7 $00004080
    menu Shape Logo27 35 76 9 9 2 7 1 $00004080 7 $00004080
    menu Shape Logo28 33 84 9 9 2 7 1 $00004080 7 $00004080
    menu Shape Logo29 30 90 9 9 2 7 1 $00004080 7 $00004080
    menu Shape Logo30 32 87 9 9 2 7 1 $00004080 7 $00004080
    menu Shape Logo31 28 96 9 9 2 7 1 $00004080 7 $00004080
    menu Shape Logo32 29 94 9 9 2 7 1 $00004080 7 $00004080
    menu Shape Logo23 28 53 21 25 2 7 1 Gray 7 Gray
    menu Font Name Tahoma
    menu Font Size 16
    menu Font Style b
    menu Font Color Red
    menu Font Align Left
    menu Font BGColor Red
    menu Text lblLogo1 44 76 Mega
    menu Text lblLogo2 8 96 Lumberjack
    menu Shape Separator 136 4 3 117 3 7 1 Black 7 Silver
    menu Font Name MS Sans Serif
    menu Font Style
    menu Font Color WindowText
    menu Font BGColor BtnFace
    menu Font Size 8
    menu Button button2 212 96 65 21 Cancel
    menu Button button3 276 96 57 21 Next ->
    menu Show 421 270
    menu Font Size 10
return

sub Settings
    gosub showwizard
    set #menubutton N/A
    StartScreen:
    gosub SETUPClear
    menu Text Caption 144 4 Welcome To EC LumberJack
    menu Font Size 8
    menu Text Line1 148 24 This setup will go trough the setup
    menu Text Line2 148 36 step by step.
    menu Text Line3 148 48 At start you need a runebook with
    menu Text Line4 148 60 first rune marked at bank and others
    menu Text Line5 148 72 to the forest spots to use.
    gosub SETUPwaitforuserresponse
    BookDetermining:
    gosub SETUPClear
    menu Text Caption 144 4 Determining Runebook (1/2)
    menu Font Size 8
    menu Text Line1 148 24 Now we will determine settings for
    menu Text Line2 148 36 your runebook. Set it so that bank
    menu Text Line3 148 48 rune is the first one in the book and
    menu Text Line4 148 60 all lj spots are right after it. When
    menu Text Line5 148 72 ready dclick book and press Next.
    menu Button button1 148 96 65 21 <- Back
    gosub SETUPwaitforuserresponse
    if #result = back
        goto StartScreen
    gosub SETUPClear
    if #lobjecttype <> MPF
    {
        display Ok Last Item was not a runebook!
        goto BookDetermining
    }
    set %bookid #lobjectid
    BookSettings:
    gosub SETUPClear
    menu Text Caption 144 4 Determining Runebook (2/2)
    menu Font Size 8
    menu Text Line1 148 24 Your book id is set to: %bookid
    menu Text Line2 148 36 Now we need to know how many
    menu Text Line3 148 48 lumberjacking spots (runes to forests)
    menu Text Line4 148 60 it contains. Enter here:
    menu Edit Line5 204 72 50 3
    menu Button button1 148 96 65 21 <- Back
    gosub SETUPwaitforuserresponse
    if #result = back
        goto BookDetermining
    menu getnum Line5
    set %ljspots #menures
    AutoLogin:
    gosub SETUPClear
    menu Text Caption 144 4 Autologin Settings
    menu Font Size 8
    menu Text Line1 148 24 Now we shall determine settings for
    menu Text Line2 148 36 autologin. I do not recommend login
    menu Text Line3 148 48 by pass, but with razor for safety.
    menu Text Line4 148 60 If you wish to use autologin by pass,
    menu Text Line5 148 72 edit configfile.
    menu check RLogin 225 74 200 12 0 Use RazorLogin
    menu Button button1 148 96 65 21 <- Back
    gosub SETUPwaitforuserresponse
    if #result = back
        goto BookSettings
    menu get RLogin
    menu Delete RLogin
    set %loginmode Razor
    if #menures = 0
    {
        set %shardid 0
        set %charnum 1
        set %loginmode none
        goto RecallType
    }
    Autologin2:
    gosub SETUPClear
    menu Text Caption 144 4 Autologin Details (1/2)
    menu Font Size 8
    menu Text Line1 148 24 Now we need to get your shard id.
    menu Text Line2 148 36 Go to the shardlist on login and set
    menu Text Line3 148 48 it so your shard is on the top.
    menu Text Line4 148 60 (use the scroller on right of the list)
    menu Text Line5 148 72 When ready click next
    menu Button button1 148 96 65 21 <- Back
    gosub SETUPwaitforuserresponse
    if #result = back
        goto AutoLogin
    set %shardid 0
    click 0 0 mc
    for %x 200 375
    {
        savepix %x 115 1
        set %shardid %shardid + #pixcol
    }
    click 260 120 d
    AutoLogin3:
    gosub SETUPClear
    menu Text Caption 144 4 Autologin Details (2/2)
    menu Font Size 8
    menu Text Line1 148 24 What is the number of your char:
    menu Text Line2 148 36 (position on the charlist)
    menu Text Line3 148 60 Charnum:
    menu Edit charnum 210 60 30 1
    menu Button button1 148 96 65 21 <- Back
    gosub SETUPwaitforuserresponse
    if #result = back
        goto AutoLogin
    menu getnum charnum
    set %charnum #menures
    menu delete charnum
    set %clicky %charnum * 40 + 120
    wait 10
    click 235 %clicky d

    RecallType:
    gosub SETUPClear
    menu Text Caption 144 4 Recall type
    menu Font Size 8
    menu Text Line1 148 24 Okay, allmost done. Now we should
    menu Text Line2 148 36 find out the way you wish to recall.
    menu Combo Create Line4 148 60 150
    menu Combo Add Line4 Magery
    menu Combo Add Line4 Chivalry
    menu Combo Select Line4 1
    menu Button button1 148 96 65 21 <- Back
    gosub SETUPwaitforuserresponse
    if #result = back
        goto AutoLogin
    menu get Line4
    if #menures = 1
        set %recallstyle Magery
    else
        set %recallstyle Chivalry
    RadarMap:
    gosub SETUPClear
    menu Text Caption 144 4 Radar map
    menu Font Size 8
    menu Text Line1 148 24 Now this may sound stupid but
    menu Text Line2 148 36 do you wish me to show radar map
    menu Text Line3 148 48 on screen. Many people wish to see
    menu Text Line4 148 60 it including me, some doesn't.
    menu check Line5 148 72 200 20 Show radar map
    menu Button button1 148 96 65 21 <- Back
    gosub SETUPwaitforuserresponse
    if #result = back
        goto RecallType
    menu get Line5
    if #menures = -1
        set %showmap 1
    else
        set %showmap 0
    BankID:
    gosub SETUPClear
    menu Text Caption 144 4 Bank ID
    menu Font Size 8
    menu Text Line1 148 24 This is the 2nd final step. Move to
    menu Text Line2 148 36 bank and press next and i shall
    menu Text Line3 148 48 determine your bank id.
    menu Text Line4 148 60 After that we shall save settings and
    menu Text Line5 148 72 that will take a while.
    menu Button button1 148 96 65 21 <- Back
    gosub SETUPwaitforuserresponse
    if #result = back
        goto RadarMap
    event macro 1 0 bank
    gosub waitforgump container_gump 180_240
    if #contid = N/A
        goto BankID
    set %bankid #contid
    SaveAll:
    menu hide
    set *ECLJshardid %shardid
    set *ECLJcharnum %charnum
    set *ECLJloginmode %loginmode
    set *ECLJrecallstyle %recallstyle
    set *ECLJshowmap %showmap
    set *ECLJbookid %bookid
    set *ECLJbankid %bankid
    set *ECLJspots %ljspots
    set *ECLJok 2
    display ok Please restart EC MegaLumberJack
    halt
return

sub SETUPwaitforuserresponse
    SETUPwaitloop:
    if #menubutton = button1
    {
        set #menubutton N/A
        return back
    }
    if #menubutton = button2
    {
        set #menubutton N/A
        menu hide
        halt
    }
    if #menubutton = button3
    {
        set #menubutton N/A
        return next
    }
    if #menubutton = closed
        halt
    goto SETUPwaitloop

sub SETUPClear
    menu Delete Caption
    menu Delete Line1
    menu Delete Line2
    menu Delete Line3
    menu Delete Line4
    menu Delete Line5
    menu Delete button1
    menu Font Size 10
return

sub CheckProt
    if %protspell = 0
        return
    menu delete status
    menu Text status 116 119 Applying Protection...
    newprot:
    set %ar #ar
    event macro 15 %protspell
    set %wait #scnt + 2
    waitforprotection:
    if #scnt > %wait
        goto failprot
    if %ar = #ar
        goto waitforprotection
    failprot:
    wait 25
    gosub countregs
    if #ar = %ar
        return
    goto newprot
return

sub HealMe
    healstart:
    if C in #charstatus
    {
        menu delete status
        menu Text status 116 119 Poisoned... Cure...
        finditem ZLF
    set #lobjectid #findid
    event macro 17 0
    target 1s
    event macro 23 0
    wait 5s
        goto healstart
    }
    if #hits < #maxhits
    {
        menu delete status
        menu Text status 116 119 Healing...
        finditem ZLF
    set #lobjectid #findid
    event macro 17 0
    target 1s
    event macro 23 0
    wait 5s
        goto healstart
    }
return

sub target
    set %wait #scnt + 1
    wait_for_target:
        wait 1
        scanjournal 1
        if fizzles in #journal || already_performing in #journal || more_reagants in #journal || not_yet_recovered in #journal || your_concentration in #journal || insufficent_mana in #journal
            return
        scanjournal 2
        if fizzles in #journal || already_performing in #journal || more_reagants in #journal || not_yet_recovered in #journal || your_concentration in #journal || insufficent_mana in #journal
            return
        if #scnt > %wait
            return
        if #targcurs = 0
            goto wait_for_target
    if %1 = 1
    {
        chkdistance:
            wait 1
            finditem #ltargetid
            if #findkind = -1 && #targcurs = 1
                goto chkdistance
            if #finddist > 12 && #targcurs = 1
                goto chkdistance
        event macro 22
    }
    if %1 = 2
    {
        event macro 23
    }
return

sub restockregs
    menu delete status
    menu Text status 116 119 Restocking reagents...
    finditem MZF C_ , #backpackid
    if #findstack < 6
    {
        set %stack #findstack
        finditem MZF C_ , %bankid
        if #findkind = -1
        {
            display Ok Out of mandrakes
            halt
        }
        if #findstack < 15 - %stack
        {
            gosub dragfinditem
            gosub droptobackpack
            wait 20
            goto nextreg1
        }
        set %drag 15 - %stack
        gosub dragfinditem %drag
        gosub droptobackpack
        wait 20
    }
    nextreg1:
    finditem KUF C_ , #backpackid
    if #findstack < 6
    {
        set %stack #findstack
        finditem KUF C_ , %bankid
        if #findkind = -1
        {
            display Ok Out of black pearls
            halt
        }
        if #findstack < 15 - %stack
        {
            gosub dragfinditem
            gosub droptobackpack
            wait 20
            goto nextreg2
        }
        set %drag 15 - %stack
        gosub dragfinditem %drag
        gosub droptobackpack
        wait 20
    }
    nextreg2:
    finditem JUF C_ , #backpackid
    if #findstack < 6
    {
        set %stack #findstack
        finditem JUF C_ , %bankid
        if #findkind = -1
        {
            display Ok Out of blood moss
            halt
        }
        if #findstack < 15 - %stack
        {
            gosub dragfinditem
            gosub droptobackpack
            wait 20
            goto nextreg3
        }
        set %drag 15 - %stack
        gosub dragfinditem %drag
        gosub droptobackpack
        wait 20
    }
    nextreg3:
    finditem SZF C_ , #backpackid
    if #findstack < 6
    {
        set %stack #findstack
        finditem SZF C_ , %bankid
        if #findkind = -1
        {
            display Ok Out of sulphurous ash
            halt
        }
        if #findstack < 15 - %stack
        {
            gosub dragfinditem
            gosub droptobackpack
            wait 20
            goto nextreg4
        }
        set %drag 15 - %stack
        gosub dragfinditem %drag
        gosub droptobackpack
        wait 20
    }
    nextreg4:
    finditem JZF C_ , #backpackid
    if #findstack < 6
    {
        set %stack #findstack
        finditem JZF C_ , %bankid
        if #findkind = -1
        {
            display Ok Out of ginseng
            halt
        }
        if #findstack < 15 - %stack
        {
            gosub dragfinditem
            gosub droptobackpack
            wait 20
            goto nextreg5
        }
        set %drag 15 - %stack
        gosub dragfinditem %drag
        gosub droptobackpack
        wait 20
    }
    nextreg5:
    finditem RZF C_ , #backpackid
    if #findstack < 6
    {
        set %stack #findstack
        finditem RZF C_ , %bankid
        if #findkind = -1
        {
            display Ok Out of spiders' silk
            halt
        }
        if #findstack < 15 - %stack
        {
            gosub dragfinditem
            gosub droptobackpack
            wait 20
            goto nextreg6
        }
        set %drag 15 - %stack
        gosub dragfinditem %drag
        gosub droptobackpack
        wait 20
    }
    nextreg6:
    finditem KZF C_ , #backpackid
    if #findstack < 6
    {
        set %stack #findstack
        finditem KZF C_ , %bankid
        if #findkind = -1
        {
            display Ok Out of garlic
            halt
        }
        if #findstack < 15 - %stack
        {
            gosub dragfinditem
            gosub droptobackpack
            wait 20
            goto restockdone
        }
        set %drag 15 - %stack
        gosub dragfinditem %drag
        gosub droptobackpack
        wait 20
    }
    restockdone:
    gosub countregs
return

sub DropWood
    ;if #weight > #maxweight
    ;{
    ;    set %todrop ( #weight - #maxweight ) * 10
    ;    finditem TLK C_ , #backpackid
    ;    gosub dragfinditem %todrop
    ;    set %x #clixres / 2
    ;    set %y #cliyres / 2 + 5
    ;    click %x %y
    ;}
return

sub showMenu
    menu Clear
    menu Window Title ECLJ
    menu Window Color Black
    menu Window Size 263 147
    menu Font Transparent #true
    menu Font Align Right
    menu Shape board1 26 4 2 2 3 7 1 Maroon 7 White
    menu Shape board2 25 5 3 2 3 7 1 Olive 7 White
    menu Shape board3 24 6 5 2 3 7 1 Maroon 7 White
    menu Shape board4 23 7 7 2 3 7 1 Olive 7 White
    menu Shape board5 22 8 7 2 3 7 1 Maroon 7 White
    menu Shape board6 21 9 7 2 3 7 1 Olive 7 White
    menu Shape board7 20 10 7 2 3 7 1 Maroon 7 White
    menu Shape board8 19 11 7 2 3 7 1 Olive 7 White
    menu Shape board9 18 12 7 2 3 7 1 Maroon 7 White
    menu Shape board10 17 13 7 2 3 7 1 Olive 7 White
    menu Shape board11 16 14 7 2 3 7 1 Maroon 7 White
    menu Shape board12 15 15 7 2 3 7 1 Olive 7 White
    menu Shape board13 14 16 7 2 3 7 1 Maroon 7 White
    menu Shape board14 13 17 7 2 3 7 1 Olive 7 White
    menu Shape board15 12 18 7 2 3 7 1 Maroon 7 White
    menu Shape board16 11 19 7 2 3 7 1 Olive 7 White
    menu Shape board17 10 20 7 2 3 7 1 Maroon 7 White
    menu Shape board18 10 21 6 2 3 7 1 Olive 7 White
    menu Shape board19 10 22 5 2 3 7 1 Maroon 7 White
    menu Shape board20 11 23 3 2 3 7 1 Olive 7 White
    menu Shape board21 12 24 2 1 3 7 1 Maroon 7 White
    menu Shape sboard1 30 10 2 2 3 7 1 Maroon 7 White
    menu Shape sboard2 29 11 3 2 3 7 1 Olive 7 White
    menu Shape sboard3 28 12 5 2 3 7 1 Maroon 7 White
    menu Shape sboard4 27 13 7 2 3 7 1 Olive 7 White
    menu Shape sboard5 26 14 7 2 3 7 1 Maroon 7 White
    menu Shape sboard6 25 15 7 2 3 7 1 Olive 7 White
    menu Shape sboard7 24 16 7 2 3 7 1 Maroon 7 White
    menu Shape sboard8 23 17 7 2 3 7 1 Olive 7 White
    menu Shape sboard9 22 18 7 2 3 7 1 Maroon 7 White
    menu Shape sboard10 21 19 7 2 3 7 1 Olive 7 White
    menu Shape sboard11 20 20 7 2 3 7 1 Maroon 7 White
    menu Shape sboard12 19 21 7 2 3 7 1 Olive 7 White
    menu Shape sboard13 18 22 7 2 3 7 1 Maroon 7 White
    menu Shape sboard14 17 23 7 2 3 7 1 Olive 7 White
    menu Shape sboard15 16 24 7 2 3 7 1 Maroon 7 White
    menu Shape sboard16 15 25 7 2 3 7 1 Olive 7 White
    menu Shape sboard17 14 26 7 2 3 7 1 Maroon 7 White
    menu Shape sboard18 14 27 6 2 3 7 1 Olive 7 White
    menu Shape sboard19 14 28 5 2 3 7 1 Maroon 7 White
    menu Shape sboard20 15 29 3 2 3 7 1 Olive 7 White
    menu Shape sboard21 16 30 2 1 3 7 1 Maroon 7 White
    menu Shape hatchet1 13 6 3 2 3 7 1 Olive 7 White
    menu Shape hatchet2 14 7 3 2 3 7 1 Olive 7 White
    menu Shape hatchet3 15 8 3 2 3 7 1 Olive 7 White
    menu Shape hatchet4 16 9 3 2 3 7 1 Olive 7 White
    menu Shape hatchet5 17 10 3 2 3 7 1 Olive 7 White
    menu Shape hatchet6 18 11 3 2 3 7 1 Olive 7 White
    menu Shape hatchet7 19 12 3 2 3 7 1 Olive 7 White
    menu Shape hatchet8 20 13 3 2 3 7 1 Olive 7 White
    menu Shape hatchet9 21 14 3 2 3 7 1 Olive 7 White
    menu Shape hatchet10 22 15 3 2 3 7 1 Olive 7 White
    menu Shape hatchet11 23 16 3 2 3 7 1 Olive 7 White
    menu Shape hatchet12 24 17 3 2 3 7 1 Olive 7 White
    menu Shape hatchet13 25 18 3 2 3 7 1 Olive 7 White
    menu Shape hatchet14 26 19 3 2 3 7 1 Olive 7 White
    menu Shape hatchet15 27 20 3 2 3 7 1 Olive 7 White
    menu Shape hatchet16 28 21 3 2 3 7 1 Olive 7 White
    menu Shape hatchet17 29 22 3 2 3 7 1 Olive 7 White
    menu Shape hatchet18 10 8 3 2 3 7 1 Gray 7 White
    menu Shape hatchet19 9 9 5 2 3 7 1 Silver 7 White
    menu Shape hatchet20 9 9 5 2 3 7 1 Silver 7 White
    menu Shape hatchet21 9 10 6 2 3 7 1 Silver 7 White
    menu Shape hatchet22 9 10 3 2 3 7 1 Gray 7 White
    menu Shape hatchet23 10 11 6 2 3 7 1 Silver 7 White
    menu Shape hatchet24 12 11 3 2 3 7 1 Gray 7 White
    menu Shape hatchet25 11 12 5 2 3 7 1 Silver 7 White
    menu Shape hatchet26 13 12 2 2 3 7 1 Gray 7 White
    menu Shape hatchet27 12 13 4 2 3 7 1 Silver 7 White
    menu Shape hatchet28 13 14 3 2 3 7 1 Silver 7 White
    menu Font Name MS Sans Serif
    menu Font Size 14
    menu Font Style
    menu Font Color Red
    menu Font Transparent #false
    menu Font Align Left
    menu Font BGColor Black
    menu Text ECLJ 40 4 EnCode MegaLumberjack
    menu Shape Box1 4 36 257 109 3 7 1 Black 7 BtnFace
    menu Shape Box2 8 60 105 81 3 7 1 Gray 7 InfoBk
    menu Font Size 8
    menu Font Color WindowText
    menu Font Transparent #true
    menu Text EUOLabel1 12 61 Reagents:
    menu Shape EUOShape1 8 40 249 21 3 7 1 Gray 7 InfoBk
    menu Text moss 12 76 Bm: 0
    menu Text perl 12 88 Bp: 0
    menu Text drake 12 100 Mr: 0
    menu Text garlic 12 112 Gr: 0
    menu Text seng 12 124 Gs: 0
    menu Text silk 60 76 Ss: 0
    menu Text ash 60 88 Sa: 0
    menu Text tithe 60 100 Tth: 0
    menu Text lrc 60 112 Lrc: 0
    menu Text arcane 60 124 Arc: 0
    menu Text boards 12 44 Boards: 0 | Iron: 0
    menu Shape box3 112 60 145 45 3 7 1 Gray 7 InfoBk
    menu Text statstext 116 61 Script Stats:
    menu Text restock 116 75 Restock Reagants: No
    menu Shape box4 112 104 145 37 3 7 1 Gray 7 InfoBk
    menu Text statustext 116 105 Status:
    menu Text status 116 119 Not Available
    set %y #cliYres + 25
    menu Show 1 %y
return

sub countregs
    menu delete moss
    menu delete perl
    menu delete drake
    menu delete garlic
    menu delete seng
    menu delete silk
    menu delete ash
    finditem JUF C_ , #backpackid
    menu Text moss 12 76 Bm: #findstack
    finditem KUF C_ , #backpackid
    menu Text perl 12 88 Bp: #findstack
    finditem MZF C_ , #backpackid
    menu Text drake 12 100 Mr: #findstack
    finditem KZF C_ , #backpackid
    menu Text garlic 12 112 Gr: #findstack
    finditem JZF C_ , #backpackid
    menu Text seng 12 124 Gs: #findstack
    finditem RZF C_ , #backpackid
    menu Text silk 60 76 Ss: #findstack
    finditem SZF C_ , #backpackid
    menu Text ash 60 88 Sa: #findstack
return

[soMa]

Tried this macro also, found it on the Easy uo website, gets to the point of recalling to the trees then it freaks out asking to bank which is retarded because the macro knows its recalling to the trees.

Im looking to delete all the recalling, banking re-login bull shit that is only used when you can fully afk macro on shards that let you afk macro resources... Something simple just walks and lumberjacks and possibly cut the logs into boards.
Either way this macro still freezes uo and it never used to.
I can also use the mining macro among others with no problems of freezing what so ever it only happens to the lumberjack macros.

But I keep trying them I keep reinstalling Euo Ive tried editing the macros nothing seems to work just keeps freezing.

[Saragok]

But mega changed da script so it would work here on Imagine Nation, did youga try megas scripts? Also, youga need to set %paperdollid manually.

Youga need to have da bank rune first in da rune book, den after dat da forest runes.

Dis script works for mega

[soMa]

Yeah I tried the script you posted, it does work but still kept freezing - How ever I fixed the freezing problem.
I had a feeling it was the client so I switched over to the 6 w/e client installed injection loaded it up and what do you know no more freezing with those messages. Weird tho because it used to work untill one of the patches from the patcher.
Atleast this way i got it to work and I can lumberjack which makes me happy .

[Lamby]

This would be really great if it worked. Can someone please post the actual .lua file instead of just pasting the script? Pasting the script into openeuo always makes things screwy when I do it that way.

[Craditz]

works fine with me one of the best

[Eadred]

I've had pretty much the same experience as Craditz. I've been running this script since I downloaded easyuo, and I've yet to have a problem with it. Thus far, this script gets my personal thumbs up. :thumbsup:

[Gatin]

for me freeze, uosay cant find axe, and cant restock right