SHARE
TWEET

Untitled

a guest Aug 25th, 2019 82 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. //1. You need bolts in your bag, as many as possible to run longer
  2. //2. Start in Heartwood next to the trash barrel
  3. //3. You need bags to store your loot, you will be prompted for your loot bags and for the quest giver and trash barrel
  4. if not @findobject 'Talisman Bag'
  5.   headmsg 'Select Talisman Bag' 33
  6.   sysmsg 'Select Talisman Bag' 33
  7.   promptalias 'Talisman Bag'
  8.   pause 1000
  9. endif
  10. if not @findobject 'Jewelry Bag'
  11.   headmsg 'Select Jewelry Bag' 33
  12.   sysmsg 'Select Jewelry Bag' 33
  13.   promptalias 'Jewelry Bag'
  14.   pause 1000
  15. endif
  16. if not @findobject 'Runic Bag'
  17.   headmsg 'Select Runic Bag' 33
  18.   sysmsg 'Select Runic Bag' 33
  19.   promptalias 'Runic Bag'
  20.   pause 1000
  21. endif
  22. if not @findobject 'Fletching Quest Giver'
  23.   headmsg 'Select Fletching Quest Giver' 33
  24.   sysmsg 'Select Fletching Quest Giver' 33
  25.   promptalias 'Fletching Quest Giver'
  26.   pause 1000
  27. endif
  28. if not @findobject 'Trash Barrel'
  29.   headmsg 'Select Trash Barrel' 33
  30.   sysmsg 'Select Trash Barrel' 33
  31.   promptalias 'Trash Barrel'
  32.   pause 1000
  33. endif
  34. if not listexists 'Talismans'
  35.   @createlist 'Talismans'
  36.   @pushlist 'Talismans' 0x2f58
  37.   @pushlist 'Talismans' 0x2f59
  38.   @pushlist 'Talismans' 0x2f5a
  39.   @pushlist 'Talismans' 0x2f5b
  40. endif
  41. if not listexists 'Skills'
  42.   @createlist 'Skills'
  43.   @pushlist 'Skills' 'Alchemy Bonus'
  44.   @pushlist 'Skills' 'Blacksmithing Bonus'
  45.   @pushlist 'Skills' 'Carpentry Bonus'
  46.   @pushlist 'Skills' 'Fletching Bonus'
  47.   @pushlist 'Skills' 'Imbuing Bonus'
  48.   @pushlist 'Skills' 'Inscription Bonus'
  49.   @pushlist 'Skills' 'Tailoring Bonus'
  50.   @pushlist 'Skills' 'Tinkering Bonus'
  51. endif
  52. if not listexists 'Killers'
  53.   @createlist 'Killers'
  54.   @pushlist 'Killers' 'Yamandon Killer'
  55.   @pushlist 'Killers' 'Lich Killer'
  56.   @pushlist 'Killers' 'Lich Lord Killer'
  57.   @pushlist 'Killers' 'Dread Spider Killer'
  58.   @pushlist 'Killers' 'Giant Black Widow Killer'
  59.   @pushlist 'Killers' 'Eagle Killer'
  60. endif
  61. if not listexists 'Protection'
  62.   @createlist 'Protection'
  63.   @pushlist 'Protection' 'Yamandon Protection'
  64.   @pushlist 'Protection' 'Lich Protection'
  65.   @pushlist 'Protection' 'Lich Lord Protection'
  66.   @pushlist 'Protection' 'Dread Spider Protection'
  67.   @pushlist 'Protection' 'Giant Black Widow Protection'
  68.   @pushlist 'Protection' 'Silver Serpent Protection'
  69.   @pushlist 'Protection' 'Eagle Protection'
  70. endif
  71. if not listexists 'Jewelry'
  72.   @createlist 'Jewelry'
  73.   @pushlist 'Jewelry' 0x108a
  74.   @pushlist 'Jewelry' 0x1f09
  75.   @pushlist 'Jewelry' 0x1086
  76.   @pushlist 'Jewelry' 0x1f06
  77.   @pushlist 'Jewelry' 0x2f59
  78.   @pushlist 'Jewelry' 0x1f07
  79.   @pushlist 'Jewelry' 0x1f08
  80.   @pushlist 'Jewelry' 0x1088
  81.   @pushlist 'Jewelry' 0x1087
  82.   @pushlist 'Jewelry' 0x1089
  83. endif
  84. //if in heartwood quest area, run through the macro
  85. if @inrange 'Trash Barrel' 2
  86.   //stop macro if you forgot to restock bolts
  87.   if counttype 0x1bfb 0 'backpack' < 1000
  88.     sysmsg 'Restock bolts before starting!' 33
  89.     headmsg 'Restock bolts before starting!' 33
  90.     stop
  91.   endif
  92.   useobject 'Trash Barrel'
  93.   pause 1000
  94.   //get a quest
  95.   @useobject 'Fletching Quest Giver'
  96.   waitforgump 0x4c4c6db0 2000
  97.   //LethalDart
  98.   if @ingump 0x4c4c6db0 'deadly crossbow bolt'
  99.     headmsg 'Good Quest :)' 5
  100.     sysmsg 'Good Quest :)' 5
  101.     if @findtype 0x1bfb 'any' 'backpack' 10
  102.       replygump 0x4c4c6db0 4
  103.       pause 550
  104.       pause 300
  105.       if color 'found' == 0
  106.         waitforcontext 'self' 3 5000
  107.         waitfortarget 5000
  108.         Target! 'found'
  109.         waitfortarget 5000
  110.       endif
  111.     endif
  112.     @canceltarget
  113.     pause 500
  114.     @useobject! 'Fletching Quest Giver'
  115.     waitforgump 0x4c4c6db0 5000
  116.     replygump 0x4c4c6db0 8
  117.     waitforgump 0x4c4c6db0 15000
  118.     replygump 0x4c4c6db0 5
  119.     pause 1000
  120.     //LethalDart in progress
  121.   elseif @ingump 0x4c4c6db0 'debt if you bring me crossbow bolts'
  122.     if @findtype 0x1bfb 'any' 'backpack' 10
  123.       pause 300
  124.       if color 'found' == 0
  125.         waitforcontext 'self' 3 5000
  126.         waitfortarget 5000
  127.         Target! 'found'
  128.         waitfortarget 5000
  129.       endif
  130.     endif
  131.     @canceltarget
  132.     pause 500
  133.     @useobject! 'Fletching Quest Giver'
  134.     waitforgump 0x4c4c6db0 5000
  135.     replygump 0x4c4c6db0 8
  136.     waitforgump 0x4c4c6db0 15000
  137.     replygump 0x4c4c6db0 5
  138.     pause 1000
  139.     //quest done except for talking to quest giver again
  140.   elseif @ingump 0x4c4c6db0 'My thanks'
  141.     replygump 0x4c4c6db0 8
  142.     waitforgump 0x4c4c6db0 15000
  143.     replygump 0x4c4c6db0 5
  144.     // Refuse all others
  145.   else
  146.     headmsg 'Bad Quest :(' 33
  147.     sysmsg 'Bad Quest :(' 33
  148.     replygump 0x4c4c6db0 2
  149.     waitforgump 0x4c4c6db0 15000
  150.     replygump 0x4c4c6db0 0
  151.   endif
  152.   pause 1000
  153.   // Handle reward bags
  154.   while @findtype 0xe75 'any' 'backpack'
  155.     @setalias 'trash' 'found'
  156.     @useobject! 'trash'
  157.     pause 1000
  158.     if @findtype 0x2831 'any' 'trash'
  159.       useobject 'found'
  160.     endif
  161.     pause 1000
  162.     // Runics
  163.     while @findtype 0x1022 'any' 'trash'
  164.       @moveitem! 'found' 'Runic Bag'
  165.       if color 'found' == 2010
  166.         moveitem 'found' 'Trash Barrel'
  167.       endif
  168.       if color 'found' == 1191
  169.         moveitem 'found' 'Trash Barrel'
  170.       endif
  171.       if color 'found' == 1192
  172.         moveitem 'found' 'Trash Barrel'
  173.       endif
  174.       pause 1000
  175.     endwhile
  176.     // Talismans
  177.     for 0 to 'Talismans'
  178.       while @findtype Talismans[] 0 'trash'
  179.         waitforproperties 'found' 5000
  180.         //get any slayers
  181.         if @property 'slayer' 'found'
  182.           @moveitem! 'found' 'Talisman Bag'
  183.           pause 1000
  184.           break
  185.           ignoreobject 'found'
  186.         endif
  187.         //crafting bonus and exceptional bonus talismans
  188.         if @property 'Bonus' 'found' >= 29
  189.           @moveitem! 'found' 'Talisman Bag'
  190.           pause 1000
  191.           break
  192.           ignoreobject 'found'
  193.         endif
  194.         //get killers
  195.         //for 0 to 'Killers'
  196.         //  if @property Killers[] 'found' >= 90
  197.         //    @moveitem! 'found' 'Talisman Bag'
  198.         //    pause 1000
  199.         //    break
  200.         //    ignoreobject 'found'
  201.         //  endif
  202.         //endfor
  203.         //get protections
  204.         //for 0 to 'Protection'
  205.         //  if @property Protection[] 'found' >= 50
  206.         //    @moveitem! 'found' 'Talisman Bag'
  207.         //    pause 1000
  208.         //    break
  209.         //    ignoreobject 'found'
  210.         //  endif
  211.         //endfor
  212.         ignoreobject 'found'
  213.       endwhile
  214.     endfor
  215.     //Jewels
  216.     for 0 to 'Jewelry'
  217.       while @findtype Jewelry[] 0 'trash'
  218.         pause 1000
  219.         if @property 'Luck' 'found' >= 150
  220.           @moveitem! 'found' 'Jewelry Bag'
  221.           pause 1000
  222.           break
  223.           ignoreobject 'found'
  224.         endif
  225.         if @property 'Lower Reagent Cost' 'found' >= 23
  226.           @moveitem! 'found' 'Jewelry Bag'
  227.           pause 1000
  228.           break
  229.           ignoreobject 'found'
  230.         endif
  231.         //if @property 'Faster Cast Recovery' 'found' = 3
  232.         //  @moveitem! 'found' 'Jewelry Bag'
  233.         //  pause 1000
  234.         //  break
  235.         //  ignoreobject 'found'
  236.         //endif
  237.         //save 1/2 and 1/1
  238.         //if @property 'Faster Cast Recovery' 'found' > 0
  239.         //  if @property 'Faster Casting' 'found'
  240.         //    @moveitem! 'found' 'Jewelry Bag'
  241.         //    pause 1000
  242.         //    break
  243.         //  endif
  244.         //endif
  245.         //if @property 'Defense chance increase' 'found' >= 10
  246.         //  @moveitem! 'found' 'Jewelry Bag'
  247.         //  pause 1000
  248.         //  break
  249.         //  ignoreobject 'found'
  250.         //endif
  251.         //if @property 'Hit chance increase' 'found' >= 10
  252.         //  @moveitem! 'found' 'Jewelry Bag'
  253.         //  pause 1000
  254.         //  break
  255.         //  ignoreobject 'found'
  256.         //endif
  257.         //if @property 'Animal Taming' 'found' >= 10
  258.         //  @moveitem! 'found' 'Jewelry Bag'
  259.         //  pause 1000
  260.         //  break
  261.         //  ignoreobject 'found'
  262.         //endif
  263.         ignoreobject 'found'
  264.       endwhile
  265.     endfor
  266.     //clear the ignore list so it doesn't skip items at dropoff
  267.     clearignorelist
  268.     @moveitem! 'trash' 'Trash Barrel'
  269.     pause 1000
  270.   endwhile
  271. else
  272.   // if you're not at Trash Barrel, then stop
  273.   sysmsg 'You need to be next to the Trash Barrel when starting this macro' 33
  274.   stop
  275. endif
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top