Set %Hotkey F5
set %resume 33
Set %Logs TLK_ZLK
set %HomeRune CEUMLRE
Set %TreeRune WRSUKPD
Set %DropChest TWXUVOD
Set %SetWeight 200


set #SYSMSGCOL 1186
if *Trees = 0 || *Trees = N/A
{
event SysMessage Start chopping some trees.
set *Trees 0
}
else
{
event SysMessage Press %Hotkey to chop last *Trees trees.
event SysMessage Chop a tree to restart from the beginning.
}
set %Auto #FALSE
set %Action Begin
set %Carp #FALSE
set #SCNT 0
scanjournal 1
deletejournal

start:
if #SCNT > 10 && %Auto = #TRUE
{
set %Action Idle
}
if %Auto = #TRUE && %Action = Idle && #SCNT > 10
{
set *TreeIndex ( *TreeIndex + 1 ) % *Trees
set #LTARGETX *TreeX . *TreeIndex
set #LTARGETY *TreeY . *TreeIndex
set #LTARGETZ *TreeZ . *TreeIndex
set #LTARGETTILE *TreeT . *TreeIndex
set #LTARGETKIND 3
move #LTARGETX #LTARGETY 1 150s
set #LOBJECTID *Hatchet
event Macro 17 0
target 120s
if #TARGCURS = 1
{
event Macro 22 0
}
set #SCNT 0
set %Action Auto
}

for %N 5 1
{
if *Trees > 1 && %Auto = #FALSE
{
onhotkey %Hotkey
{
set %Auto #TRUE
set *TreeIndex -1
event SysMessage Automatic chopping now.
set %Action = Idle
set #SCNT 9
}
}
scanjournal %N
if You_stop_chopping in #JOURNAL && %Auto = #TRUE
{
event SysMessage Stopped. Press %Hotkey to restart.
set %Auto #FALSE
set %Action Idle
set #SCNT 0
scanjournal 1
deletejournal
}
if You_begin_chopping in #JOURNAL && %Auto = #TRUE
{
deletejournal
set %Action Chopping
set *TreeN *TreeIndex + 1
event SysMessage Chopping Tree # , *TreeN of # , *Trees
}
if You_begin_chopping in #JOURNAL && %Auto = #FALSE
{
deletejournal
if %Action = Begin && *Trees > 0
{
event SysMessage Forgetting about your previous *Trees trees.
set *Trees 0
}
set %Action Chopping
set *TreeX . *Trees #LTARGETX
set *TreeY . *Trees #LTARGETY
set *TreeZ . *Trees #LTARGETZ
set *TreeT . *Trees #LTARGETTILE
set *Trees *Trees + 1
set *Hatchet #LOBJECTID
event SysMessage Chopping Tree # , *Trees
}
if You_fail_to_get_any_usable_wood in #JOURNAL || logs_in_your_backpack in #JOURNAL
{
deletejournal
set %Action Chopping
set #SCNT 0
}
if There's_not_enough_wood_here in #JOURNAL
{
deletejournal
set %Action Boards
finditem ZLK C_ , #BACKPACKID
set #LTARGETID X
set #LTARGETKIND 1
if #FINDKIND <> -1
{
for %C 1 #FINDCNT
{
set #FINDINDEX %C
if #FINDCOL = 0
{
set #LTARGETID #FINDID
}
}
if #LTARGETID <> X
{
finditem AGG_BGG_CGG_DGG_EGG_HGG_IGG_JGG_KGG_CIG C_ , #BACKPACKID
if #FINDKIND <> -1
{
set #LOBJECTID #FINDID
event Macro 17 0
repeat
until #CONTSIZE = 504_454
if %Carp = #FALSE
{
set %Carp #TRUE
set #CONTPOSX 0
set #CONTPOSY 0
click 180 130
wait 10
set #CONTPOSX 0
set #CONTPOSY 0
click 160 210
wait 10
}
else
{
set #CONTPOSX 0
set #CONTPOSY 0
click 75 390
wait 10
}
target 120s
if #TARGCURS = 1
{
event Macro 22 0
repeat
until #TARGCURS = 0
target 5s
if #TARGCURS = 1
{
key ESC
}
wait 3s
}
}
}
}
set #SCNT 10
set %Action Idle
if %Auto = #FALSE
{
if *Trees = 1
{
event SysMessage Done, let's chop down another tree.
}
else
{
event SysMessage That's *Trees trees. Chop on, or press %Hotkey to chop first one.
}
}
}
}
goto start