||||carpentry quests heartwood
if not @findobject 'storage'
  sysmsg 'This is your storage container.'
  promptalias 'storage'
  pause 1000
endif
if not @findobject! 'rune book'
  sysmsg 'Please target your runebook with your home rune within it' 43
  promptalias 'rune book'
endif
@setalias 'crap' 0x400c219d
@setalias 'Commodity Deed Box' 0x40490af1
//lists
if not listexists 'Carpentry Recipes'
  @createlist 'Carpentry Recipes'
  @pushlist 'Carpentry Recipes' 'Acid Proof Rope'
  @pushlist 'Carpentry Recipes' 'Ancient Wild Staff'
  @pushlist 'Carpentry Recipes' 'Arcane Bookshelf'
  @pushlist 'Carpentry Recipes' "Arcane Bookshelf"
  @pushlist 'Carpentry Recipes' "Bramble Coat"
  @pushlist 'Carpentry Recipes' "Elven Armoire"
  @pushlist 'Carpentry Recipes' "Elven Dresser"
  @pushlist 'Carpentry Recipes' "Hardened Wild Staff"
  @pushlist 'Carpentry Recipes' "Ironwood Crown"
  @pushlist 'Carpentry Recipes' "Ornate Elven Chair"
  @pushlist 'Carpentry Recipes' "Ornate Elven Chest"
  @pushlist 'Carpentry Recipes' "Phantom Staff"
  @pushlist 'Carpentry Recipes' "Squirrel Statue"
  @pushlist 'Carpentry Recipes' "Tall Elven Bed"
  @pushlist 'Carpentry Recipes' "Thorned Wild Staff"
  @pushlist 'Carpentry Recipes' "Warrior Statue "
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
//targeting the crafter for saw gumps//
if not @findobject 'crafter'
  headmsg 'Target the crafter you wish to use'
  promptalias 'crafter'
endif
pause 1000
while counttype 0x1028 0 'backpack' < 2
  for 0 to 2
    pause 500
    usetype 0x1eb8 0 'backpack'
    replygump 0x54f4539b 58
    waitforgump 0x54f4539b 15000
  endfor
  pause 1000
  replygump 0x54f4539b 0
endwhile
useobject 'crafter'
waitforgump 0x6ae2f4ad 15000
if @ingump 0x6ae2f4ad 'Arch Support' or @ingump 0x6ae2f4ad 'How clever humans are'
  // filling quest item
  replygump 0x6ae2f4ad 1
  pause 1000
  while counttype 0x1028 0 'backpack' < 2
    for 0 to 2
      pause 500
      usetype 0x1eb8 0 'backpack'
      replygump 0x54f4539b 58
      waitforgump 0x54f4539b 15000
    endfor
    pause 1000
    replygump 0x54f4539b 0
  endwhile
  while counttype 0x1eb8 0 'backpack' < 4
    for 0 to 2
      pause 500
      usetype 0x1eb8 0 'backpack'
      replygump 0x54f4539b 23
      waitforgump 0x54f4539b 15000
    endfor
    pause 1000
    replygump 0x54f4539b 0
  endwhile
  for 0 to 10
    if counttype 0xb5e 0 'backpack' < 10
      pause 250
      usetype 0x1028 '0' 'backpack' 0 0 0
      waitforgump 0x54f4539b 15000
      pause 500
      replygump 0x54f4539b 8
      waitforgump 0x54f4539b 15000
      pause 500
      replygump 0x54f4539b 2
      waitforgump 0x54f4539b 15000
      pause 500
      replygump 0x54f4539b 0
      while @injournal! 'world will save'
        pause 5000
        @clearjournal
      endwhile
    endfor
    replygump 0x54f4539b 0
  endif
  for 0 to 10
    pause 250
    waitforcontext 'self' 4 1000
    if @findtype 0xb5e 0 'backpack'
      @setalias 'fg' 'found'
      pause 1000
      @target 'found'
      pause 1000
      @unsetalias 'fg'
    endif
  endfor
  canceltarget
  pause 550
  @useobject 'crafter'
  waitforgump 0x403960cc 5000
  @replygump 0x403960cc 4
  waitforgump 0x4df271c0 5000
  @replygump 0x4df271c0 1
  pause 2000
  //handling quest prize
  // Handle reward bags
  while @findtype 0xe75 'any' 'backpack'
    @setalias 'trash' 'found'
    @useobject! 'trash'
    pause 1000
    // Runics
    while @findtype 0x1028 'any' 'trash'
      @moveitem! 'found' 'storage'
      pause 1000
      if color 'found' == 2010
        moveitemoffset 'found' 'storage'
        pause 550
      elseif color 'found' == 1191
        moveitemoffset 'found' 'storage'
        pause 550
      elseif color 'found' == 1192
        moveitemoffset 'found' 'storage'
      elseif color 'found' == 1193
        moveitemoffset 'found' 'storage'
      endif
      ignoreobject 'found'
    endwhile
    // Fletching Recipes
    while @findtype 0x2831 0 'trash' 'any'
      @moveitem! 'found' 'crap' 80
      pause 1000
      break
      ignoreobject 'found'
    endwhile
    // Talismans
    for 0 to 'Talismans'
      while @findtype Talismans[] 0 'trash'
        waitforproperties 'found' 5000
        if @property 'slayer' 'found'
          @moveitem! 'found' 'storage'
          pause 1000
          break
          ignoreobject 'found'
        endif
        if @property 'Bonus' 'found' >= 25
          @moveitem! 'found' 'storage'
          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' 'storage'
          pause 1000
          break
        endif
        if @property 'Lower reagent cost' 'found' >= 21
          @moveitem! 'found' 'storage'
          pause 1000
          break
        endif
        if @property 'Faster Cast Recovery' 'found' = 4
          @moveitem! 'found' 'storage'
          pause 1000
          break
        endif
        if @property 'Defence chance increase' 'found' >= 21
          @moveitem! 'found' 'storage'
          pause 1000
          break
        endif
        if @property 'Hit chance increase' 'found' >= 21
          @moveitem! 'found' 'storage'
          pause 1000
          break
        endif
        if @property 'xxxxxxxxxxx' 'found'
          @moveitem! 'found' 'storage'
          pause 1000
          break
        endif
        ignoreobject 'found'
      endwhile
    endfor
    @moveitem! 'trash' 'crap'
    pause 2000
  endwhile
else
  @replygump 0x19bc4061 2
endif
pause 500
while  @counttype 0x1bd7 'any' 'backpack' < 1
  while y > 381
    run 'north'
  endwhile
  while x < 7022
    run 'east'
  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
  pause 2000
  useobject 'rune book'
  pause 1500
  waitforgump 0xe7d9166b 1000
  replygump 0xe7d9166b 5
  pause 3000
  if findtype 0x9aa 71 'ground' 1 3
    pause 500
    setalias 'box' 'found'
    pause 500
    useobject 'box'
    pause 500
  endif
  if @counttype 0x1bd7 0 'backpack' < 7
    waitforcontents 'backpack' 500
    ///withdraw 7 boards
    movetype 0x1bd7 'box' 'backpack' 0 0 2 0 360
    waitfortarget 500
    pause 1500
  endif
  ///withdraw ingots
  if counttype 0x1bf2 2406 'backpack' < 10
    pause 1500
    movetype 0x1bf2 'box' 'backpack' 0 0 2 'any' 20
    pause 1000
    resync
    pause 2000
  endif
  if not @findobject! 'rune book'
    sysmsg 'Please target your runebook with your home rune within it' 43
    promptalias 'rune book'
  endif
  useobject 'rune book'
  waitforgump 0xe7d9166b 15000
  replygump 0xe7d9166b 11
  pause 3000
  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 < 537
    while x < 537
      run 'east'
      pause 100
    endwhile
  endif
  while y < 377
    run 'southeast'
  endwhile
  pause 500
  while x > 7003
    walk west 'west'
  endwhile
  while y < 384
    walk 'south'
  endwhile
endwhile
replay