//1. You need bolts in your bag, as many as possible to run longer
//2. Start in Heartwood next to the trash barrel
//3. You need bags to store your loot, you will be prompted for your loot bags and for the quest giver and trash barrel
if not @findobject 'Talisman Bag'
  headmsg 'Select Talisman Bag' 33
  sysmsg 'Select Talisman Bag' 33
  promptalias 'Talisman Bag'
  pause 1000
endif
if not @findobject 'Jewelry Bag'
  headmsg 'Select Jewelry Bag' 33
  sysmsg 'Select Jewelry Bag' 33
  promptalias 'Jewelry Bag'
  pause 1000
endif
if not @findobject 'Runic Bag'
  headmsg 'Select Runic Bag' 33
  sysmsg 'Select Runic Bag' 33
  promptalias 'Runic Bag'
  pause 1000
endif
if not @findobject 'Fletching Quest Giver'
  headmsg 'Select Fletching Quest Giver' 33
  sysmsg 'Select Fletching Quest Giver' 33
  promptalias 'Fletching Quest Giver'
  pause 1000
endif
if not @findobject 'Trash Barrel'
  headmsg 'Select Trash Barrel' 33
  sysmsg 'Select Trash Barrel' 33
  promptalias 'Trash Barrel'
  pause 1000
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' 'Fletching Bonus'
  @pushlist 'Skills' 'Imbuing Bonus'
  @pushlist 'Skills' 'Inscription Bonus'
  @pushlist 'Skills' 'Tailoring Bonus'
  @pushlist 'Skills' 'Tinkering Bonus'
endif
if not listexists 'Killers'
  @createlist 'Killers'
  @pushlist 'Killers' 'Yamandon Killer'
  @pushlist 'Killers' 'Lich Killer'
  @pushlist 'Killers' 'Lich Lord Killer'
  @pushlist 'Killers' 'Dread Spider Killer'
  @pushlist 'Killers' 'Giant Black Widow Killer'
  @pushlist 'Killers' 'Eagle Killer'
endif
if not listexists 'Protection'
  @createlist 'Protection'
  @pushlist 'Protection' 'Yamandon Protection'
  @pushlist 'Protection' 'Lich Protection'
  @pushlist 'Protection' 'Lich Lord Protection'
  @pushlist 'Protection' 'Dread Spider Protection'
  @pushlist 'Protection' 'Giant Black Widow Protection'
  @pushlist 'Protection' 'Silver Serpent Protection'
  @pushlist 'Protection' 'Eagle Protection'
endif
if not listexists 'Jewelry'
  @createlist 'Jewelry'
  @pushlist 'Jewelry' 0x108a
  @pushlist 'Jewelry' 0x1f09
  @pushlist 'Jewelry' 0x1086
  @pushlist 'Jewelry' 0x1f06
  @pushlist 'Jewelry' 0x2f59
  @pushlist 'Jewelry' 0x1f07
  @pushlist 'Jewelry' 0x1f08
  @pushlist 'Jewelry' 0x1088
  @pushlist 'Jewelry' 0x1087
  @pushlist 'Jewelry' 0x1089
endif
//if in heartwood quest area, run through the macro
if @inrange 'Trash Barrel' 2
  //stop macro if you forgot to restock bolts
  if counttype 0x1bfb 0 'backpack' < 1000
    sysmsg 'Restock bolts before starting!' 33
    headmsg 'Restock bolts before starting!' 33
    stop
  endif
  useobject 'Trash Barrel'
  pause 1000
  //get a quest
  @useobject 'Fletching Quest Giver'
  waitforgump 0x4c4c6db0 2000
  //LethalDart
  if @ingump 0x4c4c6db0 'deadly crossbow bolt'
    headmsg 'Good Quest :)' 5
    sysmsg 'Good Quest :)' 5
    if @findtype 0x1bfb 'any' 'backpack' 10
      replygump 0x4c4c6db0 4
      pause 550
      pause 300
      if color 'found' == 0
        waitforcontext 'self' 3 5000
        waitfortarget 5000
        Target! 'found'
        waitfortarget 5000
      endif
    endif
    @canceltarget
    pause 500
    @useobject! 'Fletching Quest Giver'
    waitforgump 0x4c4c6db0 5000
    replygump 0x4c4c6db0 8
    waitforgump 0x4c4c6db0 15000
    replygump 0x4c4c6db0 5
    pause 1000
    //LethalDart in progress
  elseif @ingump 0x4c4c6db0 'debt if you bring me crossbow bolts'
    if @findtype 0x1bfb 'any' 'backpack' 10
      pause 300
      if color 'found' == 0
        waitforcontext 'self' 3 5000
        waitfortarget 5000
        Target! 'found'
        waitfortarget 5000
      endif
    endif
    @canceltarget
    pause 500
    @useobject! 'Fletching Quest Giver'
    waitforgump 0x4c4c6db0 5000
    replygump 0x4c4c6db0 8
    waitforgump 0x4c4c6db0 15000
    replygump 0x4c4c6db0 5
    pause 1000
    //quest done except for talking to quest giver again
  elseif @ingump 0x4c4c6db0 'My thanks'
    replygump 0x4c4c6db0 8
    waitforgump 0x4c4c6db0 15000
    replygump 0x4c4c6db0 5
    // Refuse all others
  else
    headmsg 'Bad Quest :(' 33
    sysmsg 'Bad Quest :(' 33
    replygump 0x4c4c6db0 2
    waitforgump 0x4c4c6db0 15000
    replygump 0x4c4c6db0 0
  endif
  pause 1000
  // Handle reward bags
  while @findtype 0xe75 'any' 'backpack'
    @setalias 'trash' 'found'
    @useobject! 'trash'
    pause 1000
    if @findtype 0x2831 'any' 'trash'
      useobject 'found'
    endif
    pause 1000
    // Runics
    while @findtype 0x1022 'any' 'trash'
      @moveitem! 'found' 'Runic Bag'
      if color 'found' == 2010
        moveitem 'found' 'Trash Barrel'
      endif
      if color 'found' == 1191
        moveitem 'found' 'Trash Barrel'
      endif
      if color 'found' == 1192
        moveitem 'found' 'Trash Barrel'
      endif
      pause 1000
    endwhile
    // Talismans
    for 0 to 'Talismans'
      while @findtype Talismans[] 0 'trash'
        waitforproperties 'found' 5000
        //get any slayers
        if @property 'slayer' 'found'
          @moveitem! 'found' 'Talisman Bag'
          pause 1000
          break
          ignoreobject 'found'
        endif
        //crafting bonus and exceptional bonus talismans
        if @property 'Bonus' 'found' >= 29
          @moveitem! 'found' 'Talisman Bag'
          pause 1000
          break
          ignoreobject 'found'
        endif
        //get killers
        //for 0 to 'Killers'
        //  if @property Killers[] 'found' >= 90
        //    @moveitem! 'found' 'Talisman Bag'
        //    pause 1000
        //    break
        //    ignoreobject 'found'
        //  endif
        //endfor
        //get protections
        //for 0 to 'Protection'
        //  if @property Protection[] 'found' >= 50
        //    @moveitem! 'found' 'Talisman Bag'
        //    pause 1000
        //    break
        //    ignoreobject 'found'
        //  endif
        //endfor
        ignoreobject 'found'
      endwhile
    endfor
    //Jewels
    for 0 to 'Jewelry'
      while @findtype Jewelry[] 0 'trash'
        pause 1000
        if @property 'Luck' 'found' >= 150
          @moveitem! 'found' 'Jewelry Bag'
          pause 1000
          break
          ignoreobject 'found'
        endif
        if @property 'Lower Reagent Cost' 'found' >= 23
          @moveitem! 'found' 'Jewelry Bag'
          pause 1000
          break
          ignoreobject 'found'
        endif
        //if @property 'Faster Cast Recovery' 'found' = 3
        //  @moveitem! 'found' 'Jewelry Bag'
        //  pause 1000
        //  break
        //  ignoreobject 'found'
        //endif
        //save 1/2 and 1/1
        //if @property 'Faster Cast Recovery' 'found' > 0
        //  if @property 'Faster Casting' 'found'
        //    @moveitem! 'found' 'Jewelry Bag'
        //    pause 1000
        //    break
        //  endif
        //endif
        //if @property 'Defense chance increase' 'found' >= 10
        //  @moveitem! 'found' 'Jewelry Bag'
        //  pause 1000
        //  break
        //  ignoreobject 'found'
        //endif
        //if @property 'Hit chance increase' 'found' >= 10
        //  @moveitem! 'found' 'Jewelry Bag'
        //  pause 1000
        //  break
        //  ignoreobject 'found'
        //endif
        //if @property 'Animal Taming' 'found' >= 10
        //  @moveitem! 'found' 'Jewelry Bag'
        //  pause 1000
        //  break
        //  ignoreobject 'found'
        //endif
        ignoreobject 'found'
      endwhile
    endfor
    //clear the ignore list so it doesn't skip items at dropoff
    clearignorelist
    @moveitem! 'trash' 'Trash Barrel'
    pause 1000
  endwhile
else
  // if you're not at Trash Barrel, then stop
  sysmsg 'You need to be next to the Trash Barrel when starting this macro' 33
  stop
endif