;Arrow crafting - By Malus

set %arrow SLK
set %feather VLK
set %chest PHHYPOD
set %x 60
set %y 60

loop:
finditem %arrow C_ , %chest
if #findkind = -1
{
display ok You are out of shafts! $Script Halting
halt
}


for #findindex 1 #FINDCNT
{
   exevent Drag #FINDID
   wait 5
   exevent Dropc #backpackid
   wait 20
}

finditem %arrow C_ , #backpackid

{
         set #LOBJECTID #FINDID
         repeat
         {
         event Macro 17 0
         wait 10
         finditem %feather C_ , #backpackid
         if #findkind = -1
{
display ok You are out of feathers! $Script Halting
halt
}
         set #ltargetid #findid
         event macro 22
         wait 20
         click %x %y
         click %x %y
         wait 50