Bowcraft training from 40 to 100

[Xeasin]

I find this scrip from another website. It was for training carpentary. I have just edit it for training bowcraft.

(So this is not mine and your thanks must be go kdivers)​

//This Macro designed training bow craft from 40. It uses arrow fletching tools.
//Due to the weight of boards, it is written to be used in a house with a chest to restock from.
//Turn on loop and click play!
//~~Made by kdivers for carpentary~~
//~~Edited by Xeasin for bowcraft~~
if not @listexists 'carpjunk'
  createlist 'carpjunk'
  pushlist 'carpjunk' 0x13b2
  pushlist 'carpjunk' 0xf50
  pushlist 'carpjunk' 0x26c2 // DEED! WATCH OUT!
  pushlist 'carpjunk' 0x13fd
  pushlist 'carpjunk' 0x26c3
endif
if not @findtype 0x1022 0x0 'backpack'
  headmsg 'Get more saws!'
  stop
endif
if not @findobject 'trash'
  headmsg 'Select your trash barrel'
  promptalias 'trash'
endif
if not @findobject 'restock'
  headmsg 'Select the container with your boards'
  promptalias 'restock'
  useobject 'restock'
endif
if @counttype 0x1bd7 0x0 'backpack' < 20
  movetype 0x1bd7 'restock' 'backpack' 0 0 0 0x0 150
  pause 1000
endif
if skill 'Bowcraft' < 30
  headmsg 'Buy more skill!'
  stop
elseif skill 'Bowcraft' < 60
  if usetype 0x1022 0x0 'backpack'
    waitforgump 0x38920abd 15000
    replygump 0x38920abd 15
    waitforgump 0x38920abd 15000
    replygump 0x38920abd 2
    waitforgump 0x38920abd 15000
  endif
elseif skill 'Bowcraft' < 70
  if usetype 0x1022 0x0 'backpack'
    waitforgump 0x38920abd 15000
    replygump 0x38920abd 15
    waitforgump 0x38920abd 15000
    replygump 0x38920abd 9
    waitforgump 0x38920abd 15000
  endif
elseif skill 'Bowcraft' < 80
  if usetype 0x1022 0x0 'backpack'
    waitforgump 0x38920abd 15000
    replygump 0x38920abd 15
    waitforgump 0x38920abd 15000
    replygump 0x38920abd 23
    waitforgump 0x38920abd 15000
  endif
elseif skill 'Bowcraft' < 90
  if usetype 0x1022 0x0 'backpack'
    waitforgump 0x38920abd 15000
    replygump 0x38920abd 15
    waitforgump 0x38920abd 15000
    replygump 0x38920abd 16
    waitforgump 0x38920abd 15000
  endif
elseif skill 'Bowcraft' < 100
  if usetype 0x1022 0x0 'backpack'
    waitforgump 0x38920abd 15000
    replygump 0x38920abd 15
    waitforgump 0x38920abd 15000
    replygump 0x38920abd 30
    waitforgump 0x38920abd 15000
  endif
else
  headmsg 'Bowcraft completed!'
  stop
endif
if contents 'backpack' > 100 or diffweight < 100
  for 0 to carpjunk
    while @movetype carpjunk[] 'backpack' 'trash'
    endwhile
  endfor
endif

Spoiler: original script

http://greeduo.wix.com/uomacro#!uosteam-carpentry/croh

 

[Nordon]

You can add organizers for boards and fletch tools.
If fletch tool in backpack < 2 - rung fletch tools organizer
If boards under amount run that organizer.
Configure chest in organizer.
Should be much easier than havin the macro stop and ask you for stuff.

 

[Xeasin]

I'm not good at with script my skill allow me only edit them little bit. When I try to write my own script i messed up. Even i'm about to ask help for museum donation script. I'm tryingto create one but it doesnt work :S