API tools faq
paste
SilvertigerL_C

Crafter Profile

SilvertigerL_C
Dec 9th, 2017
400
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 200.17 KB | None | 0 0
raw download clone embed print report
  1. <!DOCTYPE profile>
  2. <profile>
  3. <data name="CommandPrefix">0x0</data>
  4. <data name="UseObjectsQueue">True</data>
  5. <data name="ShowCorpseNames">False</data>
  6. <data name="ShowCreatureNames">False</data>
  7. <data name="OpenCorpses">True</data>
  8. <data name="OpenCorpsesRange">0x2</data>
  9. <data name="ShowMobileHits">False</data>
  10. <data name="PositionInTitle">False</data>
  11. <data name="ForceResolution">False</data>
  12. <data name="GameWindowWidth">0x320</data>
  13. <data name="GameWindowHeight">0x258</data>
  14. <data name="FilterLight">True</data>
  15. <data name="FilterMusic">False</data>
  16. <data name="FilterBardsMusic">False</data>
  17. <data name="FilterSound">False</data>
  18. <data name="FilterWeather">False</data>
  19. <data name="FilterSeason">False</data>
  20. <data name="FixedSeason">0x0</data>
  21. <data name="FilterDeath">False</data>
  22. <data name="FilterRepeatedMessages">False</data>
  23. <data name="FilterOthersSpeechColor">False</data>
  24. <data name="FilterSnoopingMessages">False</data>
  25. <data name="FilterTradeWindow">False</data>
  26. <data name="FilterRewardGump">False</data>
  27. <data name="HandsBeforePotions">False</data>
  28. <data name="HandsBeforeCasting">False</data>
  29. <data name="SmartTarget">0x0</data>
  30. <data name="SmartTargetRange">False</data>
  31. <data name="SmartTargetRangeValue">0xc</data>
  32. <data name="HighlightCurrentTarget">False</data>
  33. <data name="BlockInvalidHeal">False</data>
  34. <data name="ActionDelay">0x226</data>
  35. <data name="UseObjectsLimit">0x5</data>
  36. <data name="TargetShare">0x0</data>
  37. <data name="MountSerial">0xffffffff</data>
  38. <data name="BladeSerial">0xffffffff</data>
  39. <data name="BoneCutter">False</data>
  40. <data name="AutoMount">False</data>
  41. <data name="AutoBandage">False</data>
  42. <data name="AutoBandageTarget">0x0</data>
  43. <data name="AutoBandageScale">False</data>
  44. <data name="AutoBandageCount">False</data>
  45. <data name="AutoBandageStart">False</data>
  46. <data name="AutoBandageStartValue">0x5f</data>
  47. <data name="AutoBandageDelay">0x9c4</data>
  48. <data name="AutoBandageFormula">False</data>
  49. <data name="AutoBandageHidden">False</data>
  50. <data name="OpenDoors">True</data>
  51. <data name="UseDoors">False</data>
  52. <data name="SpellsColor">False</data>
  53. <data name="SpellsMode">0x2</data>
  54. <data name="SpellsTargetShare">0x0</data>
  55. <data name="OpenDoorsMode">0x0</data>
  56. <data name="OpenCorpsesMode">0x3</data>
  57. <data name="ShowMobileFlags">False</data>
  58. <data name="StateHighlightMode">0x0</data>
  59. <data name="StaticFields">False</data>
  60. <data name="CountStealthSteps">False</data>
  61. <data name="FriendsListOnly">False</data>
  62. <data name="FriendsParty">False</data>
  63. <data name="MoveConflictingItems">True</data>
  64. <data name="CustomCaption">True</data>
  65. <data name="CustomCaptionMode">0x1</data>
  66. <data name="CustomCaptionText">UO - $name $statusbar - $hits/$mana/$stam $weight</data>
  67. <data name="WarnCounters">True</data>
  68. <data name="WarnCountersValue">0x5</data>
  69. <data name="HighlightReagents">True</data>
  70. <data name="DisplayCountersName">False</data>
  71. <data name="CaptionUseNotoHue">True</data>
  72. <data name="CaptionUseNotoHue">True</data>
  73. <data name="DisplayCountersImage">True</data>
  74. <data name="FilterKarmaMessages">False</data>
  75. <data name="FilterFameMessages">False</data>
  76. <data name="PreventDismount">False</data>
  77. <data name="PreventAttackFriends">False</data>
  78. <data name="AutoSearchContainers">False</data>
  79. <data name="AutoAcceptParty">False</data>
  80. <data name="StaticFieldsMode">0x0</data>
  81. <autosearchexemptions/>
  82. <objects>
  83. <obj name="2mod">0x406d4147</obj>
  84. <obj name="30no">0x5913d</obj>
  85. <obj name="3mod">0x40a71ecb</obj>
  86. <obj name="3modbrace">0x42610fd8</obj>
  87. <obj name="3modring">0x4241de5e</obj>
  88. <obj name="4modbrace">0x42d16b8c</obj>
  89. <obj name="4modring">0x42d3eaa4</obj>
  90. <obj name="5mod">0x40a71ed1</obj>
  91. <obj name="5modbrace">0x42231dc6</obj>
  92. <obj name="5modring">0x424b6562</obj>
  93. <obj name="all5">0xc2b45</obj>
  94. <obj name="axe">0x42d740db</obj>
  95. <obj name="backuphrsk1">0x40a71ece</obj>
  96. <obj name="backuphrsk2">0x40a71ecd</obj>
  97. <obj name="backuphrsk3">0x40a71ed0</obj>
  98. <obj name="beetle">0xfdec5</obj>
  99. <obj name="blank runebook">0x43098668</obj>
  100. <obj name="boards">0x41101d99</obj>
  101. <obj name="bow">0x40022075</obj>
  102. <obj name="bowcraft restock">0x1ca17</obj>
  103. <obj name="bowquesting">0x5913d</obj>
  104. <obj name="bowsdone">0x5913d</obj>
  105. <obj name="carpentry quest giver">0xb0692</obj>
  106. <obj name="dump">0x41c6bfed</obj>
  107. <obj name="fletcherdropoff">0x4344e6c9</obj>
  108. <obj name="fletcherrunebook">0x43a8ab43</obj>
  109. <obj name="fletching quest giver">0xb06a8</obj>
  110. <obj name="food bag">0x44ea4a7a</obj>
  111. <obj name="food beetle">0xa35c3</obj>
  112. <obj name="food sell book">0x4136daec</obj>
  113. <obj name="gloves">0xe21d7</obj>
  114. <obj name="gorget">0xe21d7</obj>
  115. <obj name="home barrel">0x456af051</obj>
  116. <obj name="homelumber">0x43a8ab43</obj>
  117. <obj name="hpi">0x410109f0</obj>
  118. <obj name="hpilmc">0x4100bcf9</obj>
  119. <obj name="hpilmcmana">0x4100da98</obj>
  120. <obj name="hpilmcmr">0x4100da8a</obj>
  121. <obj name="hpilmcstam">0x410109ff</obj>
  122. <obj name="hpimana">0x4100bcfb</obj>
  123. <obj name="hpimanastam">0x4100e1df</obj>
  124. <obj name="hpimr">0x4100da86</obj>
  125. <obj name="hpistam">0x410109f4</obj>
  126. <obj name="jewelrytrash">0x4271eb0f</obj>
  127. <obj name="keeper">0x4063387a</obj>
  128. <obj name="keeper bows">0x403d67e6</obj>
  129. <obj name="legs">0xe21d7</obj>
  130. <obj name="lmc">0x41010a02</obj>
  131. <obj name="lmcmr">0x4100bd05</obj>
  132. <obj name="lrc">0x4100bd03</obj>
  133. <obj name="lrchpi">0x410109fd</obj>
  134. <obj name="lrclmc">0x4100e1d2</obj>
  135. <obj name="lrclmchpi">0x410109f9</obj>
  136. <obj name="lrcmr">0x4100bcf7</obj>
  137. <obj name="lrcmule">0x40a71eca</obj>
  138. <obj name="luck">0x427c23c0</obj>
  139. <obj name="lumberbox">0x400b5afe</obj>
  140. <obj name="luna bank trash">0x41a799cd</obj>
  141. <obj name="magic trash barrel">0x438c5e0a</obj>
  142. <obj name="mana">0x410109fe</obj>
  143. <obj name="manahpimr">0x4100e1d0</obj>
  144. <obj name="manalmc">0x4100e1d5</obj>
  145. <obj name="manalmcmr">0x4100bcfc</obj>
  146. <obj name="manamr">0x4100da91</obj>
  147. <obj name="manastam">0x4100da8f</obj>
  148. <obj name="marble trash">0x4375ee34</obj>
  149. <obj name="move">0x431dc62a</obj>
  150. <obj name="mr">0x4100e1da</obj>
  151. <obj name="mulejewelry">0x4291d361</obj>
  152. <obj name="noob">0x4163b7cb</obj>
  153. <obj name="pole">0x400ad4d1</obj>
  154. <obj name="pouch">0x414a657b</obj>
  155. <obj name="resist">0x41015591</obj>
  156. <obj name="restock">0x41101d99</obj>
  157. <obj name="simplebow">0x5913d</obj>
  158. <obj name="sleeves">0xe21d7</obj>
  159. <obj name="sort container">0x41362ae8</obj>
  160. <obj name="sort item">0x41973815</obj>
  161. <obj name="stam">0x4100da92</obj>
  162. <obj name="stamhpimr">0x4100e1cf</obj>
  163. <obj name="stamlmc">0x41010a03</obj>
  164. <obj name="stamlmcmr">0x4100bcf2</obj>
  165. <obj name="stammanalmc">0x4100bcf3</obj>
  166. <obj name="stammr">0x4100da88</obj>
  167. <obj name="to be emptied">0x43098668</obj>
  168. <obj name="tobecloned">0x41ed4dc5</obj>
  169. <obj name="trash">0x41c76b42</obj>
  170. <obj name="trash barrel">0x40053e83</obj>
  171. <obj name="trash bows">0x4000b9c0</obj>
  172. <obj name="trash can">0x4005c42d</obj>
  173. <obj name="trashbarrel">0x4005c42d</obj>
  174. <obj name="trashbarrelluna">0x4000b9c0</obj>
  175. <obj name="trashbarreltc">0x4000b9c0</obj>
  176. <obj name="treebookone">0x41a54735</obj>
  177. <obj name="treebooktwo">0x41a549d6</obj>
  178. <obj name="tunic">0xe21d7</obj>
  179. </objects>
  180. <hotkeys>
  181. <hotkey key="0x441" param="Mining" action="macro.play" pass="False"/>
  182. <hotkey key="0x220" param="make last" action="macro.play" pass="False"/>
  183. <hotkey key="0x7b" param="GetBod" action="macro.play" pass="False"/>
  184. <hotkey key="0x84d" param="Fletch and Saw" action="macro.play" pass="False"/>
  185. <hotkey key="0x25a" param="cut up" action="macro.play" pass="False"/>
  186. <hotkey key="0x420" param="Hide" action="macro.play" pass="False"/>
  187. <hotkey key="0xc20" action="macros.stop" pass="False"/>
  188. <hotkey key="0x857" action="spells.miniheal.self" pass="False"/>
  189. <hotkey key="0xdd" action="hotkeys" pass="False"/>
  190. <hotkey key="0x84c" action="main.snapshot" pass="False"/>
  191. </hotkeys>
  192. <macros>
  193. <macro interrupt="True" loop="True" name="Carpentry Training">if not @listexists 'carpjunk';createlist 'carpjunk';pushlist 'carpjunk' 0x9aa;pushlist 'carpjunk' 0xe3f;pushlist 'carpjunk' 0x14f0;pushlist 'carpjunk' 0x14f0 // DEED! WATCH OUT!;pushlist 'carpjunk' 0xb4a;pushlist 'carpjunk' 0xe89;pushlist 'carpjunk' 0x13f8;endif;while @counttype 0x1eb8 0 'backpack' &lt; 2;usetype! 0x1eb8;waitforgump 0x38920abd 15000;replygump 0x38920abd 8;waitforgump 0x38920abd 15000;replygump 0x38920abd 23;endwhile;while @counttype 0x1034 0 'backpack' &lt; 2;usetype 0x1eb8 0x0 'backpack';waitforgump 0x38920abd 15000;replygump 0x38920abd 51;waitforgump 0x38920abd 15000;endwhile;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' &lt; 20;movetype 0x1bd7 'restock' 'backpack' 0 0 0 0x0 150;pause 1000;endif;if @counttype 0x1bf2 0x0 'backpack' &lt; 20;movetype 0x1bf2 'restock' 'backpack' 0 0 0 0x0 100;pause 1000;endif;if skill 'carpentry' &lt; 30;headmsg 'Buy more skill!';stop;elseif skill 'carpentry' &lt; 40;if usetype 0x1034 0x0 'backpack';waitforgump 0x38920abd 15000;replygump 0x38920abd 15;waitforgump 0x38920abd 15000;replygump 0x38920abd 2;waitforgump 0x38920abd 2000;endif;elseif skill 'carpentry' &lt; 50;if usetype 0x1034 0x0 'backpack';waitforgump 0x38920abd 15000;replygump 0x38920abd 15;waitforgump 0x38920abd 15000;replygump 0x38920abd 16;waitforgump 0x38920abd 2000;endif;elseif skill 'carpentry' &lt; 70;if usetype 0x1034 0x0 'backpack';waitforgump 0x38920abd 15000;replygump 0x38920abd 43;waitforgump 0x38920abd 15000;replygump 0x38920abd 128;waitforgump 0x38920abd 15000;endif;elseif skill 'carpentry' &lt; 75;if usetype 0x1034 0x0 'backpack';waitforgump 0x38920abd 15000;replygump 0x38920abd 8;waitforgump 0x38920abd 15000;replygump 0x38920abd 72;waitforgump 0x38920abd 2000;endif;elseif skill 'carpentry' &lt; 90;if usetype 0x1034 0x0 'backpack';waitforgump 0x38920abd 15000;replygump 0x38920abd 22;waitforgump 0x38920abd 15000;replygump 0x38920abd 9;waitforgump 0x38920abd 2000;endif;elseif skill 'carpentry' &lt; 100;if usetype 0x1034 0x0 'backpack';waitforgump 0x38920abd 15000;replygump 0x38920abd 22;waitforgump 0x38920abd 15000;replygump 0x38920abd 16;waitforgump 0x38920abd 2000;endif;else;headmsg 'Carpentry completed!';stop;endif;if contents 'backpack' > 115 or diffweight &lt; 20;for 0 to carpjunk;while @movetype carpjunk[] 'backpack' 'trash';endwhile;endfor;endif;</macro>
  194. <macro interrupt="False" loop="True" name="Mining">//1. need 2 full runebooks marked 1 tile south of the mineable locations;//2. macro assumes you have tinkering and spot at dropoff location to restock ingots;//3. Organizer agent 'Ore' needs to be configured from your backpack to dropoff container and have the 4 ore graphics and 6 mining gems;//4. pauses after recalls are set to 2000 for 0Faster Casting. Change to 1750 for 1FC and 1500 for 2FC;if not @findobject 'IngotsSource';useobject 'HomeOre';waitforgump 0x554b87f3 5000;replygump 0x554b87f3 5;pause 2000;if not @findobject 'IngotsSource';promptalias 'IngotsSource';endif;endif;if not @findobject 'OreBookOne';promptalias 'OreBookOne';endif;if not @findobject 'OreBookTwo';promptalias 'OreBookTwo';endif;if not @findobject 'HomeOre';promptalias 'HomeOre';endif;if not listexists 'OreBook';createlist 'OreBook';pushlist 'OreBook' 'OreBookOne';pushlist 'OreBook' 'OreBookTwo';endif;if not listexists 'Runes';createlist 'Runes';pushlist 'Runes' 5;pushlist 'Runes' 11;pushlist 'Runes' 17;pushlist 'Runes' 23;pushlist 'Runes' 29;pushlist 'Runes' 35;pushlist 'Runes' 41;pushlist 'Runes' 47;pushlist 'Runes' 53;pushlist 'Runes' 59;pushlist 'Runes' 65;pushlist 'Runes' 71;pushlist 'Runes' 77;pushlist 'Runes' 83;pushlist 'Runes' 89;pushlist 'Runes' 95;endif;for 0 to 'OreBook';for 0 to 'Runes';pause 500;clearjournal;pause 500;useobject OreBook[];waitforgump 0x554b87f3 5000;replygump 0x554b87f3 Runes[];//tells you which rune you are on, see runelist above;sysmsg 'Rune' 33;sysmsg Runes[] 33;pause 2000;while not @injournal 'no metal here';//use pickaxe to northern tile until specified weight is reached;pause 300;usetype 0xe86;waitfortarget 1000;targettileoffset 0 -1 0;// once weight is reached go home, if getting overweight, lower it;;if weight > 405;useobject 'HomeOre';waitforgump 0x554b87f3 5000;replygump 0x554b87f3 5;pause 2000;// organizer to put up ore;organizer 'Ore';while organizing;endwhile;// get ingots if low;if counttype 0x1bf2 0 'backpack' &lt; 20;useobject 'IngotsSource';pause 1000;movetype 0x1bf2 'IngotsSource' 'backpack' (0 0 0) 0 40;pause 1000;endif;// kits;while @counttype 0x1eb8 0 'backpack' &lt; 2;usetype! 0x1eb8;waitforgump 0x38920abd 15000;replygump 0x38920abd 8;waitforgump 0x38920abd 15000;replygump 0x38920abd 23;endwhile;//pickaxes;while @counttype 0xe86 0 'backpack' &lt; 3;usetype! 0x1eb8;waitforgump 0x38920abd 15000;replygump 0x38920abd 8;waitforgump 0x38920abd 15000;replygump 0x38920abd 114;endwhile;//recall back to where you were;useobject OreBook[];waitforgump 0x554b87f3 5000;replygump 0x554b87f3 Runes[];pause 2000;endif;endwhile;endfor;//recall home so ingot container is found;pause 1000;useobject 'HomeOre';waitforgump 0x554b87f3 5000;replygump 0x554b87f3 5;pause 2000;endfor;</macro>
  195. <macro interrupt="True" loop="True" name="make last">@setalias 'restock' 0x41101d99;//Ash Boards;//restock ash if kits present;if @counttype 0x1bd7 1191 'backpack' &lt; 50 and @findtype 0x1028 'any' 'backpack';movetype 0x1bd7 'restock' 'backpack' [(0 0 0)] 1191 200;endif;pause 100;//restock ash if saws present;if @counttype 0x1bd7 1191 'backpack' &lt; 50 and @findtype 0x1022 'any' 'backpack';movetype 0x1bd7 'restock' 'backpack' [(0 0 0)] 1191 200;endif;//make last;if replygump 0x38920abd 21;pause 1500;else;stop;endif;if @injournal 'worn out';clearjournal;//qstaff;if @findtype 0xe89 'any' 'backpack';playmacro 'Sort Weapons';//composite bow;elseif @findtype 0x26c2 'any' 'backpack';playmacro 'Sort Weapons';//regular bow;elseif @findtype 0x13b2 'any' 'backpack';playmacro 'Sort Weapons';//black staff;elseif @findtype 0xdf0 'any' 'backpack';playmacro 'Sort Weapons';//xbow;elseif @findtype 0xf50 'any' 'backpack';playmacro 'Sort Weapons';endif;endif;</macro>
  196. <macro interrupt="True" loop="False" name="Smelt item">replygump 0x38920abd 14;waitfortarget 15000;</macro>
  197. <macro interrupt="True" loop="True" name="Lumberjacking">//1. need 2 full runebooks marked 1 tile south and same elevation of the choppable tree;//2. Organizer agent 'Boards' needs to be configured from your backpack to dropoff container with boards and 5 specials on it;//3. pauses after recalls are set to 2000 for 0fc. Change to 1750 for 1fc and 1500 for 2fc;@setalias 'FletcherDropoff' 0x4344e6c9;@setalias 'lumberbox' 0x400b5afe;@setalias 'beetle' 0xfdec5;@setalias 'HomeLumber' 0x43a8ab43;if not mounted 'self';useobject 'beetle';pause 500;endif;if not @findobject 'TreeBookOne';promptalias 'TreeBookOne';endif;if not @findobject 'TreeBookTwo';promptalias 'TreeBookTwo';endif;if not listexists 'TreeBook';createlist 'TreeBook';pushlist 'TreeBook' 'TreeBookOne';pushlist 'TreeBook' 'TreeBookTwo';endif;if not listexists 'Runes';createlist 'Runes';pushlist 'Runes' 5;pushlist 'Runes' 11;pushlist 'Runes' 17;pushlist 'Runes' 23;pushlist 'Runes' 29;pushlist 'Runes' 35;pushlist 'Runes' 41;pushlist 'Runes' 47;pushlist 'Runes' 53;pushlist 'Runes' 59;pushlist 'Runes' 65;pushlist 'Runes' 71;pushlist 'Runes' 77;pushlist 'Runes' 83;pushlist 'Runes' 89;pushlist 'Runes' 95;endif;for 0 to 'TreeBook';for 0 to 'Runes';pause 500;clearjournal;pause 500;useobject TreeBook[];waitforgump 0x554b87f3 5000;replygump 0x554b87f3 Runes[];//tells you which rune you are on, see runelist above;sysmsg 'Rune' 33;sysmsg Runes[] 33;pause 2000;//equips axe if it's not SC;if not @findobject 'lefthand';//change type to your axe;dress 'MichAxe';while dressing;endwhile;endif;while not @injournal 'enough wood here';if @injournal 'be seen';@clearjournal;useobject TreeBook[];waitforgump 0x554b87f3 5000;replygump 0x554b87f3 Runes[];pause 2000;endif;if not @findobject 'lefthand';dress 'MichAxe';while dressing;endwhile;endif;pause 300;//chop logs to boards;if @findtype 0x1bdd 'any' 'backpack';useobject 'LeftHand';waitfortarget 1000;target! 'found';else;//chop trees;useobject 'LeftHand';waitfortarget 1000;targettileoffset 0 -1 0;endif;// Change this if your getting overweight, Subtract 25 from your max weight.;if weight > 505;//make remaining logs boards;while @findtype 0x1bdd 'any' 'backpack';useobject 'LeftHand';waitfortarget 1000;target! 'found';pause 500;endwhile;//recall home;useobject 'HomeLumber';waitforgump 0x554b87f3 5000;replygump 0x554b87f3 5;pause 2000;//unload into lumber box;useobject 'lumberbox';pause 550;useobject 'FletcherDropoff';pause 550;organizer 'Boards' 'backpack' 'lumberbox';while organizing;endwhile;if counttype 0x1bd7 woodhue[] 'lumberbox' > 0;@movetype 0x1bd7 'lumberbox' 'FletcherDropoff' [0 0 0] woodhue[];endif;if counttype 0x1bd7 woodhue[] 'FletcherDropoff' > 58000;pause 2000;@playmacro 'Fletch and Saw';//playmacro 'Carpentry Quest';break;endif;//go back to where you were;useobject TreeBook[];waitforgump 0x554b87f3 5000;replygump 0x554b87f3 Runes[];pause 2000;//re-equip axe if needed;if not @findobject 'lefthand';dress 'MichAxe';while dressing;endwhile;endif;endif;if @injournal 'use an axe';break;endif;endwhile;endfor;endfor;//unload into lumber box;useobject '0x430b6bf2';pause 550;useobject 'lumberbox';pause 550;useobject 'FletcherDropoff';pause 550;organizer 'Boards' 'backpack' 'lumberbox';while organizing;pause 500;endwhile;if counttype 0x1bd7 woodhue[] 'lumberbox' > 0;@movetype 0x1bd7 'lumberbox' 'FletcherDropoff' [0 0 0] woodhue[];endif;if counttype 0x1bd7 woodhue[] 'FletcherDropoff' > 58000;pause 2000;@playmacro 'Fletch and Saw';//playmacro 'Carpentry Quest';break;endif;</macro>
  198. <macro interrupt="False" loop="True" name="training">@setalias 'boards' 0x41101d99;@setalias 'Marble Trash' 0x4375ee34;if @counttype 0x1bd7 'any' 'backpack' &lt; 20;movetype 0x1bd7 'boards''backpack' 0 0 0 'any' 300;endif;while @counttype 0x1eb8 0 'backpack' &lt; 2;usetype! 0x1eb8;waitforgump 0x38920abd 15000;replygump 0x38920abd 8;waitforgump 0x38920abd 15000;replygump 0x38920abd 23;waitforgump 0x38920abd 15000;endwhile;while @counttype 0x1022 0 'backpack' &lt; 2;usetype 0x1eb8 0x0 'backpack';waitforgump 0x38920abd 15000;replygump 0x38920abd 8;waitforgump 0x38920abd 15000;replygump 0x38920abd 142;waitforgump 0x38920abd 15000;endwhile;if skill 'bowcraft' == 100;stop;endif;usetype '0x1022' 'any' 'backpack' '2';if not @findtype '0x1022' '0' 'backpack' 'any' '2';headmsg 'No Fletching Tools Found';endif;if skill 'bowcraft' &lt; 30;headmsg 'Buy More Skill';endif;pause 600;if skill 'bowcraft' &lt; 60;usetype '0x1022' 'any' 'backpack' '2';replygump 0x38920abd 15;pause 600;replygump 0x38920abd 2;pause 600;endif;if @findtype 0x13b2;movetype 0x13b2 'backpack''Marble Trash';endif;pause 600;if skill 'bowcraft' &lt; 80 and skill 'bowcraft' >= 60;usetype '0x1022' 'any' 'backpack' '2';replygump 0x38920abd 15;pause 600;replygump 0x38920abd 9;pause 600;if @findtype 0xf50;movetype 0xf50 'backpack''Marble Trash';endif;endif;pause 600;if skill 'bowcraft' >= 80;usetype '0x1022' 'any' 'backpack' '2';replygump 0x38920abd 15;pause 600;replygump 0x38920abd 16;pause 600;if @findtype 0x13fd;movetype 0x13fd 'backpack''Marble Trash';endif;endif;</macro>
  199. <macro interrupt="True" loop="False" name="Fishing Bottle">//Author: Lopsang;while diffhits > 30 and not dead;autotargetself;bigheal;pause 1500;endwhile;pause 4000;getenemy 'gray' 'criminal' 'closest';while @findobject 'enemy';if @inrange 'enemy' 10;@autotargetenemy;attack 'enemy';endif;endwhile;if not @findobject 'bow';promptalias 'bow';endif;if not @findobject 'lefthand';equipitem 'bow' 2;endif;pause 4000;if dead;playsound 'error.wav';else;playsound 'alert.wav';endif;playmacro 'Fishing Start';</macro>
  200. <macro interrupt="True" loop="True" name="Fishing Start">//Author: Lopsang;if not @listexists 'xaxis';@createlist 'xaxis';@pushlist 'xaxis' 3;@pushlist 'xaxis' -3;endif;if not @listexists 'yaxis';@createlist 'yaxis';@pushlist 'yaxis' 3;@pushlist 'yaxis' -3;endif;if not @listexists 'fishjunk';@createlist 'fishjunk';@pushlist 'fishjunk''0x170d';@pushlist 'fishjunk''0x1711';@pushlist 'fishjunk''0x170b';@pushlist 'fishjunk''0x170f';@pushlist 'fishjunk''0xdd6';endif;if not listexists 'fish';createlist 'fish';@pushlist 'fish' '0x9ce';@pushlist 'fish'' 0x9cf';@pushlist 'fish' '0x9cc';@pushlist 'fish' '0x9cd';endif;while dead;playsound 'error.wav';pause 8000;endwhile;if not @findobject 'bow';promptalias 'bow';endif;if not @findobject 'lefthand';equipitem 'bow' 2;endif;if not @findobject 'pole' and @findtype 0xdc0 'any' 'self';setalias 'pole' 'found';endif;for 0 to 'xaxis';for 0 to 'yaxis';while not @injournal 'biting' 'system';while dead;playsound 'error.wav';pause 8000;endwhile;@canceltarget;@useobject 'pole';waitfortarget 2000;targettileoffset! 'xaxis[]' 'yaxis[]' 0;pause 500;if not @injournal 'biting' 'system';pause 7750;endif;if @injournal 'pull a bottle' 'system';clearjournal;playmacro 'Fishing Bottle';endif;if @injournal 'mess' 'system';clearjournal;@usetype! 0xdd6;pause 1000;@usetype! 0xdd6;pause 1000;endif;if @injournal 'closer' 'system';clearjournal;resync;endif;//fishing cleanup;if weight >= maxweight;for 0 to 'fish';while @findtype fish[] 'any' 'backpack';usetype! 0xf52;waitfortarget 1000;target! 'found';pause 600;endwhile;while @findtype 0xdd6 'any' 'backpack';@moveitemoffset 'found' 'ground' (-2 -2 0);pause 100;@moveitemoffset 'found' 'ground' (2 2 0);pause 100;@moveitemoffset 'found' 'ground' (-1 1 0);pause 100;@moveitemoffset 'found' 'ground' (1 1 0);pause 100;@moveitemoffset 'found' 'ground' (-2 2 0);pause 100;@moveitemoffset 'found' 'ground' (1 -1 0);pause 100;@moveitemoffset 'found' 'ground' (0 -1 0);pause 100;@moveitemoffset 'found' 'ground' (0 1 0);pause 100;@moveitemoffset 'found' 'ground' (2 -2 0);pause 100;@moveitemoffset 'found' 'ground' (-2 2 0);pause 100;@moveitemoffset 'found' 'ground' (1 -1 0);pause 100;@moveitemoffset 'found' 'ground' (-1 1 0);pause 100;@moveitemoffset 'found' 'ground' (-2 1 0);pause 100;@moveitemoffset 'found' 'ground' (2 1 0);pause 100;@moveitemoffset 'found' 'ground' (1 2 0);pause 100;@moveitemoffset 'found' 'ground' (1 -2 0);pause 100;@moveitemoffset 'found' 'ground' (-1 2 0);pause 100;@moveitemoffset 'found' 'ground' (-1 -2 0);pause 100;@moveitemoffset 'found' 'ground' (-2 -1 0);pause 100;@moveitemoffset 'found' 'ground' (2 -1 0);endwhile;while @findtype 0x170f 'any' 'backpack';pause 100;@moveitemoffset 'found' 'ground' (-2 -2 0);pause 100;@moveitemoffset 'found' 'ground' (2 2 0);pause 100;@moveitemoffset 'found' 'ground' (-1 1 0);pause 100;@moveitemoffset 'found' 'ground' (1 1 0);pause 100;@moveitemoffset 'found' 'ground' (-2 2 0);pause 100;@moveitemoffset 'found' 'ground' (1 -1 0);pause 100;@moveitemoffset 'found' 'ground' (0 -1 0);pause 100;@moveitemoffset 'found' 'ground' (0 1 0);pause 100;@moveitemoffset 'found' 'ground' (2 -2 0);pause 100;@moveitemoffset 'found' 'ground' (-2 2 0);pause 100;@moveitemoffset 'found' 'ground' (1 -1 0);pause 100;@moveitemoffset 'found' 'ground' (-1 1 0);pause 100;@moveitemoffset 'found' 'ground' (-2 1 0);pause 100;@moveitemoffset 'found' 'ground' (2 1 0);pause 100;@moveitemoffset 'found' 'ground' (1 2 0);pause 100;@moveitemoffset 'found' 'ground' (1 -2 0);pause 100;@moveitemoffset 'found' 'ground' (-1 2 0);pause 100;@moveitemoffset 'found' 'ground' (-1 -2 0);pause 100;@moveitemoffset 'found' 'ground' (-2 -1 0);pause 100;@moveitemoffset 'found' 'ground' (2 -1 0);endwhile;while @findtype 0x170b 'any' 'backpack';pause 100;@moveitemoffset 'found' 'ground' (-2 -2 0);pause 100;@moveitemoffset 'found' 'ground' (2 2 0);pause 100;@moveitemoffset 'found' 'ground' (-1 1 0);pause 100;@moveitemoffset 'found' 'ground' (1 1 0);pause 100;@moveitemoffset 'found' 'ground' (-2 2 0);pause 100;@moveitemoffset 'found' 'ground' (1 -1 0);pause 100;@moveitemoffset 'found' 'ground' (0 -1 0);pause 100;@moveitemoffset 'found' 'ground' (0 1 0);pause 100;@moveitemoffset 'found' 'ground' (2 -2 0);pause 100;@moveitemoffset 'found' 'ground' (-2 2 0);pause 100;@moveitemoffset 'found' 'ground' (1 -1 0);pause 100;@moveitemoffset 'found' 'ground' (-1 1 0);pause 100;@moveitemoffset 'found' 'ground' (-2 1 0);pause 100;@moveitemoffset 'found' 'ground' (2 1 0);pause 100;@moveitemoffset 'found' 'ground' (1 2 0);pause 100;@moveitemoffset 'found' 'ground' (1 -2 0);pause 100;@moveitemoffset 'found' 'ground' (-1 2 0);pause 100;@moveitemoffset 'found' 'ground' (-1 -2 0);pause 100;@moveitemoffset 'found' 'ground' (-2 -1 0);pause 100;@moveitemoffset 'found' 'ground' (2 -1 0);endwhile;while @findtype 0x170f 'any' 'backpack';pause 100;@moveitemoffset 'found' 'ground' (-2 -2 0);pause 100;@moveitemoffset 'found';'ground' (2 2 0);pause 100;@moveitemoffset 'found' 'ground' (-1 1 0);pause 100;@moveitemoffset 'found' 'ground' (1 1 0);pause 100;@moveitemoffset 'found' 'ground' (-2 2 0);pause 100;@moveitemoffset 'found' 'ground' (1 -1 0);pause 100;@moveitemoffset 'found' 'ground' (0 -1 0);pause 100;@moveitemoffset 'found' 'ground' (0 1 0);pause 100;@moveitemoffset 'found' 'ground' (2 -2 0);pause 100;@moveitemoffset 'found' 'ground' (-2 2 0);pause 100;@moveitemoffset 'found' 'ground' (1 -1 0);pause 100;@moveitemoffset 'found' 'ground' (-1 1 0);pause 100;@moveitemoffset 'found' 'ground' (-2 1 0);pause 100;@moveitemoffset 'found' 'ground' (2 1 0);pause 100;@moveitemoffset 'found' 'ground' (1 2 0);pause 100;@moveitemoffset 'found' 'ground' (1 -2 0);pause 100;@moveitemoffset 'found' 'ground' (-1 2 0);pause 100;@moveitemoffset 'found' 'ground' (-1 -2 0);pause 100;@moveitemoffset 'found' 'ground' (-2 -1 0);pause 100;@moveitemoffset 'found' 'ground' (2 -1 0);endwhile;while @findtype 0x1711 'any' 'backpack';pause 100;@moveitemoffset 'found' 'ground' (-2 -2 0);pause 100;@moveitemoffset 'found' 'ground' (2 2 0);pause 100;@moveitemoffset 'found' 'ground' (-1 1 0);pause 100;@moveitemoffset 'found' 'ground' (1 1 0);pause 100;@moveitemoffset 'found' 'ground' (-2 2 0);pause 100;@moveitemoffset 'found' 'ground' (1 -1 0);pause 100;@moveitemoffset 'found' 'ground' (0 -1 0);pause 100;@moveitemoffset 'found' 'ground' (0 1 0);pause 100;@moveitemoffset 'found' 'ground' (2 -2 0);pause 100;@moveitemoffset 'found' 'ground' (-2 2 0);pause 100;@moveitemoffset 'found' 'ground' (1 -1 0);pause 100;@moveitemoffset 'found' 'ground' (-1 1 0);pause 100;@moveitemoffset 'found' 'ground' (-2 1 0);pause 100;@moveitemoffset 'found' 'ground' (2 1 0);pause 100;@moveitemoffset 'found' 'ground' (1 2 0);pause 100;@moveitemoffset 'found' 'ground' (1 -2 0);pause 100;@moveitemoffset 'found' 'ground' (-1 2 0);pause 100;@moveitemoffset 'found' 'ground' (-1 -2 0);pause 100;@moveitemoffset 'found' 'ground' (-2 -1 0);pause 100;@moveitemoffset 'found' 'ground' (2 -1 0);endwhile;while @findtype 0x170d 'any' 'backpack';pause 100;@moveitemoffset 'found' 'ground' (-2 -2 0);pause 100;@moveitemoffset 'found' 'ground' (2 2 0);pause 100;@moveitemoffset 'found' 'ground' (-1 1 0);pause 100;@moveitemoffset 'found' 'ground' (1 1 0);pause 100;@moveitemoffset 'found' 'ground' (-2 2 0);pause 100;@moveitemoffset 'found' 'ground' (1 -1 0);pause 100;@moveitemoffset 'found' 'ground' (0 -1 0);pause 100;@moveitemoffset 'found' 'ground' (0 1 0);pause 100;@moveitemoffset 'found' 'ground' (2 -2 0);pause 100;@moveitemoffset 'found' 'ground' (-2 2 0);pause 100;@moveitemoffset 'found' 'ground' (1 -1 0);pause 100;@moveitemoffset 'found' 'ground' (-1 1 0);pause 100;@moveitemoffset 'found' 'ground' (-2 1 0);pause 100;@moveitemoffset 'found' 'ground' (2 1 0);pause 100;@moveitemoffset 'found' 'ground' (1 2 0);pause 100;@moveitemoffset 'found' 'ground' (1 -2 0);pause 100;@moveitemoffset 'found' 'ground' (-1 2 0);pause 100;@moveitemoffset 'found' 'ground' (-1 -2 0);pause 100;@moveitemoffset 'found' 'ground' (-2 -1 0);pause 100;@moveitemoffset 'found' 'ground' (2 -1 0);pause 100;endwhile;endfor;// adds to fishsteak pile on floor;if @findtype 0x97a 'any' 'ground' 'any' 2;movetype 0x97a 'backpack' 'found';pause 600;else;//starts fishsteak pile on floor if doesnt exist;movetypeoffset 0x97a 'backpack' 'ground';pause 600;endif;endif;while diffhits > 30 and not dead;autotargetself;bigheal;pause 1500;if not @findobject 'lefthand';equipitem 'bow' 2;endif;endwhile;getenemy 'gray' 'criminal' 'closest';if @inrange 'enemy' 10;@autotargetenemy;attack 'enemy';endif;endwhile;clearjournal;endfor;clearjournal;endfor;msg 'forward';pause 4000;msg 'stop';</macro>
  201. <macro interrupt="True" loop="True" name="Fletching Quests">@setalias 'FletcherDropoff' 0x423916a5;@setalias 'beetle' 0x2b623;@setalias 'FletcherRunebook' 0x43a8ab43;//^^^set these 3 to yours;@removelist 'woodhue';@removelist 'magechiv';@removelist 'magechiv2';@removelist 'bond';@createlist 'woodhue';@createlist 'magechiv';@createlist 'magechiv2';@createlist 'bond';//plain=0, oak=2010, ash=1191 | mage=5,11 chiv = 7,13 | bond = 10, unbond = 9;@pushlist 'woodhue' 0;@pushlist 'magechiv' 5;@pushlist 'magechiv2' 11;@pushlist 'bond' 10;//1. Character needs Fletching and Tinkering, a Fletching Bonus talisman saves resources;//2. FletcherDropoff container needs bolts, ingots, boards in it;//3. FletcherRunebook needs 1st rune to be Dropoff location and 2nd rune near Heartwood entrance;//4. Start in Heartwood with a beetle full of only boards. Have crafted tinker tools, 40 ingots, and 200 bolts in your pack or start at your Dropoff location to restock these items;//5. Have meat in your pack to feed beetle, 1 meat used per hour;//6. If multiple stacks of boards at your dropoff, script will begin encountering errors when one of the stacks drop below 1600, combine them before this happens;@setalias 'Fletching Quest Giver' 0x114;@setalias 'Trash Barrel'0x40053f97;if not listexists 'Talismans';@createlist 'Talismans';@pushlist 'Talismans' 0x2f58;@pushlist 'Talismans' 0x2f59;@pushlist 'Talismans' 0x2f5a;@pushlist 'Talismans' 0x2f5b;endif;if not listexists 'Slayers';@createlist 'Slayers';@pushlist 'Slayers' 'Ice Slayer';@pushlist 'Slayers' 'Flame Slayer';@pushlist 'Slayers' 'Vermin Slayer';@pushlist 'Slayers' 'Mage Slayer';@pushlist 'Slayers' 'Bird Slayer';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' 'Ice Fiend 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;endif;if not timerexists 'feedPet';createtimer 'feedPet';endif;//stop if you lack skills;if skill 'Tinkering' &lt; 45;sysmsg 'You need 50+ tinkering to run this macro effectively.' 34;stop;elseif skill 'Bowcraft' &lt; 90;sysmsg 'You need at least 90 (preferrably 100) bowcrafting to run this macro. You will also want a Fletching bonus talisman' 34;stop;endif;//stop macro if you forgot to restock bolts or ingots or have no tinker tools;if counttype 0x1bf2 0 'backpack' == 0 and not @inrange 'FletcherDropoff' 2;sysmsg 'Restock ingots before starting!' 33;stop;endif;if counttype 0x1bfb 0 'backpack' == 0 and counttype 0x1bfb 1258 'backpack' == 0;if not @inrange 'FletcherDropoff' 2;sysmsg 'Restock bolts before starting!' 33;stop;endif;endif;if @counttype 0x1eb8 0 'backpack' == 0;sysmsg 'Get crafted tinker tools (0x1eb8) before starting!' 33;stop;endif;// make tinker tools;while @counttype 0x1eb8 0 'backpack' &lt; 2;usetype! 0x1eb8;waitforgump 0x38920abd 3000;replygump 0x38920abd 8;waitforgump 0x38920abd 3000;replygump 0x38920abd 23;endwhile;// make plain fletcher kits;while @counttype 0x1022 0 'backpack' &lt; 3;usetype! 0x1eb8;waitforgump 0x38920abd 3000;replygump 0x38920abd 8;waitforgump 0x38920abd 3000;replygump 0x38920abd 142;endwhile;for 0 to 'magechiv';for 0 to 'magechiv2';for 0 to 'bond';for 0 to 'woodhue';//if starting macro from Dropoff location, then go through that same process as above to restock and navigate to Heartwood;if @inrange 'FletcherDropoff' 2;//open containers;useobject 'self';pause 1000;useobject 'FletcherDropoff';pause 1000;waitforcontext 'beetle' bond[] 15000;pause 1000;//unload jewels;while counttype 0x108a 'any' 'backpack' > 0;movetype 0x108a 'backpack' 'FletcherDropoff';pause 500;endwhile;while counttype 0x1f09 'any' 'backpack' > 0;movetype 0x1f09 'backpack' 'FletcherDropoff';pause 500;endwhile;while counttype 0x1f06 'any' 'backpack' > 0;movetype 0x1f06 'backpack' 'FletcherDropoff';pause 500;endwhile;while counttype 0x1086 'any' 'backpack' > 0;movetype 0x1086 'backpack' 'FletcherDropoff';pause 500;endwhile;//unload kits;while counttype 0x1022 1191 'backpack' > 0;movetype 0x1022 'backpack' 'FletcherDropoff' (0 0 0) 1191 1;pause 500;endwhile;while counttype 0x1022 2010 'backpack' > 0;movetype 0x1022 'backpack' 'FletcherDropoff' (0 0 0) 2010 1;pause 500;endwhile;while counttype 0x1022 1192 'backpack' > 0;movetype 0x1022 'backpack' 'FletcherDropoff' (0 0 0) 1192 1;pause 500;endwhile;while counttype 0x1022 1193 'backpack' > 0;movetype 0x1022 'backpack' 'FletcherDropoff' (0 0 0) 1193 1;pause 500;endwhile;//unload talismans;while counttype 0x2f58 0 'backpack' > 0;movetype 0x2f58 'backpack' 'FletcherDropoff' (0 0 0) 0 1;pause 500;endwhile;while counttype 0x2f59 0 'backpack' > 0;movetype 0x2f59 'backpack' 'FletcherDropoff' (0 0 0) 0 1;pause 500;endwhile;while counttype 0x2f5a 0 'backpack' > 0;movetype 0x2f5a 'backpack' 'FletcherDropoff' (0 0 0) 0 1;pause 500;endwhile;while counttype 0x2f5b 0 'backpack' > 0;movetype 0x2f5b 'backpack' 'FletcherDropoff' (0 0 0) 0 1;pause 500;endwhile;//get more bolts;if counttype 0x1bfb 0 'backpack' &lt; 130;if counttype 0x1bfb 0 'FletcherDropoff' &lt; 200;sysmsg 'Out of Bolts!' 33;useobject 'beetle';stop;endif;movetype 0x1bfb 'FletcherDropoff' 'backpack' (0 0 0) 0 200;pause 1000;endif;// get ingots if low;if counttype 0x1bf2 0 'backpack' &lt; 20;if counttype 0x1bf2 0 'FletcherDropoff' &lt; 40;sysmsg 'Out of Ingots!' 33;useobject 'beetle';stop;endif;movetype 0x1bf2 'FletcherDropoff' 'backpack' (0 0 0) 0 40;pause 1000;endif;//get boards on beetle and self;//first make sure beetle is empty, sometimes UOS won't pull 200 boards and you end up with odd number left behind;if counttype 0x1bd7 'any' 'beetle' > 0;while counttype 0x1bd7 'any' 'beetle' > 1599;movetype 0x1bd7 'beetle' 'FletcherDropoff' [(0 0 0)] 'any' 1600;pause 500;endwhile;while counttype 0x1bd7 'any' 'beetle' > 499;movetype 0x1bd7 'beetle' 'FletcherDropoff' [(0 0 0)] 'any' 500;pause 500;endwhile;while counttype 0x1bd7 'any' 'beetle' > 99;movetype 0x1bd7 'beetle' 'FletcherDropoff' [(0 0 0)] 'any' 100;pause 500;endwhile;while counttype 0x1bd7 'any' 'beetle' > 24;movetype 0x1bd7 'beetle' 'FletcherDropoff' [(0 0 0)] 'any' 25;pause 500;endwhile;while counttype 0x1bd7 'any' 'beetle' > 4;movetype 0x1bd7 'beetle' 'FletcherDropoff' [(0 0 0)] 'any' 5;pause 500;endwhile;while counttype 0x1bd7 'any' 'beetle' > 0;movetype 0x1bd7 'beetle' 'FletcherDropoff' [(0 0 0)] 'any' 1;pause 500;endwhile;endif;//stop if FletcherDropoff is out of boards;pause 1000;useobject 'FletcherDropoff';pause 1000;if counttype 0x1bd7 woodhue[] 'FletcherDropoff' &lt; 1900;sysmsg 'Out of Boards!' 33;useobject 'beetle';@playmacro 'Lumberjacking';while counttype 0x1bd7 woodhue[] 'FletcherDropoff' &lt; 1900;pause 20000;endwhile;endif;//fill beetle with boards;if mounted 'self';pause 550;useobject 'self';pause 1000;waitforcontext 'beetle' bond[] 15000;endif;movetype 0x1bd7 'FletcherDropoff' 'beetle' (0 0 0) woodhue[] 1600;pause 1000;//move boards to your pack based on how low your pack is;//max weight minus 350;if weight &lt; 175;movetype 0x1bd7 'FletcherDropoff' 'backpack' (0 0 0) woodhue[] 350;pause 1000;//max weight minus 300;elseif weight &lt; 225;movetype 0x1bd7 'FletcherDropoff' 'backpack' (0 0 0) woodhue[] 300;pause 1000;//max weight minus 250;elseif weight &lt; 275;movetype 0x1bd7 'FletcherDropoff' 'backpack' (0 0 0) woodhue[] 250;pause 1000;//max weight minus 200;elseif weight &lt; 325;movetype 0x1bd7 'FletcherDropoff' 'backpack' (0 0 0) woodhue[] 200;pause 1000;//max weight minus 150;elseif weight &lt; 375;movetype 0x1bd7 'FletcherDropoff' 'backpack' (0 0 0) woodhue[] 150;pause 1000;//max weight minus 100;elseif weight &lt; 425;movetype 0x1bd7 'FletcherDropoff' 'backpack' (0 0 0) woodhue[] 100;pause 1000;elseif counttype 0x1bd7 woodhue[] 'backpack' &lt; 1;movetype 0x1bd7 'FletcherDropoff' 'backpack' (0 0 0) woodhue[] 1;pause 1000;endif;//set fletching kits to correct wood type;if @findtype 0x1bd7 0 'backpack';pause 550;usetype! 0x1022;waitforgump 0x38920abd 1000;@replygump 0x38920abd 7;waitforgump 0x38920abd 1000;@replygump 0x38920abd 6;waitforgump 0x38920abd 1000;pause 550;//warn if other color boards or bows in pack;if @findtype 0x1bd7 2010 'backpack' or @findtype 0x1bd7 1191 'backpack';sysmsg 'You have two types of boards in your pack. Fix before starting macro.' 34;stop;endif;if @findtype 0x13b2 2010 'backpack' or @findtype 0x13b2 1191 'backpack';sysmsg 'Delete the different hued bows from the wood type you are trying to use before starting macro.' 34;stop;endif;if @findtype 0xf50 2010 'backpack' or @findtype 0xf50 1191 'backpack';sysmsg 'Delete the different hued crossbows from the wood type you are trying to use before starting macro.' 34;stop;endif;if @findtype 0x13fd 2010 'backpack' or @findtype 0x13fd 1191 'backpack';sysmsg 'Delete the different hued heavy crossbows from the wood type you are trying to use before starting macro.' 34;stop;endif;if @findtype 0x26c3 2010 'backpack' or @findtype 0x26c3 1191 'backpack';sysmsg 'Delete the different hued repeating crossbows from the wood type you are trying to use before starting macro.' 34;stop;endif;elseif @findtype 0x1bd7 2010 'backpack';pause 550;usetype! 0x1022;waitforgump 0x38920abd 1000;@replygump 0x38920abd 7;waitforgump 0x38920abd 1000;@replygump 0x38920abd 13;waitforgump 0x38920abd 1000;pause 550;//warn if other color boards, bows, stools in place;if @findtype 0x1bd7 0 'backpack' or @findtype 0x1bd7 1191 'backpack';sysmsg 'You have two types of boards in your pack. Fix before starting macro.' 34;stop;endif;if @findtype 0x13b2 0 'backpack' or @findtype 0x13b2 1191 'backpack';sysmsg 'Delete the different hued bows from the wood type you are trying to use before starting macro.' 34;stop;endif;if @findtype 0xf50 0 'backpack' or @findtype 0xf50 1191 'backpack';sysmsg 'Delete the different hued crossbows from the wood type you are trying to use before starting macro.' 34;stop;endif;if @findtype 0x13fd 0 'backpack' or @findtype 0x13fd 1191 'backpack';sysmsg 'Delete the different hued heavy crossbows from the wood type you are trying to use before starting macro.' 34;stop;endif;if @findtype 0x26c3 0 'backpack' or @findtype 0x26c3 1191 'backpack';sysmsg 'Delete the different hued repeating crossbows from the wood type you are trying to use before starting macro.' 34;stop;endif;elseif @findtype 0x1bd7 1191 'backpack';pause 550;usetype! 0x1022;waitforgump 0x38920abd 2000;@replygump 0x38920abd 7;waitforgump 0x38920abd 2000;@replygump 0x38920abd 20;waitforgump 0x38920abd 2000;pause 550;//warn if other color boards, bows, stools in place;if @findtype 0x1bd7 2010 'backpack' or @findtype 0x1bd7 0 'backpack';sysmsg 'You have two types of boards in your pack. Fix before starting macro.' 34;stop;endif;if @findtype 0x13b2 2010 'backpack' or @findtype 0x13b2 0 'backpack';sysmsg 'Delete the different hued bows from the wood type you are trying to use before starting macro.' 34;stop;endif;if @findtype 0xf50 2010 'backpack' or @findtype 0xf50 0 'backpack';sysmsg 'Delete the different hued crossbows from the wood type you are trying to use before starting macro.' 34;stop;endif;if @findtype 0x13fd 2010 'backpack' or @findtype 0x13fd 0 'backpack';sysmsg 'Delete the different hued heavy crossbows from the wood type you are trying to use before starting macro.' 34;stop;endif;if @findtype 0x26c3 2010 'backpack' or @findtype 0x26c3 0 'backpack';sysmsg 'Delete the different hued repeating crossbows from the wood type you are trying to use before starting macro.' 34;stop;endif;endif;//mount beetle and recall back to heartwood;pause 1000;useobject 'beetle';pause 2000;if @injournal 'world will save';while not @injournal 'world save complete';endwhile;@clearjournal;endif;useobject 'FletcherRunebook';waitforgump 0x554b87f3 30000;replygump 0x554b87f3 magechiv2[];pause 2000;//if the rune is blocked, pause 2 min to give time for NPCs to move, this prevents the character from running across the world from your dropoff;if injournal 'blocked' 'system';sysmsg 'Rune blocked, trying again in 2 minutes' 33;pause 120000;clearjournal;useobject 'FletcherRunebook';waitforgump 0x554b87f3 30000;replygump 0x554b87f3 magechiv2[];pause 2000;//if it's still blocked, stop macro;if injournal 'blocked' 'system';sysmsg 'Rune still blocked, stopping macro' 33;clearjournal;stop;endif;endif;//navigate to heartwood entrance;while y != 992 and y > 400;for 2;if y > 992;walk 'north';endif;pause 250;if y &lt; 992;walk 'south';endif;pause 250;endfor;endwhile;if x > 535 and x &lt; 1000;while x > 535 and x &lt; 1000;run 'west';pause 100;endwhile;endif;if x &lt; 537;while x &lt; 537;run 'east';pause 100;endwhile;endif;//navigate through heartwood to quest area;while y &lt; 377;run 'southeast';endwhile;pause 500;while y > 378;walk 'north';pause 500;endwhile;while y &lt; 378;walk 'south';pause 500;endwhile;while x &lt; 7037;run 'east';endwhile;//dismount;pause 500;useobject 'self';pause 700;useobject 'Trash Barrel';pause 700;waitforcontext 'beetle' bond[] 3000;pause 700;if counttype 0x1bd7 woodhue[] 'backpack' &lt; 150;movetype 0x1bd7 'beetle' 'backpack' [(0 0 0)] woodhue[] 200;pause 2000;endif;//restock boards from beetle;elseif counttype 0x1bd7 woodhue[] 'backpack' &lt; 150;if counttype 0x1bd7 woodhue[] 'beetle' > 199;movetype 0x1bd7 'beetle' 'backpack' [(0 0 0)] woodhue[] 200;pause 2000;//if beetle empty, leave heartwood;else;msg 'Celine is the Queen of Demise!' 33;useobject 'beetle';pause 1000;msg 'Long live the Queen!' 33;while x > 7028;run 'west';endwhile;pause 300;while y > 342;run "Northwest";pause 100;endwhile;while x &lt; 6987;walk 'east';pause 150;endwhile;while x > 6987;walk 'west';pause 150;endwhile;while y != 338 and y &lt; 600;for 5;if y > 338 and y &lt; 600;walk 'north';pause 250;endif;if y &lt; 338 and y &lt; 600;walk 'south';pause 250;endif;endfor;endwhile;while x > 1000;while y > 338 and y &lt; 600;turn 'north';walk 'north';pause 250;endwhile;while y &lt; 338 and y &lt; 600;turn 'south';walk 'south';pause 250;endwhile;run 'west';endwhile;if @injournal 'world will save';while not @injournal 'world save complete';endwhile;@clearjournal;endif;//recall home;useobject 'FletcherRunebook';waitforgump 0x554b87f3 30000;replygump 0x554b87f3 magechiv[];pause 2000;endif;elseif @inrange 'Trash Barrel' 2;//dismount if not when macro started;if mounted;useobject 'self';pause 1000;waitforcontext 'beetle' bond[] 15000;pause 1000;useobject 'Trash Barrel';pause 1000;endif;// Hourly feed pet;if timer 'feedPet' >= 3600000;feed 'beetle' 'Meat' 'any' 1;pause 500;if injournal 'happier';settimer 'feedPet' 0;sysmsg 'Pet Fed' 33;clearjournal;else;sysmsg 'Out of Meat!' 33;useobject 'beetle';clearjournal;stop;endif;endif;//get a quest;@useobject 'Fletching Quest Giver';waitforgump 0x19bc4061 2000;//SimpleBow;if @ingump 0x19bc4061 'crafted in the human style';replygump 0x19bc4061 1;pause 550;while counttype 0x13b2 'any' 'backpack' &lt; 10;usetype 0x1022 0 'backpack';waitforgump 0x38920abd 5000;replygump 0x38920abd 15;waitforgump 0x38920abd 5000;replygump 0x38920abd 2;waitforgump 0x38920abd 5000;endwhile;waitforcontext 'self' 4 5000;waitfortarget 5000;settimer 'toggletimeout' 0;while @counttype 0x13b2 0x4ea 'backpack' != 10 and timer 'toggletimeout' &lt; 5000;@targettype 0x13b2 woodhue[];pause 150;endwhile;@canceltarget;pause 500;@useobject! 'Fletching Quest Giver';waitforgump 0xdf31ecf8 3000;replygump 0xdf31ecf8 4;waitforgump 0x96626c6e 3000;replygump 0x96626c6e 1;pause 1000;//SimpleBow already in progress;elseif @ingump 0xa8b319c6 'debt if you bring me bows';while counttype 0x13b2 'any' 'backpack' &lt; 10;usetype 0x1022 0 'backpack';waitforgump 0x38920abd 5000;replygump 0x38920abd 15;waitforgump 0x38920abd 5000;replygump 0x38920abd 2;waitforgump 0x38920abd 5000;endwhile;waitforcontext 'self' 4 5000;waitfortarget 5000;settimer 'toggletimeout' 0;while @counttype 0x13b2 0x4ea 'backpack' != 10 and timer 'toggletimeout' &lt; 5000;@targettype 0x13b2 woodhue[];pause 150;endwhile;@canceltarget;pause 500;@useobject! 'Fletching Quest Giver';waitforgump 0xdf31ecf8 3000;replygump 0xdf31ecf8 4;waitforgump 0x96626c6e 3000;replygump 0x96626c6e 1;pause 1000;//Ingenious I;elseif @ingump 0x19bc4061 'such an instrument for me?';replygump 0x19bc4061 1;pause 550;while counttype 0xf50 'any' 'backpack' &lt; 10;usetype 0x1022 0 'backpack';waitforgump 0x38920abd 5000;replygump 0x38920abd 15;waitforgump 0x38920abd 5000;replygump 0x38920abd 9;waitforgump 0x38920abd 5000;endwhile;waitforcontext 'self' 4 5000;waitfortarget 5000;settimer 'toggletimeout' 0;while @counttype 0xf50 0x4ea 'backpack' != 10 and timer 'toggletimeout' &lt; 5000;@targettype 0xf50 woodhue[];pause 150;endwhile;@canceltarget;pause 500;@useobject! 'Fletching Quest Giver';waitforgump 0xdf31ecf8 3000;replygump 0xdf31ecf8 4;waitforgump 0x96626c6e 3000;replygump 0x96626c6e 1;pause 1000;//Ingenious I already in progress;elseif @ingump 0xa8b319c6 'debt if you bring me crossbows';while counttype 0xf50 'any' 'backpack' &lt; 10;usetype 0x1022 0 'backpack';waitforgump 0x38920abd 5000;replygump 0x38920abd 15;waitforgump 0x38920abd 5000;replygump 0x38920abd 9;waitforgump 0x38920abd 5000;endwhile;waitforcontext 'self' 4 5000;waitfortarget 5000;settimer 'toggletimeout' 0;while @counttype 0xf50 0x4ea 'backpack' != 10 and timer 'toggletimeout' &lt; 5000;@targettype 0xf50 woodhue[];pause 150;endwhile;@canceltarget;pause 500;@useobject! 'Fletching Quest Giver';waitforgump 0xdf31ecf8 3000;replygump 0xdf31ecf8 4;waitforgump 0x96626c6e 3000;replygump 0x96626c6e 1;pause 1000;//Ingenious 2;elseif @ingump 0x19bc4061 'remarkable instrument of war';replygump 0x19bc4061 1;pause 550;while counttype 0x13fd 'any' 'backpack' &lt; 8;usetype 0x1022 0 'backpack';waitforgump 0x38920abd 5000;replygump 0x38920abd 15;waitforgump 0x38920abd 5000;replygump 0x38920abd 16;waitforgump 0x38920abd 5000;endwhile;waitforcontext 'self' 4 5000;waitfortarget 5000;settimer 'toggletimeout' 0;while @counttype 0x13fd 0x4ea 'backpack' != 8 and timer 'toggletimeout' &lt; 5000;@targettype 0x13fd woodhue[];pause 150;endwhile;@canceltarget;pause 500;@useobject! 'Fletching Quest Giver';waitforgump 0xdf31ecf8 3000;replygump 0xdf31ecf8 4;waitforgump 0x96626c6e 3000;replygump 0x96626c6e 1;pause 1000;//Ingenious 2 already in progress;elseif @ingump 0xa8b319c6 'debt if you bring me heavy crossbows';while counttype 0x13fd 'any' 'backpack' &lt; 8;usetype 0x1022 0 'backpack';waitforgump 0x38920abd 5000;replygump 0x38920abd 15;waitforgump 0x38920abd 5000;replygump 0x38920abd 16;waitforgump 0x38920abd 5000;endwhile;waitforcontext 'self' 4 5000;waitfortarget 5000;settimer 'toggletimeout' 0;while @counttype 0x13fd 0x4ea 'backpack' != 8 and timer 'toggletimeout' &lt; 5000;@targettype 0x13fd woodhue[];pause 150;endwhile;@canceltarget;pause 500;@useobject! 'Fletching Quest Giver';waitforgump 0xdf31ecf8 3000;replygump 0xdf31ecf8 4;waitforgump 0x96626c6e 3000;replygump 0x96626c6e 1;pause 1000;//Ingenious 3;elseif @ingump 0x19bc4061 'remarkable human ingenuity';replygump 0x19bc4061 1;pause 550;while counttype 0x26c3 'any' 'backpack' &lt; 10;usetype 0x1022 0 'backpack';waitforgump 0x38920abd 5000;replygump 0x38920abd 15;waitforgump 0x38920abd 5000;replygump 0x38920abd 30;waitforgump 0x38920abd 5000;endwhile;waitforcontext 'self' 4 5000;waitfortarget 5000;settimer 'toggletimeout' 0;while @counttype 0x26c3 0x4ea 'backpack' != 10 and timer 'toggletimeout' &lt; 5000;@targettype 0x26c3 woodhue[];pause 150;endwhile;@canceltarget;pause 500;@useobject! 'Fletching Quest Giver';waitforgump 0xdf31ecf8 3000;replygump 0xdf31ecf8 4;waitforgump 0x96626c6e 3000;replygump 0x96626c6e 1;pause 1000;//Ingenious 3 already in progress;elseif @ingump 0xa8b319c6 'debt if you bring me repeating crossbows';while counttype 0x26c3 'any' 'backpack' &lt; 10;usetype 0x1022 0 'backpack';waitforgump 0x38920abd 5000;replygump 0x38920abd 15;waitforgump 0x38920abd 5000;replygump 0x38920abd 30;waitforgump 0x38920abd 5000;endwhile;waitforcontext 'self' 4 5000;waitfortarget 5000;settimer 'toggletimeout' 0;while @counttype 0x26c3 0x4ea 'backpack' != 10 and timer 'toggletimeout' &lt; 5000;@targettype 0x26c3 woodhue[];pause 150;endwhile;@canceltarget;pause 500;@useobject! 'Fletching Quest Giver';waitforgump 0xdf31ecf8 3000;replygump 0xdf31ecf8 4;waitforgump 0x96626c6e 3000;replygump 0x96626c6e 1;pause 1000;//LethalDart;elseif @ingump 0x19bc4061 'deadly crossbow bolt';if @findtype 0x1bfb 'any' 'backpack' 10;replygump 0x19bc4061 1;pause 550;pause 300;if color 'found' == 0;waitforcontext 'self' 4 5000;waitfortarget 5000;Target! 'found';waitfortarget 5000;endif;endif;@canceltarget;pause 500;@useobject! 'Fletching Quest Giver';waitforgump 0xdf31ecf8 3000;replygump 0xdf31ecf8 4;waitforgump 0x96626c6e 3000;replygump 0x96626c6e 1;pause 1000;//LethalDart in progress;elseif @ingump 0xa8b319c6 'debt if you bring me crossbow bolts';if @findtype 0x1bfb 'any' 'backpack' 10;pause 300;if color 'found' == 0;waitforcontext 'self' 4 5000;waitfortarget 5000;Target! 'found';waitfortarget 5000;endif;endif;@canceltarget;pause 500;@useobject! 'Fletching Quest Giver';waitforgump 0xdf31ecf8 3000;replygump 0xdf31ecf8 4;waitforgump 0x96626c6e 3000;replygump 0x96626c6e 1;pause 1000;//quest done except for talking to quest giver again;elseif @ingump 0xdf31ecf8 'My thanks';replygump 0xdf31ecf8 4;waitforgump 0x96626c6e 3000;replygump 0x96626c6e 1;//refuse Harp quest so not obscuring screen;elseif @ingump 0x19bc4061 'melodious of music';replygump 0x19bc4061 2;waitforgump 0xa8b319c6 3000;replygump 0xa8b319c6 3;endif;// Handle reward bags;while @findtype 0xe75 'any' 'backpack';pause 550;@setalias 'trash' 'found';@useobject! 'trash';pause 550;// fletcher Runics;while @findtype 0x1022 'any' 'trash';@moveitem! 'found' 'backpack';pause 1000;if color 'found' == 2010;//uncomment this next line to throw Oak kits on the ground;moveitemoffset 'found' 'ground' (0 2 0);pause 550;elseif color 'found' == 1191;//uncomment this next line to throw Ash kits on the ground;//moveitemoffset 'found' 'ground' (0 2 0);pause 550;elseif color 'found' == 1192;msg 'Nice, a Yew kit' 33;elseif color 'found' == 1193;msg 'Woohoo! Heartwood!' 63;endif;ignoreobject 'found';endwhile;// Talismans;for 0 to 'Talismans';while @findtype Talismans[] 0 'trash';waitforproperties 'found' 15000;//crafting bonus and exceptional bonus talismans;if @property 'Tinkering Exceptional Bonus' 'found' >= 20 and @property 'Tinkering Bonus' 'found' >= 20;@moveitem! 'found' 'backpack';pause 1000;break;elseif @property 'Alchemy Bonus' 'found' >= 29 or @property 'Fletching Bonus' 'found' >= 29;@moveitem! 'found' 'backpack';pause 1000;break;elseif @property 'Fletching Exceptional Bonus' 'found' >= 20 and @property 'Fletching Bonus' 'found' >= 20;@moveitem! 'found' 'backpack';pause 1000;break;elseif @property 'Tailoring Exceptional Bonus' 'found' >= 20 and @property 'Tailoring Bonus' 'found' >= 20;@moveitem! 'found' 'backpack';pause 1000;break;elseif @property 'Carpentry Exceptional Bonus' 'found' >= 20 and @property 'Carpentry Bonus' 'found' >= 20;@moveitem! 'found' 'backpack';pause 1000;break;elseif @property 'Inscription Bonus' 'found' >= 29 or @property 'Cooking Bonus' 'found' >= 29;@moveitem! 'found' 'backpack';pause 1000;break;elseif @property 'Blacksmithing Exceptional Bonus' 'found' >= 20 and @property 'Blacksmithing Bonus' 'found' >= 20;@moveitem! 'found' 'backpack';pause 1000;break;endif;//get slayers;for 0 to 'Slayers';if @property Slayers[] 'found';@moveitem! 'found' 'backpack';pause 1000;break;endif;endfor;//get killers;for 0 to 'Killers';if @property Killers[] 'found' >= 90;@moveitem! 'found' 'backpack';pause 1000;break;endif;endfor;//get protections;for 0 to 'Protection';if @property Protection[] 'found' >= 50;@moveitem! 'found' 'backpack';pause 1000;break;endif;endfor;ignoreobject 'found';endwhile;endfor;//Jewels;for 0 to 'Jewelry';while @findtype Jewelry[] 0 'trash';waitforproperties 'found' 15000;//EP DI jewels;if @property 'Enhance Potions' 'found' >= 15 and @property 'Damage Increase' 'found' >= 15;@moveitem! 'found' 'backpack';pause 1000;break;endif;if @property 'Faster Cast Recovery' 'found' == 3;@moveitem! 'found' 'backpack';pause 1000;break;endif;//save 1/2 and 1/1;if @property 'Faster Cast Recovery' 'found' > 0 and @property 'Faster Casting' 'found';@moveitem! 'found' 'backpack';pause 1000;break;endif;//hci and dci jewels, other usable hci dci jewels will be captured by above;if @property 'Defense chance increase' 'found' >= 10 and @property 'Hit chance increase' 'found' >= 5;@moveitem! 'found' 'backpack';pause 1000;break;endif;if @property 'Hit chance increase' 'found' >= 12;@moveitem! 'found' 'backpack';pause 1000;break;endif;ignoreobject 'found';endwhile;endfor;clearignorelist;@moveitem! 'trash' 'Trash Barrel';pause 550;endwhile;else;// if you're not at Trash Barrel or FletcherDropoff, then stop;sysmsg 'You need to be next to the Trash Barrel or your FletcherDropoff container when starting this macro' 33;stop;endif;endfor;endfor;endfor;endfor;</macro>
  202. <macro interrupt="True" loop="True" name="blah">@setalias 'FletcherDropoff' 0x423916a5;@setalias 'beetle' 0x2b623;@setalias 'FletcherRunebook' 0x43a8ab43;setalias 'trashbarrelluna' 0x4000b9c0;usetype 0x13e3 'any''backpack';pause 600;replygump 0x38920abd 21;pause 600;waitforgump 0x38920abd 15000;pause 600;while @findtype 0x2657 'any' 'backpack';pause 600 waitforproperties 'found' 2500;pause 600;@unsetalias 'move';// Check item properties;pause 600;if @property 'mana regeneration' 'found' >= 2 and @property 'fire resist' 'found' >= 5;pause 600;if @property 'mage armor' 'found';@setalias 'move''found';pause 600;endif;endif;// Move the item;pause 600;if @findalias 'move';pause 600;moveitem 'found' 'bank';pause 800;else if findalias 'found';moveitem 'found' 'trashbarrelluna';pause 800;endif;pause 600;ignoreobject 'found';pause 600;endwhile;</macro>
  203. <macro interrupt="True" loop="True" name="trash fishjunk">while @findtype 0xdd6 'any' 'backpack';@moveitemoffset 'found' 'ground' (-2 -2 0);pause 100;@moveitemoffset 'found' 'ground' (2 2 0);pause 100;@moveitemoffset 'found' 'ground' (-1 1 0);pause 100;@moveitemoffset 'found' 'ground' (1 1 0);pause 100;@moveitemoffset 'found' 'ground' (-2 2 0);pause 100;@moveitemoffset 'found' 'ground' (1 -1 0);pause 100;@moveitemoffset 'found' 'ground' (0 -1 0);pause 100;@moveitemoffset 'found' 'ground' (0 1 0);pause 100;@moveitemoffset 'found' 'ground' (2 -2 0);pause 100;@moveitemoffset 'found' 'ground' (-2 2 0);pause 100;@moveitemoffset 'found' 'ground' (1 -1 0);pause 100;@moveitemoffset 'found' 'ground' (-1 1 0);pause 100;@moveitemoffset 'found' 'ground' (-2 1 0);pause 100;@moveitemoffset 'found' 'ground' (2 1 0);pause 100;@moveitemoffset 'found' 'ground' (1 2 0);pause 100;@moveitemoffset 'found' 'ground' (1 -2 0);pause 100;@moveitemoffset 'found' 'ground' (-1 2 0);pause 100;@moveitemoffset 'found' 'ground' (-1 -2 0);pause 100;@moveitemoffset 'found' 'ground' (-2 -1 0);pause 100;@moveitemoffset 'found' 'ground' (2 -1 0);endwhile;while @findtype 0x170f 'any' 'backpack';pause 100;@moveitemoffset 'found' 'ground' (-2 -2 0);pause 100;@moveitemoffset 'found' 'ground' (2 2 0);pause 100;@moveitemoffset 'found' 'ground' (-1 1 0);pause 100;@moveitemoffset 'found' 'ground' (1 1 0);pause 100;@moveitemoffset 'found' 'ground' (-2 2 0);pause 100;@moveitemoffset 'found' 'ground' (1 -1 0);pause 100;@moveitemoffset 'found' 'ground' (0 -1 0);pause 100;@moveitemoffset 'found' 'ground' (0 1 0);pause 100;@moveitemoffset 'found' 'ground' (2 -2 0);pause 100;@moveitemoffset 'found' 'ground' (-2 2 0);pause 100;@moveitemoffset 'found' 'ground' (1 -1 0);pause 100;@moveitemoffset 'found' 'ground' (-1 1 0);pause 100;@moveitemoffset 'found' 'ground' (-2 1 0);pause 100;@moveitemoffset 'found' 'ground' (2 1 0);pause 100;@moveitemoffset 'found' 'ground' (1 2 0);pause 100;@moveitemoffset 'found' 'ground' (1 -2 0);pause 100;@moveitemoffset 'found' 'ground' (-1 2 0);pause 100;@moveitemoffset 'found' 'ground' (-1 -2 0);pause 100;@moveitemoffset 'found' 'ground' (-2 -1 0);pause 100;@moveitemoffset 'found' 'ground' (2 -1 0);endwhile;while @findtype 0x170b 'any' 'backpack';pause 100;@moveitemoffset 'found' 'ground' (-2 -2 0);pause 100;@moveitemoffset 'found' 'ground' (2 2 0);pause 100;@moveitemoffset 'found' 'ground' (-1 1 0);pause 100;@moveitemoffset 'found' 'ground' (1 1 0);pause 100;@moveitemoffset 'found' 'ground' (-2 2 0);pause 100;@moveitemoffset 'found' 'ground' (1 -1 0);pause 100;@moveitemoffset 'found' 'ground' (0 -1 0);pause 100;@moveitemoffset 'found' 'ground' (0 1 0);pause 100;@moveitemoffset 'found' 'ground' (2 -2 0);pause 100;@moveitemoffset 'found' 'ground' (-2 2 0);pause 100;@moveitemoffset 'found' 'ground' (1 -1 0);pause 100;@moveitemoffset 'found' 'ground' (-1 1 0);pause 100;@moveitemoffset 'found' 'ground' (-2 1 0);pause 100;@moveitemoffset 'found' 'ground' (2 1 0);pause 100;@moveitemoffset 'found' 'ground' (1 2 0);pause 100;@moveitemoffset 'found' 'ground' (1 -2 0);pause 100;@moveitemoffset 'found' 'ground' (-1 2 0);pause 100;@moveitemoffset 'found' 'ground' (-1 -2 0);pause 100;@moveitemoffset 'found' 'ground' (-2 -1 0);pause 100;@moveitemoffset 'found' 'ground' (2 -1 0);endwhile;while @findtype 0x170f 'any' 'backpack';pause 100;@moveitemoffset 'found' 'ground' (-2 -2 0);pause 100;@moveitemoffset 'found';'ground' (2 2 0);pause 100;@moveitemoffset 'found' 'ground' (-1 1 0);pause 100;@moveitemoffset 'found' 'ground' (1 1 0);pause 100;@moveitemoffset 'found' 'ground' (-2 2 0);pause 100;@moveitemoffset 'found' 'ground' (1 -1 0);pause 100;@moveitemoffset 'found' 'ground' (0 -1 0);pause 100;@moveitemoffset 'found' 'ground' (0 1 0);pause 100;@moveitemoffset 'found' 'ground' (2 -2 0);pause 100;@moveitemoffset 'found' 'ground' (-2 2 0);pause 100;@moveitemoffset 'found' 'ground' (1 -1 0);pause 100;@moveitemoffset 'found' 'ground' (-1 1 0);pause 100;@moveitemoffset 'found' 'ground' (-2 1 0);pause 100;@moveitemoffset 'found' 'ground' (2 1 0);pause 100;@moveitemoffset 'found' 'ground' (1 2 0);pause 100;@moveitemoffset 'found' 'ground' (1 -2 0);pause 100;@moveitemoffset 'found' 'ground' (-1 2 0);pause 100;@moveitemoffset 'found' 'ground' (-1 -2 0);pause 100;@moveitemoffset 'found' 'ground' (-2 -1 0);pause 100;@moveitemoffset 'found' 'ground' (2 -1 0);endwhile;while @findtype 0x1711 'any' 'backpack';pause 100;@moveitemoffset 'found' 'ground' (-2 -2 0);pause 100;@moveitemoffset 'found' 'ground' (2 2 0);pause 100;@moveitemoffset 'found' 'ground' (-1 1 0);pause 100;@moveitemoffset 'found' 'ground' (1 1 0);pause 100;@moveitemoffset 'found' 'ground' (-2 2 0);pause 100;@moveitemoffset 'found' 'ground' (1 -1 0);pause 100;@moveitemoffset 'found' 'ground' (0 -1 0);pause 100;@moveitemoffset 'found' 'ground' (0 1 0);pause 100;@moveitemoffset 'found' 'ground' (2 -2 0);pause 100;@moveitemoffset 'found' 'ground' (-2 2 0);pause 100;@moveitemoffset 'found' 'ground' (1 -1 0);pause 100;@moveitemoffset 'found' 'ground' (-1 1 0);pause 100;@moveitemoffset 'found' 'ground' (-2 1 0);pause 100;@moveitemoffset 'found' 'ground' (2 1 0);pause 100;@moveitemoffset 'found' 'ground' (1 2 0);pause 100;@moveitemoffset 'found' 'ground' (1 -2 0);pause 100;@moveitemoffset 'found' 'ground' (-1 2 0);pause 100;@moveitemoffset 'found' 'ground' (-1 -2 0);pause 100;@moveitemoffset 'found' 'ground' (-2 -1 0);pause 100;@moveitemoffset 'found' 'ground' (2 -1 0);endwhile;while @findtype 0x170d 'any' 'backpack';pause 100;@moveitemoffset 'found' 'ground' (-2 -2 0);pause 100;@moveitemoffset 'found' 'ground' (2 2 0);pause 100;@moveitemoffset 'found' 'ground' (-1 1 0);pause 100;@moveitemoffset 'found' 'ground' (1 1 0);pause 100;@moveitemoffset 'found' 'ground' (-2 2 0);pause 100;@moveitemoffset 'found' 'ground' (1 -1 0);pause 100;@moveitemoffset 'found' 'ground' (0 -1 0);pause 100;@moveitemoffset 'found' 'ground' (0 1 0);pause 100;@moveitemoffset 'found' 'ground' (2 -2 0);pause 100;@moveitemoffset 'found' 'ground' (-2 2 0);pause 100;@moveitemoffset 'found' 'ground' (1 -1 0);pause 100;@moveitemoffset 'found' 'ground' (-1 1 0);pause 100;@moveitemoffset 'found' 'ground' (-2 1 0);pause 100;@moveitemoffset 'found' 'ground' (2 1 0);pause 100;@moveitemoffset 'found' 'ground' (1 2 0);pause 100;@moveitemoffset 'found' 'ground' (1 -2 0);pause 100;@moveitemoffset 'found' 'ground' (-1 2 0);pause 100;@moveitemoffset 'found' 'ground' (-1 -2 0);pause 100;@moveitemoffset 'found' 'ground' (-2 -1 0);pause 100;@moveitemoffset 'found' 'ground' (2 -1 0);pause 100;endwhile;if not @listexists 'fishjunk';@createlist 'fishjunk';@pushlist 'fishjunk''0x170d';@pushlist 'fishjunk''0x1711';@pushlist 'fishjunk''0x170b';@pushlist 'fishjunk''0x170f';@pushlist 'fishjunk''0xdd6';endif;for 0 to 'fishjunk';while @findtype fishjunk[] 'any' 'backpack';movetypeoffset 'fishjunk' 'backpack' 'ground';endwhile;endfor;</macro>
  204. <macro interrupt="True" loop="False" name="GetBod">waitforcontext 'self' 1 15000;waitforcontext 0x4104b 1 15000;waitforgump 0x9bade6ea 3000;replygump 0x9bade6ea 1;pause 1500;waitforcontext 0x4102e 1 15000;waitforgump 0x9bade6ea 3000;replygump 0x9bade6ea 1;pause 1500;while @findtype 0x2259 'any' 'backpack';waitforproperties 'found' 2000;if @property 'BS' 'found';//msg a;setalias 'BS' 'found';ignoreobject 'found';else;setalias 'Tailor' 'found';ignoreobject 'found';endif;endwhile;while @findtype 0x2258 1102 'backpack';@moveitem 'found' 'BS';endwhile;while @findtype 0x2258 1155 'backpack';@moveitem 'found' 'Tailor';endwhile;if not hidden 'self';useskill 'hiding';endif;pause 1500;clearignorelist;logoutbutton;</macro>
  205. <macro interrupt="True" loop="True" name="Carpentry Quest">@setalias 'FletcherDropoff' 0x423916a5;@setalias 'beetle' 0x2b623;@setalias 'FletcherRunebook' 0x43a8ab43;//^^^set these 3 to yours;@removelist 'woodhue';@removelist 'magechiv';@removelist 'magechiv2';@removelist 'bond';@createlist 'woodhue';@createlist 'magechiv';@createlist 'magechiv2';@createlist 'bond';if not listexists 'Carpentry Recipes';@createlist 'Carpentry Recipes';@pushlist 'Carpentry Recipes' 'Bramble Coat';@pushlist 'Carpentry Recipes' 'Ironwood Crown';@pushlist 'Carpentry Recipes' 'Phantom Staff';@pushlist 'Carpentry Recipes' 'Acid Proof Rope';endif;//plain=0, oak=2010, ash=1191 | mage=5,11 chiv = 7,13 | bond = 10, unbond = 9;@pushlist 'woodhue' 0;@pushlist 'magechiv' 5;@pushlist 'magechiv2' 11;@pushlist 'bond' 10;//1. Character needs Carpentry and Tinkering, a Carpentry Bonus talisman saves resources;//2. FletcherDropoff container needs bolts, ingots, boards in it;//3. FletcherRunebook needs 1st rune to be Dropoff location and 2nd rune near Heartwood entrance;//4. Start in Heartwood with a beetle full of only boards. Have crafted tinker tools, 40 ingots, and 200 bolts in your pack or start at your Dropoff location to restock these items;//5. Have meat in your pack to feed beetle, 1 meat used per hour;//6. If multiple stacks of boards at your dropoff, script will begin encountering errors when one of the stacks drop below 1600, combine them before this happens;@setalias 'Carpentry Quest Giver' 0xdf;@setalias 'Trash Barrel'' 0x402124a0';if not listexists 'Talismans';@createlist 'Talismans';@pushlist 'Talismans' 0x2f58;@pushlist 'Talismans' 0x2f59;@pushlist 'Talismans' 0x2f5a;@pushlist 'Talismans' 0x2f5b;endif;if not listexists 'Slayers';@createlist 'Slayers';@pushlist 'Slayers' 'Ice Slayer';@pushlist 'Slayers' 'Flame Slayer';@pushlist 'Slayers' 'Vermin Slayer';@pushlist 'Slayers' 'Mage Slayer';@pushlist 'Slayers' 'Bird Slayer';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' 'Ice Fiend 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;endif;if not timerexists 'feedPet';createtimer 'feedPet';endif;//stop if you lack skills;if skill 'Tinkering' &lt; 45;sysmsg 'You need 50+ tinkering to run this macro effectively.' 34;stop;elseif skill 'Carpentry' &lt; 50;sysmsg 'You need at least 100 bowcrafting to run this macro. You will also want a Carpentry bonus talisman' 34;stop;endif;//stop macro if you forgot to restock bolts or ingots or have no tinker tools;if counttype 0x1bf2 0 'backpack' == 0 and not @inrange 'FletcherDropoff' 2;sysmsg 'Restock ingots before starting!' 33;stop;endif;//Check for crafted tinker tools;if @counttype 0x1eb8 0 'backpack' == 0;sysmsg 'Get crafted tinker tools (0x1eb8) before starting!' 33;stop;endif;// make tinker tools;while @counttype 0x1eb8 0 'backpack' &lt; 2;usetype! 0x1eb8;waitforgump 0x38920abd 3000;replygump 0x38920abd 8;waitforgump 0x38920abd 3000;replygump 0x38920abd 23;endwhile;// make plain carpentry saws;while @counttype 0x1034 0 'backpack' &lt; 3;usetype! 0x1eb8;waitforgump 0x38920abd 3000;replygump 0x38920abd 8;waitforgump 0x38920abd 3000;replygump 0x38920abd 51;endwhile;for 0 to 'magechiv';for 0 to 'magechiv2';for 0 to 'bond';for 0 to 'woodhue';//if starting macro from Dropoff location, then go through that same process as above to restock and navigate to Heartwood;if @inrange 'FletcherDropoff' 2;//open containers;useobject 'self';pause 1000;useobject 'FletcherDropoff';pause 1000;waitforcontext 'beetle' bond[] 15000;pause 1000;//unload jewels;while counttype 0x108a 'any' 'backpack' > 0;movetype 0x108a 'backpack' 'FletcherDropoff';pause 500;endwhile;while counttype 0x1f09 'any' 'backpack' > 0;movetype 0x1f09 'backpack' 'FletcherDropoff';pause 500;endwhile;while counttype 0x1f06 'any' 'backpack' > 0;movetype 0x1f06 'backpack' 'FletcherDropoff';pause 500;endwhile;while counttype 0x1086 'any' 'backpack' > 0;movetype 0x1086 'backpack' 'FletcherDropoff';pause 500;endwhile;//unload kits;while counttype 0x1028 1191 'backpack' > 0;movetype 0x1028 'backpack' 'FletcherDropoff' (0 0 0) 1191 1;pause 500;endwhile;while counttype 0x1028 2010 'backpack' > 0;movetype 0x1028 'backpack' 'FletcherDropoff' (0 0 0) 2010 1;pause 500;endwhile;while counttype 0x1028 1192 'backpack' > 0;movetype 0x1028 'backpack' 'FletcherDropoff' (0 0 0) 1192 1;pause 500;endwhile;while counttype 0x1028 1193 'backpack' > 0;movetype 0x1028 'backpack' 'FletcherDropoff' (0 0 0) 1193 1;pause 500;endwhile;//unload talismans;while counttype 0x2f58 0 'backpack' > 0;movetype 0x2f58 'backpack' 'FletcherDropoff' (0 0 0) 0 1;pause 500;endwhile;while counttype 0x2f59 0 'backpack' > 0;movetype 0x2f59 'backpack' 'FletcherDropoff' (0 0 0) 0 1;pause 500;endwhile;while counttype 0x2f5a 0 'backpack' > 0;movetype 0x2f5a 'backpack' 'FletcherDropoff' (0 0 0) 0 1;pause 500;endwhile;while counttype 0x2f5b 0 'backpack' > 0;movetype 0x2f5b 'backpack' 'FletcherDropoff' (0 0 0) 0 1;pause 500;endwhile;// get ingots if low;if counttype 0x1bf2 0 'backpack' &lt; 20;if counttype 0x1bf2 0 'FletcherDropoff' &lt; 40;sysmsg 'Out of Ingots!' 33;useobject 'beetle';stop;endif;movetype 0x1bf2 'FletcherDropoff' 'backpack' (0 0 0) 0 40;pause 1000;endif;//get boards on beetle and self;//first make sure beetle is empty, sometimes UOS won't pull 200 boards and you end up with odd number left behind;if counttype 0x1bd7 'any' 'beetle' > 0;while counttype 0x1bd7 'any' 'beetle' > 1599;movetype 0x1bd7 'beetle' 'FletcherDropoff' [(0 0 0)] 'any' 1600;pause 500;endwhile;while counttype 0x1bd7 'any' 'beetle' > 499;movetype 0x1bd7 'beetle' 'FletcherDropoff' [(0 0 0)] 'any' 500;pause 500;endwhile;while counttype 0x1bd7 'any' 'beetle' > 99;movetype 0x1bd7 'beetle' 'FletcherDropoff' [(0 0 0)] 'any' 100;pause 500;endwhile;while counttype 0x1bd7 'any' 'beetle' > 24;movetype 0x1bd7 'beetle' 'FletcherDropoff' [(0 0 0)] 'any' 25;pause 500;endwhile;while counttype 0x1bd7 'any' 'beetle' > 4;movetype 0x1bd7 'beetle' 'FletcherDropoff' [(0 0 0)] 'any' 5;pause 500;endwhile;while counttype 0x1bd7 'any' 'beetle' > 0;movetype 0x1bd7 'beetle' 'FletcherDropoff' [(0 0 0)] 'any' 1;pause 500;endwhile;endif;//stop if FletcherDropoff is out of boards;pause 1000;useobject 'FletcherDropoff';pause 1000;if counttype 0x1bd7 woodhue[] 'FletcherDropoff' &lt; 1900;sysmsg 'Out of Boards!' 33;useobject 'beetle';@playmacro 'Lumberjacking';while counttype 0x1bd7 woodhue[] 'FletcherDropoff' &lt; 1900;pause 20000;endwhile;endif;//fill beetle with boards;if mounted 'self';pause 550;useobject 'self';pause 1000;waitforcontext 'beetle' bond[] 15000;endif;movetype 0x1bd7 'FletcherDropoff' 'beetle' (0 0 0) woodhue[] 1600;pause 1000;//move boards to your pack based on how low your pack is;//max weight minus 350;if weight &lt; 175;movetype 0x1bd7 'FletcherDropoff' 'backpack' (0 0 0) woodhue[] 350;pause 1000;//max weight minus 300;elseif weight &lt; 225;movetype 0x1bd7 'FletcherDropoff' 'backpack' (0 0 0) woodhue[] 300;pause 1000;//max weight minus 250;elseif weight &lt; 275;movetype 0x1bd7 'FletcherDropoff' 'backpack' (0 0 0) woodhue[] 250;pause 1000;//max weight minus 200;elseif weight &lt; 325;movetype 0x1bd7 'FletcherDropoff' 'backpack' (0 0 0) woodhue[] 200;pause 1000;//max weight minus 150;elseif weight &lt; 375;movetype 0x1bd7 'FletcherDropoff' 'backpack' (0 0 0) woodhue[] 150;pause 1000;//max weight minus 100;elseif weight &lt; 425;movetype 0x1bd7 'FletcherDropoff' 'backpack' (0 0 0) woodhue[] 100;pause 1000;elseif counttype 0x1bd7 woodhue[] 'backpack' &lt; 1;movetype 0x1bd7 'FletcherDropoff' 'backpack' (0 0 0) woodhue[] 1;pause 1000;endif;//set saws to correct wood type;if @findtype 0x1bd7 0 'backpack';pause 550;usetype! 0x1034;waitforgump 0x38920abd 1000;replygump 0x38920abd 7;waitforgump 0x38920abd 1000;replygump 0x38920abd 6;pause 550;//warn if other color boards or bows in pack;if @findtype 0x1bd7 2010 'backpack' or @findtype 0x1bd7 1191 'backpack';sysmsg 'You have two types of boards in your pack. Fix before starting macro.' 34;stop;endif;if @findtype 0x13b2 2010 'backpack' or @findtype 0x13b2 1191 'backpack';sysmsg 'Delete the different hued bows from the wood type you are trying to use before starting macro.' 34;stop;endif;if @findtype 0xf50 2010 'backpack' or @findtype 0xf50 1191 'backpack';sysmsg 'Delete the different hued crossbows from the wood type you are trying to use before starting macro.' 34;stop;endif;if @findtype 0x13fd 2010 'backpack' or @findtype 0x13fd 1191 'backpack';sysmsg 'Delete the different hued heavy crossbows from the wood type you are trying to use before starting macro.' 34;stop;endif;if @findtype 0x26c3 2010 'backpack' or @findtype 0x26c3 1191 'backpack';sysmsg 'Delete the different hued repeating crossbows from the wood type you are trying to use before starting macro.' 34;stop;endif;elseif @findtype 0x1bd7 2010 'backpack';pause 550;usetype! 0x1022;waitforgump 0x38920abd 1000;@replygump 0x38920abd 7;waitforgump 0x38920abd 1000;@replygump 0x38920abd 13;waitforgump 0x38920abd 1000;pause 550;//warn if other color boards, bows, stools in place;if @findtype 0x1bd7 0 'backpack' or @findtype 0x1bd7 1191 'backpack';sysmsg 'You have two types of boards in your pack. Fix before starting macro.' 34;stop;endif;if @findtype 0x13b2 0 'backpack' or @findtype 0x13b2 1191 'backpack';sysmsg 'Delete the different hued bows from the wood type you are trying to use before starting macro.' 34;stop;endif;if @findtype 0xf50 0 'backpack' or @findtype 0xf50 1191 'backpack';sysmsg 'Delete the different hued crossbows from the wood type you are trying to use before starting macro.' 34;stop;endif;if @findtype 0x13fd 0 'backpack' or @findtype 0x13fd 1191 'backpack';sysmsg 'Delete the different hued heavy crossbows from the wood type you are trying to use before starting macro.' 34;stop;endif;if @findtype 0x26c3 0 'backpack' or @findtype 0x26c3 1191 'backpack';sysmsg 'Delete the different hued repeating crossbows from the wood type you are trying to use before starting macro.' 34;stop;endif;elseif @findtype 0x1bd7 1191 'backpack';pause 550;usetype! 0x1022;waitforgump 0x38920abd 2000;@replygump 0x38920abd 7;waitforgump 0x38920abd 2000;@replygump 0x38920abd 20;waitforgump 0x38920abd 2000;pause 550;//warn if other color boards, bows, stools in place;if @findtype 0x1bd7 2010 'backpack' or @findtype 0x1bd7 0 'backpack';sysmsg 'You have two types of boards in your pack. Fix before starting macro.' 34;stop;endif;if @findtype 0x13b2 2010 'backpack' or @findtype 0x13b2 0 'backpack';sysmsg 'Delete the different hued bows from the wood type you are trying to use before starting macro.' 34;stop;endif;if @findtype 0xf50 2010 'backpack' or @findtype 0xf50 0 'backpack';sysmsg 'Delete the different hued crossbows from the wood type you are trying to use before starting macro.' 34;stop;endif;if @findtype 0x13fd 2010 'backpack' or @findtype 0x13fd 0 'backpack';sysmsg 'Delete the different hued heavy crossbows from the wood type you are trying to use before starting macro.' 34;stop;endif;if @findtype 0x26c3 2010 'backpack' or @findtype 0x26c3 0 'backpack';sysmsg 'Delete the different hued repeating crossbows from the wood type you are trying to use before starting macro.' 34;stop;endif;endif;//mount beetle and recall back to heartwood;pause 1000;useobject 'beetle';pause 2000;if @injournal 'world will save';while not @injournal 'world save complete';endwhile;@clearjournal;endif;useobject 'FletcherRunebook';waitforgump 0x554b87f3 30000;replygump 0x554b87f3 magechiv2[];pause 2000;//if the rune is blocked, pause 2 min to give time for NPCs to move, this prevents the character from running across the world from your dropoff;if injournal 'blocked' 'system';sysmsg 'Rune blocked, trying again in 2 minutes' 33;pause 120000;clearjournal;useobject 'FletcherRunebook';waitforgump 0x554b87f3 30000;replygump 0x554b87f3 magechiv2[];pause 2000;//if it's still blocked, stop macro;if injournal 'blocked' 'system';sysmsg 'Rune still blocked, stopping macro' 33;clearjournal;stop;endif;endif;//navigate to heartwood entrance;while y != 992 and y > 400;for 2;if y > 992;walk 'north';endif;pause 250;if y &lt; 992;walk 'south';endif;pause 250;endfor;endwhile;if x > 535 and x &lt; 1000;while x > 535 and x &lt; 1000;run 'west';pause 100;endwhile;endif;if x &lt; 537;while x &lt; 537;run 'east';pause 100;endwhile;endif;//navigate through heartwood to carpetry area;while y &lt; 377;run 'southeast';endwhile;pause 500;while y &lt; 377;run 'southeast';endwhile;pause 500;while x > 7023 and x &lt; 7025;walk 'west';pause 500;endwhile;pause 500;while y > 378 and y &lt; 393;run 'south';endwhile;pause 500;while x > 7022 and x &lt; 7027;walk 'east';pause 500;endwhile;pause 500;while y > 392 and y &lt; 408;run 'south';endwhile;pause 500;while x > 7026 and x &lt; 7030;walk 'east';pause 500;endwhile;pause 500;while y > 407 and y &lt; 413;run 'south';endwhile;//dismount;useobject 'self';pause 700;useobject 'Trash Barrel';pause 700;waitforcontext 'beetle' bond[] 3000;pause 700;if counttype 0x1bd7 woodhue[] 'backpack' &lt; 100;movetype 0x1bd7 'beetle' 'backpack' [(0 0 0)] woodhue[] 200;pause 2000;endif;//restock boards from beetle;elseif counttype 0x1bd7 woodhue[] 'backpack' &lt; 150;if counttype 0x1bd7 woodhue[] 'beetle' > 199;movetype 0x1bd7 'beetle' 'backpack' [(0 0 0)] woodhue[] 200;pause 2000;//if beetle empty, leave heartwood;else;msg 'Celene is the Queen of Demise!' 33;useobject 'beetle';pause 1000;msg 'Long live the Queen!' 33;while x > 7025 and x &lt; 7032;run 'northwest';endwhile;pause 500;while y &lt; 410 and y > 388;walk 'Northeast';endwhile;pause 500;while x > 7030;walk 'Northwest';endwhile;pause 300;while x > 7026;walk 'west';endwhile;pause 300;while y > 340;run "Northwest";pause 100;endwhile;while x > 6985 and x &lt; 6991;walk 'west';pause 150;endwhile;while y > 338 and y &lt; 342;walk 'north';pause 250;endwhile;for 5;if y >= 338 and x > 6982;walk 'east';pause 250;endif;endfor;pause 2000;useobject 'FletcherRunebook';waitforgump 0x554b87f3 15000;replygump 0x554b87f3 []magechiv;if @injournal 'world will save';while not @injournal 'world save complete';endwhile;@clearjournal;endif;//recall home;useobject 'FletcherRunebook';waitforgump 0x554b87f3 30000;replygump 0x554b87f3 magechiv[];pause 2000;endif;elseif @inrange 'Trash Barrel' 2;//dismount if not when macro started;if mounted;useobject 'self';pause 1000;waitforcontext 'beetle' bond[] 15000;pause 1000;useobject 'Trash Barrel';pause 1000;endif;// Hourly feed pet;if timer 'feedPet' >= 3600000;feed 'beetle' 'Meat' 'any' 1;pause 500;if injournal 'happier';settimer 'feedPet' 0;sysmsg 'Pet Fed' 33;clearjournal;else;sysmsg 'Out of Meat!' 33;useobject 'beetle';clearjournal;stop;endif;endif;if @findtype 0x1bd7 0 'backpack' 90;// Craft quest items;while @counttype 0xb5e 0 'backpack' &lt; 10;if usetype! 0x1034;replygump 0x38920abd 8;waitforgump 0x38920abd 15000;replygump 0x38920abd 2;waitforgump 0x38920abd 15000;else;sysmsg 'Out of saws!' 25;stop;endif;pause 1000;endwhile;@useobject! 'Carpentry Quest Giver';waitforgump 0x19bc4061 5000;if @ingump 0x19bc4061 "special stool";replygump 0x19bc4061 1;waitforcontext 'self' 4 1500;waitfortarget 800;pause 1000;elseif @ingump 0xa8b319c6 'debt if you bring me foot';// Mark items until quest is completed;while @counttype 0xb5e 0x4ea 'backpack' != 10;@targettype 0xb5e 0;pause 800;endwhile;@canceltarget;@useobject! 'Carpentry Quest Giver';waitforgump 0xdf31ecf8 5000;replygump 0xdf31ecf8 4;waitforgump 0x96626c6e 5000;replygump 0x96626c6e 1;pause 800;elseif @ingump 0x19bc4061 'crystal lattice seekers';replygump 0x19bc4061 2;waitforgump 0xa8b319c6 3000;replygump 0xa8b319c6 3;pause 1000;elseif @ingump 0x19bc4061 'crop of evil';replygump 0x19bc4061 2;waitforgump 0xa8b319c6 3000;replygump 0xa8b319c6 3;pause 1000;elseif @ingump 0x19bc4061 'piles of granite';replygump 0x19bc4061 2;waitforgump 0xa8b319c6 3000;replygump 0xa8b319c6 3;pause 2000;// Handle reward bags;endif;while @findtype 0xe75 'any' 'backpack';pause 550;@setalias 'trash' 'found';@useobject! 'trash';pause 550;// Runics;while @findtype 0x1028 'any' 'trash';@moveitem! 'found' 'backpack';pause 1000;if color 'found' == 2010;//uncomment this next line to throw Oak saws on the ground;moveitemoffset 'found' 'ground' (0 2 0);pause 550;elseif color 'found' == 1191;//uncomment this next line to throw Ash saws on the ground;moveitemoffset 'found' 'ground' (0 2 0);pause 550;elseif color 'found' == 1192;msg 'Nice, a Yew saw' 33;elseif color 'found' == 1193;msg 'Woohoo! Heartwood!' 63;endif;ignoreobject 'found';endwhile;// Carpentry Recipes;while @findtype 0x2831 0 'trash';waitforproperties 'found' 5000;for 0 to 'Carpentry Recipes';if @property 'Carpentry Recipes[]' 'found';@moveitem! 'found' 'backpack';pause 1000;break;endif;endfor;ignoreobject 'found';endwhile;// Talismans;for 0 to 'Talismans';while @findtype Talismans[] 0 'trash';waitforproperties 'found' 15000;//crafting bonus and exceptional bonus talismans;if @property 'Tinkering Exceptional Bonus' 'found' >= 20 and @property 'Tinkering Bonus' 'found' >= 20;@moveitem! 'found' 'backpack';pause 1000;break;elseif @property 'Alchemy Bonus' 'found' >= 29 or @property 'Fletching Bonus' 'found' >= 29;@moveitem! 'found' 'backpack';pause 1000;break;elseif @property 'Fletching Exceptional Bonus' 'found' >= 20 and @property 'Fletching Bonus' 'found' >= 20;@moveitem! 'found' 'backpack';pause 1000;break;elseif @property 'Tailoring Exceptional Bonus' 'found' >= 20 and @property 'Tailoring Bonus' 'found' >= 20;@moveitem! 'found' 'backpack';pause 1000;break;elseif @property 'Carpentry Exceptional Bonus' 'found' >= 20 and @property 'Carpentry Bonus' 'found' >= 20;@moveitem! 'found' 'backpack';pause 1000;break;elseif @property 'Inscription Bonus' 'found' >= 29 or @property 'Cooking Bonus' 'found' >= 29;@moveitem! 'found' 'backpack';pause 1000;break;elseif @property 'Blacksmithing Exceptional Bonus' 'found' >= 20 and @property 'Blacksmithing Bonus' 'found' >= 20;@moveitem! 'found' 'backpack';pause 1000;break;endif;//get slayers;for 0 to 'Slayers';if @property Slayers[] 'found';@moveitem! 'found' 'backpack';pause 1000;break;endif;endfor;//get killers;for 0 to 'Killers';if @property Killers[] 'found' >= 90;@moveitem! 'found' 'backpack';pause 1000;break;endif;endfor;//get protections;for 0 to 'Protection';if @property Protection[] 'found' >= 50;@moveitem! 'found' 'backpack';pause 1000;break;endif;endfor;ignoreobject 'found';endwhile;endfor;//Jewels;for 0 to 'Jewelry';while @findtype Jewelry[] 0 'trash';waitforproperties 'found' 15000;//EP DI jewels;if @property 'Enhance Potions' 'found' >= 15 and @property 'Damage Increase' 'found' >= 15;@moveitem! 'found' 'backpack';pause 1000;break;endif;if @property 'Faster Cast Recovery' 'found' == 3;@moveitem! 'found' 'backpack';pause 1000;break;endif;//save 1/2 and 1/1;if @property 'Faster Cast Recovery' 'found' > 0 and @property 'Faster Casting' 'found';@moveitem! 'found' 'backpack';pause 1000;break;endif;//hci and dci jewels, other usable hci dci jewels will be captured by above;if @property 'Defense chance increase' 'found' >= 10 and @property 'Hit chance increase' 'found' >= 5;@moveitem! 'found' 'backpack';pause 1000;break;endif;if @property 'Hit chance increase' 'found' >= 12;@moveitem! 'found' 'backpack';pause 1000;break;endif;ignoreobject 'found';endwhile;endfor;clearignorelist;@moveitem! 'trash' 'Trash Barrel';pause 550;endwhile;else;// if you're not at Trash Barrel or FletcherDropoff, then stop;sysmsg 'You need to be next to the Trash Barrel or your FletcherDropoff container when starting this macro' 33;stop;endif;endif;endfor;endfor;endfor;endfor;</macro>
  206. <macro interrupt="True" loop="False" name="Tinker Training">if not @listexists 'tinkjunk';createlist 'tinkjunk';pushlist 'tinkjunk' 0xf9f // SCISSORS! WATCH OUT!;pushlist 'tinkjunk' 0xf9d;pushlist 'tinkjunk' 0xfbb;pushlist 'tinkjunk' 0x14fc;pushlist 'tinkjunk' 0x1849;endif;if @counttype 0x1eb8 'any' 'backpack' &lt; 2;if usetype 0x1eb8;waitforgump 0x38920abd 15000;replygump 0x38920abd 8;waitforgump 0x38920abd 15000;replygump 0x38920abd 23;waitforgump 0x38920abd 15000;endif;endif;if not @findobject 'trash';headmsg 'Select your trash barrel';promptalias 'trash';endif;if skill 'tinkering' &lt; 30;headmsg 'Buy more tinkering skill!';stop;elseif skill 'tinkering' &lt; 40;if usetype 0x1eb8 0x0 'backpack';waitforgump 0x38920abd 15000;replygump 0x38920abd 8;waitforgump 0x38920abd 15000;replygump 0x38920abd 2;waitforgump 0x38920abd 2000;endif;elseif skill 'tinkering' &lt; 65;if usetype 0x1eb8 0x0 'backpack';waitforgump 0x38920abd 15000;replygump 0x38920abd 8;waitforgump 0x38920abd 15000;replygump 0x38920abd 44;waitforgump 0x38920abd 2000;endif;elseif skill 'tinkering' &lt; 75;if usetype 0x1eb8 0x0 'backpack';waitforgump 0x38920abd 15000;replygump 0x38920abd 8;waitforgump 0x38920abd 15000;replygump 0x38920abd 86;waitforgump 0x38920abd 2000;endif;elseif skill 'tinkering' &lt; 94;if usetype 0x1eb8 0x0 'backpack';waitforgump 0x38920abd 15000;replygump 0x38920abd 8;waitforgump 0x38920abd 15000;replygump 0x38920abd 121;waitforgump 0x38920abd 2000;endif;elseif skill 'tinkering' &lt; 100;if usetype 0x1eb8 0x0 'backpack';waitforgump 0x38920abd 15000;replygump 0x38920abd 29;waitforgump 0x38920abd 15000;replygump 0x38920abd 51;waitforgump 0x38920abd 2000;endif;else;headmsg 'Tinkering complete!';stop;endif;if contents 'backpack' > 115 or diffweight &lt; 20;for 0 to 'tinkjunk';while @movetype tinkjunk[] 'backpack' 'trash';endwhile;endfor;endif;</macro>
  207. <macro interrupt="True" loop="True" name="Fletch and Saw">@setalias 'FletcherDropoff' 0x4344e6c9;@setalias 'beetle' 0xfdec5;@setalias 'FletcherRunebook' 0x43a8ab43;@removelist 'woodhue';@removelist 'magechiv';@removelist 'magechiv2';@removelist 'bond';@createlist 'woodhue';@createlist 'magechiv';@createlist 'magechiv2';@createlist 'bond';//plain=0, oak=2010, ash=1191 | mage=5,11 chiv = 7,13 | bond = 10, unbond = 9;@pushlist 'woodhue' 0;@pushlist 'magechiv' 5;@pushlist 'magechiv2' 11;@pushlist 'bond' 10;//1. Character needs Fletching, Carpentry and Tinkering, a Fletching Bonus talisman saves resources;//2. FletcherDropoff container needs bolts, ingots, boards in it;//3. FletcherRunebook needs 1st rune to be Dropoff location and 2nd rune near Heartwood entrance;//4. Start in Heartwood with a beetle full of only boards. Have crafted tinker tools, 40 ingots, and 200 bolts in your pack or start at your Dropoff location to restock these items;//5. The macro tries to feed your beetle meat every 2 hours. If you have magery it will create the food for you.;//6. If multiple stacks of boards at your dropoff, script will begin encountering errors when one of the stacks drop below 1600, combine them before this happens;@setalias 'Fletching Quest Giver' 0xb06a8;@setalias 'Trash Barrel' 0x40053e83;@setalias 'Carpentry Quest Giver' 0xb0692;if not listexists 'Talismans';@createlist 'Talismans';@pushlist 'Talismans' 0x2f58;@pushlist 'Talismans' 0x2f59;@pushlist 'Talismans' 0x2f5a;@pushlist 'Talismans' 0x2f5b;endif;if not listexists 'Slayers';@createlist 'Slayers';//@pushlist 'Slayers' 'Ice Slayer';//@pushlist 'Slayers' 'Flame Slayer';//@pushlist 'Slayers' 'Vermin Slayer';//@pushlist 'Slayers' 'Mage Slayer';//@pushlist 'Slayers' 'Bird Slayer';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 'FletchCarp Recipes Trash';@createlist 'FletchCarp Recipes Trash';@pushlist 'FletchCarp Recipes Trash' 'Shortbow';@pushlist 'FletchCarp Recipes Trash' 'Longbow';@pushlist 'FletchCarp Recipes Trash' 'Warrior';@pushlist 'FletchCarp Recipes Trash' 'Thorned';@pushlist 'FletchCarp Recipes Trash' 'Elven';@pushlist 'FletchCarp Recipes Trash' 'Bow';@pushlist 'FletchCarp Recipes Trash' 'Squirrel';@pushlist 'FletchCarp Recipes Trash' 'Staff';@pushlist 'FletchCarp Recipes Trash' 'East';@pushlist 'FletchCarp Recipes Trash' 'West';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;endif;if not timerexists 'feedPet';createtimer 'feedPet';endif;if not timerexists 'Carpentry';createtimer 'Carpentry';endif;if not timerexists 'carptry';createtimer 'carptry';endif;if not timerexists 'toggletimeout';createtimer 'toggletimeout';endif;//stop if you lack skills;if skill 'Carpentry' &lt; 30 or skill 'Tinkering' &lt; 45;sysmsg 'You need 36 Carpentry and 50+ tinkering to run this macro effectively.' 34;stop;elseif skill 'Bowcraft' &lt; 90;sysmsg 'You need at least 90 (preferrably 100) bowcrafting to run this macro. You will also want a Fletching bonus talisman' 34;stop;endif;//stop macro if you forgot to restock bolts or ingots or have no tinker tools;if counttype 0x1bf2 0 'backpack' == 0 and not @inrange 'FletcherDropoff' 2;sysmsg 'Restock ingots before starting!' 33;stop;endif;if counttype 0x1bfb 0 'backpack' == 0 and counttype 0x1bfb 1258 'backpack' == 0;if not @inrange 'FletcherDropoff' 2;sysmsg 'Restock bolts before starting!' 33;stop;endif;endif;if @counttype 0x1eb8 0 'backpack' == 0;sysmsg 'Get crafted tinker tools before starting!' 33;stop;endif;// make tinker tools;if @counttype 0x1eb8 0 'backpack' &lt; 2 and not @inrange 'FletcherDropoff' 2;pause 550;while @counttype 0x1eb8 0 'backpack' &lt; 2;usetype! 0x1eb8;waitforgump 0x38920abd 2000;@replygump 0x38920abd 8;waitforgump 0x38920abd 2000;@replygump 0x38920abd 23;endwhile;endif;//make saws;if @counttype 0x1034 0 'backpack' &lt; 3 and not @inrange 'FletcherDropoff' 2;while @counttype 0x1034 0 'backpack' &lt; 3;pause 550;usetype! 0x1eb8;waitforgump 0x38920abd 2000;@replygump 0x38920abd 8;waitforgump 0x38920abd 2000;@replygump 0x38920abd 51;waitforgump 0x38920abd 2000;endwhile;endif;// make plain fletcher kits;if @counttype 0x1022 0 'backpack' &lt; 3 and not @inrange 'FletcherDropoff' 2;while @counttype 0x1022 0 'backpack' &lt; 3;pause 550;usetype! 0x1eb8;waitforgump 0x38920abd 2000;@replygump 0x38920abd 8;waitforgump 0x38920abd 2000;@replygump 0x38920abd 142;endwhile;endif;for 0 to 'magechiv';for 0 to 'magechiv2';for 0 to 'bond';for 0 to 'woodhue';if @findtype 0xe75 'any' 'backpack' and not @inrange 'FletcherDropoff' 2;if @injournal 'The world will save in 10 seconds.' 'system';while not @injournal 'world save complete' 'system';endwhile;@clearjournal;endif;// Handle reward bags;while @findtype 0xe75 'any' 'backpack';pause 550;@setalias 'trash' 'found';@useobject! 'trash';pause 550;//FletchCarp Recipes;//if @findtype 0x2831 0 'trash';// movetype 0x2831 'trash' 'backpack' [0 0 0] 0 'any' 'any';// Move quivers to trash;// while @findtype 0x2831 0 'backpack';// for 0 to 'FletchCarp Recipes Trash';// waitforproperties 'found' 15000;// if @property 'FletchCarp Recipes Trash[]' 'found';// @moveitem! 'found' 'Trash Barrel';// pause 1000;// break;// endif;// endfor;// ignoreobject 'found';// endwhile;// endif;// fletcher Runics;while @findtype 0x1022 'any' 'trash';@moveitem! 'found' 'backpack';pause 1000;if color 'found' == 2010;//uncomment this next line to throw Oak kits in the trash;@moveitem! 'found' 'Trash Barrel';pause 550;elseif color 'found' == 1191;//uncomment this next line to throw Ash kits in the trash;@moveitem! 'found' 'Trash Barrel';pause 550;elseif color 'found' == 1192;sysmsg 'Nice, a Yew kit' 33;elseif color 'found' == 1193;sysmsg 'Woohoo! Heartwood!' 63;endif;ignoreobject 'found';endwhile;//runic saws;while @findtype 0x1028 'any' 'trash';@moveitem! 'found' 'backpack';pause 1000;if color 'found' == 2010;//uncomment this next line to throw Oak saws in the trash;@moveitem! 'found' 'Trash Barrel';pause 550;elseif color 'found' == 1191;//uncomment this next line to throw Ash saws in the trash;//@moveitem! 'found' 'Trash Barrel';pause 550;elseif color 'found' == 1192;sysmsg 'Nice, a Yew saw' 33;elseif color 'found' == 1193;for 10;sysmsg 'Woohoo! Heartwood!' 63;endfor;endif;ignoreobject 'found';endwhile;// Talismans;for 0 to 'Talismans';while @findtype Talismans[] 0 'trash';waitforproperties 'found' 15000;//crafting bonus and exceptional bonus talismans;if @property 'Tinkering Exceptional Bonus' 'found' >= 23 and @property 'Tinkering Bonus' 'found' >= 23;@moveitem! 'found' 'backpack';pause 1000;break;elseif @property 'Alchemy Bonus' 'found' >= 30 or @property 'Fletching Bonus' 'found' >= 30;@moveitem! 'found' 'backpack';pause 1000;break;elseif @property 'Fletching Exceptional Bonus' 'found' >= 23 and @property 'Fletching Bonus' 'found' >= 23;@moveitem! 'found' 'backpack';pause 1000;break;elseif @property 'Tailoring Exceptional Bonus' 'found' >= 23 and @property 'Tailoring Bonus' 'found' >= 23;@moveitem! 'found' 'backpack';pause 1000;break;elseif @property 'Carpentry Exceptional Bonus' 'found' >= 23 and @property 'Carpentry Bonus' 'found' >= 23;@moveitem! 'found' 'backpack';pause 1000;break;elseif @property 'Inscription Bonus' 'found' >= 30 or @property 'Cooking Bonus' 'found' >= 30;@moveitem! 'found' 'backpack';pause 1000;break;elseif @property 'Blacksmithing Exceptional Bonus' 'found' >= 23 and @property 'Blacksmithing Bonus' 'found' >= 23;@moveitem! 'found' 'backpack';pause 1000;break;endif;//get slayers;for 0 to 'Slayers';if @property Slayers[] 'found';@moveitem! 'found' 'backpack';pause 1000;break;endif;endfor;//get killers;for 0 to 'Killers';if @property Killers[] 'found' >= 98;@moveitem! 'found' 'backpack';pause 1000;break;endif;endfor;//get protections;for 0 to 'Protection';if @property Protection[] 'found' >= 59;@moveitem! 'found' 'backpack';pause 1000;break;endif;endfor;ignoreobject 'found';endwhile;endfor;//Jewels;for 0 to 'Jewelry';while @findtype Jewelry[] 0 'trash';waitforproperties 'found' 15000;//EP DI jewels;if @property 'Enhance Potions' 'found' >= 15 and @property 'Damage Increase' 'found' >= 15;@moveitem! 'found' 'backpack';pause 1000;break;endif;if @property 'Faster Cast Recovery' 'found' == 3;@moveitem! 'found' 'backpack';pause 1000;break;endif;//save 1/2 and 1/1;if @property 'Faster Cast Recovery' 'found' > 0 and @property 'Faster Casting' 'found';@moveitem! 'found' 'backpack';pause 1000;break;endif;//hci and dci jewels, other usable hci dci jewels will be captured by above;if @property 'Defense chance increase' 'found' >= 10 and @property 'Hit chance increase' 'found' >= 5;@moveitem! 'found' 'backpack';pause 1000;break;endif;if @property 'Hit chance increase' 'found' >= 10 and @property 'Defense chance increase' 'found' >= 5;@moveitem! 'found' 'backpack';pause 1000;break;endif;ignoreobject 'found';endwhile;endfor;//clear the ignore list so it doesn't skip items at dropoff;clearignorelist;if @inrange 'Trash Barrel' 2;@moveitem! 'trash' 'Trash Barrel';pause 550;else;@unsetalias 'dump';while @findtype 0xe75 'any' 'ground' 1 2 and not @findalias 'dump';waitforproperties 'found' 5000;if @property 'items' 'found' &lt; 115;@setalias 'dump' 'found';else;@ignoreobject 'found';endif;endwhile;if @findalias 'dump';@moveitem 'trash' 'dump';pause 550;else;moveitemoffset 'trash' 'ground' [(0 1 0)];pause 550;endif;endwhile;endif;elseif @inrange 'FletcherDropoff' 2;//open containers;useobject 'self';pause 1000;useobject 'FletcherDropoff';pause 1000;waitforcontext 'beetle' bond[] 15000;pause 1000;//unload jewels;while counttype 0x108a 'any' 'backpack' > 0;movetype 0x108a 'backpack' 'FletcherDropoff';pause 500;endwhile;while counttype 0x1f09 'any' 'backpack' > 0;movetype 0x1f09 'backpack' 'FletcherDropoff';pause 500;endwhile;while counttype 0x1f06 'any' 'backpack' > 0;movetype 0x1f06 'backpack' 'FletcherDropoff';pause 500;endwhile;while counttype 0x1086 'any' 'backpack' > 0;movetype 0x1086 'backpack' 'FletcherDropoff';pause 500;endwhile;//unload saws;while counttype 0x1028 1191 'backpack' > 0;movetype 0x1028 'backpack' 'FletcherDropoff' (0 0 0) 1191 1;pause 500;endwhile;while counttype 0x1028 2010 'backpack' > 0;movetype 0x1028 'backpack' 'FletcherDropoff' (0 0 0) 2010 1;pause 500;endwhile;while counttype 0x1028 1192 'backpack' > 0;movetype 0x1028 'backpack' 'FletcherDropoff' (0 0 0) 1192 1;pause 500;endwhile;while counttype 0x1028 1193 'backpack' > 0;movetype 0x1028 'backpack' 'FletcherDropoff' (0 0 0) 1193 1;pause 500;endwhile;//unload talismans;while counttype 0x2f58 0 'backpack' > 0;movetype 0x2f58 'backpack' 'FletcherDropoff' (0 0 0) 0 1;pause 500;endwhile;while counttype 0x2f59 0 'backpack' > 0;movetype 0x2f59 'backpack' 'FletcherDropoff' (0 0 0) 0 1;pause 500;endwhile;while counttype 0x2f5a 0 'backpack' > 0;movetype 0x2f5a 'backpack' 'FletcherDropoff' (0 0 0) 0 1;pause 500;endwhile;while counttype 0x2f5b 0 'backpack' > 0;movetype 0x2f5b 'backpack' 'FletcherDropoff' (0 0 0) 0 1;pause 500;endwhile;//unload kits;while counttype 0x1022 1191 'backpack' > 0;movetype 0x1022 'backpack' 'FletcherDropoff' (0 0 0) 1191 1;pause 500;endwhile;while counttype 0x1022 2010 'backpack' > 0;movetype 0x1022 'backpack' 'FletcherDropoff' (0 0 0) 2010 1;pause 500;endwhile;while counttype 0x1022 1192 'backpack' > 0;movetype 0x1022 'backpack' 'FletcherDropoff' (0 0 0) 1192 1;pause 500;endwhile;while counttype 0x1022 1193 'backpack' > 0;movetype 0x1022 'backpack' 'FletcherDropoff' (0 0 0) 1193 1;pause 500;endwhile;//get more bolts;if counttype 0x1bfb 0 'backpack' &lt; 130;if counttype 0x1bfb 0 'FletcherDropoff' &lt; 200;sysmsg 'Out of Bolts!' 33;useobject 'beetle';stop;endif;movetype 0x1bfb 'FletcherDropoff' 'backpack' (0 0 0) 0 200;pause 1000;endif;// get ingots if low;if counttype 0x1bf2 0 'backpack' &lt; 20;if counttype 0x1bf2 0 'FletcherDropoff' &lt; 40;sysmsg 'Out of Ingots!' 33;useobject 'beetle';stop;endif;movetype 0x1bf2 'FletcherDropoff' 'backpack' (0 0 0) 0 40;pause 1000;endif;//get boards on beetle and self;//first make sure beetle is empty, sometimes UOS won't pull 200 boards and you end up with odd number left behind;if counttype 0x1bd7 'any' 'beetle' > 0;while counttype 0x1bd7 'any' 'beetle' > 1599;movetype 0x1bd7 'beetle' 'FletcherDropoff' [(0 0 0)] 'any' 1600;pause 500;endwhile;while counttype 0x1bd7 'any' 'beetle' > 499;movetype 0x1bd7 'beetle' 'FletcherDropoff' [(0 0 0)] 'any' 500;pause 500;endwhile;while counttype 0x1bd7 'any' 'beetle' > 99;movetype 0x1bd7 'beetle' 'FletcherDropoff' [(0 0 0)] 'any' 100;pause 500;endwhile;while counttype 0x1bd7 'any' 'beetle' > 24;movetype 0x1bd7 'beetle' 'FletcherDropoff' [(0 0 0)] 'any' 25;pause 500;endwhile;while counttype 0x1bd7 'any' 'beetle' > 4;movetype 0x1bd7 'beetle' 'FletcherDropoff' [(0 0 0)] 'any' 5;pause 500;endwhile;while counttype 0x1bd7 'any' 'beetle' > 0;movetype 0x1bd7 'beetle' 'FletcherDropoff' [(0 0 0)] 'any' 1;pause 500;endwhile;endif;//stop if FletcherDropoff is out of boards;if counttype 0x1bd7 woodhue[] 'FletcherDropoff' &lt; 1900;sysmsg 'Out of Boards!' 33;useobject 'beetle';@playmacro 'Lumberjacking';while counttype 0x1bd7 woodhue[] 'FletcherDropoff' &lt; 1900;stop;endwhile;endif;//fill beetle with boards;if mounted 'self';pause 550;useobject 'self';pause 1000;waitforcontext 'beetle' bond[] 15000;endif;movetype 0x1bd7 'FletcherDropoff' 'beetle' (0 0 0) woodhue[] 1600;pause 1000;//move boards to your pack based on how low your pack is;//max weight minus 350;if weight &lt; 175;movetype 0x1bd7 'FletcherDropoff' 'backpack' (0 0 0) woodhue[] 330;pause 1000;//max weight minus 300;elseif weight &lt; 225;movetype 0x1bd7 'FletcherDropoff' 'backpack' (0 0 0) woodhue[] 280;pause 1000;//max weight minus 250;elseif weight &lt; 275;movetype 0x1bd7 'FletcherDropoff' 'backpack' (0 0 0) woodhue[] 230;pause 1000;//max weight minus 200;elseif weight &lt; 325;movetype 0x1bd7 'FletcherDropoff' 'backpack' (0 0 0) woodhue[] 180;pause 1000;//max weight minus 150;elseif weight &lt; 375;movetype 0x1bd7 'FletcherDropoff' 'backpack' (0 0 0) woodhue[] 130;pause 1000;//max weight minus 100;elseif weight &lt; 425;movetype 0x1bd7 'FletcherDropoff' 'backpack' (0 0 0) woodhue[] 80;pause 1000;elseif counttype 0x1bd7 woodhue[] 'backpack' &lt; 1;movetype 0x1bd7 'FletcherDropoff' 'backpack' (0 0 0) woodhue[] 1;pause 1000;endif;//set fletching kits and saws to correct wood type;if @findtype 0x1bd7 0 'backpack';pause 550;usetype! 0x1022;waitforgump 0x38920abd 1000;@replygump 0x38920abd 7;waitforgump 0x38920abd 1000;@replygump 0x38920abd 6;waitforgump 0x38920abd 1000;pause 550;usetype! 0x1034;waitforgump 0x38920abd 1000;@replygump 0x38920abd 7;waitforgump 0x38920abd 1000;@replygump 0x38920abd 6;waitforgump 0x38920abd 1000;pause 550;//warn if other color boards, bows, stools in place;if @findtype 0x1bd7 2010 'backpack' or @findtype 0x1bd7 1191 'backpack';sysmsg 'You have two types of boards in your pack. Fix before starting macro.' 34;stop;endif;if @findtype 0x13b2 2010 'backpack' or @findtype 0x13b2 1191 'backpack';sysmsg 'Delete the different hued bows from the wood type you are trying to use before starting macro.' 34;stop;endif;if @findtype 0xf50 2010 'backpack' or @findtype 0xf50 1191 'backpack';sysmsg 'Delete the different hued crossbows from the wood type you are trying to use before starting macro.' 34;stop;endif;if @findtype 0x13fd 2010 'backpack' or @findtype 0x13fd 1191 'backpack';sysmsg 'Delete the different hued heavy crossbows from the wood type you are trying to use before starting macro.' 34;stop;endif;if @findtype 0x26c3 2010 'backpack' or @findtype 0x26c3 1191 'backpack';sysmsg 'Delete the different hued repeating crossbows from the wood type you are trying to use before starting macro.' 34;stop;endif;elseif @findtype 0x1bd7 2010 'backpack';if skill 'Carpentry' &lt; 65;sysmsg 'You need 65 Carpentry to craft with Oak' 33;stop;else;pause 550;usetype! 0x1022;waitforgump 0x38920abd 1000;@replygump 0x38920abd 7;waitforgump 0x38920abd 1000;@replygump 0x38920abd 13;waitforgump 0x38920abd 1000;pause 550;usetype! 0x1034;waitforgump 0x38920abd 1000;@replygump 0x38920abd 7;waitforgump 0x38920abd 1000;@replygump 0x38920abd 13;waitforgump 0x38920abd 1000;pause 550;//warn if other color boards, bows, stools in place;if @findtype 0x1bd7 0 'backpack' or @findtype 0x1bd7 1191 'backpack';sysmsg 'You have two types of boards in your pack. Fix before starting macro.' 34;stop;endif;if @findtype 0x13b2 0 'backpack' or @findtype 0x13b2 1191 'backpack';sysmsg 'Delete the different hued bows from the wood type you are trying to use before starting macro.' 34;stop;endif;if @findtype 0xf50 0 'backpack' or @findtype 0xf50 1191 'backpack';sysmsg 'Delete the different hued crossbows from the wood type you are trying to use before starting macro.' 34;stop;endif;if @findtype 0x13fd 0 'backpack' or @findtype 0x13fd 1191 'backpack';sysmsg 'Delete the different hued heavy crossbows from the wood type you are trying to use before starting macro.' 34;stop;endif;if @findtype 0x26c3 0 'backpack' or @findtype 0x26c3 1191 'backpack';sysmsg 'Delete the different hued repeating crossbows from the wood type you are trying to use before starting macro.' 34;stop;endif;endif;elseif @findtype 0x1bd7 1191 'backpack';if skill 'Carpentry' &lt; 80;sysmsg 'You need 80 Carpentry to craft with Ash' 33;stop;else;pause 550;usetype! 0x1022;waitforgump 0x38920abd 2000;@replygump 0x38920abd 7;waitforgump 0x38920abd 2000;@replygump 0x38920abd 20;waitforgump 0x38920abd 2000;pause 550;usetype! 0x1034;waitforgump 0x38920abd 2000;@replygump 0x38920abd 7;waitforgump 0x38920abd 2000;@replygump 0x38920abd 20;waitforgump 0x38920abd 2000;pause 550;//warn if other color boards, bows, stools in place;if @findtype 0x1bd7 2010 'backpack' or @findtype 0x1bd7 0 'backpack';sysmsg 'You have two types of boards in your pack. Fix before starting macro.' 34;stop;endif;if @findtype 0x13b2 2010 'backpack' or @findtype 0x13b2 0 'backpack';sysmsg 'Delete the different hued bows from the wood type you are trying to use before starting macro.' 34;stop;endif;if @findtype 0xf50 2010 'backpack' or @findtype 0xf50 0 'backpack';sysmsg 'Delete the different hued crossbows from the wood type you are trying to use before starting macro.' 34;stop;endif;if @findtype 0x13fd 2010 'backpack' or @findtype 0x13fd 0 'backpack';sysmsg 'Delete the different hued heavy crossbows from the wood type you are trying to use before starting macro.' 34;stop;endif;if @findtype 0x26c3 2010 'backpack' or @findtype 0x26c3 0 'backpack';sysmsg 'Delete the different hued repeating crossbows from the wood type you are trying to use before starting macro.' 34;stop;endif;endif;endif;//mount beetle and recall back to heartwood;if @injournal 'The world will save in 10 seconds.' 'system';while not @injournal 'world save complete' 'system';endwhile;@clearjournal;endif;useobject 'beetle';pause 2000;@unsetalias 'restockyes';useobject 'FletcherRunebook';waitforgump 0x554b87f3 15000;@replygump 0x554b87f3 magechiv2[];pause 2000;//if the rune is blocked, pause 2 min to give time for NPCs to move, this prevents the character from running across the world from your dropoff;if @injournal 'blocked' 'system';sysmsg 'Rune blocked, trying again in 2 minutes' 33;pause 120000;@clearjournal;useobject 'FletcherRunebook';waitforgump 0x554b87f3 15000;@replygump 0x554b87f3 magechiv2[];pause 2000;//if it's still blocked, stop macro;if @injournal 'blocked' 'system';sysmsg 'Rune still blocked, stopping macro' 33;@clearjournal;stop;endif;endif;//navigate to heartwood entrance;while y != 992 and y > 400;for 2;if y > 992;walk 'north';endif;pause 250;if y &lt; 992;walk 'south';endif;pause 250;endfor;endwhile;if x > 535 and x &lt; 1000;while x > 535 and x &lt; 1000;run 'west';pause 100;endwhile;endif;if x &lt; 537;while x &lt; 537;run 'east';pause 100;endwhile;endif;//navigate through heartwood to quest area;while y &lt; 372;run 'southeast';//crafting while running southeast;if @findalias 'bowquesting' and not @findalias 'bowsdone';if @gumpexists 0x38920abd and not @ingump 0x38920abd 'Faerie Fire';pause 550;usetype 0x1022 0 'backpack';waitforgump 0x38920abd 2000;@replygump 0x38920abd 15;waitforgump 0x38920abd 2000;endif;endif;if @gumpexists 0x38920abd;if @ingump 0x38920abd 'Faerie Fire';if @findalias 'simplebow' and counttype 0x13b2 'any' 'backpack' &lt; 10;@replygump 0x38920abd 2;elseif @findalias 'ingenious1' and counttype 0xf50 'any' 'backpack' &lt; 10;@replygump 0x38920abd 9;elseif @findalias 'ingenious2' and counttype 0x13fd 'any' 'backpack' &lt; 8;@replygump 0x38920abd 16;elseif @findalias 'ingenious3' and counttype 0x26c3 'any' 'backpack' &lt; 10;@replygump 0x38920abd 30;elseif not @findalias 'bowsdone' and @findalias 'bowquesting';if @findalias 'simplebow' and counttype 0x13b2 'any' 'backpack' > 9;@setalias 'bowsdone' 'self';elseif @findalias 'ingenious1' and counttype 0xf50 'any' 'backpack' > 9;@setalias 'bowsdone' 'self';elseif @findalias 'ingenious2' and counttype 0x13fd 'any' 'backpack' > 7;@setalias 'bowsdone' 'self';elseif @findalias 'ingenious3' and counttype 0x26c3 'any' 'backpack' > 9;@setalias 'bowsdone' 'self';endif;elseif counttype 0xb5e 'any' 'backpack' &lt; 10;pause 550;usetype 0x1034 0 'backpack';waitforgump 0x38920abd 2000;@replygump 0x38920abd 8;waitforgump 0x38920abd 2000;endif;elseif counttype 0xb5e 'any' 'backpack' &lt; 10 and @ingump 0x38920abd 'Magincia-style';@replygump 0x38920abd 2;elseif counttype 0xb5e 'any' 'backpack' &lt; 10;if x > 7026;pause 550;endif;usetype 0x1034 0 'backpack';waitforgump 0x38920abd 2000;@replygump 0x38920abd 8;waitforgump 0x38920abd 2000;endif;endif;endwhile;while y &lt; 377;run 'southwest';endwhile;pause 250;for 10;while y &lt; 378;walk 'south';pause 300;endwhile;while y > 378;walk 'north';pause 300;endwhile;endfor;if timer 'Carpentry' > 30000;while x > 7000;run 'west';endwhile;else;while x &lt; 7036;run 'east';endwhile;endif;elseif @findalias 'restockyes' and counttype 0x1bd7 woodhue[] 'backpack' &lt; 10;//leave heartwood;if not mounted 'self';useobject 'beetle';pause 1000;endif;while x &lt; 7024;run 'east';endwhile;while x > 7028;run 'west';endwhile;pause 300;while y > 343;run "Northwest";endwhile;while x &lt; 6989;walk 'east';pause 150;endwhile;while x > 6989;walk 'west';pause 150;endwhile;while y != 338 and y &lt; 600;for 10;if y > 338 and y &lt; 600;walk 'north';pause 250;endif;if y &lt; 338 and y &lt; 600;walk 'south';pause 250;endif;if x > 6989;turn 'west';walk 'west';elseif x &lt; 6989;turn 'east';walk 'east';endif;endfor;endwhile;while x > 1000;while y > 338 and y &lt; 600;turn 'north';walk 'north';pause 250;endwhile;while y &lt; 338 and y &lt; 600;turn 'south';walk 'south';pause 250;endwhile;run 'west';endwhile;//recall home;if @injournal 'The world will save in 10 seconds.' 'system';while not @injournal 'world save complete' 'system';endwhile;@clearjournal;endif;useobject 'FletcherRunebook';waitforgump 0x554b87f3 15000;@replygump 0x554b87f3 magechiv[];pause 2000;while y == 994;endwhile;elseif counttype 0x1bd7 woodhue[] 'backpack' &lt; 10;//get 200 boards from beetle;if mounted 'self';pause 550;useobject 'self';pause 1000;endif;waitforcontext 'beetle' bond[] 15000;movetype 0x1bd7 'beetle' 'backpack' [(0 0 0)] woodhue[] 200;pause 1000;if counttype 0x1bd7 woodhue[] 'beetle' &lt; 200;@setalias 'restockyes' 'self';endif;useobject 'beetle';pause 1000;elseif @inrange 'Trash Barrel' 2;//wipe aliases if it thinks you're on two quests;if @findalias 'simplebow' and @findalias 'ingenious1';@unsetalias 'bowquesting';@unsetalias 'simplebow';@unsetalias 'ingenious1';@unsetalias 'ingenious2';@unsetalias 'ingenious3';@unsetalias 'bowsdone';elseif @findalias 'simplebow' and @findalias 'ingenious2';@unsetalias 'bowquesting';@unsetalias 'simplebow';@unsetalias 'ingenious1';@unsetalias 'ingenious2';@unsetalias 'ingenious3';@unsetalias 'bowsdone';elseif @findalias 'simplebow' and @findalias 'ingenious3';@unsetalias 'bowquesting';@unsetalias 'simplebow';@unsetalias 'ingenious1';@unsetalias 'ingenious2';@unsetalias 'ingenious3';@unsetalias 'bowsdone';elseif @findalias 'ingenious1' and @findalias 'ingenious2';@unsetalias 'bowquesting';@unsetalias 'simplebow';@unsetalias 'ingenious1';@unsetalias 'ingenious2';@unsetalias 'ingenious3';@unsetalias 'bowsdone';elseif @findalias 'ingenious1' and @findalias 'ingenious3';@unsetalias 'bowquesting';@unsetalias 'simplebow';@unsetalias 'ingenious1';@unsetalias 'ingenious2';@unsetalias 'ingenious3';@unsetalias 'bowsdone';elseif @findalias 'ingenious2' and @findalias 'ingenious3';@unsetalias 'bowquesting';@unsetalias 'simplebow';@unsetalias 'ingenious1';@unsetalias 'ingenious2';@unsetalias 'ingenious3';@unsetalias 'bowsdone';endif;// Bihourly feed pet;if timer 'feedPet' >= 7200000;if mounted 'self';pause 550;useobject 'self';pause 1000;endif;feed 'beetle' 'Meat' 'any' 1;pause 500;msg 'All Follow Me' 33;if @injournal 'happier';settimer 'feedPet' 0;sysmsg 'Pet Fed' 33;@clearjournal;else;sysmsg 'Out of Meat!' 33;//make meat and trash rest;if skill 'magery' > 50;for 25;cast 'create food';pause 300;endfor;while counttype 0x9eb 0 'backpack' > 0;movetype 0x9eb 'backpack' 'Trash Barrel';endwhile;while counttype 0x9d1 0 'backpack' > 0;movetype 0x9d1 'backpack' 'Trash Barrel';endwhile;while counttype 0x9d0 0 'backpack' > 0;movetype 0x9d0 'backpack' 'Trash Barrel';endwhile;while counttype 0x9d2 0 'backpack' > 0;movetype 0x9d2 'backpack' 'Trash Barrel';endwhile;while counttype 0x97d 0 'backpack' > 0;movetype 0x97d 'backpack' 'Trash Barrel';endwhile;while counttype 0x97b 0 'backpack' > 0;movetype 0x97b 'backpack' 'Trash Barrel';endwhile;else;stop;endif;endif;pause 550;useobject 'beetle';pause 1000;endif;//get a quest if not on one;if not findalias 'bowquesting';@useobject 'Fletching Quest Giver';waitforgump 0x19bc4061 1000;if @ingump 0x19bc4061 'crafted in the human style' or @ingump 0xa8b319c6 'debt if you bring me bows';if @gumpexists 0x19bc4061;@replygump 0x19bc4061 1;endif;@setalias 'simplebow' 'self';@setalias 'bowquesting' 'self';pause 550;elseif @ingump 0x19bc4061 'such an instrument for me?' or @ingump 0xa8b319c6 'debt if you bring me crossbows';if @gumpexists 0x19bc4061;@replygump 0x19bc4061 1;endif;@setalias 'ingenious1' 'self';@setalias 'bowquesting' 'self';pause 550;elseif @ingump 0x19bc4061 'remarkable instrument of war' or @ingump 0xa8b319c6 'debt if you bring me heavy crossbows';if @gumpexists 0x19bc4061;@replygump 0x19bc4061 1;endif;@setalias 'ingenious2' 'self';@setalias 'bowquesting' 'self';pause 550;elseif @ingump 0x19bc4061 'remarkable human ingenuity' or @ingump 0xa8b319c6 'debt if you bring me repeating crossbows';if @gumpexists 0x19bc4061;@replygump 0x19bc4061 1;endif;@setalias 'ingenious3' 'self';@setalias 'bowquesting' 'self';pause 550;elseif @ingump 0x19bc4061 'deadly crossbow bolt' or @ingump 0xa8b319c6 'debt if you bring me crossbow bolts';if @findtype 0x1bfb 'any' 'backpack' 10;@replygump 0x19bc4061 1;pause 550;if color 'found' == 0;waitforcontext 'self' 4 5000;waitfortarget 5000;Target! 'found';waitfortarget 5000;endif;endif;@canceltarget;pause 500;@useobject! 'Fletching Quest Giver';waitforgump 0xdf31ecf8 5000;@replygump 0xdf31ecf8 4;waitforgump 0x96626c6e 15000;@replygump 0x96626c6e 1;elseif @ingump 0xdf31ecf8 'My thanks';replygump 0xdf31ecf8 4;waitforgump 0x96626c6e 3000;replygump 0x96626c6e 1;elseif @gumpexists 0x96626c6e;replygump 0x96626c6e 1;elseif @ingump 0x19bc4061 'melodious of muisc';@replygump 0x19bc4061 2;waitforgump 0xa8b319c6 15000;@replygump 0xa8b319c6 3;endif;endif;//trigger to go check stool quest every 30 seconds;if timer 'Carpentry' > 146000;setalias 'checkcarp' 'self';sysmsg '150' 34;elseif timer 'Carpentry' > 118000 and not @findalias '120no';setalias 'checkcarp' 'self';sysmsg '120' 34;elseif timer 'Carpentry' > 88000 and not @findalias '90no';setalias 'checkcarp' 'self';sysmsg '90' 34;elseif timer 'Carpentry' > 58000 and not @findalias '60no';setalias 'checkcarp' 'self';sysmsg '60' 34;elseif timer 'Carpentry' > 28000 and not @findalias '30no';setalias 'checkcarp' 'self';sysmsg '30' 34;endif;if @gumpexists 0xa8b319c6;@replygump 0xa8b319c6 3;endif;//complete quests if you have enough bows crafted;if counttype 0x13b2 'any' 'backpack' > 9 and @findalias 'simplebow';waitforcontext 'self' 4 5000;waitfortarget 5000;settimer 'toggletimeout' 0;while @counttype 0x13b2 0x4ea 'backpack' != 10 and timer 'toggletimeout' &lt; 5000;@targettype 0x13b2 woodhue[];pause 150;endwhile;@canceltarget;pause 500;@useobject! 'Fletching Quest Giver';waitforgump 0xdf31ecf8 2000;@replygump 0xdf31ecf8 4;waitforgump 0x96626c6e 2000;@replygump 0x96626c6e 1;@unsetalias 'simplebow';@unsetalias 'bowquesting';@unsetalias 'bowsdone';pause 1000;elseif counttype 0xf50 'any' 'backpack' > 9 and @findalias 'ingenious1';waitforcontext 'self' 4 5000;waitfortarget 5000;settimer 'toggletimeout' 0;while @counttype 0xf50 0x4ea 'backpack' != 10 and timer 'toggletimeout' &lt; 5000;@targettype 0xf50 woodhue[];pause 150;endwhile;@canceltarget;pause 500;@useobject! 'Fletching Quest Giver';waitforgump 0xdf31ecf8 2000;@replygump 0xdf31ecf8 4;waitforgump 0x96626c6e 2000;@replygump 0x96626c6e 1;@unsetalias 'ingenious1';@unsetalias 'bowquesting';@unsetalias 'bowsdone';pause 1000;elseif counttype 0x13fd 'any' 'backpack' > 7 and @findalias 'ingenious2';waitforcontext 'self' 4 5000;waitfortarget 5000;settimer 'toggletimeout' 0;while @counttype 0x13fd 0x4ea 'backpack' != 8 and timer 'toggletimeout' &lt; 5000;@targettype 0x13fd woodhue[];pause 150;endwhile;@canceltarget;pause 500;@useobject! 'Fletching Quest Giver';waitforgump 0xdf31ecf8 2000;@replygump 0xdf31ecf8 4;waitforgump 0x96626c6e 2000;@replygump 0x96626c6e 1;@unsetalias 'ingenious2';@unsetalias 'bowquesting';@unsetalias 'bowsdone';pause 1000;elseif counttype 0x26c3 'any' 'backpack' > 9 and @findalias 'ingenious3';waitforcontext 'self' 4 5000;waitfortarget 5000;settimer 'toggletimeout' 0;while @counttype 0x26c3 0x4ea 'backpack' != 10 and timer 'toggletimeout' &lt; 5000;@targettype 0x26c3 woodhue[];pause 150;endwhile;@canceltarget;pause 500;@useobject! 'Fletching Quest Giver';waitforgump 0xdf31ecf8 2000;@replygump 0xdf31ecf8 4;waitforgump 0x96626c6e 2000;@replygump 0x96626c6e 1;@unsetalias 'ingenious3';@unsetalias 'bowquesting';@unsetalias 'bowsdone';pause 1000;//if you have trigger to go check carpentry, run west;elseif @findalias 'checkcarp' and timer 'Carpentry' > 25000;while @findtype '0x1bd7' woodhue[] 'ground' 30 2 and counttype '0x1bd7' woodhue[] 'backpack' &lt; 190;moveitem 'found' 'backpack';pause 550;endwhile;if counttype 0x1bd7 woodhue[] 'backpack' &lt; 50 and not @findalias 'restockyes';//get 200 boards from beetle;if mounted 'self';pause 550;useobject 'self';pause 1000;endif;waitforcontext 'beetle' bond[] 15000;movetype 0x1bd7 'beetle' 'backpack' [(0 0 0)] woodhue[] 200;pause 1000;if counttype 0x1bd7 woodhue[] 'beetle' &lt; 200;@setalias 'restockyes' 'self';endif;useobject 'beetle';pause 1000;endif;if @gumpexists 0x19bc4061;@replygump 0x19bc4061 2;waitforgump 0xa8b319c6 1000;@replygump 0xa8b319c6 3;endif;while maxweight &lt; weight;movetypeoffset 0x1bd7 'backpack' 'ground' [(0 2 0)] woodhue[] 30;pause 550;endwhile;while x > 7000;run 'west';//craft while running west;if @findalias 'bowquesting' and not @findalias 'bowsdone';if @gumpexists 0x38920abd and not @ingump 0x38920abd 'Faerie Fire';pause 550;usetype 0x1022 0 'backpack';waitforgump 0x38920abd 2000;@replygump 0x38920abd 15;waitforgump 0x38920abd 2000;endif;endif;if @gumpexists 0x38920abd;if @ingump 0x38920abd 'Faerie Fire';if @findalias 'simplebow' and counttype 0x13b2 'any' 'backpack' &lt; 10;@replygump 0x38920abd 2;elseif @findalias 'ingenious1' and counttype 0xf50 'any' 'backpack' &lt; 10;@replygump 0x38920abd 9;elseif @findalias 'ingenious2' and counttype 0x13fd 'any' 'backpack' &lt; 8;@replygump 0x38920abd 16;elseif @findalias 'ingenious3' and counttype 0x26c3 'any' 'backpack' &lt; 10;@replygump 0x38920abd 30;elseif not @findalias 'bowsdone' and @findalias 'bowquesting';if @findalias 'simplebow' and counttype 0x13b2 'any' 'backpack' > 9;@setalias 'bowsdone' 'self';elseif @findalias 'ingenious1' and counttype 0xf50 'any' 'backpack' > 9;@setalias 'bowsdone' 'self';elseif @findalias 'ingenious2' and counttype 0x13fd 'any' 'backpack' > 7;@setalias 'bowsdone' 'self';elseif @findalias 'ingenious3' and counttype 0x26c3 'any' 'backpack' > 9;@setalias 'bowsdone' 'self';endif;elseif counttype 0xb5e 'any' 'backpack' &lt; 10;if x > 7026;pause 550;endif;usetype 0x1034 0 'backpack';waitforgump 0x38920abd 2000;@replygump 0x38920abd 8;waitforgump 0x38920abd 2000;endif;elseif counttype 0xb5e 'any' 'backpack' &lt; 10 and @ingump 0x38920abd 'Magincia-style';@replygump 0x38920abd 2;elseif counttype 0xb5e 'any' 'backpack' &lt; 10;if x > 7026;pause 550;endif;usetype 0x1034 0 'backpack';waitforgump 0x38920abd 2000;@replygump 0x38920abd 8;waitforgump 0x38920abd 2000;endif;endif;endwhile;else;//at fletcher and not time for carp, craft bows;if @findalias 'simplebow' and counttype 0x13b2 'any' 'backpack' &lt; 10;if not @gumpexists 0x38920abd;usetype 0x1022 0 'backpack';waitforgump 0x38920abd 2000;endif;if @gumpexists 0x38920abd and not @ingump 0x38920abd 'Faerie Fire';usetype 0x1022 0 'backpack';waitforgump 0x38920abd 2000;@replygump 0x38920abd 15;waitforgump 0x38920abd 2000;endif;@replygump 0x38920abd 2;waitforgump 0x38920abd 2000;elseif @findalias 'ingenious1' and counttype 0xf50 'any' 'backpack' &lt; 10;if not @gumpexists 0x38920abd;usetype 0x1022 0 'backpack';waitforgump 0x38920abd 2000;endif;if @gumpexists 0x38920abd and not @ingump 0x38920abd 'Faerie Fire';usetype 0x1022 0 'backpack';waitforgump 0x38920abd 2000;@replygump 0x38920abd 15;waitforgump 0x38920abd 2000;endif;@replygump 0x38920abd 9;waitforgump 0x38920abd 2000;elseif @findalias 'ingenious2' and counttype 0x13fd 'any' 'backpack' &lt; 8;if not @gumpexists 0x38920abd;usetype 0x1022 0 'backpack';waitforgump 0x38920abd 2000;endif;if @gumpexists 0x38920abd and not @ingump 0x38920abd 'Faerie Fire';usetype 0x1022 0 'backpack';waitforgump 0x38920abd 2000;@replygump 0x38920abd 15;waitforgump 0x38920abd 2000;endif;@replygump 0x38920abd 16;waitforgump 0x38920abd 2000;elseif @findalias 'ingenious3' and counttype 0x26c3 'any' 'backpack' &lt; 10;if not @gumpexists 0x38920abd;usetype 0x1022 0 'backpack';waitforgump 0x38920abd 2000;endif;if @gumpexists 0x38920abd and not @ingump 0x38920abd 'Faerie Fire';usetype 0x1022 0 'backpack';waitforgump 0x38920abd 2000;@replygump 0x38920abd 15;waitforgump 0x38920abd 2000;endif;@replygump 0x38920abd 30;waitforgump 0x38920abd 2000;elseif counttype 0xb5e 'any' 'backpack' &lt; 10 and @ingump 0x38920abd 'Magincia-style';@replygump 0x38920abd 2;waitforgump 0x38920abd 2000;elseif counttype 0xb5e 'any' 'backpack' &lt; 10;pause 550;usetype 0x1034 0 'backpack';waitforgump 0x38920abd 2000;@replygump 0x38920abd 8;waitforgump 0x38920abd 2000;endif;endif;elseif @inrange 'Carpentry Quest Giver ' 10;if timer 'Carpentry' > 30000;settimer 'carptry' 0;@unsetalias 'checkcarp';usetype 0x1022 0 'backpack';//try to get footstools for 5 seconds;while timer 'carptry' &lt; 5000 and not @ingump 0x19bc4061 'foot stools';if @gumpexists 0xa8b319c6;settimer 'carptry' 5500;endif;@useobject 'Carpentry Quest Giver';//craft while trying quest;if @gumpexists 0xdf31ecf8;replygump 0xdf31ecf8 4;waitforgump 0x96626c6e 5000;replygump 0x96626c6e 1;endif;if @findalias 'bowquesting' and not @findalias 'bowsdone';if @gumpexists 0x38920abd and not @ingump 0x38920abd 'Faerie Fire';pause 550;usetype 0x1022 0 'backpack';waitforgump 0x38920abd 2000;@replygump 0x38920abd 15;waitforgump 0x38920abd 2000;endif;endif;if @gumpexists 0x38920abd;if @ingump 0x38920abd 'Faerie Fire';if @findalias 'simplebow' and counttype 0x13b2 'any' 'backpack' &lt; 10;@replygump 0x38920abd 2;elseif @findalias 'ingenious1' and counttype 0xf50 'any' 'backpack' &lt; 10;@replygump 0x38920abd 9;elseif @findalias 'ingenious2' and counttype 0x13fd 'any' 'backpack' &lt; 8;@replygump 0x38920abd 16;elseif @findalias 'ingenious3' and counttype 0x26c3 'any' 'backpack' &lt; 10;@replygump 0x38920abd 30;elseif not @findalias 'bowsdone' and @findalias 'bowquesting';if @findalias 'simplebow' and counttype 0x13b2 'any' 'backpack' > 9;@setalias 'bowsdone' 'self';elseif @findalias 'ingenious1' and counttype 0xf50 'any' 'backpack' > 9;@setalias 'bowsdone' 'self';elseif @findalias 'ingenious2' and counttype 0x13fd 'any' 'backpack' > 7;@setalias 'bowsdone' 'self';elseif @findalias 'ingenious3' and counttype 0x26c3 'any' 'backpack' > 9;@setalias 'bowsdone' 'self';endif;elseif counttype 0xb5e 'any' 'backpack' &lt; 10;waitforgump 0x38920abd 2000;pause 550;usetype 0x1034 0 'backpack';waitforgump 0x38920abd 2000;@replygump 0x38920abd 8;waitforgump 0x38920abd 2000;endif;elseif counttype 0xb5e 'any' 'backpack' &lt; 10 and @ingump 0x38920abd 'Magincia-style';@replygump 0x38920abd 2;elseif counttype 0xb5e 'any' 'backpack' &lt; 10;pause 550;usetype 0x1034 0 'backpack';waitforgump 0x38920abd 2000;@replygump 0x38920abd 8;waitforgump 0x38920abd 2000;endif;endif;endwhile;if timer 'Carpentry' > 150000 and not @gumpexists 0xa8b319c6;while not @ingump 0x19bc4061 'foot stools' and not @ingump 0xdf31ecf8 'my thanks';@useobject 'Carpentry Quest Giver';if timer 'carptry' > 20000;break;endif;endwhile;endif;if @gumpexists 0xdf31ecf8;replygump 0xdf31ecf8 4;waitforgump 0x96626c6e 5000;replygump 0x96626c6e 1;elseif @gumpexists 0x96626c6e;replygump 0x96626c6e 1;endif;if @gumpexists 0xa8b319c6 or @ingump 0x19bc4061 'just for weary toes';if @gumpexists 0x19bc4061 and @ingump 0x19bc4061 'just for weary toes';@replygump 0x19bc4061 1;endif;if not @findalias 'restockyes';while @counttype 0xb5e 'any' 'backpack' &lt; 10;//get 200 boards from beetle if needed;while counttype 0x1bd7 woodhue[] 'backpack' &lt; 10 and not @findalias 'restockyes';if mounted 'self';pause 550;useobject 'self';pause 1000;endif;waitforcontext 'beetle' bond[] 15000;movetype 0x1bd7 'beetle' 'backpack' [(0 0 0)] woodhue[] 200;pause 1000;if counttype 0x1bd7 woodhue[] 'beetle' &lt; 200;@setalias 'restockyes' 'self';endif;useobject 'beetle';pause 1000;endwhile;if @gumpexists 0x38920abd and @ingump 0x38920abd 'Magincia-style';@replygump 0x38920abd 2;waitforgump 0x38920abd 2000;else;waitforgump 0x38920abd 2000;pause 550;usetype 0x1034 0 'backpack';waitforgump 0x38920abd 2000;@replygump 0x38920abd 8;waitforgump 0x38920abd 2000;endif;endwhile;waitforcontext 'self' 4 5000;waitfortarget 5000;settimer 'toggletimeout' 0;while @counttype 0xb5e 1258 'backpack' != 10 and timer 'toggletimeout' &lt; 5000;@targettype 0xb5e 0;@targettype 0xb5e 2010;@targettype 0xb5e 1191;pause 150;endwhile;@canceltarget;pause 500;@useobject! 'Carpentry Quest Giver';waitforgump 0xdf31ecf8 5000;@replygump 0xdf31ecf8 4;waitforgump 0x96626c6e 5000;@replygump 0x96626c6e 1;pause 300;settimer 'Carpentry' 0;@unsetalias '30no';@unsetalias '60no';@unsetalias '90no';@unsetalias '120no';else;//if not enough boards then craft til you're out;while @counttype 0x1bd7 woodhue[] 'backpack' > 9 and @counttype 0xb5e 'any' 'backpack' &lt; 10;usetype 0x1034 0 'backpack';waitforgump 0x38920abd 2000;@replygump 0x38920abd 8;waitforgump 0x38920abd 2000;@replygump 0x38920abd 2;waitforgump 0x38920abd 2000;endwhile;if @counttype 0xb5e 'any' 'backpack' > 9;waitforcontext 'self' 4 5000;waitfortarget 5000;settimer 'toggletimeout' 0;while @counttype 0xb5e 1258 'backpack' != 10 and timer 'toggletimeout' &lt; 5000;@targettype 0xb5e 0;@targettype 0xb5e 2010;@targettype 0xb5e 1191;pause 150;endwhile;@canceltarget;pause 500;@useobject! 'Carpentry Quest Giver';waitforgump 0xdf31ecf8 5000;@replygump 0xdf31ecf8 4;waitforgump 0x96626c6e 5000;@replygump 0x96626c6e 1;pause 300;settimer 'Carpentry' 0;@unsetalias '30no';@unsetalias '60no';@unsetalias '90no';@unsetalias '120no';endif;endif;else;//if no quest yet, mark that time as no;if timer 'Carpentry' > 120000;setalias '120no' 'self';@setalias '90no' 'self';@setalias '60no' 'self';@setalias '30no' 'self';elseif timer 'Carpentry' > 90000;setalias '90no' 'self';@setalias '60no' 'self';@setalias '30no' 'self';elseif timer 'Carpentry' > 60000;setalias '60no' 'self';@setalias '30no' 'self';elseif timer 'Carpentry' > 30000;setalias '30no' 'self';endif;endif;endif;if @gumpexists 0x19bc4061;@replygump 0x19bc4061 2;waitforgump 0xa8b319c6 1000;@replygump 0xa8b319c6 3;endif;while @findtype '0x1bd7' woodhue[] 'ground' 30 2 and counttype '0x1bd7' woodhue[] 'backpack' &lt; 190;moveitem 'found' 'backpack';pause 550;endwhile;if counttype 0x1bd7 woodhue[] 'backpack' &lt; 50 and not @findalias 'restockyes';//get 200 boards from beetle;if mounted 'self';pause 550;useobject 'self';pause 1000;endif;waitforcontext 'beetle' bond[] 15000;movetype 0x1bd7 'beetle' 'backpack' [(0 0 0)] woodhue[] 200;pause 1000;if counttype 0x1bd7 woodhue[] 'beetle' &lt; 200;@setalias 'restockyes' 'self';endif;useobject 'beetle';pause 1000;endif;//if dont need to restock, run east to fletcher and craft while doing it;while maxweight &lt; weight;movetypeoffset 0x1bd7 'backpack' 'ground' [(0 1 0)] woodhue[] 30;pause 550;endwhile;while x &lt; 7036;run 'east';if @findalias 'bowquesting' and not @findalias 'bowsdone';if @gumpexists 0x38920abd and not @ingump 0x38920abd 'Faerie Fire';pause 550;usetype 0x1022 0 'backpack';waitforgump 0x38920abd 2000;@replygump 0x38920abd 15;waitforgump 0x38920abd 2000;endif;endif;if @gumpexists 0x38920abd;if @ingump 0x38920abd 'Faerie Fire';if @findalias 'simplebow' and counttype 0x13b2 'any' 'backpack' &lt; 10;@replygump 0x38920abd 2;elseif @findalias 'ingenious1' and counttype 0xf50 'any' 'backpack' &lt; 10;@replygump 0x38920abd 9;elseif @findalias 'ingenious2' and counttype 0x13fd 'any' 'backpack' &lt; 8;@replygump 0x38920abd 16;elseif @findalias 'ingenious3' and counttype 0x26c3 'any' 'backpack' &lt; 10;@replygump 0x38920abd 30;elseif not @findalias 'bowsdone' and @findalias 'bowquesting';if @findalias 'simplebow' and counttype 0x13b2 'any' 'backpack' > 9;@setalias 'bowsdone' 'self';elseif @findalias 'ingenious1' and counttype 0xf50 'any' 'backpack' > 9;@setalias 'bowsdone' 'self';elseif @findalias 'ingenious2' and counttype 0x13fd 'any' 'backpack' > 7;@setalias 'bowsdone' 'self';elseif @findalias 'ingenious3' and counttype 0x26c3 'any' 'backpack' > 9;@setalias 'bowsdone' 'self';endif;elseif counttype 0xb5e 'any' 'backpack' &lt; 10;if x &lt; 7013;pause 550;endif;usetype 0x1034 0 'backpack';waitforgump 0x38920abd 2000;@replygump 0x38920abd 8;waitforgump 0x38920abd 2000;endif;elseif counttype 0xb5e 'any' 'backpack' &lt; 10 and @ingump 0x38920abd 'Magincia-style';@replygump 0x38920abd 2;elseif counttype 0xb5e 'any' 'backpack' &lt; 10;if x &lt; 7013;pause 550;endif;usetype 0x1034 0 'backpack';waitforgump 0x38920abd 2000;@replygump 0x38920abd 8;waitforgump 0x38920abd 2000;endif;endif;endwhile;elseif y == 378;while x > 7000;run 'west';endwhile;else;sysmsg 'You need to be near dropoff, carpentry area or fletching trash when starting this macro' 34;stop;endif;endfor;endfor;endfor;endfor;</macro>
  208. <macro interrupt="True" loop="True" name="make armor">setalias 'trashbarrelluna' 0x4000b9c0;usetype 0x13e3 'any''backpack';pause 600;replygump 0x38920abd 21;pause 600;waitforgump 0x38920abd 15000;pause 600;while @findtype 0x2657 'any' 'backpack';pause 600 waitforproperties 'found' 2500;pause 600;@unsetalias 'move';// Check item properties;pause 600;if @property 'mana regeneration' 'found' >= 2 and @property 'fire resist' 'found' >= 25;pause 600;if @property 'mage armor' 'found';pause 600;@setalias 'move''found';pause 600;endif;endif;// Move the item;pause 600;if @findalias 'move';pause 600;moveitem 'found' 'bank';pause 800;else if findalias 'found';moveitem 'found' 'trashbarrelluna';pause 800;endif;pause 600;ignoreobject 'found';pause 600;endwhile;</macro>
  209. <macro interrupt="True" loop="False" name="Reset All Aliases">//If you are having trouble with mis-set aliases, play this macro to unset all aliases on this profile.;unsetalias 'Allchemy Restock Container';unsetalias 'Allchemy Completed Container';unsetalias 'BODS_Blacksmith_NPC';unsetalias 'BODS_Completed_BS_Bods_Book';unsetalias 'BODS_New_BS_Bods_Book';unsetalias 'BODS_Trash_New_Items';unsetalias 'BODS_Tailor_NPC';unsetalias 'BODS_Completed_Bods_Book';unsetalias 'BODS_New_Bods_Book';unsetalias 'BODS_Storage_New_Cloth';unsetalias 'Bola Restock Container';unsetalias 'Bola Completed Container';unsetalias 'Leather Container';unsetalias 'Enchanted Restock Container';unsetalias 'Enchanted Completed Container';unsetalias 'Reg Container';unsetalias 'spellbook';unsetalias 'TreeBookOne';unsetalias 'TreeBookTwo';unsetalias 'HomeLumber';clearlist 'TreeBook';clearlist 'Runes';unsetalias 'IngotsSource';unsetalias 'OreBookOne';unsetalias 'OreBookTwo';unsetalias 'OreBookThree';unsetalias 'HomeOre';clearlist 'OreBook';clearlist 'Talismans';clearlist 'Skills';clearlist 'Jewelry';clearlist 'Jewelspurposes';unsetalias 'Fletching Quest Giver';unsetalias 'Restock';unsetalias 'Reward Box';unsetalias 'Trash Barrel';clearlist 'Carpentry Recipes';unsetalias 'Carpentry Quest Giver';clearlist 'Tinkering Recipes';unsetalias 'Tinkering Recipes';unsetalias 'OretoSmeltSource';unsetalias 'Forge';unsetalias 'pole';</macro>
  210. <macro interrupt="True" loop="True" name="Make Jewelry">setalias 'trashbarrelluna' 0x4000b9c0;usetype 0x1eb8 'any''backpack';replygump 0x38920abd 21;waitforgump 0x38920abd 15000;while @findtype 0x108a 'any' 'backpack';waitforproperties 'found' 2500;@unsetalias 'move';// Check item properties;if @property 'faster casting' 'found' and @property 'faster cast recovery' 'found' >= 2;@setalias 'move''found';elseif @property 'hit chance increase' 'found' >= 10 and @property 'damage increase' 'found' >= 16;@setalias 'move''found';endif;// Move the item;pause 500;if @findalias 'move';moveitem 'found' 'bank';pause 800;else if findalias 'found';moveitem 'found' 'trashbarrelluna';pause 800;endif;ignoreobject 'found';endwhile;</macro>
  211. <macro interrupt="True" loop="True" name="afk lumberjack">//1. need 2 full runebooks marked 1 tile south and same elevation of the choppable tree;//2. Organizer agent 'Boards' needs to be configured from your backpack to dropoff container with boards and 5 specials on it;//3. pauses after recalls are set to 2000 for 0fc. Change to 1750 for 1fc and 1500 for 2fc;@setalias 'beetle''0xea9ea';if not mounted 'self';useobject 'beetle';pause 500;endif;if not @findobject 'TreeBookOne';promptalias 'TreeBookOne';endif;if not @findobject 'TreeBookTwo';promptalias 'TreeBookTwo';endif;if not @findobject 'HomeLumber';promptalias 'HomeLumber';endif;if not listexists 'TreeBook';createlist 'TreeBook';pushlist 'TreeBook' 'TreeBookOne';pushlist 'TreeBook' 'TreeBookTwo';endif;if not listexists 'Runes';createlist 'Runes';pushlist 'Runes' 5;pushlist 'Runes' 11;pushlist 'Runes' 17;pushlist 'Runes' 23;pushlist 'Runes' 29;pushlist 'Runes' 35;pushlist 'Runes' 41;pushlist 'Runes' 47;pushlist 'Runes' 53;pushlist 'Runes' 59;pushlist 'Runes' 65;pushlist 'Runes' 71;pushlist 'Runes' 77;pushlist 'Runes' 83;pushlist 'Runes' 89;pushlist 'Runes' 95;endif;For 0 to 'TreeBook';For 0 to 'Runes';pause 500;clearjournal;pause 500;useobject TreeBook[];waitforgump 0x554b87f3 5000;replygump 0x554b87f3 Runes[];//tells you which rune you are on, see runelist above;sysmsg 'Rune' 33;sysmsg Runes[] 33;pause 2000;//equips axe if it's not SC;dress 'MichAxe';pause 1000;dress 'DuckAxe';pause 1000;if not @findobject 'lefthand';//change type to your axe;if findtype 0xf45 0 'backpack';setalias 'axe' 'found';equipitem 'axe' 2;endif;endif;while not @injournal 'enough wood here';pause 300;//chop logs to boards;if @findtype 0x1bdd 'any' 'backpack';useobject 'LeftHand';waitfortarget 1000;target! 'found';else;//chop trees;useobject 'LeftHand';waitfortarget 1000;targettileoffset 0 -1 0;endif;// Change this if your getting overweight, Subtract 25 from your max weight.;if weight > 355;//make remaining logs boards;while @findtype 0x1bdd 'any' 'backpack';useobject 'LeftHand';waitfortarget 1000;target! 'found';pause 500;endwhile;//recall home;useobject 'HomeLumber';waitforgump 0x554b87f3 5000;replygump 0x554b87f3 23;pause 3000;msg 'bank';pause 1000;waitforcontext 0x1880b 2 500;pause 1000;organizer 'Bagtobank''backpack''self';pause 2000;useobject 'HomeLumber';waitforgump 0x554b87f3 5000;replygump 0x554b87f3 5;pause 2000;//unload;organizer 'Boards' 'backpack' '0x41bdb0a5';while organizing;endwhile;pause 1000;//go back to where you were;useobject TreeBook[];waitforgump 0x554b87f3 5000;replygump 0x554b87f3 Runes[];pause 2000;//re-equip axe if needed;dress 'MichAxe';pause 1000;dress 'DuckAxe';pause 1000;if not @findobject 'lefthand';equipitem 'axe' 2;pause 1000;endif;endif;if @injournal 'use an axe';break;endif;endwhile;endfor;endfor;</macro>
  212. <macro interrupt="True" loop="True" name="Sell boards">organizer 'Banktobag''self''backpack';while organizing;endwhile;waitforcontext 0x1880b 2 100;pause 100;organizer 'Bagtobank''backpack''self';while organizing;endwhile;pause 100;</macro>
  213. <macro interrupt="False" loop="True" name="Create Food">if not findalias 'food bag';setalias 'food bag' 0x44ea4a7a;endif;if not findalias 'home barrel';setalias 'home barrel' 0x456af051;endif;cast "Create Food";if weight > 500;//ham;pause 600;movetype 0x9d3 'backpack' 'food bag' 'any';pause 600;//sausage;movetype 0x9c0 'backpack' 'food bag' 'any';pause 600;//cooked bird;movetype 0x9b7 'backpack' 'food bag' 'any';pause 600;//ribs;movetype 0x9f2 'backpack' 'food bag' 'any';pause 600;//apples;movetype 0x9d0 'backpack' 'food bag' 'any';pause 600;//muffins;movetype 0x9eb 'backpack' 'home barrel' 'any';pause 600;//grapes;movetype 0x9d1 'backpack' 'home barrel' 'any';pause 600;//peaches;movetype 0x9d2 'backpack' 'home barrel' 'any';pause 600;//fish steaks;movetype 0x97b 'backpack' 'home barrel' 'any';pause 600;//cheese;movetype 0x97d 'backpack' 'home barrel' 'any';endif;</macro>
  214. <macro interrupt="True" loop="False" name="sell food">setalias 'food bag' 0x44ea4a7a;if not findalias 'food sell book';setalias 'food sell book' 0x4136daec;endif;pause 600;useobject 'food bag';pause 600;//ham;if counttype 0x9d3 0 'food bag' > 325;playmacro 'Sell Ham';endif;pause 600;//sausage;if counttype 0x9c0 0 'food bag' > 325;playmacro 'Sell Sausage';endif;pause 600;//bird;if counttype 0x9b7 0 'food bag' > 325;playmacro 'Sell Cooked Bird';endif;pause 600;//ribs;if counttype 0x9f2 0 'food bag' > 325;playmacro 'Sell Ribs';endif;stop;</macro>
  215. <macro interrupt="True" loop="False" name="unload food">if not findalias 'food bag';setalias 'food bag' 0x44ea4a7a;endif;if not findalias 'home barrel';setalias 'home barrel' 0x456af051;endif;//ham;pause 600;movetype 0x9d3 'backpack' 'food bag' 'any';pause 600;//sausage;movetype 0x9c0 'backpack' 'food bag' 'any';pause 600;//cooked bird;movetype 0x9b7 'backpack' 'food bag' 'any';pause 600;//ribs;movetype 0x9f2 'backpack' 'food bag' 'any';pause 600;//apples;movetype 0x9d0 'backpack' 'food bag' 'any';pause 600;//muffins;movetype 0x9eb 'backpack' 'home barrel' 'any';pause 600;//grapes;movetype 0x9d1 'backpack' 'home barrel' 'any';pause 600;//peaches;movetype 0x9d2 'backpack' 'home barrel' 'any';pause 600;//fish steaks;movetype 0x97b 'backpack' 'home barrel' 'any';pause 600;//cheese;movetype 0x97d 'backpack' 'home barrel' 'any';</macro>
  216. <macro interrupt="True" loop="False" name="Sell Ham">while mana &lt; 129;endwhile;movetype 0x9d3 'food bag' 'backpack' 'any' 'any' 'any' 'any' 300;pause 600;useobject 'food sell book';pause 1000;replygump 0x554b87f3 49;pause 3000;if mana > 130;useobject 'food sell book';pause 1000;replygump 0x554b87f3 49;pause 3000;endif;if mana > 130;useobject 'food sell book';pause 1000;replygump 0x554b87f3 49;pause 2000;endif;if mana > 130;useobject 'food sell book';pause 1000;replygump 0x554b87f3 49;pause 2000;endif;waitforcontext 0xc8f93 2 500;while mana &lt; 129;endwhile;useobject 'food sell book';pause 1000;replygump 0x554b87f3 37;pause 2000;if mana > 130;useobject 'food sell book';pause 1000;replygump 0x554b87f3 37;pause 2000;endif;if mana > 130;useobject 'food sell book';pause 1000;replygump 0x554b87f3 37;pause 2000;endif;if mana > 130;useobject 'food sell book';pause 1000;replygump 0x554b87f3 37;pause 2000;endif;resync;pause 600;while y > 1223;walk 'north';endwhile;pause 1000;organizer 'gold to food bag';while organizing;endwhile;playmacro 'sell food';</macro>
  217. <macro interrupt="True" loop="False" name="Sell Sausage">while mana &lt; 129;endwhile;movetype 0x9c0 'food bag' 'backpack' 'any' 'any' 'any' 'any' 300;pause 600;useobject 'food sell book';pause 1000;replygump 0x554b87f3 49;pause 2000;if mana > 130;useobject 'food sell book';pause 1000;replygump 0x554b87f3 49;pause 2000;endif;if mana > 130;useobject 'food sell book';pause 1000;replygump 0x554b87f3 49;pause 2000;endif;if mana > 130;useobject 'food sell book';pause 1000;replygump 0x554b87f3 49;pause 2000;endif;waitforcontext 0xc8f93 2 1000;while mana &lt; 129;endwhile;useobject 'food sell book';pause 1000;replygump 0x554b87f3 37;pause 2000;if mana > 130;useobject 'food sell book';pause 1000;replygump 0x554b87f3 37;pause 2000;endif;if mana > 130;useobject 'food sell book';pause 1000;replygump 0x554b87f3 37;pause 2000;endif;if mana > 130;useobject 'food sell book';pause 1000;replygump 0x554b87f3 37;pause 2000;endif;resync;pause 600;while y > 1223;walk 'north';endwhile;pause 1000;organizer 'gold to food bag' 'backpack' 'food bag';while organizing;endwhile;playmacro 'sell food';</macro>
  218. <macro interrupt="True" loop="False" name="Sell Cooked Bird">while mana &lt; 129;endwhile;movetype 0x9b7 'food bag' 'backpack' 'any' 'any' 'any' 'any' 300;pause 600;useobject 'food sell book';pause 1000;replygump 0x554b87f3 55;pause 2000;if mana > 130;useobject 'food sell book';pause 1000;replygump 0x554b87f3 55;pause 2000;endif;if mana > 130;useobject 'food sell book';pause 1000;replygump 0x554b87f3 55;pause 2000;endif;if mana > 130;useobject 'food sell book';pause 1000;replygump 0x554b87f3 55;pause 2000;endif;waitforcontext 0x1abdc 2 1000;while mana &lt; 129;endwhile;useobject 'food sell book';pause 1000;replygump 0x554b87f3 37;pause 2000;if mana > 130;useobject 'food sell book';pause 1000;replygump 0x554b87f3 37;pause 2000;endif;if mana > 130;useobject 'food sell book';pause 1000;replygump 0x554b87f3 37;pause 2000;endif;if mana > 130;useobject 'food sell book';pause 1000;replygump 0x554b87f3 37;pause 2000;endif;resync;pause 600;while y > 1223;walk 'north';endwhile;pause 1000;organizer 'gold to food bag' 'backpack' 'food bag';while organizing;endwhile;playmacro 'sell food';</macro>
  219. <macro interrupt="True" loop="False" name="Sell Ribs">while mana &lt; 129;endwhile;movetype 0x9f2 'food bag' 'backpack' 'any' 'any' 'any' 'any' 300;pause 600;useobject 'food sell book';pause 1000;replygump 0x554b87f3 43;pause 2000;if mana > 130;useobject 'food sell book';pause 1000;replygump 0x554b87f3 43;pause 2000;endif;if mana > 130;useobject 'food sell book';pause 1000;replygump 0x554b87f3 43;pause 2000;endif;if mana > 130;useobject 'food sell book';pause 1000;replygump 0x554b87f3 43;pause 2000;endif;waitforcontext 0x5ac1a 2 1000;while mana &lt; 129;endwhile;useobject 'food sell book';pause 1000;replygump 0x554b87f3 37;pause 2000;if mana > 130;useobject 'food sell book';pause 1000;replygump 0x554b87f3 37;pause 2000;endif;if mana > 130;useobject 'food sell book';pause 1000;replygump 0x554b87f3 37;pause 2000;endif;if mana > 130;useobject 'food sell book';pause 1000;replygump 0x554b87f3 37;pause 2000;endif;resync;pause 600;while y > 1223;walk 'north';endwhile;pause 1000;organizer 'gold to food bag' 'backpack' 'food bag';while organizing;endwhile;playmacro 'sell food';</macro>
  220. <macro interrupt="True" loop="True" name="Organize Gold">while mana &lt; 129;endwhile;organizer 'gold to backpack';while organizing;endwhile;pause 600;useobject 'food sell book';pause 1000;replygump 0x554b87f3 19;pause 3000;if mana > 130;useobject 'food sell book';pause 1000;replygump 0x554b87f3 19;pause 3000;endif;if mana > 130;useobject 'food sell book';pause 1000;replygump 0x554b87f3 19;pause 2000;endif;if mana > 130;useobject 'food sell book';pause 1000;replygump 0x554b87f3 19;pause 2000;endif;while y > 1698;walk 'north';endwhile;pause 600;msg 'bank';pause 1000;organizer 'Bagtobank';while organizing;endwhile;//go home;while mana &lt; 129;endwhile;useobject 'food sell book';pause 1000;replygump 0x554b87f3 37;pause 2000;if mana > 130;useobject 'food sell book';pause 1000;replygump 0x554b87f3 37;pause 2000;endif;if mana > 130;useobject 'food sell book';pause 1000;replygump 0x554b87f3 37;pause 2000;endif;if mana > 130;useobject 'food sell book';pause 1000;replygump 0x554b87f3 37;pause 2000;endif;while y > 1223;walk 'north';endwhile;pause 100;useobject 'food bag';pause 1000;if counttype 0xeed 0 'food bag' &lt; 1;stop;endif;</macro>
  221. <macro interrupt="True" loop="False" name="resynch walk n">resync;pause 600;useobject 0x45095d50;pause 600;while y > 1223;run 'north';endwhile;if not findtype 0xeed 0 'backpack';playmacro 'Organize Gold';endif;organizer 'gold to food bag';while organizing;endwhile;playmacro 'sell food';</macro>
  222. <macro interrupt="False" loop="True" name="cut up">@setalias 'Tailoring Quest Giver' 0x123;//Haute Couture;if @ingump 0x19bc4061 'the flower garland';replygump 0x19bc4061 1;pause 550;while counttype 0x2306 'any' 'backpack' &lt; 10;usetype 0xf9d 0 'backpack';waitforgump 0x38920abd 5000;replygump 0x38920abd 1;waitforgump 0x38920abd 5000;replygump 0x38920abd 86;waitforgump 0x38920abd 5000;endwhile;pause 1000;waitforcontext 'self' 4 5000;waitfortarget 5000;settimer 'toggletimeout' 0;while @counttype 0x2306 0x4ea 'backpack' != 10 and timer 'toggletimeout' &lt; 5000;@targettype 0x2306 0;pause 150;endwhile;@canceltarget;pause 500;@useobject! 'Tailoring Quest Giver';waitforgump 0xdf31ecf8 3000;replygump 0xdf31ecf8 4;waitforgump 0x96626c6e 3000;replygump 0x96626c6e 1;pause 1000;//Haute Couture already in progress;elseif @ingump 0xa8b319c6 'debt if you bring me flower garlands';replygump 0xa8b319c6 3;pause 1000;while counttype 0x2306 'any' 'backpack' &lt; 10;usetype 0xf9d 0 'backpack';waitforgump 0x38920abd 5000;replygump 0x38920abd 1;waitforgump 0x38920abd 5000;replygump 0x38920abd 86;waitforgump 0x38920abd 5000;endwhile;pause 1000;waitforcontext 'self' 4 5000;waitfortarget 5000;settimer 'toggletimeout' 0;while @counttype 0x2306 0x4ea 'backpack' != 10 and timer 'toggletimeout' &lt; 5000;@targettype 0x2306 0;pause 150;endwhile;@canceltarget;pause 500;@useobject! 'Tailoring Quest Giver';waitforgump 0xdf31ecf8 3000;replygump 0xdf31ecf8 4;waitforgump 0x96626c6e 3000;replygump 0x96626c6e 1;pause 1000;endif;</macro>
  223. <macro interrupt="True" loop="True" name="tailor hw quest">@setalias 'FletcherDropoff' 0x428d797e;@setalias 'beetle''0xa0f28';@setalias 'FletcherRunebook' 0x43a8ab43;//^^^set these 3 to yours;@removelist 'woodhue';@removelist 'magechiv';@removelist 'magechiv2';@removelist 'bond';@createlist 'woodhue';@createlist 'magechiv';@createlist 'magechiv2';@createlist 'bond';if not listexists 'Tailor Recipes Trash';@createlist 'Tailor Recipes Trash';@pushlist 'Tailor Recipes Trash' 'Quiver of Ice';@pushlist 'Tailor Recipes Trash' 'Quiver of Lightning';@pushlist 'Tailor Recipes Trash' 'Quiver of Fire';@pushlist 'Tailor Recipes Trash' 'Quiver of Blight';@pushlist 'Tailor Recipes Trash' 'Elven Quiver';//@pushlist 'Tailor Recipes Trash' 'Song Woven Mantle';//@pushlist 'Tailor Recipes Trash' 'Spell Woven Britches';//@pushlist 'Tailor Recipes Trash' 'Stitchers Mittens';endif;@pushlist 'woodhue' 0;@pushlist 'magechiv' 5;@pushlist 'magechiv2' 11;@pushlist 'bond' 10;//1. Character needs Tailoring and Tinkering, a Tailoring Bonus talisman saves resources;//2. FletcherDropoff container needs cloth and ingots in it;//3. FletcherRunebook needs 1st rune to be Dropoff location and 2nd rune near Heartwood entrance;//4. Start in Heartwood with a beetle full of only cloth. Have crafted tinker tools and 40 ingots in your pack or start at your Dropoff location to restock these items;//5. Have meat in your pack to feed beetle, 1 meat used per hour;//6. If multiple stacks of cloth at your dropoff, script will begin encountering errors when one of the stacks drop below 1600, combine them before this happens;@setalias 'Tailoring Quest Giver' 0x123;@setalias 'Trash Barrel' 0x402124a1;if not listexists 'Talismans';@createlist 'Talismans';@pushlist 'Talismans' 0x2f58;@pushlist 'Talismans' 0x2f59;@pushlist 'Talismans' 0x2f5a;@pushlist 'Talismans' 0x2f5b;endif;if not listexists 'Slayers';@createlist 'Slayers';@pushlist 'Slayers' 'Ice Slayer';@pushlist 'Slayers' 'Flame Slayer';@pushlist 'Slayers' 'Vermin Slayer';@pushlist 'Slayers' 'Mage Slayer';@pushlist 'Slayers' 'Bird Slayer';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' 'Ice Fiend 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;endif;if not timerexists 'feedPet';createtimer 'feedPet';endif;//stop if you lack skills;if skill 'Tinkering' &lt; 45;sysmsg 'You need 50+ tinkering to run this macro effectively.' 34;stop;elseif skill 'Tailoring' &lt; 100;sysmsg 'You need at least 100 tailoring to run this macro. You will also want a Carpentry bonus talisman' 34;stop;endif;//stop macro if you forgot to restock cloth or ingots or have no tinker tools;if counttype 0x1bf2 0 'backpack' == 0 and not @inrange 'FletcherDropoff' 2;sysmsg 'Restock ingots before starting!' 33;stop;endif;//Check for crafted tinker tools;if @counttype 0x1eb8 0 'backpack' == 0;sysmsg 'Get crafted tinker tools (0x1eb8) before starting!' 33;stop;endif;// make tinker tools;while @counttype 0x1eb8 0 'backpack' &lt; 2;usetype! 0x1eb8;waitforgump 0x38920abd 3000;replygump 0x38920abd 8;waitforgump 0x38920abd 3000;replygump 0x38920abd 23;endwhile;// make sewing kits;while @counttype 0xf9d 0 'backpack' &lt; 3;usetype! 0x1eb8;waitforgump 0x38920abd 3000;replygump 0x38920abd 44;waitforgump 0x38920abd 3000;endwhile;for 0 to 'magechiv';for 0 to 'magechiv2';for 0 to 'bond';for 0 to 'woodhue';//if starting macro from Dropoff location, then go through that same process as above to restock and navigate to Heartwood;if @inrange 'FletcherDropoff' 2;//open containers;useobject 'self';pause 1000;useobject 'FletcherDropoff';pause 1000;waitforcontext 'beetle' bond[] 15000;pause 1000;//unload jewels;while counttype 0x108a 'any' 'backpack' > 0;movetype 0x108a 'backpack' 'FletcherDropoff';pause 500;endwhile;while counttype 0x1f09 'any' 'backpack' > 0;movetype 0x1f09 'backpack' 'FletcherDropoff';pause 500;endwhile;while counttype 0x1f06 'any' 'backpack' > 0;movetype 0x1f06 'backpack' 'FletcherDropoff';pause 500;endwhile;while counttype 0x1086 'any' 'backpack' > 0;movetype 0x1086 'backpack' 'FletcherDropoff';pause 500;endwhile;//unload talismans;while counttype 0x2f58 0 'backpack' > 0;movetype 0x2f58 'backpack' 'FletcherDropoff' (0 0 0) 0 1;pause 500;endwhile;while counttype 0x2f59 0 'backpack' > 0;movetype 0x2f59 'backpack' 'FletcherDropoff' (0 0 0) 0 1;pause 500;endwhile;while counttype 0x2f5a 0 'backpack' > 0;movetype 0x2f5a 'backpack' 'FletcherDropoff' (0 0 0) 0 1;pause 500;endwhile;while counttype 0x2f5b 0 'backpack' > 0;movetype 0x2f5b 'backpack' 'FletcherDropoff' (0 0 0) 0 1;pause 500;endwhile;// get ingots if low;if counttype 0x1bf2 0 'backpack' &lt; 20;if counttype 0x1bf2 0 'FletcherDropoff' &lt; 40;sysmsg 'Out of Ingots!' 33;useobject 'beetle';stop;endif;movetype 0x1bf2 'FletcherDropoff' 'backpack' (0 0 0) 0 40;pause 1000;endif;//get cloth on beetle and self;//first make sure beetle is empty, sometimes UOS won't pull 200 cloth and you end up with odd number left behind;if counttype 0x1766 'any' 'beetle' > 0;while counttype 0x1766 'any' 'beetle' > 1599;movetype 0x1766 'beetle' 'FletcherDropoff' [(0 0 0)] 'any' 16000;pause 500;endwhile;while counttype 0x1766 'any' 'beetle' > 499;movetype 0x1766 'beetle' 'FletcherDropoff' [(0 0 0)] 'any' 5000;pause 500;endwhile;while counttype 0x1766 'any' 'beetle' > 99;movetype 0x1766 'beetle' 'FletcherDropoff' [(0 0 0)] 'any' 1000;pause 500;endwhile;while counttype 0x1766 'any' 'beetle' > 24;movetype 0x1bd7 'beetle' 'FletcherDropoff' [(0 0 0)] 'any' 250;pause 500;endwhile;while counttype 0x1766 'any' 'beetle' > 4;movetype 0x1766 'beetle' 'FletcherDropoff' [(0 0 0)] 'any' 50;pause 500;endwhile;while counttype 0x1766 'any' 'beetle' > 0;movetype 0x1766 'beetle' 'FletcherDropoff' [(0 0 0)] 'any' 10;pause 500;endwhile;endif;//stop if FletcherDropoff is out of cloth;pause 1000;useobject 'FletcherDropoff';pause 1000;if counttype 0x1766 0 'FletcherDropoff' &lt; 1900;sysmsg 'Out of Cloth!' 33;useobject 'beetle';@playmacro 'BuyCloth';while counttype 0x1766 0 'FletcherDropoff' &lt; 1900;pause 20000;endwhile;endif;//fill beetle with cloth;if mounted 'self';pause 550;useobject 'self';pause 1000;waitforcontext 'beetle' bond[] 15000;endif;movetype 0x1766 'FletcherDropoff' 'beetle' (0 0 0) 0 16000;pause 1000;//move cloth to your pack based on how low your pack is;//max weight minus 350;if weight &lt; 175;movetype 0x1766 'FletcherDropoff' 'backpack' (0 0 0) 0 350;pause 1000;//max weight minus 300;elseif weight &lt; 225;movetype 0x1766 'FletcherDropoff' 'backpack' (0 0 0) 0 300;pause 1000;//max weight minus 250;elseif weight &lt; 275;movetype 0x1766 'FletcherDropoff' 'backpack' (0 0 0) 0 250;pause 1000;//max weight minus 200;elseif weight &lt; 325;movetype 0x1766 'FletcherDropoff' 'backpack' (0 0 0) 0 200;pause 1000;//max weight minus 150;elseif weight &lt; 375;movetype 0x1766 'FletcherDropoff' 'backpack' (0 0 0) 0 150;pause 1000;//max weight minus 100;elseif weight &lt; 425;movetype 0x1766 'FletcherDropoff' 'backpack' (0 0 0) 0 100;pause 1000;elseif counttype 0x1766 0 'backpack' &lt; 1;movetype 0x1766 'FletcherDropoff' 'backpack' (0 0 0) 0 1;pause 1000;endif;//mount beetle and recall back to heartwood;pause 1000;useobject 'beetle';pause 2000;if @injournal 'world will save';while not @injournal 'world save complete';endwhile;@clearjournal;endif;useobject 'FletcherRunebook';waitforgump 0x554b87f3 30000;replygump 0x554b87f3 magechiv2[];pause 2000;//if the rune is blocked, pause 2 min to give time for NPCs to move, this prevents the character from running across the world from your dropoff;if injournal 'blocked' 'system';sysmsg 'Rune blocked, trying again in 2 minutes' 33;pause 120000;clearjournal;useobject 'FletcherRunebook';waitforgump 0x554b87f3 30000;replygump 0x554b87f3 magechiv2[];pause 2000;//if it's still blocked, stop macro;if injournal 'blocked' 'system';sysmsg 'Rune still blocked, stopping macro' 33;clearjournal;stop;endif;endif;//navigate to heartwood entrance;while y != 992 and y > 400;for 2;if y > 992;walk 'north';endif;pause 250;if y &lt; 992;walk 'south';endif;pause 250;endfor;endwhile;if x > 535 and x &lt; 1000;while x > 535 and x &lt; 1000;run 'west';pause 100;endwhile;endif;if x &lt; 537;while x &lt; 537;run 'east';pause 100;endwhile;endif;//navigate through heartwood to carpetry area;while y &lt; 377;run 'southeast';endwhile;pause 500;while y &lt; 377;run 'southeast';endwhile;pause 500;while x > 7022 and x &lt; 7025;walk 'west';pause 500;endwhile;pause 500;while y > 377 and y &lt; 393;run 'south';endwhile;pause 500;while x > 7021 and x &lt; 7027;walk 'east';pause 500;endwhile;pause 500;while y > 392 and y &lt; 408;run 'south';endwhile;pause 500;while x > 7026 and x &lt; 7049;run 'east';endwhile;pause 500;//navigate to tailoring area;while y > 407 and y &lt; 413;run 'south';endwhile;while x &lt; 7050 and x > 7031;run 'southwest';endwhile;//dismount;useobject 'self';pause 700;useobject 'Trash Barrel';pause 700;waitforcontext 'beetle' bond[] 3000;pause 700;if counttype 0x1766 0 'backpack' &lt; 100;movetype 0x1766 'beetle' 'backpack' [(0 0 0)] 0 200;pause 2000;endif;//restock cloth from beetle;elseif counttype 0x1766 0 'backpack' &lt; 150;if counttype 0x1766 0 'beetle' > 199;movetype 0x1766 'beetle' 'backpack' [(0 0 0)] 0 200;pause 2000;//if beetle empty, leave heartwood;else;msg 'Selene is the Queen of Demise!' 33;useobject 'beetle';pause 1000;msg 'Long live the Queen!' 33;if x > 7025;while y > 407;run 'northeast';endwhile;endif;if y > 406 and y &lt; 409;for 2;walk 'south';pause 250;endfor;endif;while x > 7025 and x &lt; 7050;run 'northwest';endwhile;pause 500;while y &lt; 410 and y > 388;walk 'Northeast';endwhile;pause 500;while x > 7030;walk 'Northwest';endwhile;pause 300;while x > 7026;walk 'west';endwhile;pause 300;while y > 339;run "Northwest";pause 100;endwhile;while x > 6985 and x &lt; 6991;walk 'west';pause 150;endwhile;while y > 338 and y &lt; 342;walk 'north';pause 250;endwhile;for 5;if y >= 338 and x > 6982;walk 'east';pause 250;endif;endfor;pause 2000;useobject 'FletcherRunebook';waitforgump 0x554b87f3 15000;replygump 0x554b87f3 []magechiv;if @injournal 'world will save';while not @injournal 'world save complete';endwhile;@clearjournal;endif;//recall home;useobject 'FletcherRunebook';waitforgump 0x554b87f3 30000;replygump 0x554b87f3 magechiv[];pause 2000;endif;elseif @inrange 'Trash Barrel' 2;//dismount if not when macro started;if mounted;useobject 'self';pause 1000;waitforcontext 'beetle' bond[] 15000;pause 1000;useobject 'Trash Barrel';pause 1000;endif;// Hourly feed pet;if timer 'feedPet' >= 3600000;feed 'beetle' 'Meat' 'any' 1;pause 500;if injournal 'happier';settimer 'feedPet' 0;sysmsg 'Pet Fed' 33;clearjournal;else;sysmsg 'Out of Meat!' 33;useobject 'beetle';clearjournal;stop;endif;endif;if @findtype 0x1766 0 'backpack' 90;@useobject! 'Tailoring Quest Giver';pause 600;//King of Clothing;if @ingump 0x19bc4061 'some of these kilts';replygump 0x19bc4061 1;pause 550;while counttype 0x1537 'any' 'backpack' &lt; 10;usetype 0xf9d 0 'backpack';waitforgump 0x38920abd 5000;replygump 0x38920abd 15;waitforgump 0x38920abd 5000;replygump 0x38920abd 16;waitforgump 0x38920abd 5000;endwhile;waitforcontext 'self' 4 5000;waitfortarget 5000;settimer 'toggletimeout' 0;while @counttype 0x1537 0x4ea 'backpack' != 10 and timer 'toggletimeout' &lt; 5000;@targettype 0x1537 0;pause 150;endwhile;@canceltarget;pause 500;@useobject! 'Tailoring Quest Giver';waitforgump 0xdf31ecf8 3000;replygump 0xdf31ecf8 4;waitforgump 0x96626c6e 3000;replygump 0x96626c6e 1;pause 1000;//King of Clothing already in progress;elseif @ingump 0xa8b319c6 'debt if you bring me kilts';while counttype 0x1537 'any' 'backpack' &lt; 10;usetype 0xf9d 0 'backpack';waitforgump 0x38920abd 5000;replygump 0x38920abd 15;waitforgump 0x38920abd 5000;replygump 0x38920abd 16;waitforgump 0x38920abd 5000;endwhile;waitforcontext 'self' 4 5000;waitfortarget 5000;settimer 'toggletimeout' 0;while @counttype 0x1537 0x4ea 'backpack' != 10 and timer 'toggletimeout' &lt; 5000;@targettype 0x1537 0;pause 150;endwhile;@canceltarget;pause 500;@useobject! 'Tailoring Quest Giver';waitforgump 0xdf31ecf8 3000;replygump 0xdf31ecf8 4;waitforgump 0x96626c6e 3000;replygump 0x96626c6e 1;pause 1000;//Puffy Shirt;elseif @ingump 0x19bc4061 'human fancy shirt';replygump 0x19bc4061 1;pause 550;while counttype 0x1efd 'any' 'backpack' &lt; 10;usetype 0xf9d 0 'backpack';waitforgump 0x38920abd 5000;replygump 0x38920abd 8;waitforgump 0x38920abd 5000;replygump 0x38920abd 16;waitforgump 0x38920abd 5000;endwhile;pause 1000;waitforcontext 'self' 4 5000;waitfortarget 5000;settimer 'toggletimeout' 0;while @counttype 0x1efd 0x4ea 'backpack' != 10 and timer 'toggletimeout' &lt; 5000;@targettype 0x1efd 0;pause 150;endwhile;@canceltarget;pause 500;@useobject! 'Tailoring Quest Giver';waitforgump 0xdf31ecf8 3000;replygump 0xdf31ecf8 4;waitforgump 0x96626c6e 3000;replygump 0x96626c6e 1;pause 1000;//Puffy Shirt already in progress;elseif @ingump 0xa8b319c6 'debt if you bring me fancy shirts';replygump 0xa8b319c6 3;pause 1000;while counttype 0x1efd 'any' 'backpack' &lt; 10;usetype 0xf9d 0 'backpack';waitforgump 0x38920abd 5000;replygump 0x38920abd 8;waitforgump 0x38920abd 5000;replygump 0x38920abd 16;waitforgump 0x38920abd 5000;endwhile;pause 1000;waitforcontext 'self' 4 5000;waitfortarget 5000;settimer 'toggletimeout' 0;while @counttype 0x1efd 0x4ea 'backpack' != 10 and timer 'toggletimeout' &lt; 5000;@targettype 0x1efd 0;pause 150;endwhile;@canceltarget;pause 500;@useobject! 'Tailoring Quest Giver';waitforgump 0xdf31ecf8 3000;replygump 0xdf31ecf8 4;waitforgump 0x96626c6e 3000;replygump 0x96626c6e 1;pause 1000;//Haute Couture;elseif @ingump 0x19bc4061 'the flower garland';replygump 0x19bc4061 1;pause 550;while counttype 0x2306 'any' 'backpack' &lt; 10;usetype 0xf9d 0 'backpack';waitforgump 0x38920abd 5000;replygump 0x38920abd 1;waitforgump 0x38920abd 5000;replygump 0x38920abd 86;waitforgump 0x38920abd 5000;endwhile;pause 1000;waitforcontext 'self' 4 5000;waitfortarget 5000;settimer 'toggletimeout' 0;while @counttype 0x2306 0x4ea 'backpack' != 10 and timer 'toggletimeout' &lt; 5000;@targettype 0x2306 0;pause 150;endwhile;@canceltarget;pause 500;@useobject! 'Tailoring Quest Giver';waitforgump 0xdf31ecf8 3000;replygump 0xdf31ecf8 4;waitforgump 0x96626c6e 3000;replygump 0x96626c6e 1;pause 1000;//Haute Couture already in progress;elseif @ingump 0xa8b319c6 'debt if you bring me flower garlands';replygump 0xa8b319c6 3;pause 1000;while counttype 0x2306 'any' 'backpack' &lt; 10;usetype 0xf9d 0 'backpack';waitforgump 0x38920abd 5000;replygump 0x38920abd 1;waitforgump 0x38920abd 5000;replygump 0x38920abd 86;waitforgump 0x38920abd 5000;endwhile;pause 1000;waitforcontext 'self' 4 5000;waitfortarget 5000;settimer 'toggletimeout' 0;while @counttype 0x2306 0x4ea 'backpack' != 10 and timer 'toggletimeout' &lt; 5000;@targettype 0x2306 0;pause 150;endwhile;@canceltarget;pause 500;@useobject! 'Tailoring Quest Giver';waitforgump 0xdf31ecf8 3000;replygump 0xdf31ecf8 4;waitforgump 0x96626c6e 3000;replygump 0x96626c6e 1;pause 1000;//Scale Armor;elseif @ingump 0x19bc4061 'creatures called hydra';replygump 0x19bc4061 2;waitforgump 0xa8b319c6 3000;replygump 0xa8b319c6 3;pause 1000;//Gaultier Collection;elseif @ingump 0x19bc4061 'females of humankind';replygump 0x19bc4061 2;waitforgump 0xa8b319c6 3000;replygump 0xa8b319c6 3;pause 1000;// Handle reward bags;endif;while @findtype 0xe75 'any' 'backpack';pause 550;@setalias 'trash' 'found';@useobject! 'trash';pause 550;// Tailor Recipes;while @findtype 0x2831 0 'trash';movetype 0x2831 'trash' 'backpack' [0 0 0] 0 'any' 'any';// Move quivers to trash;for 0 to 'Tailor Recipes Trash';waitforproperties 'found' 15000;if @property 'Tailor Recipes Trash[]' 'found';@moveitem! 'found' 'Trash Barrel';pause 1000;break;endif;endfor;ignoreobject 'found';endwhile;// Talismans;for 0 to 'Talismans';while @findtype Talismans[] 0 'trash';waitforproperties 'found' 15000;//crafting bonus and exceptional bonus talismans;if @property 'Tinkering Exceptional Bonus' 'found' >= 20 and @property 'Tinkering Bonus' 'found' >= 20;@moveitem! 'found' 'backpack';pause 1000;break;elseif @property 'Alchemy Bonus' 'found' >= 29 or @property 'Fletching Bonus' 'found' >= 29;@moveitem! 'found' 'backpack';pause 1000;break;elseif @property 'Fletching Exceptional Bonus' 'found' >= 20 and @property 'Fletching Bonus' 'found' >= 20;@moveitem! 'found' 'backpack';pause 1000;break;elseif @property 'Tailoring Exceptional Bonus' 'found' >= 20 and @property 'Tailoring Bonus' 'found' >= 20;@moveitem! 'found' 'backpack';pause 1000;break;elseif @property 'Carpentry Exceptional Bonus' 'found' >= 20 and @property 'Carpentry Bonus' 'found' >= 20;@moveitem! 'found' 'backpack';pause 1000;break;elseif @property 'Inscription Bonus' 'found' >= 29 or @property 'Cooking Bonus' 'found' >= 29;@moveitem! 'found' 'backpack';pause 1000;break;elseif @property 'Blacksmithing Exceptional Bonus' 'found' >= 20 and @property 'Blacksmithing Bonus' 'found' >= 20;@moveitem! 'found' 'backpack';pause 1000;break;endif;//get slayers;for 0 to 'Slayers';if @property Slayers[] 'found';@moveitem! 'found' 'backpack';pause 1000;break;endif;endfor;//get killers;for 0 to 'Killers';if @property Killers[] 'found' >= 90;@moveitem! 'found' 'backpack';pause 1000;break;endif;endfor;//get protections;for 0 to 'Protection';if @property Protection[] 'found' >= 50;@moveitem! 'found' 'backpack';pause 1000;break;endif;endfor;ignoreobject 'found';endwhile;endfor;//Jewels;for 0 to 'Jewelry';while @findtype Jewelry[] 0 'trash';waitforproperties 'found' 15000;//EP DI jewels;if @property 'Enhance Potions' 'found' >= 15 and @property 'Damage Increase' 'found' >= 15;@moveitem! 'found' 'backpack';pause 1000;break;endif;if @property 'Faster Cast Recovery' 'found' == 3;@moveitem! 'found' 'backpack';pause 1000;break;endif;//save 1/2 and 1/1;if @property 'Faster Cast Recovery' 'found' > 0 and @property 'Faster Casting' 'found';@moveitem! 'found' 'backpack';pause 1000;break;endif;//hci and dci jewels, other usable hci dci jewels will be captured by above;if @property 'Defense chance increase' 'found' >= 10 and @property 'Hit chance increase' 'found' >= 5;@moveitem! 'found' 'backpack';pause 1000;break;endif;if @property 'Hit chance increase' 'found' >= 12;@moveitem! 'found' 'backpack';pause 1000;break;endif;ignoreobject 'found';endwhile;endfor;clearignorelist;@moveitem! 'trash' 'Trash Barrel';pause 550;endwhile;else;// if you're not at Trash Barrel or FletcherDropoff, then stop;sysmsg 'You need to be next to the Trash Barrel or your FletcherDropoff container when starting this macro' 33;stop;endif;endif;endfor;endfor;endfor;endfor;</macro>
  224. <macro interrupt="True" loop="False" name="walking hw">while y != 992 and y > 400;for 2;if y > 992;walk 'north';endif;pause 250;if y &lt; 992;walk 'south';endif;pause 250;endfor;endwhile;if x > 535 and x &lt; 1000;while x > 535 and x &lt; 1000;run 'west';pause 100;endwhile;endif;if x &lt; 537;while x &lt; 537;run 'east';pause 100;endwhile;endif;//navigate through heartwood to carpetry area;while y &lt; 377;run 'southeast';endwhile;pause 500;while y &lt; 377;run 'southeast';endwhile;pause 500;while x > 7022 and x &lt; 7025;walk 'west';pause 500;endwhile;pause 500;while y > 377 and y &lt; 393;run 'south';endwhile;pause 500;while x > 7021 and x &lt; 7027;walk 'east';pause 500;endwhile;pause 500;while y > 392 and y &lt; 408;run 'south';endwhile;pause 500;while x > 7026 and x &lt; 7049;run 'east';endwhile;pause 500;//navigate to tailoring area;while y > 407 and y &lt; 413;run 'south';endwhile;while x &lt; 7050 and x > 7031;run 'southwest';endwhile;</macro>
  225. <macro interrupt="False" loop="True" name="BuyCloth">@setalias 'FletcherRunebook' 0x43a8ab43;useobject 'FletcherRunebook';waitforgump 0x554b87f3 5000;replygump 0x554b87f3 17;pause 500;waitforcontext 0x4104b 2 15000;waitforcontext 0x62992 2 15000;</macro>
  226. <macro interrupt="True" loop="True" name="Tailor Recipes Trash">if not listexists 'Tailor Recipes Trash';@createlist 'Tailor Recipes Trash';@pushlist 'Tailor Recipes Trash' 'Quiver of Ice';@pushlist 'Tailor Recipes Trash' 'Quiver of Lightning';@pushlist 'Tailor Recipes Trash' 'Quiver of Fire';@pushlist 'Tailor Recipes Trash' 'Quiver of Blight';@pushlist 'Tailor Recipes Trash' 'Elven Quiver';//@pushlist 'Tailor Recipes Trash' 'Song Woven Mantle';//@pushlist 'Tailor Recipes Trash' 'Spell Woven Britches';//@pushlist 'Tailor Recipes Trash' 'Stitchers Mittens';endif;while @findtype 0x2831 0 'backpack';// Move quivers to trash;for 0 to 'Tailor Recipes Trash';waitforproperties 'found' 15000;if @property 'Tailor Recipes Trash[]' 'found';@moveitem! 'found' 'Trash Barrel';pause 1000;break;endif;endfor;ignoreobject 'found';endwhile;</macro>
  227. <macro interrupt="True" loop="False" name="Craft All 5 Runic">//Change leather type lines 23, 45, and 104;@setalias 'all5' 'self';@setalias 'restock' 0x418d896b;@setalias 'backuphrsk1' 0x40a71ece;@setalias 'backuphrsk2' 0x40a71ecd;@setalias 'backuphrsk3' 0x40a71ed0;useobject 'restock';pause 550;if @property 'Contents' 'backuphrsk1' > 0 and not counttype 0xf9d 'any' 'backuphrsk1' > 0;useobject 'backuphrsk1';pause 550;endif;if @property 'Contents' 'backuphrsk2' > 0 and not counttype 0xf9d 'any' 'backuphrsk2' > 0;useobject 'backuphrsk2';pause 550;endif;if @property 'Contents' 'backuphrsk3' > 0 and not counttype 0xf9d 'any' 'backuphrsk3' > 0;useobject 'backuphrsk3';pause 550;endif;if @property 'Contents' '3mod' > 80 or @property 'Stones' '3mod' > 400;sysmsg 'Unload 3 mod' 34;//Barbed;//while counttype 0x1081 '2129' 'backpack' > 0;//Horned;//while counttype 0x1081 '2117' 'backpack' > 0;//Spined;while counttype 0x1081 '2220' 'backpack' > 0;movetype 0x1081 'backpack' 'restock';pause 1000;endwhile;useobject '3mod';pause 1000;organizer 'Gear' '3mod' 'backpack';while organizing;endwhile;pause 2000;while @inrange '3mod' 5;//set these up for each character burning gear;if serial 'self' == 0xe21d7;useobject 0x43a8ab43;waitforgump 0x554b87f3 15000;replygump 0x554b87f3 23;endif;pause 2000;endwhile;@playmacro 'Luna Gear Drop';stop;endif;while @findtype 0xf9d '2129' 'backpack' or @findtype 0xf9d '2117' 'backpack';//LEATHER TYPE;//BARBED:;//Remove "//" from the next 3 lines and add it to the other leather types.;// if counttype 0x1081 '2129' 'backpack' &lt; 25;//if counttype 0x1081 '2129' 'restock' > 200;//movetype 0x1081 'restock' 'backpack' (0 0 0) '2129' 200;//HORNRD:;//Remove "//" from the next 3 lines and add it to the other leather types.;//if counttype 0x1081 '2117' 'backpack' &lt; 25;//if counttype 0x1081 '2117' 'restock' > 200;//movetype 0x1081 'restock' 'backpack' (0 0 0) '2117' 200;//SPINED:;//Remove "//" from the next 3 lines and add it to the other leather types.;if counttype 0x1081 '2220' 'backpack' &lt; 25;if counttype 0x1081 '2220' 'restock' > 200;movetype 0x1081 'restock' 'backpack' (0 0 0) '2220' 200;pause 1000;else;sysmsg 'Out of leather!' 33;stop;endif;endif;useobject 'found';waitforgump 0x38920abd 2500;if not ingump '0x38920abd' 'Spell Woven Britches';replygump 0x38920abd 36;waitforgump 0x38920abd 1500;endif;if @findalias 'legs';@unsetalias 'legs';@unsetalias 'tunic';@unsetalias 'gloves';@unsetalias 'sleeves';@unsetalias 'gorget';endif;//gorget;if not @findalias 'gorget';replygump 0x38920abd 23;waitforgump 0x38920abd 1500;@setalias 'gorget' 'self';//sleeves;elseif not @findalias 'sleeves';replygump 0x38920abd 44;waitforgump 0x38920abd 1500;@setalias 'sleeves' 'self';//gloves;elseif not @findalias 'gloves';replygump 0x38920abd 37;waitforgump 0x38920abd 1500;@setalias 'gloves' 'self';//tunic;elseif not @findalias 'tunic';replygump 0x38920abd 58;waitforgump 0x38920abd 1500;@setalias 'tunic' 'self';//legs;elseif not @findalias 'legs';replygump 0x38920abd 51;waitforgump 0x38920abd 1500;@setalias 'legs' 'self';endif;//LEATHER TYPE;//BARBED:;//Remove "//" from the next 3 lines and add it to the other leather types.;// if counttype 0x1081 '2220' 'backpack' &lt; 25;//if counttype 0x1081 '2220' 'restock' > 200;//movetype 0x1081 'restock' 'backpack' (0 0 0) '2220' 200;//HORNED:;//Remove "//" from the next 3 lines and add it to the other leather types.;//if counttype 0x1081 '2117' 'backpack' &lt; 25;//if counttype 0x1081 '2117' 'restock' > 200;//movetype 0x1081 'restock' 'backpack' (0 0 0) '2117' 200;//SPINED:;//Remove "//" from the next 3 lines and add it to the other leather types.;if counttype 0x1081 '2220' 'backpack' &lt; 25;if counttype 0x1081 '2220' 'restock' > 200;movetype 0x1081 'restock' 'backpack' (0 0 0) '2220' 200;pause 1000;else;sysmsg 'Out of leather!' 33;stop;endif;endif;endwhile;if @movetype 0xf9d 'restock' 'backpack' (0 0 0) 2129 1;pause 1000;sysmsg 'Taking 1 BRSK' 72;elseif @movetype 0xf9d 'restock' 'backpack' (0 0 0) 2117 1;pause 1000;sysmsg 'Taking 1 HRSK' 34;elseif @movetype 0xf9d 'backuphrsk1' 'backpack' (0 0 0) 2129 1;pause 1000;sysmsg 'Taking 1 BRSK' 72;elseif @movetype 0xf9d 'backuphrsk1' 'backpack' (0 0 0) 2117 1;pause 1000;sysmsg 'Taking 1 HRSK' 34;elseif @movetype 0xf9d 'backuphrsk2' 'backpack' (0 0 0) 2129 1;pause 1000;sysmsg 'Taking 1 BRSK' 72;elseif @movetype 0xf9d 'backuphrsk2' 'backpack' (0 0 0) 2117 1;pause 1000;sysmsg 'Taking 1 HRSK' 34;elseif @movetype 0xf9d 'backuphrsk3' 'backpack' (0 0 0) 2129 1;pause 1000;sysmsg 'Taking 1 BRSK' 72;elseif @movetype 0xf9d 'backuphrsk3' 'backpack' (0 0 0) 2117 1;pause 1000;sysmsg 'Taking 1 HRSK' 34;else;if counttype 0x13cb 'any' 'backpack' > 0 or counttype '0x13cc' 'any' 'backpack' > 0;@playmacro 'Sort Gear';elseif counttype 0x13c6 'any' 'backpack' > 0 or counttype '0x13cd' 'any' 'backpack' > 0;@playmacro 'Sort Gear';elseif counttype 0x13c7 'any' 'backpack' > 0;@playmacro 'Sort Gear';else;sysmsg 'Out of Kits' 34;stop;endif;endif;@playmacro 'Sort Gear';</macro>
  228. <macro interrupt="True" loop="True" name="Sort Gear">@setalias '2mod' 0x406d4147;@setalias '5mod' 0x40a71ed1;@setalias '3mod' 0x40a71ecb;@setalias 'luck' 0x427c23c0;@setalias 'Noob' 0x4163b7cb;if @findtype 0x13c7 'any' 'backpack' or @findtype 0x277a 'any' 'backpack';//gorget;@setalias 'LRCMR' 0x4100da97;@setalias 'HPILMCMR' 0x41010a00;@setalias 'StamLMCMR' 0x41015587;@setalias 'ManaLMCMR' 0x4100bd01;@setalias 'LMCMR' 0x4100bcf8;@setalias 'StamHPIMR' 0x410109f1;@setalias 'ManaHPIMR' 0x410109e8;@setalias 'HPIMR' 0x4100bd04;@setalias 'StamMR' 0x4100e1d9;@setalias 'ManaMR' 0x410109f2;//;@setalias 'MR' 0x40a6ce14;@setalias 'LRCLMCHPI' 0x40a6ce17;@setalias 'LRCHPI' 0x40a6ce07;@setalias 'LRCLMC' 0x40a6ce12;@setalias 'LRC' 0x40a71ec5;@setalias 'HPILMCStam' 0x40a6ce19;@setalias 'HPILMCMana' 0x40a71ec8;@setalias 'HPILMC' 0x40a71ec1;@setalias 'StamManaLMC' 0x40a6ce09;@setalias 'StamLMC' 0x40a71ec3;//;@setalias 'ManaLMC' 0x40a6ce15;@setalias 'LMC' 0x40a71eb5;@setalias 'HPIManaStam' 0x40a6ce11;@setalias 'HPIStam' 0x40a71eb7;@setalias 'HPIMana' 0x40a71ec6;@setalias 'HPI' 0x40a6ce13;@setalias 'ManaStam' 0x40a71eb2;@setalias 'Stam' 0x40a6ce0c;@setalias 'Mana' 0x40a71eb8;@setalias 'Resist' 0x40a71ebb;//;@setalias 'LRCMule' 0x4100bd08;elseif @findtype 0x13cd 'any' 'backpack' or @findtype 0x277e 'any' 'backpack';//sleeves;@setalias 'LRCMR' 0x40a6ce18;@setalias 'HPILMCMR' 0x40a71eb4;@setalias 'StamLMCMR' 0x40a6ce16;@setalias 'ManaLMCMR' 0x40a71eb6;@setalias 'LMCMR' 0x40a6ce0e;@setalias 'StamHPIMR' 0x40a6ce0d;@setalias 'ManaHPIMR' 0x40a6ce0a;@setalias 'HPIMR' 0x40a71ebe;@setalias 'StamMR' 0x40a6ce0b;@setalias 'ManaMR' 0x40a6ce1c;//;@setalias 'MR' 0x40a71ec7;@setalias 'LRCLMCHPI' 0x40a6ce08;@setalias 'LRCHPI' 0x40a71ebc;@setalias 'LRCLMC' 0x40a71eb3;@setalias 'LRC' 0x40a71ebd;@setalias 'HPILMCStam' 0x40a6ce10;@setalias 'HPILMCMana' 0x40a71ec0;@setalias 'HPILMC' 0x40a71ebf;@setalias 'StamManaLMC' 0x40a6ce05;@setalias 'StamLMC' 0x40a71ec4;//;@setalias 'ManaLMC' 0x41048de1;@setalias 'LMC' 0x41048de3;@setalias 'HPIManaStam' 0x41048df1;@setalias 'HPIStam' 0x41048de0;@setalias 'HPIMana' 0x41048def;@setalias 'HPI' 0x41048de4;@setalias 'ManaStam' 0x41048de7;@setalias 'Stam' 0x41048de8;@setalias 'Mana' 0x41048deb;@setalias 'Resist' 0x41048ddf;//2;@setalias 'LRCMule' 0x40a71ecf;elseif @findtype 0x13c6 'any' 'backpack' or @findtype 0x2792 'any' 'backpack';//gloves;@setalias 'LRCMR' 0x41048df2;@setalias 'HPILMCMR' 0x41048dec;@setalias 'StamLMCMR' 0x41048dee;@setalias 'ManaLMCMR' 0x41048df0;@setalias 'LMCMR' 0x41048de5;@setalias 'StamHPIMR' 0x41048de9;@setalias 'ManaHPIMR' 0x41048ded;@setalias 'HPIMR' 0x41048dea;@setalias 'StamMR' 0x41048de2;@setalias 'ManaMR' 0x41048de6;//;@setalias 'MR' 0x4100bcf6;@setalias 'LRCLMCHPI' 0x4100bcfd;@setalias 'LRCHPI' 0x4100da9a;@setalias 'LRCLMC' 0x4100e1d6;@setalias 'LRC' 0x4100da8d;@setalias 'HPILMCStam' 0x410109f6;@setalias 'HPILMCMana' 0x4100e1de;@setalias 'HPILMC' 0x4101558b;@setalias 'StamManaLMC' 0x4100da8c;@setalias 'StamLMC' 0x4100e1d1;//;@setalias 'ManaLMC' 0x4100da93;@setalias 'LMC' 0x41010a01;@setalias 'HPIManaStam' 0x4101558a;@setalias 'HPIStam' 0x410109ec;@setalias 'HPIMana' 0x4100e1d7;@setalias 'HPI' 0x410109ef;@setalias 'ManaStam' 0x4100bcfa;@setalias 'Stam' 0x4100bd00;@setalias 'Mana' 0x4100e1dc;@setalias 'Resist' 0x4100da89;//3;@setalias 'LRCMule' 0x40a71ec9;elseif @findtype 0x13cb 'any' 'backpack' or @findtype 0x278a 'any' 'backpack';//legs;@setalias 'LRCMR' 0x4100bcf7;@setalias 'HPILMCMR' 0x4100da8a;@setalias 'StamLMCMR' 0x4100bcf2;@setalias 'ManaLMCMR' 0x4100bcfc;@setalias 'LMCMR' 0x4100bd05;@setalias 'StamHPIMR' 0x4100e1cf;@setalias 'ManaHPIMR' 0x4100e1d0;@setalias 'HPIMR' 0x4100da86;@setalias 'StamMR' 0x4100da88;@setalias 'ManaMR' 0x4100da91;//;@setalias 'MR' 0x4100e1da;@setalias 'LRCLMCHPI' 0x410109f9;@setalias 'LRCHPI' 0x410109fd;@setalias 'LRCLMC' 0x4100e1d2;@setalias 'LRC' 0x4100bd03;@setalias 'HPILMCStam' 0x410109ff;@setalias 'HPILMCMana' 0x4100da98;@setalias 'HPILMC' 0x4100bcf9;@setalias 'StamManaLMC' 0x4100bcf3;@setalias 'StamLMC' 0x41010a03;//;@setalias 'ManaLMC' 0x4100e1d5;@setalias 'LMC' 0x41010a02;@setalias 'HPIManaStam' 0x4100e1df;@setalias 'HPIStam' 0x410109f4;@setalias 'HPIMana' 0x4100bcfb;@setalias 'HPI' 0x410109f0;@setalias 'ManaStam' 0x4100da8f;@setalias 'Stam' 0x4100da92;@setalias 'Mana' 0x410109fe;@setalias 'Resist' 0x41015591;//4;@setalias 'LRCMule' 0x40a71eca;elseif @findtype 0x13cc 'any' 'backpack';//tunic;@setalias 'LRCMR' 0x4100bcf4;@setalias 'HPILMCMR' 0x4100bd07;@setalias 'StamLMCMR' 0x4100e1d4;@setalias 'ManaLMCMR' 0x4100e1e4;@setalias 'LMCMR' 0x410109fa;@setalias 'StamHPIMR' 0x41015590;@setalias 'ManaHPIMR' 0x41015593;@setalias 'HPIMR' 0x410109f7;@setalias 'StamMR' 0x4100e1dd;@setalias 'ManaMR' 0x41015588;//;@setalias 'MR' 0x4100da99;@setalias 'LRCLMCHPI' 0x4100da9b;@setalias 'LRCHPI' 0x4100e1db;@setalias 'LRCLMC' 0x4100e1d8;@setalias 'LRC' 0x4100e1d3;@setalias 'HPILMCStam' 0x41015586;@setalias 'HPILMCMana' 0x41015589;@setalias 'HPILMC' 0x4101558c;@setalias 'StamManaLMC' 0x4100da87;@setalias 'StamLMC' 0x4100da90;//;@setalias 'ManaLMC' 0x4100bd06;@setalias 'LMC' 0x4100bcff;@setalias 'HPIManaStam' 0x4100da8b;@setalias 'HPIStam' 0x4100e1e3;@setalias 'HPIMana' 0x4100bcfe;@setalias 'HPI' 0x4100e1e2;@setalias 'ManaStam' 0x4100da8e;@setalias 'Stam' 0x410109f3;@setalias 'Mana' 0x410109f8;@setalias 'Resist' 0x4100da95;//5;@setalias 'LRCMule' 0x40a71ecc;endif;if @injournal 'world will save';while not @injournal 'world save complete';endwhile;@clearjournal;endif;@removelist 'modcount';@createlist 'modcount';if @findobject 'found' 'any' 'backpack';waitforproperties 'found' 5000;else;pause 550;sysmsg 'Done' 34;if @findalias 'all5';playmacro 'Craft All 5 Runic';else;@playmacro 'Craft Last Runic';endif;stop;endif;if @property 'mana regeneration' 'found' == 2;pushlist 'modcount' 'mr';endif;if @property 'lower mana cost' 'found' >= 4;pushlist 'modcount' 'lmc';endif;if @property 'lower reagent cost' 'found' >= 12;pushlist 'modcount' 'lrc';endif;if @property 'hit point increase' 'found' >= 3;pushlist 'modcount' 'hpi';endif;if @property 'mana increase' 'found' >= 5;pushlist 'modcount' 'mana';endif;if @property 'stamina increase' 'found' >= 5;pushlist 'modcount' 'stam';endif;if @property 'physical resist' 'found' >= 14;pushlist 'modcount' 'physical';endif;if @property 'fire resist' 'found' >= 14;pushlist 'modcount' 'fire';endif;if @property 'cold resist' 'found' >= 14;pushlist 'modcount' 'cold';endif;if @property 'poison resist' 'found' >= 14;pushlist 'modcount' 'poison';endif;if @property 'energy resist' 'found' >= 14;pushlist 'modcount' 'energy';endif;if @property 'luck' 'found' >= 100;pushlist 'modcount' 'luck';endif;if @property 'lower reagent cost' 'found' >= 12 and @property 'stamina increase' 'found' >= 5;poplist 'modcount' 'stam';endif;if @property 'lower reagent cost' 'found' >= 12 and @property 'mana increase' 'found' >= 5;poplist 'modcount' 'mana';endif;if @property 'lower reagent cost' 'found' >= 12 and @property 'energy resist' 'found' >= 14;poplist 'modcount' 'energy';endif;///;///;///sort;if list 'modcount' &lt;= 2;sysmsg '2mod';if @property 'lower reagent cost' 'found' >= 16 and @property 'mana regeneration' 'found' == 2;sysmsg 'Mule' 88;if @property 'Contents' 'lrcmule' &lt; 100 or @property 'stamina regeneration' 'found';moveitem 'found' 'lrcmule';elseif serial 'self' == 0xe21d7;moveitem 'found' '3mod';pause 550;//else;//usetype! 0xf9f;//while waitingfortarget;//endwhile;//pause 550;//target! 'found';endif;elseif @property 'lower mana cost' 'found' >= 7 and @property 'lower reagent cost' 'found' >= 16;if @property 'Contents' 'lrcmule' &lt; 100 or @property 'stamina regeneration' 'found';sysmsg 'Mule' 88;moveitem 'found' 'lrcmule';elseif serial 'self' == 0xe21d7;moveitem 'found' '3mod';pause 550;//else;//usetype! 0xf9f;//while waitingfortarget;//endwhile;//pause 550;//target! 'found';endif;elseif @property 'lower reagent cost' 'found' >= 20;if @property 'Contents' 'Noob' &lt; 100 or @property 'stamina regeneration' 'found';sysmsg 'Noob' 88;moveitem 'found' 'Noob';elseif serial 'self' == 0xe21d7;moveitem 'found' '3mod';pause 550;//else;//usetype! 0xf9f;//while waitingfortarget;//endwhile;//pause 550;//target! 'found';endif;else;moveitem 'found' '2mod';sysmsg 'cut up';//edit this to cut up;//usetype! 0xf9f;//while waitingfortarget;//endwhile;//pause 550;//target! 'found';endif;elseif list 'modcount' == 3;sysmsg '3mod' 52;if @property 'lower reagent cost' 'found' >= 16 and @property 'mana regeneration' 'found' == 2;if @property 'Contents' 'lrcmule' &lt; 100 or @property 'stamina regeneration' 'found';sysmsg 'Mule' 88;moveitem 'found' 'lrcmule';elseif serial 'self' == 0xe21d7;moveitem 'found' '3mod';pause 550;else;moveitem 'found' '5mod';//usetype! 0xf9f;//while waitingfortarget;//endwhile;//pause 550;//target! 'found';endif;elseif @property 'lower mana cost' 'found' >= 7 and @property 'lower reagent cost' 'found' >= 16;if @property 'Contents' 'lrcmule' &lt; 100 or @property 'stamina regeneration' 'found';sysmsg 'Mule' 88;moveitem 'found' 'lrcmule';elseif serial 'self' == 0xe21d7;moveitem 'found' '3mod';pause 550;else;moveitem 'found' '5mod';//usetype! 0xf9f;//while waitingfortarget;//endwhile;//pause 550;//target! 'found';endif;elseif @property 'luck' 'found' >= 120 and @property 'lower reagent cost' 'found' >= 16;if @property 'Contents' 'luck' &lt; 125 or @property 'stamina regeneration' 'found';sysmsg 'Luck' 22;moveitem 'found' 'luck';elseif serial 'self' == 0xe21d7;moveitem 'found' '3mod';pause 550;else;moveitem 'found' '5mod';//usetype! 0xf9f;//while waitingfortarget;//endwhile;//pause 550;//target! 'found';endif;elseif @property 'luck' 'found' >= 120 and @property 'stamina increase' 'found' >= 6;if @property 'Contents' 'luck' &lt; 125 or @property 'stamina regeneration' 'found';sysmsg 'Luck' 22;moveitem 'found' 'luck';elseif serial 'self' == 0xe21d7;moveitem 'found' '3mod';pause 550;else;moveitem 'found' '5mod';//usetype! 0xf9f;//while waitingfortarget;//endwhile;//pause 550;//target! 'found';endif;elseif @property 'luck' 'found' >= 120 and @property 'lower mana cost' 'found' >= 6;if @property 'Contents' 'luck' &lt; 125 or @property 'stamina regeneration' 'found';sysmsg 'Luck' 22;moveitem 'found' 'luck';elseif serial 'self' == 0xe21d7;moveitem 'found' '3mod';pause 550;else;moveitem 'found' '5mod';//usetype! 0xf9f;//while waitingfortarget;//endwhile;//pause 550;//target! 'found';endif;elseif @property 'luck' 'found' >= 120 and @property 'mana regeneration' 'found' >= 2;if @property 'Contents' 'luck' &lt; 125 or @property 'stamina regeneration' 'found';sysmsg 'Luck' 22;moveitem 'found' 'luck';elseif serial 'self' == 0xe21d7;moveitem 'found' '3mod';pause 550;else;moveitem 'found' '5mod';// usetype! 0xf9f;//while waitingfortarget;//endwhile;// pause 550;// target! 'found';endif;elseif @property 'lower reagent cost' 'found' >= 20;if @property 'Contents' 'Noob' &lt; 100 or @property 'stamina regeneration' 'found';sysmsg 'Noob' 88;moveitem 'found' 'Noob';elseif serial 'self' == 0xe21d7;moveitem 'found' '3mod';pause 550;else;moveitem 'found' '5mod';// usetype! 0xf9f;// while waitingfortarget;// endwhile;// pause 550;// target! 'found';endif;elseif serial 'self' == 0xe21d7;moveitem 'found' '3mod';pause 550;else;moveitem 'found' '5mod';//usetype! 0xf9f;// while waitingfortarget;// endwhile;// pause 550;//target! 'found';endif;//comment out next 3 lines to put 5 mod into stacks;//elseif list 'modcount' == 5;//sysmsg '5mod' 64;//moveitem 'found' '5mod';elseif list 'modcount' >= 4;sysmsg '4+mod' 34;if @property 'mana regeneration' 'found' == 2 and @property 'lower reagent cost' 'found';sysmsg 'LRC &amp; MR';moveitem 'found' 'lrcmr';elseif @property 'mana regeneration' 'found' == 2 and @property 'lower mana cost' 'found' >= 4;if @property 'hit point increase' 'found';sysmsg 'HPI LMC &amp; MR';moveitem 'found' 'hpilmcmr';elseif @property 'stamina increase' 'found';sysmsg 'Stam LMC &amp; MR';moveitem 'found' 'stamlmcmr';elseif @property 'mana increase' 'found';sysmsg 'Mana LMC &amp; MR';moveitem 'found' 'manalmcmr';else;sysmsg 'LMC &amp; MR';moveitem 'found' 'lmcmr';endif;elseif @property 'mana regeneration' 'found' == 2 and @property 'hit point increase' 'found' >= 3;if @property 'stamina increase' 'found';sysmsg 'Stam HPI &amp; MR';moveitem 'found' 'stamhpimr';elseif @property 'mana increase' 'found';sysmsg 'Mana LMC MR';moveitem 'found' 'manahpimr';else;sysmsg 'HPI &amp; MR';moveitem 'found' 'hpimr';endif;elseif @property 'mana regeneration' 'found' == 2 and @property 'stamina increase' 'found' >= 5;sysmsg 'Stam &amp; MR';moveitem 'found' 'stammr';elseif @property 'mana regeneration' 'found' == 2 and @property 'mana increase' 'found' >= 5;sysmsg 'Mana &amp; MR';moveitem 'found' 'manamr';elseif @property 'mana regeneration' 'found' == 2;sysmsg 'MR only';moveitem 'found' 'mr';elseif @property 'lower reagent cost' 'found';if @property 'lower mana cost' 'found' >= 4 and @property 'hit point increase' 'found' >= 3;sysmsg 'LRC LMC &amp; HPI';moveitem 'found' 'lrclmchpi';elseif @property 'lower mana cost' 'found' >= 4;sysmsg 'LMC &amp; LRC';moveitem 'found' 'lrclmc';elseif @property 'hit point increase' 'found' >= 3;sysmsg 'HPI &amp; LRC';moveitem 'found' 'lrchpi';else;sysmsg 'LRC Only';moveitem 'found' 'lrc';endif;elseif @property 'lower mana cost' 'found' >= 4 and @property 'hit point increase' 'found' >= 3;if @property 'stamina increase' 'found' >= 5;sysmsg 'HPI LMC &amp; Stam';moveitem 'found' 'hpilmcstam';elseif @property 'mana increase' 'found' >= 5;sysmsg 'HPI LMC &amp; Mana';moveitem 'found' 'hpilmcmana';else;sysmsg 'HPI &amp; LMC';moveitem 'found' 'HPILMC';endif;elseif @property 'lower mana cost' 'found' >= 4;if @property 'stamina increase' 'found' >= 5 and @property 'mana increase' 'found' >= 5;sysmsg 'Stam Mana &amp; LMC';moveitem 'found' 'stammanalmc';elseif @property 'stamina increase' 'found' >= 5;sysmsg 'Stam &amp; LMC';moveitem 'found' 'stamlmc';elseif @property 'mana increase' 'found' >= 5;sysmsg 'Mana &amp; LMC';moveitem 'found' 'manalmc';elseif @property 'Lower Mana Cost' 'found' >= 4;sysmsg 'LMC Only';moveitem 'found' 'LMC';endif;elseif @property 'hit point increase' 'found' >= 3;if @property 'stamina increase' 'found' >= 5 and @property 'Mana Increase' 'found' >= 5;sysmsg 'HPI Stam &amp; Mana';moveitem 'found' 'HPIManaStam';elseif @property 'stamina increase' 'found' >= 5;sysmsg 'HPI &amp; Stam';moveitem 'found' 'HPIStam';elseif @property 'mana increase' 'found' >= 5;sysmsg 'HPI &amp; Mana';moveitem 'found' 'HPIMana';else;sysmsg 'HPI Only';moveitem 'found' 'hpi';endif;elseif @property 'stamina increase' 'found' >= 5 and @property 'Mana Increase' 'found' >= 5;sysmsg 'Stam and Mana';moveitem 'found' 'ManaStam';elseif @property 'Stamina increase' 'found' >= 5;sysmsg 'Stam only';moveitem 'found' 'Stam';elseif @property 'Mana increase' 'found' >= 5;sysmsg 'Mana only';moveitem 'found' 'Mana';else;sysmsg 'Resist Only';moveitem 'found' 'resist';endif;endif;pause 550;sysmsg '-' 72;</macro>
  229. <macro interrupt="True" loop="False" name="Luna Gear Drop">if not timerexists 'drops';createtimer 'drops';settimer 'drops' 0;endif;if not timerexists 'run';createtimer 'run';endif;settimer 'run' 0;while x &lt; 1066;if timer 'run' > 60000;pause 1000;useobject 0x43a8ab43;waitforgump 0x554b87f3 15000;replygump 0x554b87f3 23;pause 2000;@playmacro 'Luna Gear Drop';endif;@clearusequeue;if @findtype 0x13c7 'any' 'backpack';//gorget;elseif @findtype 0x13cd 'any' 'backpack' or @findtype 0x277e 'any' 'backpack';//sleeves;elseif @findtype 0x13c6 'any' 'backpack' or @findtype 0x2792 'any' 'backpack';//gloves;elseif @findtype 0x13cb 'any' 'backpack' or @findtype 0x278a 'any' 'backpack';//legs;elseif @findtype 0x13cc 'any' 'backpack' or @findtype 0x1db9 'any' 'backpack';//tunic;else;pause 1000;//set up for each character recalling home;if serial 'self' == 0xe21d7;useobject 0x43a8ab43;waitforgump 0x554b87f3 15000;replygump 0x554b87f3 5;endif;pause 3000;//code to navigate back to to crafting station;while x > 1749;walk 'west';pause 1000;endwhile;while y > 1239;walk 'north';pause 1000;endwhile;while y &lt; 1251;walk 'south';pause 1000;endwhile;while x > 1752;walk 'northwest';pause 1000;endwhile;if @findalias 'all5';@playmacro 'Craft All 5 Runic';else;@playmacro 'Craft Last Runic';endif;endif;if timer 'drops' > 750;pause 250;moveitemoffset 'found' 'ground' (0 1 0);settimer 'drops' 0;endif;run 'east';endwhile;if not timerexists 'drops';createtimer 'drops';settimer 'drops' 0;endif;settimer 'run' 0;while x > 914;if timer 'run' > 60000;pause 1000;useobject 0x43a8ab43;waitforgump 0x554b87f3 15000;replygump 0x554b87f3 23;pause 2000;@playmacro 'Luna Gear Drop';endif;@clearusequeue;if @findtype 0x13c7 'any' 'backpack';//gorget;elseif @findtype 0x13cd 'any' 'backpack' or @findtype 0x277e 'any' 'backpack';//sleeves;elseif @findtype 0x13c6 'any' 'backpack' or @findtype 0x2792 'any' 'backpack';//gloves;elseif @findtype 0x13cb 'any' 'backpack' or @findtype 0x278a 'any' 'backpack';//legs;elseif @findtype 0x13cc 'any' 'backpack';//tunic;else;//set up for each character recalling home;if serial 'self' == 0xe21d7;useobject 0x43a8ab43;waitforgump 0x554b87f3 15000;replygump 0x554b87f3 5;endif;pause 3000;//code to navigate back to to crafting station;while x > 1749;walk 'west';pause 1000;endwhile;while y > 1239;walk 'north';pause 1000;endwhile;while y &lt; 1251;walk 'south';pause 1000;endwhile;while x > 1752;walk 'northwest';pause 1000;endwhile;if @findalias 'all5';@playmacro 'Craft All 5 Runic';else;@playmacro 'Craft Last Runic';endif;endif;if timer 'drops' > 750;pause 250;moveitemoffset! 'found' 'ground' (0 1 0);settimer 'drops' 0;endif;run 'west';endwhile;</macro>
  230. <macro interrupt="True" loop="False" name="Craft Last Runic">//Change leather type line 42 and 68;@unsetalias 'all5';@setalias 'restock' 0x4078edba;useobject 'restock';pause 550;if @property 'Contents' 'backuphrsk1' > 0;useobject 'backuphrsk1';pause 550;endif;if @property 'Contents' 'backuphrsk2' > 0;useobject 'backuphrsk2';pause 550;endif;if @property 'Contents' 'backuphrsk3' > 0;useobject 'backuphrsk3';pause 550;endif;if @property 'Contents' '3mod' > 80 or @property 'Stones' '3mod' > 400;sysmsg 'Unload 3 mod' 34;//Barbed;//while counttype 0x1081 '2129' 'backpack' > 0;//Horned;//while counttype 0x1081 '2117' 'backpack' > 0;//Spined;while counttype 0x1081 '2220' 'backpack' > 0;movetype 0x1081 'backpack' 'restock';pause 1000;endwhile;useobject '3mod';pause 1000;organizer 'Gear' '3mod' 'backpack';while organizing;endwhile;pause 2000;while @inrange '3mod' 5;//set these up for each character burning gear;if serial 'self' == 0xe21d7;useobject 0x43a8ab43;waitforgump 0x554b87f3 15000;replygump 0x554b87f3 23;endif;endwhile;@playmacro 'Luna Gear Drop';stop;endif;while @findtype 0xf9d '2129' 'backpack' or @findtype 0xf9d '2117' 'backpack';//LEATHER TYPE;//BARBED:;//Remove "//" from the next 3 lines and add it to the other leather types.;// if counttype 0x1081 '2129' 'backpack' &lt; 25;//if counttype 0x1081 '2129' 'restock' > 200;//movetype 0x1081 'restock' 'backpack' (0 0 0) '2129' 200;//HORNRD:;//Remove "//" from the next 3 lines and add it to the other leather types.;//if counttype 0x1081 '2117' 'backpack' &lt; 25;//if counttype 0x1081 '2117' 'restock' > 200;//movetype 0x1081 'restock' 'backpack' (0 0 0) '2117' 200;//SPINED:;//Remove "//" from the next 3 lines and add it to the other leather types.;if counttype 0x1081 '2220' 'backpack' &lt; 25;if counttype 0x1081 '2220' 'restock' > 200;movetype 0x1081 'restock' 'backpack' (0 0 0) '2220' 200;pause 1000;else;sysmsg 'Out of leather!' 33;stop;endif;endif;useobject 'found';waitforgump 0x38920abd 2500;replygump 0x38920abd 21;waitforgump 0x38920abd 2500;//LEATHER TYPE;//BARBED:;//Remove "//" from the next 3 lines and add it to the other leather types.;// if counttype 0x1081 '2129' 'backpack' &lt; 25;//if counttype 0x1081 '2129' 'restock' > 200;//movetype 0x1081 'restock' 'backpack' (0 0 0) '2129' 200;//HORNRD:;//Remove "//" from the next 3 lines and add it to the other leather types.;//if counttype 0x1081 '2117' 'backpack' &lt; 25;//if counttype 0x1081 '2117' 'restock' > 200;//movetype 0x1081 'restock' 'backpack' (0 0 0) '2117' 200;//SPINED:;//Remove "//" from the next 3 lines and add it to the other leather types.;if counttype 0x1081 '2220' 'backpack' &lt; 25;if counttype 0x1081 '2220' 'restock' > 200;movetype 0x1081 'restock' 'backpack' (0 0 0) '2220' 200;pause 1000;else;sysmsg 'Out of leather!' 33;stop;endif;endif;endwhile;if @movetype 0xf9d 'restock' 'backpack' (0 0 0) 2129 1;pause 1000;sysmsg 'Taking 1 BRSK' 72;elseif @movetype 0xf9d 'restock' 'backpack' (0 0 0) 2117 1;pause 1000;sysmsg 'Taking 1 HRSK' 34;elseif @movetype 0xf9d 'backuphrsk1' 'backpack' (0 0 0) 2129 1;pause 1000;sysmsg 'Taking 1 BRSK' 72;elseif @movetype 0xf9d 'backuphrsk1' 'backpack' (0 0 0) 2117 1;pause 1000;sysmsg 'Taking 1 HRSK' 34;elseif @movetype 0xf9d 'backuphrsk2' 'backpack' (0 0 0) 2129 1;pause 1000;sysmsg 'Taking 1 BRSK' 72;elseif @movetype 0xf9d 'backuphrsk2' 'backpack' (0 0 0) 2117 1;pause 1000;sysmsg 'Taking 1 HRSK' 34;elseif @movetype 0xf9d 'backuphrsk3' 'backpack' (0 0 0) 2129 1;pause 1000;sysmsg 'Taking 1 BRSK' 72;elseif @movetype 0xf9d 'backuphrsk3' 'backpack' (0 0 0) 2117 1;pause 1000;sysmsg 'Taking 1 HRSK' 34;else;if counttype 0x13cb 'any' 'backpack' > 0 or counttype '0x13cc' 'any' 'backpack' > 0;@playmacro 'Sort Gear';elseif counttype 0x13c6 'any' 'backpack' > 0 or counttype '0x13cd' 'any' 'backpack' > 0;@playmacro 'Sort Gear';elseif counttype 0x13c7 'any' 'backpack' > 0;@playmacro 'Sort Gear';else;sysmsg 'Out of Kits' 34;stop;endif;endif;@playmacro 'Sort Gear';</macro>
  231. <macro interrupt="True" loop="False" name="make different bows"></macro>
  232. <macro interrupt="False" loop="True" name="make last bow">if not findalias 'bowcraft restock';promptalias 'bowcraft restock';endif;if not findalias 'keeper bows';promptalias 'keeper bows';endif;if not findalias 'trash bows';promptalias 'trash bows';endif;//Yew Kits;//if counttype 0x1022 1192 'backpack' == 0;//movetype 0x1022 'bowcraft restock' 'backpack' [(0 0 0)] 1192 1;//endif;//Heartwood Kits;if counttype 0x1023 1192 'backpack' == 0;movetype 0x1022 'bowcraft restock' 'backpack' [(0 0 0)] 1193 1;endif;//Ash Boards;if @counttype 0x1bd7 1191 'backpack' &lt; 15;movetype 0x1bd7 'bowcraft restock' 'backpack' [(0 0 0)] 1191 200;endif;//Yew Kits;//usetype 0x1022 1192 'backpack';//Heartwood Kits;usetype 0x1022 1193 'backpack';waitforgump 0x38920abd 15000;replygump 0x38920abd 21;waitforgump 0x38920abd 15000;pause 550;for 5;//regular bow;if @findtype 0x13b2 'any' 'backpack' 'any';setalias 'found' 'found';//regular crossbow;elseif @findtype 0xf50 'any' 'backpack' 'any';setalias 'found' 'found';//heavy crossbow;elseif @findtype 0x13fd 'any' 'backpack' 'any';setalias 'found' 'found';//composite bow;elseif @findtype 0x26c2 'any' 'backpack' 'any';setalias 'found' 'found';//repeating crossbow;elseif @findtype 0x26c3 'any' 'backpack' 'any';setalias 'found' 'found';//yumi;elseif @findtype 0x27a5 'any' 'backpack' 'any';setalias 'found' 'found';//elven composite logbow;elseif @findtype 0x2d1e 'any' 'backpack' 'any';setalias 'found' 'found';//magical shortbow;elseif @findtype 0x2d2b 'any' 'backpack' 'any';setalias 'found' 'found';endif;while @findobject 'found' 'any' 'backpack';waitforproperties 'found' 5000;if @property 'Balanced' 'found';if @property 'Hit Lower Defense' 'found' > 10 and @property 'Swing Speed Increase' 'found' > 25;moveitem 'found' 'keeper bows';@unsetalias 'found';endif;moveitem 'found' 'trash bows';elseif @property 'Slayer' 'found' and @property 'hit mana leech' 'found' >= 30;moveitem 'found' 'keeper bows';@unsetalias 'found';elseif @property 'hit mana leech' 'found' >= 30 and @property 'swing speed' 'found' >= 30;if @property 'damage increase' 'found' > 35;moveitem 'found' 'keeper bows';@unsetalias 'found';endif;moveitem 'found' 'trash bows';elseif @property 'swing speed' 'found' > 10 and @property 'Hit Lower Defense' 'found' >= 30;moveitem 'found' 'keeper bows';@unsetalias 'found';endif;@moveitem 'found' 'trash bows';@unsetalias 'found';pause 550;endwhile;endfor;</macro>
  233. <macro interrupt="True" loop="False" name="Sort Weapons">clearignorelist;setalias 'magic trash barrel' 0x438c5e0a;setalias 'sort container' 0x41362ae8;//////////////////////////////////////////////////;//////quarter staff//////;//////////////////////////////////////////////////;while @findtype 0xe89 'any' 'backpack';waitforproperties 'found' 2500;@unsetalias 'move';// Check item properties;if @property 'slayer' 'found' and @property 'mana' 'found';@setalias 'move''found';endif;if @property 'balanced' 'found' and @property 'damage increase' 'found';@setalias 'move''found';endif;if @property 'spell channeling' 'found' and @property 'damage increase' 'found';@setalias 'move''found';endif;if @property 'balanced' 'found' and @property 'hit chance icrease' 'found';@setalias 'move''found';endif;if @property 'damage increase' 'found' and @property 'mana' 'found' >= 30;@setalias 'move' 'found';endif;// Move the item;if @findalias 'move';moveitem 'found' 'sort container';pause 800;else if findalias 'found';moveitem 'found' 'magic trash barrel';pause 800;endif;ignoreobject 'found';endwhile;//////////////////////////////////////////////////;//////composite bow//////;//////////////////////////////////////////////////;while @findtype 0x26c2 'any' 'backpack';waitforproperties 'found' 2500;@unsetalias 'move';// Check item properties;if @property 'slayer' 'found' and @property 'mana' 'found';@setalias 'move''found';endif;if @property 'damage increase' 'found' and @property 'mana' 'found' >= 30;@setalias 'move' 'found';endif;if @property 'damage increase' 'found' and @property 'balanced' 'found';@setalias 'move' 'found';endif;if @property 'hit chance increase' 'found' and @property 'balanced' 'found';@setalias 'move' 'found';endif;if @property 'damage increase' 'found' and @property 'spell channeling' 'found';@setalias 'move' 'found';endif;// Move the item;if @findalias 'move';moveitem 'found' 'sort container';pause 800;else if findalias 'found';moveitem 'found' 'magic trash barrel';pause 800;endif;ignoreobject 'found';endwhile;//////////////////////////////////////////////////;///////regular bow///////;//////////////////////////////////////////////////;while @findtype 0x13b2 'any' 'backpack';waitforproperties 'found' 2500;@unsetalias 'move';// Check item properties;if @property 'slayer' 'found' and @property 'mana' 'found';@setalias 'move''found';endif;if @property 'damage increase' 'found' and @property 'mana' 'found' >= 30;@setalias 'move' 'found';endif;if @property 'damage increase' 'found' and @property 'balanced' 'found';@setalias 'move' 'found';endif;if @property 'hit chance increase' 'found' and @property 'balanced' 'found';@setalias 'move' 'found';endif;if @property 'damage increase' 'found' and @property 'spell channeling' 'found';@setalias 'move' 'found';endif;// Move the item;if @findalias 'move';moveitem 'found' 'sort container';pause 800;else if findalias 'found';moveitem 'found' 'magic trash barrel';pause 800;endif;ignoreobject 'found';endwhile;/////////////////////////;/////////////////////////;///////Black staff///////;/////////////////////////;/////////////////////////;while @findtype 0xdf0 'any' 'backpack';waitforproperties 'found' 2500;@unsetalias 'move';// Check item properties;if @property 'slayer' 'found' and @property 'mana' 'found';@setalias 'move''found';endif;if @property 'slayer' 'found' and @property 'stamina' 'found';@setalias 'move' 'found';endif;if @property 'damage increase' 'found' and @property 'mana' 'found' >= 30;@setalias 'move' 'found';endif;if @property 'damage increase' 'found' and @property 'stamina' 'found' >= 30;@setalias 'move' 'found';endif;// Move the item;if @findalias 'move';moveitem 'found' 'sort container';pause 800;else if findalias 'found';moveitem 'found' 'magic trash barrel';pause 800;endif;ignoreobject 'found';endwhile;/////////////////////////;/////////////////////////;//////////XBOW///////////;/////////////////////////;/////////////////////////;while @findtype 0xf50 'any' 'backpack';waitforproperties 'found' 2500;@unsetalias 'move';// Check item properties;if @property 'slayer' 'found' and @property 'mana' 'found';@setalias 'move''found';endif;if @property 'damage increase' 'found' and @property 'mana' 'found' >= 30;@setalias 'move' 'found';endif;if @property 'damage increase' 'found' and @property 'balanced' 'found';@setalias 'move' 'found';endif;if @property 'hit chance increase' 'found' and @property 'balanced' 'found';@setalias 'move' 'found';endif;if @property 'damage increase' 'found' and @property 'spell channeling' 'found';@setalias 'move' 'found';endif;// Move the item;if @findalias 'move';moveitem 'found' 'sort container';pause 800;else if findalias 'found';moveitem 'found' 'magic trash barrel';pause 800;endif;ignoreobject 'found';endwhile;playmacro 'make last';</macro>
  234. <macro interrupt="True" loop="False" name="for kazzswifey">//1. need 2 full runebooks marked 1 tile south of the mineable locations;//2. macro assumes you have tinkering and spot at dropoff location to restock ingots;//3. Organizer agent 'Ore' needs to be configured from your backpack to dropoff container and have the 4 ore graphics and 6 mining gems;//4. pauses after recalls are set to 2000 for 0Faster Casting. Change to 1750 for 1FC and 1500 for 2FC;setalias 'IngotsSource' 0x40e7801f;setalias 'OreBookOne' 0x40dedd06;setalias 'OreBookTwo' 0x40dee948;setalias 'HomeOre' 0x4044e2b8;if not listexists 'OreBook';createlist 'OreBook';pushlist 'OreBook' 'OreBookOne';pushlist 'OreBook' 'OreBookTwo';endif;if not listexists 'Runes';createlist 'Runes';pushlist 'Runes' 5;pushlist 'Runes' 11;pushlist 'Runes' 17;pushlist 'Runes' 23;pushlist 'Runes' 29;pushlist 'Runes' 35;pushlist 'Runes' 41;pushlist 'Runes' 47;pushlist 'Runes' 53;pushlist 'Runes' 59;pushlist 'Runes' 65;pushlist 'Runes' 71;pushlist 'Runes' 77;pushlist 'Runes' 83;pushlist 'Runes' 89;pushlist 'Runes' 95;endif;for 0 to 'OreBook';for 0 to 'Runes';pause 500;clearjournal;pause 500;useobject OreBook[];waitforgump 0x554b87f3 5000;replygump 0x554b87f3 Runes[];//tells you which rune you are on, see runelist above;sysmsg 'Rune' 33;sysmsg Runes[] 33;pause 2000;while not @injournal 'no metal here';//use pickaxe to northern tile until specified weight is reached;pause 300;usetype 0xe86;waitfortarget 1000;targettileoffset 0 -1 0;// once weight is reached go home, if getting overweight, lower it;if weight > 405;useobject 'HomeOre';waitforgump 0x554b87f3 5000;replygump 0x554b87f3 5;pause 2000;// organizer to put up ore;organizer 'Ore';while organizing;endwhile;// get ingots if low;if counttype 0x1bf2 0 'backpack' &lt; 20;useobject 'IngotsSource';pause 1000;movetype 0x1bf2 'IngotsSource' 'backpack' (0 0 0) 0 40;pause 1000;endif;// kits;while @counttype 0x1eb8 0 'backpack' &lt; 2;usetype! 0x1eb8;waitforgump 0x38920abd 15000;replygump 0x38920abd 8;waitforgump 0x38920abd 15000;replygump 0x38920abd 23;endwhile;//pickaxes;while @counttype 0xe86 0 'backpack' &lt; 3;usetype! 0x1eb8;waitforgump 0x38920abd 15000;replygump 0x38920abd 8;waitforgump 0x38920abd 15000;replygump 0x38920abd 114;endwhile;//recall back to where you were;useobject OreBook[];waitforgump 0x554b87f3 5000;replygump 0x554b87f3 Runes[];pause 2000;endif;endwhile;endfor;//recall home so ingot container is found;pause 1000;useobject 'HomeOre';waitforgump 0x554b87f3 5000;replygump 0x554b87f3 5;pause 2000;endfor;</macro>
  235. <macro interrupt="True" loop="True" name="make fishing poles">@setalias 'keeper' 0x4063387a;@setalias 'Marble Trash' 0x4375ee34;usetype 0x1028 'any' 'backpack';pause 600;replygump 0x38920abd 21;pause 1000;while @findtype 0xdbf 'any' 'backpack';waitforproperties 'found' 2500;@unsetalias 'move';// Check item properties;if @property 'taming' 'found';@setalias 'move''found';endif;// Move the item;if @findalias 'move';moveitem 'found' 'keeper';pause 800;else if findalias 'found';moveitem 'found' 'Marble Trash';pause 800;endif;ignoreobject 'found';endwhile;</macro>
  236. <macro interrupt="True" loop="False" name="location test">if findtype 0xf43;pause 600;dress 'MichAxe';while dressing;endwhile;if @findtype 0x1bdd 'any' 'backpack';useobject 'LeftHand';waitfortarget 1000;target! 'found';else;//chop trees;useobject 'LeftHand';waitfortarget 1000;targettileoffset 0 -1 0;endif;pause 1000;undress 'MichAxe';endif;if findtype 0xe86;usetype 0xe86;waitfortarget 1000;targettileoffset 0 -1 0;endif;</macro>
  237. <macro interrupt="True" loop="True" name="Sort Luna Trash">if not findalias 'Luna Bank Trash';promptalias 'Luna Bank Trash';endif;if not findalias 'pouch';promptalias 'pouch';endif;if not listexists 'Jewelry';@createlist 'Jewelry';@pushlist 'Jewelry' 0x108a;@pushlist 'Jewelry' 0x1f09;@pushlist 'Jewelry' 0x1086;@pushlist 'Jewelry' 0x1f06;endif;//quarter staff;while @findtype 0xe89 'any' 'Luna Bank Trash';waitforproperties 'found' 2500;@unsetalias 'move';// Check item properties;if @property 'slayer' 'found' and @property 'hit mana leech' 'found' >= 30;@setalias 'move''found';elseif @property 'slayer' 'found' and @property 'hit stamina leech' 'found' >= 30;@setalias 'move''found';elseif @property 'slayer' 'found' and @property 'hit life leech' 'found' >= 30;@setalias 'move''found';elseif @property 'hit mana leech' 'found' >= 30 and @property 'damage increase' 'found' >= 36;@setalias 'move' 'found';elseif @property 'hit stamina leech' 'found' >= 30 and @property 'damage increase' 'found' >= 36;@setalias 'move' 'found';endif;// Move the item;if @findalias 'move';@moveitem! 'found' 'backpack';pause 800;else if findalias 'found';@moveitem! 'found' 'pouch';pause 800;endif;ignoreobject 'found';endwhile;//composite;while @findtype 0x26c2 'any' 'Luna Bank Trash';waitforproperties 'found' 2500;@unsetalias 'move';// Check item properties;if @property 'slayer' 'found' and @property 'hit mana leech' 'found' >= 30;@setalias 'move''found';elseif @property 'slayer' 'found' and @property 'hit stamina leech' 'found' >= 30;@setalias 'move''found';elseif @property 'slayer' 'found' and @property 'hit life leech' 'found' >= 30;@setalias 'move''found';elseif @property 'swing speed increase' 'found' >= 25 and @property 'damage increase' 'found' >= 36;@setalias 'move' 'found';endif;// Move the item;if @findalias 'move';@moveitem! 'found' 'backpack';pause 800;else if findalias 'found';@moveitem!'found' 'pouch';pause 800;endif;ignoreobject 'found';endwhile;//Jewelry;for 0 to 'Jewelry';while @findtype Jewelry[] 'any' 'Luna Bank Trash';waitforproperties 'found' 15000;//EP DI jewels;if @property 'Enhance Potions' 'found' >= 15 and @property 'Damage Increase' 'found' >= 15;@setalias 'move''found';elseif @property 'Faster Cast Recovery' 'found' == 3;@setalias 'move''found';//save 1/2 and 1/1;elseif @property 'Faster Cast Recovery' 'found' > 1 and @property 'Faster Casting' 'found';@setalias 'move''found';//Taming;elseif @property 'Animal Taming' 'found' > 0;@setalias 'move''found';//hci and dci jewels, other usable hci dci jewels will be captured by above;elseif @property 'Defense chance increase' 'found' >= 10 and @property 'Hit chance increase' 'found' >= 10;@setalias 'move''found';endif;if @findalias 'move';@moveitem! 'found' 'backpack';pause 800;else if findalias 'found';@moveitem! 'found' 'pouch';pause 800;endif;ignoreobject 'found';endwhile;endfor;</macro>
  238. <macro interrupt="True" loop="False" name="Hide">while not hidden 'self';useskill 'hiding';endwhile;</macro>
  239. <macro interrupt="True" loop="False" name="Runebook Cloner">// Author: Hawt;// Description: Automatic Runebook Cloner.;// You need to insert the names of each rune on the "Names" List. IT will run over and over if a location is blocked untill it makes it passed too the rune.;//===========================================================;//Select runebook to be cloned;promptalias 'ToBeCloned';//Select a blank book;promptalias 'Blank Runebook';//Lists;clearlist 'Runes';clearlist 'Names';if not listexists 'Runes';createlist 'Runes';endif;if list 'Runes' == 0;pushlist 'Runes' 5;pushlist 'Runes' 11;pushlist 'Runes' 17;pushlist 'Runes' 23;pushlist 'Runes' 29;pushlist 'Runes' 35;pushlist 'Runes' 41;pushlist 'Runes' 47;pushlist 'Runes' 53;pushlist 'Runes' 59;pushlist 'Runes' 65;pushlist 'Runes' 71;pushlist 'Runes' 77;pushlist 'Runes' 83;pushlist 'Runes' 89;pushlist 'Runes' 95;endif;if not listexists 'Names';createlist 'Names';endif;if list 'Names' == 0;pushlist 'Names' 'Keep del Kidd';pushlist 'Names' "Luna";pushlist 'Names' 'Polu Screen South';pushlist 'Names' 'Inside Polu West';pushlist 'Names' 'Inside Polu North';pushlist 'Names' "Runes Galore";pushlist 'Names' "Casa de FE";pushlist 'Names' 'Tram Sacrifice';pushlist 'Names' "Tram Compassion";pushlist 'Names' 'Tram Justice';pushlist 'Names' "Executioner's Chest";pushlist 'Names' "Andy Keeper of Records";pushlist 'Names' 'The Wrong Executioner';pushlist 'Names' 'Prisoner of a Ghost';pushlist 'Names' "L%C's B****";pushlist 'Names' 'Anne The Keeper of the Flame';endif;if not @findtype 0x1f14 any 'backpack';sysmsg 'Out of blank runes!' 25;pause 100;playsound 984;pause 100;playsound 987;pause 100;playsound 988;pause 100;messagebox 'Error' '*No Runes restock &amp; restart*';stop;endif;clearjournal;for 0 to 'Runes';if mana &lt;= 30;useskill 'Meditation';while not mana == maxmana;endwhile;endif;pause 1500;useobject! 'ToBeCloned';waitforgump 0x554b87f3 15000;pause 900;replygump 0x554b87f3 Runes[0];pause '3500';if injournal 'blocked' 'system';replay;endif;if @findtype 0x1f14 'any' 'backpack' 1 2;autotargetobject 'found';cast 'Mark';pause 3500;useobject! 'found';waitforprompt 15000;promptmsg Names[0];pause 2000;moveitem 'found' 'Blank Runebook';pause 2000;if @injournal 'Names[0]' 'system';@poplist 'Names' 'front';@poplist 'Runes' 'front';endif;else;playsound 984;pause 100;playsound 987;pause 100;playsound 988;pause 100;messagebox 'Error' '*No Runes restock &amp; restart*';stop;endif;endfor;</macro>
  240. <macro interrupt="True" loop="False" name="Remove Runes">promptalias 'To be Emptied';for 16;useobject 'To be Emptied';waitforgump 0x554b87f3 500;replygump 0x554b87f3 3;pause 550;movetype 0x1f14 'backpack' 'backpack' 44 65 0;pause 550;endfor;</macro>
  241. <macro interrupt="True" loop="True" name="Sort Jewelry">//Sorting Jewelry for Deathviper;@clearjournal;if not @findalias '5ModRing';promptalias '5ModRing';endif;if not @findalias '4ModRing';promptalias '4ModRing';endif;if not @findalias '3ModRing';promptalias '3ModRing';endif;//;if not @findalias '5ModBrace';promptalias '5ModBrace';endif;if not @findalias '4ModBrace';promptalias '4ModBrace';endif;if not @findalias '3ModBrace';promptalias '3ModBrace';endif;if not @findalias 'JewelryTrash';promptalias 'JewelryTrash';endif;if not @findalias 'MuleJewelry';promptalias 'MuleJewelry';endif;while @findtype 0x108a 'any' 'backpack' or @findtype 0x1f09 'any' 'backpack';if @injournal 'world will save';while not @injournal 'world save complete';endwhile;@clearjournal;endif;@removelist 'modcount';@createlist 'modcount';if @findobject 'found' 'any' 'backpack';waitforproperties 'found' 5000;endif;if @property 'mana regeneration' 'found' == 2;pushlist 'modcount' 'mr';endif;if @property 'damage increase' 'found' >= 15;pushlist 'modcount' 'di';endif;if @property 'spell damage increase' 'found' >= 5;pushlist 'modcount' 'sdi';endif;if @property 'enhance potions' 'found' >= 20;pushlist 'modcount' 'ep';endif;if @property 'swing speed increase' 'found' >= 5;pushlist 'modcount' 'ssi';endif;if @property 'chivalry' 'found' >= 8;pushlist 'modcount' 'chivalry';endif;if @property 'magery' 'found' >= 8;pushlist 'modcount' 'magery';endif;if @property 'spirit speak' 'found' >= 8;pushlist 'modcount' 'ss';endif;if @property 'necromancy' 'found' >= 8;pushlist 'modcount' 'necromancy';endif;if @property 'evaluating intelligence' 'found' >= 8;pushlist 'modcount' 'ei';endif;if @property 'healing' 'found' >= 8;pushlist 'modcount' 'healing';endif;if @property 'parrying' 'found' >= 8;pushlist 'modcount' 'parrying';endif;if @property 'tactics' 'found' >= 8 and @property 'anatomy' 'found' >= 8;poplist 'modcount' 'tactics';endif;if @property 'hit chance increase' 'found' >= 5;pushlist 'modcount' 'hit';endif;if @property 'defense chance increase' 'found' >= 5;pushlist 'modcount' 'defense';endif;if @property 'faster cast recovery' 'found' >= 2;pushlist 'modcount' 'fcr';endif;if @property 'faster casting' 'found' >= 1;pushlist 'modcount' 'fc';endif;if @property 'lower mana cost' 'found' >= 4;pushlist 'modcount' 'lmc';endif;if @property 'lower reagent cost' 'found' >= 8;pushlist 'modcount' 'lrc';endif;if @property 'strength bonus' 'found' >= 5;pushlist 'modcount' 'str';endif;if @property 'intelligence bonus' 'found' >= 5;pushlist 'modcount' 'int';endif;if @property 'dexterity bonus' 'found' >= 5;pushlist 'modcount' 'dex';endif;if @property 'physical resist' 'found' >= 8;pushlist 'modcount' 'physical';endif;if @property 'fire resist' 'found' >= 8;pushlist 'modcount' 'fire';endif;if @property 'cold resist' 'found' >= 8;pushlist 'modcount' 'cold';endif;if @property 'poison resist' 'found' >= 8;pushlist 'modcount' 'poison';endif;if @property 'energy resist' 'found' >= 8;pushlist 'modcount' 'energy';endif;if @property 'luck' 'found' >= 75;pushlist 'modcount' 'luck';endif;if @property 'lower reagent cost' 'found' >= 12 and @property 'dexterity bonus' 'found' >= 5;poplist 'modcount' 'dex';endif;if @property 'lower reagent cost' 'found' >= 12 and @property 'intelligence bonus' 'found' >= 5;poplist 'modcount' 'int';endif;if @property 'lower reagent cost' 'found' >= 12 and @property 'strength bonus' 'found' >= 5;poplist 'modcount' 'str';endif;if @property 'lower reagent cost' 'found' >= 12 and @property 'energy resist' 'found' >= 14;poplist 'modcount' 'energy';endif;///;///;///sort;if list 'modcount' &lt;= 1;sysmsg '1mod';if @property 'mana regeneration' 'found' == 2 or @property 'lower reagent cost' 'found' >= 14;sysmsg 'Mule' 88;moveitem 'found' 'MuleJewelry';pause 550;else;moveitem 'found' 'JewelryTrash';sysmsg 'Trash';endif;//;//;//;elseif list 'modcount' &lt;= 2;sysmsg '2mod';if @property 'lower reagent cost' 'found' >= 14;sysmsg 'Mule' 88;moveitem 'found' 'MuleJewelry';elseif @property 'faster cast recovery' 'found' >= 3 and @property 'faster casting' 'found' >= 1;sysmsg 'Mule' 88;moveitem 'found' 'MuleJewelry';pause 550;elseif @property 'enhance potions' 'found' >= 50 and @property 'chivalry' 'found' >= 10;sysmsg 'Mule' 88;moveitem 'found' 'MuleJewelry';pause 550;else;moveitem 'found' 'JewelryTrash';sysmsg 'Trash';endif;//;//;//;//Sort 3mod Rings;elseif list 'modcount' == 3;sysmsg '3mod' 52;moveitem 'found' '3modRing';//;//;//;elseif list 'modcount' == 5;sysmsg '5mod' 34;moveitem 'found' '5ModRing';pause 550;elseif list 'modcount' >= 4;sysmsg '4+mod' 34;if @property 'mana regeneration' 'found' == 2 and @property 'lower reagent cost' 'found';sysmsg 'LRC &amp; MR';moveitem 'found' '4ModRing';elseif @property 'hit chance increase' 'found' >= 5 and @property 'enhance potions' 'found' >= 20;sysmsg 'HCI Potions' 34;moveitem 'found' '4ModRing';elseif @property 'hit chance increase' 'found' >= 5 and @property 'defense chance increase' 'found' >= 5;moveitem 'found' '4ModRing';pause 550;elseif @property 'lower reagent cost' 'found' >= 14 and @property 'lower mana cost' 'found' >= 4;sysmsg 'LRC LMC' 34;moveitem 'found' '4ModRing';elseif @property 'lower reagent cost' 'found' >= 14 and @property 'mana regeneration' 'found' == 2;sysmsg '4+mod' 34;moveitem 'found' '4ModRing';pause 550;elseif @property 'faster cast recovery' 'found' >= 2 and @property 'faster casting' 'found' >= 1;moveitem 'found' '4ModRing';pause 550;elseif @property 'enhance potions' 'found' >= 15;moveitem 'found' '4ModRing';pause 550;elseif @property 'mana regeneration' 'found' == 2 and @property 'lower mana cost' 'found' >= 4;if @property 'strength bonus' 'found';sysmsg 'HPI LMC &amp; MR';moveitem 'found' '4ModRing';elseif @property 'dexterity bonus' 'found';sysmsg 'Stam LMC &amp; MR';moveitem 'found' '4ModRing';elseif @property 'intelligence bonus' 'found';sysmsg 'Mana LMC &amp; MR';moveitem 'found' '4ModRing';else;sysmsg 'LMC &amp; MR';moveitem 'found' '4ModRing';endif;elseif @property 'mana regeneration' 'found' == 2 and @property 'strength bonus' 'found' >= 4;if @property 'stamina increase' 'found';sysmsg 'Stam HPI &amp; MR';moveitem 'found' '4ModRing';elseif @property 'intelligence bonus' 'found';sysmsg 'Mana LMC MR';moveitem 'found' '4ModRing';else;sysmsg 'HPI &amp; MR';moveitem 'found' '4ModRing';endif;elseif @property 'mana regeneration' 'found' == 2 and @property 'dexterity bonus' 'found' >= 5;sysmsg 'Stam &amp; MR';moveitem 'found' '4ModRing';elseif @property 'mana regeneration' 'found' == 2 and @property 'intelligence bonus' 'found' >= 5;sysmsg 'Mana &amp; MR';moveitem 'found' '4ModRing';elseif @property 'mana regeneration' 'found' == 2;sysmsg 'MR only';moveitem 'found' '4ModRing';elseif @property 'lower reagent cost' 'found';if @property 'lower mana cost' 'found' >= 4 and @property 'strength bonus' 'found' >= 3;sysmsg 'LRC LMC &amp; HPI';moveitem 'found' '4ModRing';elseif @property 'lower mana cost' 'found' >= 4;sysmsg 'LMC &amp; LRC';moveitem 'found' 'LRC';elseif @property 'strength bonus' 'found' >= 3;sysmsg 'HPI &amp; LRC';moveitem 'found' '4ModRing';else;sysmsg 'LRC Only';moveitem 'found' '4ModRing';endif;elseif @property 'lower mana cost' 'found' >= 4 and @property 'strength bonus' 'found' >= 4;if @property 'dexterity bonus' 'found' >= 5;sysmsg 'HPI LMC &amp; Stam';moveitem 'found' '4ModRing';elseif @property 'intelligence bonus' 'found' >= 5;sysmsg 'HPI LMC &amp; Mana';moveitem 'found' '4ModRing';else;sysmsg 'HPI &amp; LMC';moveitem 'found' '4ModRing';endif;elseif @property 'lower mana cost' 'found' >= 4;if @property 'dexterity bonus' 'found' >= 5 and @property 'intelligence bonus' 'found' >= 5;sysmsg 'Stam Mana &amp; LMC';moveitem 'found' '4ModRing';elseif @property 'dexterity bonus' 'found' >= 5;sysmsg 'Stam &amp; LMC';moveitem 'found' '4ModRing';elseif @property 'intelligence bonus' 'found' >= 5;sysmsg 'Mana &amp; LMC';moveitem 'found' '4ModRing';elseif @property 'Lower Mana Cost' 'found' >= 4;sysmsg 'LMC Only';moveitem 'found' '4ModRing';endif;elseif @property 'strength bonus' 'found' >= 5;if @property 'dexterity bonus' 'found' >= 5 and @property 'intelligence bonus' 'found' >= 5;sysmsg 'HPI Stam &amp; Mana';moveitem 'found' '4ModRing';elseif @property 'dexterity bonus' 'found' >= 5;sysmsg 'HPI &amp; Stam';moveitem 'found' '4ModRing';elseif @property 'intelligence bonus' 'found' >= 5;sysmsg 'HPI &amp; Mana';moveitem 'found' '4ModRing';else;sysmsg 'HPI Only';moveitem 'found' '4ModRing';endif;elseif @property 'dexterity bonus' 'found' >= 5 and @property 'intelligence bonus' 'found' >= 5;sysmsg 'Stam and Mana';moveitem 'found' '4ModRing';elseif @property 'dexterity bonus' 'found' >= 5;sysmsg 'Stam only';moveitem 'found' '4ModRing';elseif @property 'intelligence bonus' 'found' >= 5;sysmsg 'Mana only';moveitem 'found' '4ModRing';else;sysmsg 'Resist Only';moveitem 'found' 'JewelryTrash';endif;else;sysmsg '4Mod';moveitem 'found' '4ModRing';endif;pause 550;endwhile;pause 550;sysmsg '-' 72;//;//;//;//Braces;while @findtype 0x1086 'any' 'backpack' or @findtype 0x1f06 'any' 'backpack';if @injournal 'world will save';while not @injournal 'world save complete';endwhile;@clearjournal;endif;@removelist 'modcount';@createlist 'modcount';if @findobject 'found' 'any' 'backpack';waitforproperties 'found' 5000;endif;if @property 'mana regeneration' 'found' == 2;pushlist 'modcount' 'mr';endif;if @property 'enhance potions' 'found' >= 20;pushlist 'modcount' 'ep';endif;if @property 'swing speed increase' 'found' >= 5;pushlist 'modcount' 'ssi';endif;if @property 'chivalry' 'found' >= 8;pushlist 'modcount' 'chivalry';endif;if @property 'magery' 'found' >= 8;pushlist 'modcount' 'magery';endif;if @property 'spirit speak' 'found' >= 8;pushlist 'modcount' 'ss';endif;if @property 'necromancy' 'found' >= 8;pushlist 'modcount' 'necromancy';endif;if @property 'evaluating intelligence' 'found' >= 8;pushlist 'modcount' 'ei';endif;if @property 'healing' 'found' >= 8;pushlist 'modcount' 'healing';endif;if @property 'parrying' 'found' >= 8;pushlist 'modcount' 'parrying';endif;if @property 'tactics' 'found' >= 8 and @property 'anatomy' 'found' >= 8;poplist 'modcount' 'tactics';endif;if @property 'hit chance increase' 'found' >= 5;pushlist 'modcount' 'hit';endif;if @property 'defense chance increase' 'found' >= 5;pushlist 'modcount' 'defense';endif;if @property 'faster cast recovery' 'found' >= 2;pushlist 'modcount' 'fcr';endif;if @property 'faster casting' 'found' >= 1;pushlist 'modcount' 'fc';endif;if @property 'lower mana cost' 'found' >= 4;pushlist 'modcount' 'lmc';endif;if @property 'lower reagent cost' 'found' >= 8;pushlist 'modcount' 'lrc';endif;if @property 'strength bonus' 'found' >= 5;pushlist 'modcount' 'str';endif;if @property 'intelligence bonus' 'found' >= 5;pushlist 'modcount' 'int';endif;if @property 'dexterity bonus' 'found' >= 5;pushlist 'modcount' 'dex';endif;if @property 'physical resist' 'found' >= 8;pushlist 'modcount' 'physical';endif;if @property 'fire resist' 'found' >= 8;pushlist 'modcount' 'fire';endif;if @property 'cold resist' 'found' >= 8;pushlist 'modcount' 'cold';endif;if @property 'poison resist' 'found' >= 8;pushlist 'modcount' 'poison';endif;if @property 'energy resist' 'found' >= 8;pushlist 'modcount' 'energy';endif;if @property 'damage increase' 'found' >= 15;pushlist 'modcount' 'di';endif;if @property 'spell damage increase' 'found' >= 5;pushlist 'modcount' 'sdi';endif;if @property 'luck' 'found' >= 75;pushlist 'modcount' 'luck';endif;if @property 'lower reagent cost' 'found' >= 12 and @property 'dexterity bonus' 'found' >= 5;poplist 'modcount' 'dex';endif;if @property 'lower reagent cost' 'found' >= 12 and @property 'intelligence bonus' 'found' >= 5;poplist 'modcount' 'int';endif;if @property 'lower reagent cost' 'found' >= 12 and @property 'strength bonus' 'found' >= 5;poplist 'modcount' 'str';endif;if @property 'lower reagent cost' 'found' >= 12 and @property 'energy resist' 'found' >= 14;poplist 'modcount' 'energy';endif;///;///;///sort;if list 'modcount' &lt;= 1;sysmsg '1mod';if @property 'mana regeneration' 'found' == 2 or @property 'lower reagent cost' 'found' >= 14;sysmsg 'Mule' 88;moveitem 'found' 'MuleJewelry';pause 550;else;moveitem 'found' 'JewelryTrash';sysmsg 'Trash';endif;//;//;//;elseif list 'modcount' &lt;= 2;sysmsg '2mod';if @property 'lower reagent cost' 'found' >= 14;sysmsg 'Mule' 88;moveitem 'found' 'MuleJewelry';elseif @property 'faster cast recovery' 'found' >= 3 and @property 'faster casting' 'found' >= 1;sysmsg 'Mule' 88;moveitem 'found' 'MuleJewelry';pause 550;else;moveitem 'found' 'JewelryTrash';sysmsg 'Trash';endif;//;//;//;//Sort 3mod Braces;elseif list 'modcount' == 3;sysmsg '3mod' 52;moveitem 'found' '3modBrace';//;//;//;elseif list 'modcount' == 5;sysmsg '5mod' 34;moveitem 'found' '5ModRing';pause 550;elseif list 'modcount' >= 4;sysmsg '4+mod' 34;if @property 'mana regeneration' 'found' == 2 and @property 'lower reagent cost' 'found';sysmsg 'LRC &amp; MR';moveitem 'found' '4ModBrace';elseif @property 'hit chance increase' 'found' >= 5 and @property 'enhance potions' 'found' >= 20;sysmsg 'HCI Potions' 34;moveitem 'found' '4ModBrace';elseif @property 'hit chance increase' 'found' >= 5 and @property 'defense chance increase' 'found' >= 5;moveitem 'found' '4ModBrace';pause 550;elseif @property 'lower reagent cost' 'found' >= 14 and @property 'lower mana cost' 'found' >= 4;sysmsg 'LRC LMC' 34;moveitem 'found' '4ModBrace';elseif @property 'lower reagent cost' 'found' >= 14 and @property 'mana regeneration' 'found' == 2;sysmsg '4+mod' 34;moveitem 'found' '4ModBrace';pause 550;elseif @property 'faster cast recovery' 'found' >= 2 and @property 'faster casting' 'found' >= 1;moveitem 'found' '4ModBrace';pause 550;elseif @property 'enhance potions' 'found' >= 15;moveitem 'found' '4ModBrace';pause 550;elseif @property 'mana regeneration' 'found' == 2 and @property 'lower mana cost' 'found' >= 4;if @property 'strength bonus' 'found';sysmsg 'HPI LMC &amp; MR';moveitem 'found' '4ModBrace';elseif @property 'dexterity bonus' 'found';sysmsg 'Stam LMC &amp; MR';moveitem 'found' '4ModBrace';elseif @property 'intelligence bonus' 'found';sysmsg 'Mana LMC &amp; MR';moveitem 'found' '4ModBrace';else;sysmsg 'LMC &amp; MR';moveitem 'found' '4ModBrace';endif;elseif @property 'mana regeneration' 'found' == 2 and @property 'strength bonus' 'found' >= 4;if @property 'stamina increase' 'found';sysmsg 'Stam HPI &amp; MR';moveitem 'found' '4ModBrace';elseif @property 'intelligence bonus' 'found';sysmsg 'Mana LMC MR';moveitem 'found' '4ModBrace';else;sysmsg 'HPI &amp; MR';moveitem 'found' '4ModBrace';endif;elseif @property 'mana regeneration' 'found' == 2 and @property 'dexterity bonus' 'found' >= 5;sysmsg 'Stam &amp; MR';moveitem 'found' '4ModBrace';elseif @property 'mana regeneration' 'found' == 2 and @property 'intelligence bonus' 'found' >= 5;sysmsg 'Mana &amp; MR';moveitem 'found' '4ModBrace';elseif @property 'mana regeneration' 'found' == 2;sysmsg 'MR only';moveitem 'found' '4ModBrace';elseif @property 'lower reagent cost' 'found';if @property 'lower mana cost' 'found' >= 4 and @property 'strength bonus' 'found' >= 3;sysmsg 'LRC LMC &amp; HPI';moveitem 'found' '4ModBrace';elseif @property 'lower mana cost' 'found' >= 4;sysmsg 'LMC &amp; LRC';moveitem 'found' '4ModBrace';elseif @property 'strength bonus' 'found' >= 3;sysmsg 'HPI &amp; LRC';moveitem 'found' '4ModBrace';else;sysmsg 'LRC Only';moveitem 'found' '4ModBrace';endif;elseif @property 'lower mana cost' 'found' >= 4 and @property 'strength bonus' 'found' >= 4;if @property 'dexterity bonus' 'found' >= 5;sysmsg 'HPI LMC &amp; Stam';moveitem 'found' '4ModBrace';elseif @property 'intelligence bonus' 'found' >= 5;sysmsg 'HPI LMC &amp; Mana';moveitem 'found' '4ModBrace';else;sysmsg 'HPI &amp; LMC';moveitem 'found' '4ModBrace';endif;elseif @property 'lower mana cost' 'found' >= 4;if @property 'dexterity bonus' 'found' >= 5 and @property 'intelligence bonus' 'found' >= 5;sysmsg 'Stam Mana &amp; LMC';moveitem 'found' '4ModBrace';elseif @property 'dexterity bonus' 'found' >= 5;sysmsg 'Stam &amp; LMC';moveitem 'found' '4ModBrace';elseif @property 'intelligence bonus' 'found' >= 5;sysmsg 'Mana &amp; LMC';moveitem 'found' '4ModBrace';elseif @property 'Lower Mana Cost' 'found' >= 4;sysmsg 'LMC Only';moveitem 'found' '4ModBrace';endif;elseif @property 'strength bonus' 'found' >= 5;if @property 'dexterity bonus' 'found' >= 5 and @property 'intelligence bonus' 'found' >= 5;sysmsg 'HPI Stam &amp; Mana';moveitem 'found' '4ModBrace';elseif @property 'dexterity bonus' 'found' >= 5;sysmsg 'HPI &amp; Stam';moveitem 'found' '4ModBrace';elseif @property 'intelligence bonus' 'found' >= 5;sysmsg 'HPI &amp; Mana';moveitem 'found' '4ModBrace';else;sysmsg 'HPI Only';moveitem 'found' '4ModBrace';endif;elseif @property 'dexterity bonus' 'found' >= 5 and @property 'intelligence bonus' 'found' >= 5;sysmsg 'Stam and Mana';moveitem 'found' '4ModBrace';elseif @property 'dexterity bonus' 'found' >= 5;sysmsg 'Stam only';moveitem 'found' '4ModBrace';elseif @property 'intelligence bonus' 'found' >= 5;sysmsg 'Mana only';moveitem 'found' '4ModBrace';else;sysmsg 'Resist Only';moveitem 'found' 'JewelryTrash';endif;else;sysmsg '4Mod';moveitem 'found' '4ModBrace';endif;pause 550;endwhile;pause 550;msg 'done' 72;if @injournal 'done';stop;endif;</macro>
  242. </macros>
  243. <scavenger enabled="True">
  244. <scavenge enabled="True" color="0x0" graphic="0x1bd7"/>
  245. <scavenge enabled="True" color="0x8ab" graphic="0x108a"/>
  246. </scavenger>
  247. <autoloot>
  248. <enabled>False</enabled>
  249. <container>0xffffffff</container>
  250. <guards>False</guards>
  251. </autoloot>
  252. <spellgrid>
  253. <grid enabled="False" locked="True" x="579" y="619" name="Magery/UOF"/>
  254. <grid enabled="False" locked="True" x="532" y="510" name="Necroweavermage"/>
  255. <grid enabled="False" locked="True" x="525" y="538" name="Pet Bar"/>
  256. <grid enabled="False" locked="True" x="50" y="50" name="bushwarrior"/>
  257. <grid enabled="False" locked="True" x="573" y="642" name="create food"/>
  258. </spellgrid>
  259. <organizer>
  260. <group complete="True" target="0x41bdb0a5" stack="True" source="0x403e75e4" loop="True" name="Ore">
  261. <item graphic="0x19b9" amount="0x0"/>
  262. <item graphic="0x19ba" amount="0x0"/>
  263. <item graphic="0x19b7" amount="0x0"/>
  264. <item graphic="0x19b8" amount="0x0"/>
  265. <item graphic="0x3194" amount="0x0"/>
  266. <item graphic="0x3195" amount="0x0"/>
  267. <item graphic="0x3197" amount="0x0"/>
  268. <item graphic="0x3198" amount="0x0"/>
  269. <item graphic="0x3192" amount="0x0"/>
  270. <item graphic="0x3193" amount="0x0"/>
  271. </group>
  272. <group complete="True" target="0x400b5afe" stack="True" source="0x4117e273" loop="True" name="Boards">
  273. <item graphic="0x1bd7" amount="0x0"/>
  274. <item graphic="0x3199" amount="0x0"/>
  275. <item graphic="0x318f" amount="0x0"/>
  276. <item graphic="0x3191" amount="0x0"/>
  277. <item graphic="0x2f5f" amount="0x0"/>
  278. <item graphic="0x3190" amount="0x0"/>
  279. </group>
  280. <group complete="True" target="0x40324389" stack="True" source="0x41bdb0a5" loop="True" name="Fletch Refill">
  281. <item graphic="0x1bd7" amount="0x0"/>
  282. </group>
  283. <group complete="True" target="0x41b976ab" stack="True" source="0xa2d3b" loop="True" name="Banktobag">
  284. <item graphic="0x1bd7" amount="0x190"/>
  285. </group>
  286. <group complete="True" target="0x5913d" stack="True" source="0x4117e273" loop="True" name="Bagtobank">
  287. <item graphic="0xeed" amount="0x0"/>
  288. </group>
  289. <group complete="True" target="0x44ea4a7a" stack="True" source="0x408e5bb0" loop="True" name="gold to food bag">
  290. <item graphic="0xeed" amount="0x0"/>
  291. </group>
  292. <group complete="True" target="0x408e5bb0" stack="True" source="0x44ea4a7a" loop="True" name="gold to backpack">
  293. <item graphic="0xeed" amount="0x9c40"/>
  294. </group>
  295. <group complete="True" target="0x424901ef" stack="False" source="0x42adec3e" loop="True" name="Gear">
  296. <item graphic="0x1db9" amount="0x5"/>
  297. <item graphic="0x13cd" amount="0x5"/>
  298. <item graphic="0x13cb" amount="0x5"/>
  299. <item graphic="0x13c7" amount="0x5"/>
  300. <item graphic="0x13cc" amount="0x5"/>
  301. <item graphic="0x13c6" amount="0x5"/>
  302. </group>
  303. <group complete="True" target="0x411487b7" stack="True" source="0x41ecb97a" loop="True" name="Items to Bank">
  304. <item graphic="0xf4b" amount="0x0"/>
  305. <item graphic="0x2d22" amount="0x0"/>
  306. <item graphic="0x13ff" amount="0x0"/>
  307. <item graphic="0xe86" amount="0x0"/>
  308. <item graphic="0x26c2" amount="0x0"/>
  309. <item graphic="0x1086" amount="0x0"/>
  310. <item graphic="0x108a" amount="0x0"/>
  311. <item graphic="0x1f09" amount="0x0"/>
  312. <item graphic="0x1f06" amount="0x0"/>
  313. </group>
  314. </organizer>
  315. <vendors>
  316. <buystate list="Cloth" enabled="True"/>
  317. <sellstate list="Food" enabled="True"/>
  318. <shoppinglist complete="True" type="Buy" limit="999" name="Cloth">
  319. <item graphic="0xf95" amount="999"/>
  320. </shoppinglist>
  321. <shoppinglist complete="False" type="Sell" limit="999" name="Boards">
  322. <item graphic="0x1bd7" amount="999"/>
  323. </shoppinglist>
  324. <shoppinglist complete="False" type="Sell" limit="999" name="Food">
  325. <item graphic="0x9d3" amount="999"/>
  326. <item graphic="0x9c0" amount="999"/>
  327. <item graphic="0x9b7" amount="999"/>
  328. <item graphic="0x9f2" amount="999"/>
  329. </shoppinglist>
  330. </vendors>
  331. <counters/>
  332. <dresslist container="0x0" name="Mining Gloves">
  333. <item layer="7">0x429205a3</item>
  334. </dresslist>
  335. <dresslist container="0x0" name="DuckAxe">
  336. <item layer="2">0x4349c13f</item>
  337. </dresslist>
  338. <dresslist container="0x0" name="MichAxe">
  339. <item layer="2">0x4117e278</item>
  340. </dresslist>
  341. </profile>
Add Comment
Please, Sign In to add comment
Public Pastes
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
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!