while not @findtype 0xe77 66 'ground'
  if not @findobject! 'rune book'
    promptalias 'rune book'
    pause 1000
    sysmsg 'home rune book set ! ! !' 33
  endif
  useobject 'rune book'
  waitforgump 0xe7d9166b 15000
  replygump 0xe7d9166b 5
  pause 3000
  resync
  pause 3000
  if @findtype! 0x9aa '71' 'ground' '1' 1
    waitfortarget 1500
    setalias 'Commodity Deed Box' 'found'
  endif
  if @findtype 0x1bfb 'any' 'backpack'
    movetype 0x1bfb 'backpack' 'Commodity Deed Box'
    pause 1000
    useobject 'Commodity Deed Box'
    pause 500
  endif
  sysmsg 'storing kits' 33
  organizer 'kits' 'backpack' 'Commodity Deed Box'
  pause 1500
  if @findtype 0xe75 '0' 'ground' 0 0 3 'any'
    waitfortarget 1500
    setalias 'tally bag' 'found'
    pause 1500
    sysmsg 'Sorting talismans !!' 33
  endif
  while @findtype! 0x2f58 'any' 'backpack' 'any'
    movetype 0x2f58 'backpack' 'tally bag' 0 0 2
    pause 1000
  endwhile
  while @findtype! 0x2f59 'any' 'backpack' 'any'
    movetype 0x2f59 'backpack' 'tally bag' 0 0 2
    pause 1000
  endwhile
  while @findtype! 0x2f5a 'any' 'backpack' 'any'
    movetype 0x2f5a 'backpack' 'tally bag' 0 0 2
  endwhile
  pause 1000
  while @findtype! 0x2f5b 'any' 'backpack' 'any'
    movetype 0x2f5b 'backpack' 'tally bag' 0 0 2
    pause 1000
  endwhile
  useobject 'Commodity Deed Box'
  pause 1500
  sysmsg 'getting more bolts' 33
  organizer 'bolts' 'Commodity deed box' 'backpack'
  pause 1500
  sysmsg 'Back to Heartwood ! ! ' 33
  pause 500
  useobject 'rune book'
  waitforgump 0xe7d9166b 15000
  replygump 0xe7d9166b 11
  pause 2000
  while y != 992 and y > 400
    for 2
      if y > 992
        walk 'north'
      endif
      pause 250
      if y < 992
        walk 'south'
      endif
      pause 250
    endfor
  endwhile
  if x > 535 and x < 1000
    while x > 535 and x < 1000
      run 'west'
      pause 100
    endwhile
  endif
  if x < 537
    while x < 537
      run 'east'
      pause 100
    endwhile
  endif
  while y < 377
    run 'southeast'
  endwhile
  pause 500
  while y > 378
    walk 'north'
    pause 500
  endwhile
  while y < 378
    walk 'south'
    pause 500
  endwhile
  while x < 7040
    walk 'east'
  endwhile
  pause 700
  while y > 375
    run 'north'
  endwhile
  if not @findobject! 'rune book'
    sysmsg 'Please target your runebook with your home rune within it' 43
    promptalias 'rune book'
  endif
endwhile
if not listexists 'Fletching Recipes'
  @createlist 'Fletching Recipes'
  @pushlist 'Fletching Recipes' 'Night Reaper'
  @pushlist 'Fletching Recipes' 'Mischief Maker'
  @pushlist 'Fletching Recipes' 'xxxxxxxx'
  @pushlist 'Fletching Recipes' "Silvani's Feywood Bow"
  @pushlist 'Fletching Recipes' "Blight Gripped Longbow"
  @pushlist 'Fletching Recipes' "Faerie Fire"
endif
if not listexists 'Talismans'
  @createlist 'Talismans'
  @pushlist 'Talismans' 0x2f58
  @pushlist 'Talismans' 0x2f59
  @pushlist 'Talismans' 0x2f5a
  @pushlist 'Talismans' 0x2f5b
endif
if not listexists 'Skills'
  @createlist 'Skills'
  @pushlist 'Skills' 'Alchemy Bonus'
  @pushlist 'Skills' 'Blacksmithing Bonus'
  @pushlist 'Skills' 'Carpentry Bonus'
  @pushlist 'Skills' 'Inscription Bonus'
  @pushlist 'Skills' 'Tailoring Bonus'
  @pushlist 'Skills' 'Tinkering Bonus'
endif
if not listexists 'Jewelry'
  @createlist 'Jewelry'
  @pushlist 'Jewelry' 0x108a
  @pushlist 'Jewelry' 0x1f09
  @pushlist 'Jewelry' 0x1086
  @pushlist 'Jewelry' 0x1f06
endif
if not listexists 'Jewelspurposes'
  @createlist 'Jewelspurposes'
  @pushlist 'Jewelspurposes' 'Faster Cast Recovery'
  @pushlist 'Jewelspurposes' 'Lower reagent cost'
  @pushlist 'Jewelspurposes' 'xxxxx'
  @pushlist 'Jewelspurposes' 'Luck'
endif
@setalias 'Fletching Quest Giver' 0x9bd
@setalias 'Reward Box' 'backpack'
@setalias 'Trash Barrel' 0x405dd5a0
if @findtype 0x1bfb 'any' 'backpack' 10
  if @useobject 'Fletching Quest Giver'
    waitforgump 0x6ae2f4ad 5000
    if @ingump 0x6ae2f4ad 'crossbow bolt'
      sysmsg 'found quest please wait waitng completion ! !' 33
      pause 250
      @replygump 0x6ae2f4ad 1
      pause 550
      if color 'found' == 0
        waitforcontext 'self' 4 5000
        waitfortarget 5000
        @target! 'found'
        waitfortarget 5000
        @canceltarget
      endif
      pause 550
      @useobject 'Fletching Quest Giver'
      waitforgump 0x403960cc 5000
      @replygump 0x403960cc 4
      waitforgump 0x4df271c0 5000
      @replygump 0x4df271c0 1
      pause 2000
      // Handle reward bags
      while @findtype 0xe75 'any' 'backpack'
        @setalias 'trash' 'found'
        @useobject! 'trash'
        pause 1000
        // Runics
        while @findtype 0x1022 'any' 'trash'
          @moveitem! 'found' 'backpack'
          pause 1000
          if color 'found' == 2010
            guildmsg 'Oak kit'
            moveitemoffset 'found' 'backpack'
            pause 550
          elseif color 'found' == 1191
            guildmsg 'Ash kit'
            moveitemoffset 'found' 'backpack'
            pause 550
          elseif color 'found' == 1192
            msg 'Nice, a Yew kit' 33
            guildmsg 'Yew kit'
            moveitemoffset 'found' 'backpack'
          elseif color 'found' == 1193
            guildmsg 'Woohoo! Heartwood!' 63
            moveitemoffset 'found' 'backpack'
          endif
          ignoreobject 'found'
        endwhile
        // Fletching Recipes
        while @findtype 0x2831 0 'trash'
          waitforproperties 'found' 5000
          for 0 to 'Fletching Recipes'
            if @property Fletching Recipes[] 'found'
              @moveitem! 'found' 'Trash Barrel' 80
              pause 1000
              break
            endif
          endfor
          ignoreobject 'found'
        endwhile
        // Talismans
        for 0 to 'Talismans'
          while @findtype Talismans[] 0 'trash'
            waitforproperties 'found' 5000
            if @property 'slayer' 'found'
              @moveitem! 'found' 'reward box'
              pause 1000
              break
              ignoreobject 'found'
            endif
            if @property 'Bonus' 'found' >= 29
              @moveitem! 'found' 'Reward Box'
              pause 1000
              break
              ignoreobject 'found'
            endif
            ignoreobject 'found'
          endwhile
        endfor
        //Jewels
        for 0 to 'Jewelry'
          while @findtype Jewelry[] 0 'trash'
            pause 1000
            if @property 'Luck' 'found' >= 99
              @moveitem! 'found' 'Reward Box'
              pause 1000
              break
            endif
            if @property 'Lower reagent cost' 'found' >= 21
              @moveitem! 'found' 'Reward Box'
              pause 1000
              break
            endif
            if @property 'Faster Cast Recovery' 'found' = 4
              @moveitem! 'found' 'Reward Box'
              pause 1000
              break
            endif
            if @property 'Defence chance increase' 'found' >= 21
              @moveitem! 'found' 'Reward Box'
              pause 1000
              break
            endif
            if @property 'Hit chance increase' 'found' >= 21
              @moveitem! 'found' 'Reward Box'
              pause 1000
              break
            endif
            if @property 'xxxxxxxxxxx' 'found'
              @moveitem! 'found' 'Reward Box'
              pause 1000
              break
            endif
            ignoreobject 'found'
          endwhile
        endfor
        @moveitem! 'trash' 'Trash Barrel'
        pause 1000
      endwhile
    else
      @replygump 0x19bc4061 2
    endif
  endif
  pause 500
else
  sysmsg 'Out of bolts!! I shall immedaitely go and collect more !!' 100
  while y < 381
    run 'south'
  endwhile
  pause 500
  while x > 7028
    run 'west'
  endwhile
  pause 300
  while y > 342
    run "Northwest"
    pause 100
  endwhile
  while x < 6987
    walk 'east'
    pause 150
  endwhile
  while x > 6987
    walk 'west'
    pause 150
  endwhile
  while y != 338 and y < 600
    for 5
      if y > 338 and y < 600
        walk 'north'
        pause 250
      endif
      if y < 338 and y < 600
        walk 'south'
        pause 250
      endif
    endfor
  endwhile
  while x > 1000
    while y > 338 and y < 600
      turn 'north'
      walk 'north'
      pause 250
    endwhile
    while y < 338 and y < 600
      turn 'south'
      walk 'south'
      pause 250
    endwhile
    run 'west'
  endwhile
  if @injournal! 'world will save'
    pause 2000
    @clearjournal
  endif
  useobject 'rune book'
  waitforgump 0xe7d9166b 15000
  replygump 0xe7d9166b 5
  pause 3000
  resync
  pause 3000
  if @findtype! 0x9aa '71' 'ground' '1' 1
    waitfortarget 1500
    setalias 'Commodity Deed Box' 'found'
  endif
  if @findtype 0x1bfb 'any' 'backpack'
    movetype 0x1bfb 'backpack' 'Commodity Deed Box'
    pause 1000
    useobject 'Commodity Deed Box'
    pause 500
  endif
  sysmsg 'storing kits' 33
  pause 1500
  organizer 'kits' 'backpack' 'Commodity Deed Box'
  pause 1500
  useobject 'Commodity Deed Box'
  pause 1500
  if @findtype 0xe75 '0' 'ground' 0 0 3 'any'
    waitfortarget 1500
    setalias 'tally bag' 'found'
    pause 1500
    sysmsg 'Sorting talismans !!' 33
  endif
  while @findtype! 0x2f58 'any' 'backpack' 'any'
    movetype 0x2f58 'backpack' 'tally bag' 0 0 2
    pause 1000
  endwhile
  while @findtype! 0x2f59 'any' 'backpack' 'any'
    movetype 0x2f59 'backpack' 'tally bag' 0 0 2
    pause 1000
  endwhile
  while @findtype! 0x2f5a 'any' 'backpack' 'any'
    movetype 0x2f5a 'backpack' 'tally bag' 0 0 2
  endwhile
  pause 1000
  while @findtype! 0x2f5b 'any' 'backpack' 'any'
    movetype 0x2f5b 'backpack' 'tally bag' 0 0 2
    pause 1000
  endwhile
  sysmsg 'getting more bolts' 33
  useobject 'Commodity Deed Box'
  organizer 'bolts' 'Commodity deed box' 'backpack'
  pause 1000
  sysmsg 'Back to Heartwood ! ! ' 33
  pause 500
  useobject 'rune book'
  waitforgump 0xe7d9166b 15000
  replygump 0xe7d9166b 11
  pause 2000
  while y != 992 and y > 400
    for 2
      if y > 992
        walk 'north'
      endif
      pause 250
      if y < 992
        walk 'south'
      endif
      pause 250
    endfor
  endwhile
  if x > 535 and x < 1000
    while x > 535 and x < 1000
      run 'west'
      pause 100
    endwhile
  endif
  if x < 537
    while x < 537
      run 'east'
      pause 100
    endwhile
  endif
  while y < 377
    run 'southeast'
  endwhile
  pause 500
  while y > 378
    walk 'north'
    pause 500
  endwhile
  while y < 378
    walk 'south'
    pause 500
  endwhile
  while x < 7040
    walk 'east'
  endwhile
  pause 700
  while y > 375
    run 'north'
  endwhile
endif