Распил досок

set %axe LSF_OSF_NSF_BSF_MSF_CSF_ISF_MPH_JOH_UOH_RMH_LPH_ZRF_FSF_ASF
event sysmessage Target a source container
set #targcurs 1
while #targcurs = 1
wait 1
set %source #LTARGETID
set #LOBJECTID #LTARGETID
event macro 17
wait 2

start:
finditem ZLK C_ , %source ;take wood
if #findcnt = 0
event sysmessage LOGS didn't found!
halt
Exevent Drag #findid 200
wait 10
Exevent Dropc #BACKPACKID
wait 5

Finditem %axe C_, #backpackid
set #LOBJECTID #FINDID
Finditem ZLK C_ , #backpackid
set #ltargetkind 1
while #findcnt <> 0
{
set #LTARGETID  #findid
event macro 17 0
target 3s
event macro 22 0
wait 15
Finditem ZLK C_ , #backpackid
}

finditem TLK C_ , #BACKPACKID ; load boards
Exevent Drag #findid #findstack
wait 10
Exevent Dropc %source
goto start

if not listexists 'Logscolor'
  @createlist 'Logscolor'
  //Normal logs
  @pushlist 'Logscolor' 0
  //Yew
  @pushlist 'Logscolor' 1192
  //Oak
  @pushlist 'Logscolor' 2010
  //Hartwood
  @pushlist 'Logscolor' 1193
  //Frost
  @pushlist 'Logscolor' 1151
  //Ash
  @pushlist 'Logscolor' 1191
  //Bloodwood
  @pushlist 'Logscolor' 1194
endif
if not @findobject 'LOGbox'
  promptalias 'LOGbox'
endif
if not @findobject 'Axe'
  promptalias 'Axe'
endif
useobject 'LOGbox'
for 0 to 'Logscolor'
  while @movetype 0x1bdd 'LOGbox' 'backpack' 0 0 0 Logscolor[] 250
    pause 1000
    useobject 'Axe'
    waitingfortarget 15000
    targettype 0x1bdd Logscolor[] 'backpack'
    pause 800
    if @findtype 0x1bd7 Logscolor[] 'backpack'
      @moveitem 'found' 'LOGbox'
      pause 800
    endif
  endwhile
  if @movetype 0x1bdd 'LOGbox' 'backpack' 0 0 0 Logscolor[]
    pause 1000
    useobject 'Axe'
    waitingfortarget 15000
    targettype 0x1bdd Logscolor[] 'backpack'
    pause 800
    if @findtype 0x1bd7 Logscolor[] 'backpack'
      @moveitem 'found' 'LOGbox'
      pause 800
    endif
  endif
endfor