API tools faq
paste
SilvertigerL_C

Duck Bodding Profile part1 Combine with part2

SilvertigerL_C
Dec 9th, 2017
447
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 468.60 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">False</data>
  5. <data name="ShowCorpseNames">False</data>
  6. <data name="ShowCreatureNames">False</data>
  7. <data name="OpenCorpses">False</data>
  8. <data name="OpenCorpsesRange">0x2</data>
  9. <data name="ShowMobileHits">False</data>
  10. <data name="PositionInTitle">True</data>
  11. <data name="ForceResolution">True</data>
  12. <data name="GameWindowWidth">0x44c</data>
  13. <data name="GameWindowHeight">0x352</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">True</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">0x0</data>
  35. <data name="UseObjectsLimit">0x2</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">True</data>
  53. <data name="SpellsMode">0x1</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">False</data>
  64. <data name="CustomCaption">True</data>
  65. <data name="CustomCaptionMode">0x1</data>
  66. <data name="CustomCaptionText">Tailor Smith - $name $statusbar - $weight/$maxweight |%gold%|%cloth%|%leather%|%spined%|%horned%|%barbed%|%ingots%|%dull%|%shadow%|%copper%|%bronze%|%goldingots%|%agapite%|%verite%|%valorite% </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. <counters>
  82. <counter color="0x0" enabled="True" format="gold" name="gold coin" graphic="0xeed" image="True"/>
  83. <counter color="0x0" enabled="True" format="ingots" name="ingots" graphic="0x1bf2" image="True"/>
  84. <counter color="0xffff" enabled="True" format="cloth" name="cloth" graphic="0x1767" image="True"/>
  85. <counter color="0x845" enabled="True" format="horned" name="Horned" graphic="0x1081" image="True"/>
  86. <counter color="0x851" enabled="True" format="barbed" name="Barbed" graphic="0x1081" image="True"/>
  87. <counter color="0x0" enabled="True" format="leather" name="Leather" graphic="0x1081" image="True"/>
  88. <counter color="0x8ac" enabled="True" format="spined" name="Spined" graphic="0x1081" image="True"/>
  89. <counter color="0x973" enabled="True" format="dull" name="Dull Copper" graphic="0x1bf2" image="True"/>
  90. <counter color="0x966" enabled="True" format="shadow" name="Shadow" graphic="0x1bf2" image="True"/>
  91. <counter color="0x96d" enabled="True" format="copper" name="Copper" graphic="0x1bf2" image="True"/>
  92. <counter color="0x972" enabled="True" format="bronze" name="Bronze" graphic="0x1bf2" image="True"/>
  93. <counter color="0x8a5" enabled="True" format="goldingots" name="Gold Ingots" graphic="0x1bf2" image="True"/>
  94. <counter color="0x979" enabled="True" format="agapite" name="Agapite" graphic="0x1bf2" image="True"/>
  95. <counter color="0x89f" enabled="True" format="verite" name="Verite" graphic="0x1bf2" image="True"/>
  96. <counter color="0x8ab" enabled="True" format="valorite" name="Valorite" graphic="0x1bf2" image="True"/>
  97. </counters>
  98. <vendors>
  99. <buystate enabled="False" list=""/>
  100. <sellstate enabled="False" list=""/>
  101. </vendors>
  102. <autosearchexemptions/>
  103. <objects>
  104. <obj name="blacksmith">0x4113004c</obj>
  105. <obj name="bod">0x42d46d1a</obj>
  106. <obj name="book1">0x4034bb63</obj>
  107. <obj name="booktoempty">0x4028c092</obj>
  108. <obj name="booktosort">0x43bbe2c3</obj>
  109. <obj name="bs">0x4113004c</obj>
  110. <obj name="crafting">0x42d46d1a</obj>
  111. <obj name="emptybods">0x4075f9f5</obj>
  112. <obj name="filledbods">0x41b5df46</obj>
  113. <obj name="found">0x417b18fb</obj>
  114. <obj name="resets">0x4052e949</obj>
  115. <obj name="restock">0x400ea448</obj>
  116. <obj name="smithtally">0x417c0526</obj>
  117. <obj name="testbook">0x41df6d69</obj>
  118. <obj name="trash barrel">0x400e8ec1</obj>
  119. <obj name="warning">0x16109</obj>
  120. </objects>
  121. <hotkeys>
  122. <hotkey pass="False" key="0x51" param="aa" action="macro.play"/>
  123. <hotkey pass="False" key="0x24" param="Recall Home" action="macro.play"/>
  124. <hotkey pass="False" key="0x21" param="Recall Tailor Shop" action="macro.play"/>
  125. <hotkey pass="False" key="0x22" param="Recall BS Shop" action="macro.play"/>
  126. <hotkey pass="False" key="0x23" param="Recall Bank" action="macro.play"/>
  127. <hotkey pass="False" key="0x448" action="skills.hiding"/>
  128. <hotkey pass="False" key="0xdd" action="hotkeys"/>
  129. <hotkey pass="False" key="0xc20" action="macros.stop"/>
  130. </hotkeys>
  131. <macros>
  132. <macro loop="True" name="CraftFill" interrupt="True">@removelist 'Amount';@removelist 'MaterialGraphic';@removelist 'MaterialButton';@removelist 'MaterialHue';@removelist 'GumpCat';@removelist 'GumpSel';@removelist 'ToolType';@removelist 'Graphic';@removelist 'Destination';@removelist 'NotIron0';@removelist 'Leather';@createlist 'Amount';@createlist 'MaterialGraphic';@createlist 'MaterialButton';@createlist 'MaterialHue';@createlist 'GumpCat';@createlist 'GumpSel';@createlist 'ToolType';@createlist 'Graphic';@createlist 'Destination';@createlist 'NotIron0';@createlist 'Leather';//gift box for restock west of goza and trash can SW of goza;@setalias 'Restock' 0x41101d99;@setalias 'Trash BODs Destination' 0x40c86f89;@setalias 'Trash Barrel' 0x411004bb;@clearjournal;if not hidden 'self';useskill 'hiding';endif;//autofind books if one filled and one empty;if serial 'filledbods' == serial 'emptybods';@unsetalias 'filledbods';@unsetalias 'emptybods';endif;if not @findobject 'FilledBods' 'any' 'backpack' or not @findobject 'EmptyBods' 'backpack';clearignorelist;if @findtype 0x2258 'any' 'backpack';sysmsg 'Get loose bods out of pack before starting' 34;stop;endif;clearjournal;@unsetalias 'FilledBods';@unsetalias 'EmptyBods';if counttype 0x2259 'any' 'backpack' == 2;while @findtype 0x2259 'any' 'backpack';waitforproperties 'found' 5000;if @property 'Deeds in Book' 'found' == 0;setalias 'FilledBods' 'found';else;setalias 'EmptyBods' 'found';endif;ignoreobject 'found';endwhile;else;sysmsg 'You need 2 bod books, you have more or less!' 34;stop;endif;clearignorelist;//if you arent starting with an empty book;if not @findobject 'FilledBods' 'any' 'backpack' or not @findobject 'EmptyBods' 'backpack';@unsetalias 'FilledBods';@unsetalias 'EmptyBods';clearjournal;if counttype 0x2258 'any' 'backpack' &lt;= 1;if @findtype 0x2258 'any' 'backpack';@setalias 'setaside' 'found';moveitemoffset 'setaside' 'ground' (0 1 0);pause 1000;endif;if counttype 0x2259 'any' 'backpack' == 2;while @findtype 0x2259 'any' 'backpack';waitforproperties 'found' 5000;if not @findalias 'book1';@setalias 'book1' 'found';useobject 'book1';waitforgump 0x54f555df 1500;replygump 0x54f555df 1;waitforgump 0x968739db 1500;replygump 0x968739db 3;waitforgump 0x968739db 1500;replygump 0x968739db 0;waitforgump 0x54f555df 1500;replygump 0x54f555df 5;waitforgump 0x54f555df 1500;while @findtype 0x2258 'any' 'backpack';waitforproperties 'found' 5000;pause 550;useobject 'found';waitforgump 0x5afbd742 1500;replygump 0x5afbd742 2;waitforgump 0x5afbd742 1500;pause 1000;if @injournal 'maximum amount of requested items';setalias 'FilledBods' 'book1';else;setalias 'EmptyBods' 'book1';endif;ignoreobject 'found';endwhile;ignoreobject 'book1';else;@setalias 'book2' 'found';if not @findalias 'FilledBods';setalias 'FilledBods' 'book2';elseif not @findalias 'EmptyBods';setalias 'EmptyBods' 'book2';endif;endif;ignoreobject 'found';endwhile;endif;clearignorelist;if @findalias 'setaside';pause 550;moveitem 'setaside' 'backpack';pause 550;endif;endif;endif;endif;//if you didnt get both set automatically, then prompt;if not @findalias 'FilledBods' or not @findalias 'EmptyBods';if @findtype 0x2258 'any' 'backpack';sysmsg 'Get loose bods out of pack before starting' 34;stop;endif;@unsetalias 'FilledBods';@unsetalias 'EmptyBods';endif;if not @findobject 'EmptyBods';sysmsg 'Target the bod book that needs filling' 34;promptalias 'EmptyBods';endif;if not @findobject 'FilledBods';sysmsg 'Target the bod book for completed bods' 34;promptalias 'FilledBods';endif;if @injournal 'world will save';while not @injournal 'world save complete';endwhile;@clearjournal;endif;//center goza;if not x == 1842 and y == 2076;sysmsg 'stand on the goza';stop;endif;// Search for a BOD to fill;if @findtype 0x2258 'any' 'backpack' and @property 'small' 'found';// Reset craft state;@unsetalias 'crafting';@clearjournal;// Define and open new BOD;@setalias 'bod' 'found';useobject! 'bod';waitforgump 0x5afbd742 15000;pause 550;if @injournal 'wait';@setalias 'bod' 'found';useobject! 'bod';waitforgump 0x5afbd742 15000;pause 550;endif;// Combine items;if not targetexists 'server';replygump 0x5afbd742 2;waitforgump 0x5afbd742 2500;waitfortarget 5000;if @injournal 'The maximum amount of requested items';clearjournal;moveitem 'bod' 'FilledBods';endif;endif;//set your talismans;if not listexists 'Talismans';@createlist 'Talismans';@pushlist 'Talismans' 0x2f58;@pushlist 'Talismans' 0x2f59;@pushlist 'Talismans' 0x2f5a;@pushlist 'Talismans' 0x2f5b;endif;//forget tally if they are registering off another char;if not @findobject 'tailortally' 'any' 'backpack' and not @findobject 'smithtally' 'any' 'backpack';unsetalias 'smithtally';unsetalias 'tailortally';@unsetalias 'warning';endif;//auto set talismans;if not @findalias 'smithtally' or not @findalias 'tailortally';clearignorelist;if not @findalias 'warning';if @findlayer 'self' 9;pause 550;@moveitem 'found' 'backpack';pause 550;endif;for 0 to 'Talismans';while @findtype Talismans[] 0 'backpack';waitforproperties 'found' 5000;if @property 'Blacksmithing Bonus' 'found' > 0;@setalias 'smithtally' 'found';elseif @property 'Tailoring Bonus' 'found' > 0;@setalias 'tailortally' 'found';endif;ignoreobject 'found';endwhile;endfor;if not @findalias 'smithtally';sysmsg 'You should get a Smith Bonus/Ex tally. Clear active objects after' 34;endif;if not @findalias 'tailortally';sysmsg 'You should get a Tailor Bonus/Ex tally. Clear active objects after' 34;endif;@setalias 'warning' 'self';endif;endif;//equip talisman;if color 'bod' == 1102 and @findobject 'smithtally' 'any' 'backpack';if @findlayer 'self' 9;pause 550;@moveitem 'found' 'backpack';pause 550;endif;if findobject 'smithtally' 'any' 'backpack';pause 550;equipitem 'smithtally' 9;pause 550;endif;elseif color 'bod' == 1155 and @findobject 'tailortally' 'any' 'backpack';if @findlayer 'self' 9;pause 550;@moveitem 'found' 'backpack';pause 550;endif;if findobject 'tailortally' 'any' 'backpack';pause 550;equipitem 'tailortally' 9;pause 550;endif;endif;//equip ASH hammers;if @property 'platemail tunic' 'bod' or @property 'platemail legs' 'bod';if not @findlayer 'self' 1;@setalias '15hammerstash' 0x42338d9c;useobject '15hammerstash';pause 550;waitforcontents '15hammerstash' 5000;if @findtype 0x13e4 1154 '15hammerstash';@setalias '15hammer' 'found';if not @findlayer 'self' 1;equipitem '15hammer' 1;pause 550;endif;endif;endif;elseif @property 'plate helm' 'bod' or @property 'platemail arms' 'bod';if not @findlayer 'self' 1;@setalias '15hammerstash' 0x42338d9c;useobject '15hammerstash';pause 550;waitforcontents '15hammerstash' 5000;if @findtype 0x13e4 1154 '15hammerstash';@setalias '15hammer' 'found';if not @findlayer 'self' 1;equipitem '15hammer' 1;pause 550;endif;endif;endif;elseif @findlayer 'self' 1;clearhands 'both';pause 550;if @findtype 0x13e4 1154 'backpack';moveitem 'found' '15hammerstash';pause 550;endif;elseif @findtype 0x13e4 1154 'backpack';moveitem 'found' '15hammerstash';pause 550;endif;// Craft;while targetexists 'server';if @property 'Contents' 'backpack' >= 124 or @property 'Stones' 'backpack' >= 525;sysmsg 'Something went wrong! Pack full! Abort! Abort!' 34;stop;endif;if @injournal 'world will save';while not @injournal 'world save complete';endwhile;@clearjournal;endif;if @injournal 'world will save';while not @injournal 'world save complete';endwhile;@clearjournal;endif;if not @findalias 'crafting';// Leather;if @ingump 0x5afbd742 'leather gorget';@pushlist 'GumpCat' 36;@pushlist 'GumpSel' 23;@pushlist 'Graphic' 0x13c7;@pushlist 'ToolType' 0xf9d;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'leather cap';@pushlist 'GumpCat' 36;@pushlist 'GumpSel' 30;@pushlist 'Graphic' 0x1db9;@pushlist 'ToolType' 0xf9d;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'leather gloves';@pushlist 'GumpCat' 36;@pushlist 'GumpSel' 37;@pushlist 'Graphic' 0x13c6;@pushlist 'ToolType' 0xf9d;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'leather sleeves';@pushlist 'GumpCat' 36;@pushlist 'GumpSel' 44;@pushlist 'Graphic' 0x13cd;@pushlist 'ToolType' 0xf9d;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'leather leggings';@pushlist 'GumpCat' 36;@pushlist 'GumpSel' 51;@pushlist 'Graphic' 0x13cb;@pushlist 'ToolType' 0xf9d;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'leather tunic';@pushlist 'GumpCat' 36;@pushlist 'GumpSel' 58;@pushlist 'Graphic' 0x13cc;@pushlist 'ToolType' 0xf9d;@pushlist 'Destination' 'FilledBods';// Studded;elseif @ingump 0x5afbd742 'studded gorget';@pushlist 'GumpCat' 43;@pushlist 'GumpSel' 2;@pushlist 'Graphic' 0x13d6;@pushlist 'ToolType' 0xf9d;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'studded gloves';@pushlist 'GumpCat' 43;@pushlist 'GumpSel' 9;@pushlist 'Graphic' 0x13d5;@pushlist 'ToolType' 0xf9d;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'studded sleeves';@pushlist 'GumpCat' 43;@pushlist 'GumpSel' 16;@pushlist 'Graphic' 0x13dc;@pushlist 'ToolType' 0xf9d;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'studded leggings';@pushlist 'GumpCat' 43;@pushlist 'GumpSel' 23;@pushlist 'Graphic' 0x13da;@pushlist 'ToolType' 0xf9d;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'studded tunic';@pushlist 'GumpCat' 43;@pushlist 'GumpSel' 30;@pushlist 'Graphic' 0x13db;@pushlist 'ToolType' 0xf9d;@pushlist 'Destination' 'FilledBods';// Female Armor;elseif @ingump 0x5afbd742 'leather shorts';@pushlist 'GumpCat' 50;@pushlist 'GumpSel' 2;@pushlist 'Graphic' 0x1c00;@pushlist 'ToolType' 0xf9d;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'leather skirt';@pushlist 'GumpCat' 50;@pushlist 'GumpSel' 9;@pushlist 'Graphic' 0x1c08;@pushlist 'ToolType' 0xf9d;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'leather bustier';@pushlist 'GumpCat' 50;@pushlist 'GumpSel' 16;@pushlist 'Graphic' 0x1c0a;@pushlist 'ToolType' 0xf9d;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'studded bustier';@pushlist 'GumpCat' 50;@pushlist 'GumpSel' 23;@pushlist 'Graphic' 0x1c0c;@pushlist 'ToolType' 0xf9d;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'female leather armor';@pushlist 'GumpCat' 50;@pushlist 'GumpSel' 30;@pushlist 'Graphic' 0x1c06;@pushlist 'ToolType' 0xf9d;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'studded armor';@pushlist 'GumpCat' 50;@pushlist 'GumpSel' 37;@pushlist 'Graphic' 0x1c02;@pushlist 'ToolType' 0xf9d;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'thigh boots';@pushlist 'GumpCat' 29;@pushlist 'GumpSel' 51;@pushlist 'Graphic' 0x1711;@pushlist 'ToolType' 0xf9d;@pushlist 'Destination' 'FilledBods';if @ingump 0x5afbd742 'barbed' or @ingump 0x5afbd742 'horned';elseif @ingump 0x5afbd742 'spined';else;@pushlist 'MaterialButton' 6;@pushlist 'MaterialHue' 0;@pushlist 'MaterialGraphic' 0x1081;@pushlist 'Leather' 'yep';endif;elseif @ingump 0x5afbd742 'shoes';@pushlist 'GumpCat' 29;@pushlist 'GumpSel' 37;@pushlist 'Graphic' 0x170f;@pushlist 'ToolType' 0xf9d;@pushlist 'Destination' 'FilledBods';if @ingump 0x5afbd742 'barbed' or @ingump 0x5afbd742 'horned';elseif @ingump 0x5afbd742 'spined';else;@pushlist 'MaterialButton' 6;@pushlist 'MaterialHue' 0;@pushlist 'MaterialGraphic' 0x1081;@pushlist 'Leather' 'yep';endif;elseif @ingump 0x5afbd742 'sandals';@pushlist 'GumpCat' 29;@pushlist 'GumpSel' 30;@pushlist 'Graphic' 0x170d;@pushlist 'ToolType' 0xf9d;@pushlist 'Destination' 'FilledBods';if @ingump 0x5afbd742 'barbed' or @ingump 0x5afbd742 'horned';elseif @ingump 0x5afbd742 'spined';else;@pushlist 'MaterialButton' 6;@pushlist 'MaterialHue' 0;@pushlist 'MaterialGraphic' 0x1081;@pushlist 'Leather' 'yep';endif;elseif @ingump 0x5afbd742 'boots';@pushlist 'GumpCat' 29;@pushlist 'GumpSel' 44;@pushlist 'Graphic' 0x170b;@pushlist 'ToolType' 0xf9d;@pushlist 'Destination' 'FilledBods';if @ingump 0x5afbd742 'barbed' or @ingump 0x5afbd742 'horned';elseif @ingump 0x5afbd742 'spined';else;@pushlist 'MaterialButton' 6;@pushlist 'MaterialHue' 0;@pushlist 'MaterialGraphic' 0x1081;@pushlist 'Leather' 'yep';endif;// Hats;elseif @ingump 0x5afbd742 'skullcap';@pushlist 'GumpCat' 1;@pushlist 'GumpSel' 2;@pushlist 'Graphic' 0x1544;@pushlist 'ToolType' 0xf9d;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'bandana';@pushlist 'GumpCat' 1;@pushlist 'GumpSel' 9;@pushlist 'Graphic' 0x1540;@pushlist 'ToolType' 0xf9d;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'floppy hat';@pushlist 'GumpCat' 1;@pushlist 'GumpSel' 16;@pushlist 'Graphic' 0x1713;@pushlist 'ToolType' 0xf9d;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'cap';@pushlist 'GumpCat' 1;@pushlist 'GumpSel' 23;@pushlist 'Graphic' 0x1715;@pushlist 'ToolType' 0xf9d;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'wide-brim hat';@pushlist 'GumpCat' 1;@pushlist 'GumpSel' 30;@pushlist 'Graphic' 0x1714;@pushlist 'ToolType' 0xf9d;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'tall straw hat';@pushlist 'GumpCat' 1;@pushlist 'GumpSel' 44;@pushlist 'Graphic' 0x1716;@pushlist 'ToolType' 0xf9d;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'straw hat';@pushlist 'GumpCat' 1;@pushlist 'GumpSel' 37;@pushlist 'Graphic' 0x1717;@pushlist 'ToolType' 0xf9d;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 "wizard's hat";@pushlist 'GumpCat' 1;@pushlist 'GumpSel' 51;@pushlist 'Graphic' 0x1718;@pushlist 'ToolType' 0xf9d;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'bonnet';@pushlist 'GumpCat' 1;@pushlist 'GumpSel' 58;@pushlist 'Graphic' 0x1719;@pushlist 'ToolType' 0xf9d;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'feathered hat';@pushlist 'GumpCat' 1;@pushlist 'GumpSel' 65;@pushlist 'Graphic' 0x171a;@pushlist 'ToolType' 0xf9d;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'tricorne hat';@pushlist 'GumpCat' 1;@pushlist 'GumpSel' 72;@pushlist 'Graphic' 0x171b;@pushlist 'ToolType' 0xf9d;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'jester hat';@pushlist 'GumpCat' 1;@pushlist 'GumpSel' 79;@pushlist 'Graphic' 0x171c;@pushlist 'ToolType' 0xf9d;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'flower garland';@pushlist 'GumpCat' 1;@pushlist 'GumpSel' 86;@pushlist 'Graphic' 0x2306;@pushlist 'ToolType' 0xf9d;@pushlist 'Destination' 'FilledBods';// Shirts;elseif @ingump 0x5afbd742 'doublet';@pushlist 'GumpCat' 8;@pushlist 'GumpSel' 2;@pushlist 'Graphic' 0x1f7b;@pushlist 'ToolType' 0xf9d;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'fancy shirt';@pushlist 'GumpCat' 8;@pushlist 'GumpSel' 16;@pushlist 'Graphic' 0x1efd;@pushlist 'ToolType' 0xf9d;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'formal shirt';@pushlist 'GumpCat' 8;@pushlist 'GumpSel' 86;@pushlist 'Graphic' 0x2310;@pushlist 'ToolType' 0xf9d;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'shirt';@pushlist 'GumpCat' 8;@pushlist 'GumpSel' 9;@pushlist 'Graphic' 0x1517;@pushlist 'ToolType' 0xf9d;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'surcoat';@pushlist 'GumpCat' 8;@pushlist 'GumpSel' 30;@pushlist 'Graphic' 0x1ffd;@pushlist 'ToolType' 0xf9d;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'plain dress';@pushlist 'GumpCat' 8;@pushlist 'GumpSel' 37;@pushlist 'Graphic' 0x1f01;@pushlist 'ToolType' 0xf9d;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'fancy dress';@pushlist 'GumpCat' 8;@pushlist 'GumpSel' 44;@pushlist 'Graphic' 0x1f00;@pushlist 'ToolType' 0xf9d;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'cloak';@pushlist 'GumpCat' 8;@pushlist 'GumpSel' 51;@pushlist 'Graphic' 0x1515;@pushlist 'ToolType' 0xf9d;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'robe';@pushlist 'GumpCat' 8;@pushlist 'GumpSel' 58;@pushlist 'Graphic' 0x1f03;@pushlist 'ToolType' 0xf9d;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'jester suit';@pushlist 'GumpCat' 8;@pushlist 'GumpSel' 65;@pushlist 'Graphic' 0x1f9f;@pushlist 'ToolType' 0xf9d;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'fur cape';@pushlist 'GumpCat' 8;@pushlist 'GumpSel' 72;@pushlist 'Graphic' 0x230a;@pushlist 'ToolType' 0xf9d;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'gilded dress';@pushlist 'GumpCat' 8;@pushlist 'GumpSel' 79;@pushlist 'Graphic' 0x230e;@pushlist 'ToolType' 0xf9d;@pushlist 'Destination' 'FilledBods';// Pants;elseif @ingump 0x5afbd742 'short pants';@pushlist 'GumpCat' 15;@pushlist 'GumpSel' 2;@pushlist 'Graphic' 0x152e;@pushlist 'ToolType' 0xf9d;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'long pants';@pushlist 'GumpCat' 15;@pushlist 'GumpSel' 9;@pushlist 'Graphic' 0x1539;@pushlist 'ToolType' 0xf9d;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'kilt';@pushlist 'GumpCat' 15;@pushlist 'GumpSel' 16;@pushlist 'Graphic' 0x1537;@pushlist 'ToolType' 0xf9d;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'skirt';@pushlist 'GumpCat' 15;@pushlist 'GumpSel' 23;@pushlist 'Graphic' 0x1516;@pushlist 'ToolType' 0xf9d;@pushlist 'Destination' 'FilledBods';// Miscellaneous;elseif @ingump 0x5afbd742 'body sash';@pushlist 'GumpCat' 22;@pushlist 'GumpSel' 2;@pushlist 'Graphic' 0x1541;@pushlist 'ToolType' 0xf9d;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'half apron';@pushlist 'GumpCat' 22;@pushlist 'GumpSel' 9;@pushlist 'Graphic' 0x153b;@pushlist 'ToolType' 0xf9d;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'full apron';@pushlist 'GumpCat' 22;@pushlist 'GumpSel' 16;@pushlist 'Graphic' 0x153d;@pushlist 'ToolType' 0xf9d;@pushlist 'Destination' 'FilledBods';// Footwear;elseif @ingump 0x5afbd742 'fur boots';@pushlist 'GumpCat' 29;@pushlist 'GumpSel' 9;@pushlist 'Graphic' 0x2307;@pushlist 'ToolType' 0xf9d;@pushlist 'Destination' 'FilledBods';// Ringmail;elseif @ingump 0x5afbd742 'ringmail gloves';@pushlist 'GumpCat' 1;@pushlist 'GumpSel' 2;@pushlist 'Graphic' 0x13eb;@pushlist 'ToolType' 0xfbb;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'ringmail leggings';@pushlist 'GumpCat' 1;@pushlist 'GumpSel' 9;@pushlist 'Graphic' 0x13f0;@pushlist 'ToolType' 0xfbb;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'ringmail sleeves';@pushlist 'GumpCat' 1;@pushlist 'GumpSel' 16;@pushlist 'Graphic' 0x13ee;@pushlist 'ToolType' 0xfbb;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'ringmail tunic';@pushlist 'GumpCat' 1;@pushlist 'GumpSel' 23;@pushlist 'Graphic' 0x13ec;@pushlist 'ToolType' 0xfbb;@pushlist 'Destination' 'FilledBods';// Chainmail;elseif @ingump 0x5afbd742 'chainmail coif';@pushlist 'GumpCat' 8;@pushlist 'GumpSel' 2;@pushlist 'Graphic' 0x13bb;@pushlist 'ToolType' 0xfbb;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'chainmail leggings';@pushlist 'GumpCat' 8;@pushlist 'GumpSel' 9;@pushlist 'Graphic' 0x13be;@pushlist 'ToolType' 0xfbb;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'chainmail tunic';@pushlist 'GumpCat' 8;@pushlist 'GumpSel' 16;@pushlist 'Graphic' 0x13bf;@pushlist 'ToolType' 0xfbb;@pushlist 'Destination' 'FilledBods';// Platemail;elseif @ingump 0x5afbd742 'platemail arms';@pushlist 'GumpCat' 15;@pushlist 'GumpSel' 2;@pushlist 'Graphic' 0x1410;@pushlist 'ToolType' 0xfbb;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'platemail gloves';@pushlist 'GumpCat' 15;@pushlist 'GumpSel' 9;@pushlist 'Graphic' 0x1414;@pushlist 'ToolType' 0xfbb;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'platemail gorget';@pushlist 'GumpCat' 15;@pushlist 'GumpSel' 16;@pushlist 'Graphic' 0x1413;@pushlist 'ToolType' 0xfbb;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'platemail legs';@pushlist 'GumpCat' 15;@pushlist 'GumpSel' 23;@pushlist 'Graphic' 0x1411;@pushlist 'ToolType' 0xfbb;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'platemail tunic';@pushlist 'GumpCat' 15;@pushlist 'GumpSel' 30;@pushlist 'Graphic' 0x1415;@pushlist 'ToolType' 0xfbb;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'female plate';@pushlist 'GumpCat' 15;@pushlist 'GumpSel' 37;@pushlist 'Graphic' 0x1c04;@pushlist 'ToolType' 0xfbb;@pushlist 'Destination' 'FilledBods';// Helmets;elseif @ingump 0x5afbd742 'bascinet';@pushlist 'GumpCat' 22;@pushlist 'GumpSel' 2;@pushlist 'Graphic' 0x140c;@pushlist 'ToolType' 0xfbb;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'close helmet';@pushlist 'GumpCat' 22;@pushlist 'GumpSel' 9;@pushlist 'Graphic' 0x1408;@pushlist 'ToolType' 0xfbb;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'helmet' and not @ingump 0x5afbd742 'bone';@pushlist 'GumpCat' 22;@pushlist 'GumpSel' 16;@pushlist 'Graphic' 0x140a;@pushlist 'ToolType' 0xfbb;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'norse helm';@pushlist 'GumpCat' 22;@pushlist 'GumpSel' 23;@pushlist 'Graphic' 0x140e;@pushlist 'ToolType' 0xfbb;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'plate helm';@pushlist 'GumpCat' 22;@pushlist 'GumpSel' 30;@pushlist 'Graphic' 0x1412;@pushlist 'ToolType' 0xfbb;@pushlist 'Destination' 'FilledBods';// Shields;elseif @ingump 0x5afbd742 'buckler';@pushlist 'GumpCat' 29;@pushlist 'GumpSel' 2;@pushlist 'Graphic' 0x1b73;@pushlist 'ToolType' 0xfbb;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'bronze shield';@pushlist 'GumpCat' 29;@pushlist 'GumpSel' 9;@pushlist 'Graphic' 0x1b72;@pushlist 'ToolType' 0xfbb;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'heater shield';@pushlist 'GumpCat' 29;@pushlist 'GumpSel' 16;@pushlist 'Graphic' 0x1b76;@pushlist 'ToolType' 0xfbb;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'metal shield';@pushlist 'GumpCat' 29;@pushlist 'GumpSel' 23;@pushlist 'Graphic' 0x1b7b;@pushlist 'ToolType' 0xfbb;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'metal kite shield';@pushlist 'GumpCat' 29;@pushlist 'GumpSel' 30;@pushlist 'Graphic' 0x1b74;@pushlist 'ToolType' 0xfbb;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'tear kite shield';@pushlist 'GumpCat' 29;@pushlist 'GumpSel' 37;@pushlist 'Graphic' 0x1b79;@pushlist 'ToolType' 0xfbb;@pushlist 'Destination' 'FilledBods';// Bladed;elseif @ingump 0x5afbd742 'broadsword';@pushlist 'GumpCat' 36;@pushlist 'GumpSel' 9;@pushlist 'Graphic' 0xf5e;@pushlist 'ToolType' 0xfbb;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'cutlass';@pushlist 'GumpCat' 36;@pushlist 'GumpSel' 23;@pushlist 'Graphic' 0x1441;@pushlist 'ToolType' 0xfbb;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'dagger';@pushlist 'GumpCat' 36;@pushlist 'GumpSel' 30;@pushlist 'Graphic' 0xf52;@pushlist 'ToolType' 0xfbb;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'katana';@pushlist 'GumpCat' 36;@pushlist 'GumpSel' 37;@pushlist 'Graphic' 0x13ff;@pushlist 'ToolType' 0xfbb;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'kryss';@pushlist 'GumpCat' 36;@pushlist 'GumpSel' 44;@pushlist 'Graphic' 0x1401;@pushlist 'ToolType' 0xfbb;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'longsword';@pushlist 'GumpCat' 36;@pushlist 'GumpSel' 51;@pushlist 'Graphic' 0xf61;@pushlist 'ToolType' 0xfbb;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'scimitar';@pushlist 'GumpCat' 36;@pushlist 'GumpSel' 58;@pushlist 'Graphic' 0x13b6;@pushlist 'ToolType' 0xfbb;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'viking sword';@pushlist 'GumpCat' 36;@pushlist 'GumpSel' 65;@pushlist 'Graphic' 0x13b9;@pushlist 'ToolType' 0xfbb;@pushlist 'Destination' 'FilledBods';// Axes;elseif @ingump 0x5afbd742 'large battle axe';@pushlist 'GumpCat' 43;@pushlist 'GumpSel' 30;@pushlist 'Graphic' 0x13fb;@pushlist 'ToolType' 0xfbb;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'double axe';@pushlist 'GumpCat' 43;@pushlist 'GumpSel' 16;@pushlist 'Graphic' 0xf4b;@pushlist 'ToolType' 0xfbb;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 "executioner's axe";@pushlist 'GumpCat' 43;@pushlist 'GumpSel' 23;@pushlist 'Graphic' 0xf45;@pushlist 'ToolType' 0xfbb;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'battle axe';@pushlist 'GumpCat' 43;@pushlist 'GumpSel' 9;@pushlist 'Graphic' 0xf47;@pushlist 'ToolType' 0xfbb;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'two handed axe';@pushlist 'GumpCat' 43;@pushlist 'GumpSel' 37;@pushlist 'Graphic' 0x1443;@pushlist 'ToolType' 0xfbb;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'war axe';@pushlist 'GumpCat' 43;@pushlist 'GumpSel' 44;@pushlist 'Graphic' 0x13b0;@pushlist 'ToolType' 0xfbb;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'axe';@pushlist 'GumpCat' 43;@pushlist 'GumpSel' 2;@pushlist 'Graphic' 0xf49;@pushlist 'ToolType' 0xfbb;@pushlist 'Destination' 'FilledBods';// Polearms;elseif @ingump 0x5afbd742 'bardiche';@pushlist 'GumpCat' 50;@pushlist 'GumpSel' 2;@pushlist 'Graphic' 0xf4d;@pushlist 'ToolType' 0xfbb;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'halberd';@pushlist 'GumpCat' 50;@pushlist 'GumpSel' 23;@pushlist 'Graphic' 0x143e;@pushlist 'ToolType' 0xfbb;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'short spear';@pushlist 'GumpCat' 50;@pushlist 'GumpSel' 44;@pushlist 'Graphic' 0x1403;@pushlist 'ToolType' 0xfbb;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'spear';@pushlist 'GumpCat' 50;@pushlist 'GumpSel' 58;@pushlist 'Graphic' 0xf62;@pushlist 'ToolType' 0xfbb;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'war fork';@pushlist 'GumpCat' 50;@pushlist 'GumpSel' 65;@pushlist 'Graphic' 0x1405;@pushlist 'ToolType' 0xfbb;@pushlist 'Destination' 'FilledBods';// Bashing;elseif @ingump 0x5afbd742 'war mace';@pushlist 'GumpCat' 57;@pushlist 'GumpSel' 30;@pushlist 'Graphic' 0x1407;@pushlist 'ToolType' 0xfbb;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'hammer pick';@pushlist 'GumpCat' 57;@pushlist 'GumpSel' 2;@pushlist 'Graphic' 0x143d;@pushlist 'ToolType' 0xfbb;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'mace';@pushlist 'GumpCat' 57;@pushlist 'GumpSel' 9;@pushlist 'Graphic' 0xf5c;@pushlist 'ToolType' 0xfbb;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'maul';@pushlist 'GumpCat' 57;@pushlist 'GumpSel' 16;@pushlist 'Graphic' 0x143b;@pushlist 'ToolType' 0xfbb;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'war hammer';@pushlist 'GumpCat' 57;@pushlist 'GumpSel' 37;@pushlist 'Graphic' 0x1439;@pushlist 'ToolType' 0xfbb;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'tunic';@pushlist 'GumpCat' 8;@pushlist 'GumpSel' 23;@pushlist 'Graphic' 0x1fa1;@pushlist 'ToolType' 0xf9d;@pushlist 'Destination' 'FilledBods';else;break;endif;// Define resource;if @ingump 0x5afbd742 'barbed';@pushlist 'MaterialButton' 27;@pushlist 'MaterialHue' 2129;@pushlist 'MaterialGraphic' 0x1081;@pushlist 'Leather' 'yep';elseif @ingump 0x5afbd742 'horned';@pushlist 'MaterialButton' 20;@pushlist 'MaterialHue' 2117;@pushlist 'MaterialGraphic' 0x1081;@pushlist 'Leather' 'yep';elseif @ingump 0x5afbd742 'spined';@pushlist 'MaterialButton' 13;@pushlist 'MaterialHue' 2220;@pushlist 'MaterialGraphic' 0x1081;@pushlist 'Leather' 'yep';elseif @ingump 0x5afbd742 'leather' or @ingump 0x5afbd742 'studded';@pushlist 'MaterialButton' 6;@pushlist 'MaterialHue' 0;@pushlist 'MaterialGraphic' 0x1081;@pushlist 'Leather' 'yep';elseif @ingump 0x5afbd742 'valorite';@pushlist 'MaterialButton' 62;@pushlist 'MaterialHue' 2219;@pushlist 'MaterialGraphic' 0x1bf2;@pushlist 'NotIron0' 'yep';elseif @ingump 0x5afbd742 'verite';@pushlist 'MaterialButton' 55;@pushlist 'MaterialHue' 2207;@pushlist 'MaterialGraphic' 0x1bf2;@pushlist 'NotIron0' 'yep';elseif @ingump 0x5afbd742 'agapite';@pushlist 'MaterialButton' 48;@pushlist 'MaterialHue' 2425;@pushlist 'MaterialGraphic' 0x1bf2;@pushlist 'NotIron0' 'yep';elseif @ingump 0x5afbd742 'gold';@pushlist 'MaterialButton' 41;@pushlist 'MaterialHue' 2213;@pushlist 'MaterialGraphic' 0x1bf2;@pushlist 'NotIron0' 'yep';elseif @ingump 0x5afbd742 'bronze ingots';@pushlist 'MaterialButton' 34;@pushlist 'MaterialHue' 2418;@pushlist 'MaterialGraphic' 0x1bf2;@pushlist 'NotIron0' 'yep';elseif @ingump 0x5afbd742 'shadow iron';@pushlist 'MaterialButton' 20;@pushlist 'MaterialHue' 2406;@pushlist 'MaterialGraphic' 0x1bf2;@pushlist 'NotIron0' 'yep';elseif @ingump 0x5afbd742 'dull copper';@pushlist 'MaterialButton' 13;@pushlist 'MaterialHue' 2419;@pushlist 'MaterialGraphic' 0x1bf2;@pushlist 'NotIron0' 'yep';elseif @ingump 0x5afbd742 'copper';@pushlist 'MaterialButton' 27;@pushlist 'MaterialHue' 2413;@pushlist 'MaterialGraphic' 0x1bf2;@pushlist 'NotIron0' 'yep';elseif color 'bod' == 1102;@pushlist 'MaterialButton' 6;@pushlist 'MaterialHue' 0;@pushlist 'MaterialGraphic' 0x1bf2;else;//cloth;endif;endif;for 3;// Check for cut cloths and ingots if using cloth;if list 'MaterialHue' == 0;if @counttype 0x1bf2 0 'backpack' &lt; 50;if @movetype 0x1bf2 'Restock' 'backpack' 0 0 0 0 200;pause 750;else;useobject 'Restock';pause 550;waitforcontents 'Restock' 5000;for 2;if @movetype 0x1bf2 'Restock' 'backpack' 0 0 0 0 100;pause 750;endif;endfor;for 3;if @movetype 0x1bf2 'Restock' 'backpack' 0 0 0 0 25;pause 750;endif;endfor;for 5;if @movetype 0x1bf2 'Restock' 'backpack' 0 0 0 0 5;pause 750;endif;endfor;for 10;if @movetype 0x1bf2 'Restock' 'backpack' 0 0 0 0 1;pause 750;endif;endfor;@canceltarget;if @counttype 0x1bf2 0 'restock' == 0;sysmsg 'Out of Ingots' 34;@canceltarget;pause 600000;@playmacro 'CraftFill';endif;endif;endif;//unload colored ingots;while counttype 0x1bf2 2219 'backpack' > 0;movetype 0x1bf2 'backpack' 'restock' (0 0 0) 2219;pause 550;endwhile;while counttype 0x1bf2 2207 'backpack' > 0;movetype 0x1bf2 'backpack' 'restock' (0 0 0) 2207;pause 550;endwhile;while counttype 0x1bf2 2425 'backpack' > 0;movetype 0x1bf2 'backpack' 'restock' (0 0 0) 2425;pause 550;endwhile;while counttype 0x1bf2 2213 'backpack' > 0;movetype 0x1bf2 'backpack' 'restock' (0 0 0) 2213;pause 550;endwhile;while counttype 0x1bf2 2418 'backpack' > 0;movetype 0x1bf2 'backpack' 'restock' (0 0 0) 2418;pause 550;endwhile;while counttype 0x1bf2 2406 'backpack' > 0;movetype 0x1bf2 'backpack' 'restock' (0 0 0) 2406;pause 550;endwhile;while counttype 0x1bf2 2419 'backpack' > 0;movetype 0x1bf2 'backpack' 'restock' (0 0 0) 2419;pause 550;endwhile;while counttype 0x1bf2 2413 'backpack' > 0;movetype 0x1bf2 'backpack' 'restock' (0 0 0) 2413;pause 550;endwhile;//cloth;if @counttype 0x1766 'any' 'backpack' &lt; 50 and @counttype 0x1767 'any' 'backpack' &lt; 50;if @movetype 0x1766 'Restock' 'backpack' 0 0 0 'any' 500 or @movetype 0x1767 'Restock' 'backpack' 0 0 0 'any' 500;pause 750;else;useobject 'Restock';pause 550;waitforcontents 'Restock' 5000;for 5;if @movetype 0x1766 'Restock' 'backpack' 0 0 0 'any' 100 or @movetype 0x1767 'Restock' 'backpack' 0 0 0 'any' 100;pause 750;endif;endfor;for 5;if @movetype 0x1766 'Restock' 'backpack' 0 0 0 'any' 50 or @movetype 0x1767 'Restock' 'backpack' 0 0 0 'any' 50;pause 750;endif;endfor;for 2;if @movetype 0x1766 'Restock' 'backpack' 0 0 0 'any' 25 or @movetype 0x1767 'Restock' 'backpack' 0 0 0 'any' 25;pause 750;endif;endfor;for 5;if @movetype 0x1766 'Restock' 'backpack' 0 0 0 'any' 5 or @movetype 0x1767 'Restock' 'backpack' 0 0 0 'any' 5;pause 750;endif;endfor;for 5;if @movetype 0x1766 'Restock' 'backpack' 0 0 0 'any' 1 or @movetype 0x1767 'Restock' 'backpack' 0 0 0 'any' 1;pause 750;endif;endfor;if @counttype 0x1bf2 0 'restock' == 0;sysmsg 'Out of Cloth' 25;@canceltarget;pause 600000;@playmacro 'CraftFill';endif;endif;endif;else;if list 'Leather' >= 1;//unload colored ingots;while counttype 0x1bf2 2219 'backpack' > 0;movetype 0x1bf2 'backpack' 'restock' (0 0 0) 2219;pause 550;endwhile;while counttype 0x1bf2 2207 'backpack' > 0;movetype 0x1bf2 'backpack' 'restock' (0 0 0) 2207;pause 550;endwhile;while counttype 0x1bf2 2425 'backpack' > 0;movetype 0x1bf2 'backpack' 'restock' (0 0 0) 2425;pause 550;endwhile;while counttype 0x1bf2 2213 'backpack' > 0;movetype 0x1bf2 'backpack' 'restock' (0 0 0) 2213;pause 550;endwhile;while counttype 0x1bf2 2418 'backpack' > 0;movetype 0x1bf2 'backpack' 'restock' (0 0 0) 2418;pause 550;endwhile;while counttype 0x1bf2 2406 'backpack' > 0;movetype 0x1bf2 'backpack' 'restock' (0 0 0) 2406;pause 550;endwhile;while counttype 0x1bf2 2419 'backpack' > 0;movetype 0x1bf2 'backpack' 'restock' (0 0 0) 2419;pause 550;endwhile;while counttype 0x1bf2 2413 'backpack' > 0;movetype 0x1bf2 'backpack' 'restock' (0 0 0) 2413;pause 550;endwhile;if @counttype MaterialGraphic[0] MaterialHue[0] 'backpack' &lt; 50;//unload all leather types;while @movetype MaterialGraphic[0] 'backpack' 'Restock';pause 750;endwhile;//try to restock 250 leather;if @movetype MaterialGraphic[0] 'Restock' 'backpack' 0 0 0 MaterialHue[0] 250;pause 750;else;useobject 'Restock';pause 550;waitforcontents 'Restock' 5000;for 4;if @movetype MaterialGraphic[0] 'Restock' 'backpack' 0 0 0 MaterialHue[0] 50 and @property 'Stones' 'backpack' &lt; 400;pause 750;endif;endfor;for 4;if @movetype MaterialGraphic[0] 'Restock' 'backpack' 0 0 0 MaterialHue[0] 25 and @property 'Stones' 'backpack' &lt; 475;pause 750;endif;endfor;for 5;if @movetype MaterialGraphic[0] 'Restock' 'backpack' 0 0 0 MaterialHue[0] 5 and @property 'Stones' 'backpack' &lt; 500;pause 750;endif;endfor;for 5;if @movetype MaterialGraphic[0] 'Restock' 'backpack' 0 0 0 MaterialHue[0] 1 and @property 'Stones' 'backpack' &lt; 500;pause 750;endif;endfor;@canceltarget;if @counttype MaterialGraphic[0] MaterialHue[0] 'restock' == 0;sysmsg 'Out of Leather or Ingots' 25;@canceltarget;pause 600000;@playmacro 'CraftFill';endif;endif;if @counttype 0x1bf2 0 'backpack' &lt; 20;if movetype 0x1bf2 'Restock' 'backpack' 0 0 0 0 50;pause 550;else;useobject 'Restock';pause 550;waitforcontents 'Restock' 5000;for 4;movetype 0x1bf2 'Restock' 'backpack' 0 0 0 0 10;pause 550;endfor;for 4;movetype 0x1bf2 'Restock' 'backpack' 0 0 0 0 4;pause 550;endfor;for 5;movetype 0x1bf2 'Restock' 'backpack' 0 0 0 0 1;pause 550;endfor;endif;endif;if @property 'Stones' 'backpack' >= 525;movetype MaterialGraphic[0] 'backpack' 'restock' (0 0 0) 'any' 50;pause 550;endif;endif;elseif list 'NotIron0' >= 1;//unload leather;while counttype 0x1081 'any' 'backpack' > 0;movetype 0x1081 'backpack' 'restock';pause 550;endwhile;if @counttype MaterialGraphic[0] MaterialHue[0] 'backpack' &lt; 50;//unload all ingots types;while @movetype MaterialGraphic[0] 'backpack' 'Restock';pause 750;endwhile;if @movetype MaterialGraphic[0] 'Restock' 'backpack' 0 0 0 MaterialHue[0] 1000;pause 750;else;useobject 'Restock';pause 550;waitforcontents 'Restock' 5000;for 4;if @movetype MaterialGraphic[0] 'Restock' 'backpack' 0 0 0 MaterialHue[0] 250;pause 750;endif;endfor;for 5;if @movetype MaterialGraphic[0] 'Restock' 'backpack' 0 0 0 MaterialHue[0] 50;pause 750;endif;endfor;for 2;if @movetype MaterialGraphic[0] 'Restock' 'backpack' 0 0 0 MaterialHue[0] 25;pause 750;endif;endfor;for 5;if @movetype MaterialGraphic[0] 'Restock' 'backpack' 0 0 0 MaterialHue[0] 5;pause 750;endif;endfor;for 5;if @movetype MaterialGraphic[0] 'Restock' 'backpack' 0 0 0 MaterialHue[0] 1;pause 750;endif;endfor;@canceltarget;if @counttype MaterialGraphic[0] MaterialHue[0] 'restock' == 0;sysmsg 'Out of Leather or Ingots' 25;@canceltarget;pause 600000;@playmacro 'CraftFill';endif;endif;if @counttype 0x1bf2 0 'backpack' &lt; 20;if movetype 0x1bf2 'Restock' 'backpack' 0 0 0 0 50;pause 550;else;useobject 'Restock';pause 550;waitforcontents 'Restock' 5000;for 4;movetype 0x1bf2 'Restock' 'backpack' 0 0 0 0 10;pause 550;endfor;for 4;movetype 0x1bf2 'Restock' 'backpack' 0 0 0 0 4;pause 550;endfor;for 5;movetype 0x1bf2 'Restock' 'backpack' 0 0 0 0 1;pause 550;endfor;endif;endif;endif;else;//iron restock;if @counttype 0x1bf2 0 'backpack' &lt; 200;if @movetype 0x1bf2 'Restock' 'backpack' 0 0 0 0 1000;pause 750;else;useobject 'Restock';pause 550;waitforcontents 'Restock' 5000;for 3;if @movetype 0x1bf2 'Restock' 'backpack' 0 0 0 0 250;pause 750;endif;endfor;for 2;if @movetype 0x1bf2 'Restock' 'backpack' 0 0 0 0 100;pause 750;endif;endfor;for 3;if @movetype 0x1bf2 'Restock' 'backpack' 0 0 0 0 25;pause 750;endif;endfor;for 5;if @movetype 0x1bf2 'Restock' 'backpack' 0 0 0 0 5;pause 750;endif;endfor;for 10;if @movetype 0x1bf2 'Restock' 'backpack' 0 0 0 0 1;pause 750;endif;endfor;@canceltarget;if @counttype 0x1bf2 0 'restock' == 0;sysmsg 'Out of Ingots' 34;pause 600000;@playmacro 'CraftFill';endif;endif;endif;endif;endif;endfor;if @property 'Contents' 'backpack' >= 124 or @property 'Stones' 'backpack' >= 525;sysmsg 'Something went wrong! Pack full! Abort! Abort!' 34;stop;endif;// Check for tools;// make tinker tools;if @counttype 0x1eb8 0 'backpack' &lt; 2;pause 550;@unsetalias 'warning';while @counttype 0x1eb8 0 'backpack' &lt; 2;usetype! 0x1eb8;waitforgump 0x38920abd 2000;replygump 0x38920abd 7;waitforgump 0x38920abd 2000;replygump 0x38920abd 6;waitforgump 0x38920abd 2000;@replygump 0x38920abd 8;waitforgump 0x38920abd 2000;@replygump 0x38920abd 23;pause 1000;endwhile;endif;//make kits;if @counttype 0xf9d 0 'backpack' &lt; 3 and color 'bod' == 1155;pause 550;while @counttype 0xf9d 0 'backpack' &lt; 3;usetype! 0x1eb8;waitforgump 0x38920abd 2000;replygump 0x38920abd 7;waitforgump 0x38920abd 2000;replygump 0x38920abd 6;waitforgump 0x38920abd 2000;@replygump 0x38920abd 8;waitforgump 0x38920abd 2000;@replygump 0x38920abd 44;waitforgump 0x38920abd 2000;pause 1000;endwhile;endif;//make hammers;if @counttype 0xfbb 0 'backpack' &lt; 3 and color 'bod' == 1102;pause 550;while @counttype 0xfbb 0 'backpack' &lt; 3;usetype! 0x1eb8;waitforgump 0x38920abd 2000;replygump 0x38920abd 7;waitforgump 0x38920abd 2000;replygump 0x38920abd 6;waitforgump 0x38920abd 2000;@replygump 0x38920abd 8;waitforgump 0x38920abd 2000;@replygump 0x38920abd 86;waitforgump 0x38920abd 2000;pause 1000;endwhile;endif;// Search for existing items;while @findtype Graphic[0] 'any' 'backpack';if @property 'Contents' 'backpack' >= 124 or @property 'Stones' 'backpack' >= 525;sysmsg 'Something went wrong! Pack full! Abort! Abort!' 34;stop;endif;target! 'found';waitfortarget 1000;if not targetexists 'server' and @injournal 'must be exceptional' 'system';// Recycle this item;@clearjournal;if color 'bod' == 1102;replygump 0x38920abd 14;waitfortarget 5000;target! 'found';pause 750;else;if usetype! 0xf9f;waitfortarget 5000;target! 'found';pause 750;endif;endif;// Unable to recycle, trash item;if @findobject 'found';@moveitem! 'found' 'Trash Barrel';pause 750;endif;elseif not targetexists 'server' and @injournal 'the maximum amount of requested items';// Recycle this item;if color 'bod' == 1102;replygump 0x38920abd 14;waitfortarget 5000;target! 'found';pause 750;else;if usetype! 0xf9f;waitfortarget 5000;target! 'found';pause 750;endif;endif;// Unable to recycle, trash item;if @findobject 'found';@moveitem! 'found' 'Trash Barrel';pause 750;endif;elseif not targetexists 'server';replygump 0x5afbd742 2;waitforgump 0x5afbd742 2500;waitfortarget 1000;endif;endwhile;// Craft new items if necessary;if targetexists 'server';if @property 'Contents' 'backpack' >= 124 or @property 'Stones' 'backpack' >= 525;sysmsg 'Something went wrong! Pack full! Abort! Abort!' 34;stop;endif;// Swap resource and category only once per BOD;if not @findobject 'crafting' 'any' 'backpack';@setalias 'crafting' 'bod';// Resource;if not list 'MaterialHue' == 0;usetype! ToolType[0] 0;waitforgump 0x38920abd 2000;replygump 0x38920abd 7;waitforgump 0x38920abd 2000;replygump 0x38920abd MaterialButton[0];waitforgump 0x38920abd 2000;endif;// Category;pause 550;usetype! ToolType[0] 0;waitforgump 0x38920abd 2000;replygump 0x38920abd GumpCat[0];waitforgump 0x38920abd 2000;endif;if not @gumpexists 0x38920abd or @injournal 'replygump: gump id not found';usetype! ToolType[0] 0;waitforgump 0x38920abd 2000;@clearjournal;elseif not @ingump 0x38920abd 'Bone Armor' and not @ingump 0x38920abd 'Dragon Scale Armor';usetype! ToolType[0] 0;waitforgump 0x38920abd 2000;endif;replygump 0x38920abd GumpSel[0];waitforgump 0x38920abd 2000;pause 50;if counttype Graphic[0] 'any' 'backpack' == 0 or counttype Graphic[0] 'any' 'backpack' > 2;@unsetalias 'crafting';pause 550;@playmacro 'CraftFill';endif;endif;endwhile;// BOD is complete, move to destination;if not targetexists 'server' and @injournal 'the maximum amount of requested items';while @findtype Graphic[0] 'any' 'backpack';if color 'bod' == 1102;replygump 0x38920abd 14;waitfortarget 5000;target! 'found';pause 750;else;if usetype! 0xf9f;waitfortarget 5000;target! 'found';pause 750;endif;endif;// Unable to recycle, trash item;if @findobject 'found';@moveitem! 'found' 'Trash Barrel';pause 750;endif;replygump 0x5afbd742 2;waitforgump 0x5afbd742 2500;waitfortarget 5000;clearjournal;endwhile;clearjournal;@moveitem 'bod' Destination[0];pause 750;// Trash BOD or missing definitions;elseif not targetexists 'server';replygump 0x5afbd742 2;waitforgump 0x5afbd742 2500;waitfortarget 1000;elseif not @findalias 'crafting';@moveitem 'bod' 'Trash BODs Destination';pause 750;endif;elseif not @property 'Deeds in Book: 0' 'EmptyBods';useobject! 'EmptyBods';waitforgump 0x54f555df 2500;replygump 0x54f555df 5;waitforgump 0x54f555df 2500;pause 750;else;sysmsg 'Out of bods to fill.' 64;@canceltarget;@playmacro 'Take New Book';stop;endif;</macro>
  133. <macro loop="False" name="AfterSort" interrupt="True">//wall of bags north of goza;@setalias 'verite' 0x42ac299a;@setalias 'valorite' 0x42ac2994;@setalias 'agapite' 0x42c86fe0;@setalias 'gold1' 0x42ac298a;@setalias 'gold2' 0x42ac2995;@setalias 'bronze1' 0x42ac298b;@setalias 'bronze2' 0x42ac298e;@setalias 'copper1' 0x42ac2990;@setalias 'copper2' 0x42c77275;@setalias '+60' 0x42ac2999;@setalias '+30' 0x42c86fde;@setalias '+151' 0x42c86fe3;@setalias '+152' 0x42c86fdf;@setalias '120' 0x42c86fe1;@setalias 'POF1' 0x4055fb66;@setalias 'POF2' 0x4055fb67;@setalias 'BronzeSmall' 0x42ac2991;@setalias 'CopperSmall' 0x42ac299b;@setalias 'ShadowSmall' 0x4055fb69;@setalias 'HRSK1' 0x42ac2997;@setalias 'HRSK2' 0x42ac2993;@setalias 'BRSK1' 0x42ac2998;@setalias 'BRSK2' 0x42ac2996;if @injournal 'world will save';while not @injournal 'world save complete';endwhile;@clearjournal;endif;//make room by temporarily placing other books on ground;clearignorelist;@unsetalias 'setaside1';@unsetalias 'setaside2';if not x == 1176 and y == 2790;sysmsg 'stand on the goza';stop;endif;if counttype 0x2259 'any' 'backpack' &lt;= 2;while @findtype 0x2259 'any' 'backpack';if not @findalias 'setaside1';@setalias 'setaside1' 'found';elseif not @findalias 'setaside2';@setalias 'setaside2' 'found';endif;ignoreobject 'found';endwhile;@moveitemoffset 'setaside1' 'ground' (0 1 0);pause 750;@moveitemoffset 'setaside2' 'ground' (0 1 0);pause 750;else;sysmsg 'Too many bod books in your pack to run this macro.' 34;if @findalias 'setaside1' or @findalias 'setaside2';moveitem 'setaside1' 'backpack';pause 750;moveitem 'setaside2' 'backpack';pause 750;endif;stop;endif;if @injournal 'world will save';while not @injournal 'world save complete';endwhile;@clearjournal;endif;//Valorite;sysmsg 'Valorite' 95;if not counttype 0x2259 0 'Valorite' > 0;useobject 'Valorite';pause 750;endif;if @findtype 0x2258 'any' 'Valorite';if findtype 0x2259 0 'Valorite';@setalias 'ResetBook' 'found';@moveitem 'ResetBook' 'backpack' 0 0 0;pause 750;while @findtype 0x2258 'any' 'Valorite' and @property 'Deeds in Book' 'ResetBook' &lt; 500;moveitem 'found' 'ResetBook' 0 0 0;endwhile;pause 750;while @findobject 'ResetBook' 'any' 'backpack';moveitem 'ResetBook' 'Valorite';pause 750;endwhile;else;sysmsg 'Need a bod book in the Valorite Container' 34;endif;if @property 'Deeds in Book' 'ResetBook' == 500;sysmsg 'VALORITE BOOK FULL' 33;endif;endif;//Verite;sysmsg 'Verite' 79;if not counttype 0x2259 0 'Verite' > 0;useobject 'Verite';pause 750;endif;if @findtype 0x2258 'any' 'Verite';if findtype 0x2259 0 'Verite';@setalias 'ResetBook' 'found';@moveitem 'ResetBook' 'backpack' 0 0 0;pause 750;while @findtype 0x2258 'any' 'Verite' and @property 'Deeds in Book' 'ResetBook' &lt; 500;moveitem 'found' 'ResetBook' 0 0 0;endwhile;pause 750;while @findobject 'ResetBook' 'any' 'backpack';moveitem 'ResetBook' 'Verite';pause 750;endwhile;else;sysmsg 'Need a bod book in the Verite Container' 34;endif;if @property 'Deeds in Book' 'ResetBook' == 500;sysmsg 'VERITE BOOK FULL' 33;endif;endif;//Agapite;sysmsg 'Agapite' 36;if not counttype 0x2259 0 'Agapite' > 0;useobject 'Agapite';pause 750;endif;if @findtype 0x2258 'any' 'Agapite';if findtype 0x2259 0 'Agapite';@setalias 'ResetBook' 'found';@moveitem 'ResetBook' 'backpack' 0 0 0;pause 750;while @findtype 0x2258 'any' 'Agapite' and @property 'Deeds in Book' 'ResetBook' &lt; 500;moveitem 'found' 'ResetBook' 0 0 0;endwhile;pause 750;while @findobject 'ResetBook' 'any' 'backpack';moveitem 'ResetBook' 'Agapite';pause 750;endwhile;else;sysmsg 'Need a bod book in the Agapite Container' 34;endif;if @property 'Deeds in Book' 'ResetBook' == 500;sysmsg 'AGAPITE BOOK FULL' 33;endif;endif;if @injournal 'world will save';while not @injournal 'world save complete';endwhile;@clearjournal;endif;//Gold;sysmsg 'Gold' 252;if @property 'Contents' 'gold1' > 0;useobject 'gold1';pause 750;useobject 'gold2';pause 750;if @findtype 0x2258 'any' 'gold1';if findtype 0x2259 0 'gold2';@setalias 'ResetBook' 'found';@moveitem 'ResetBook' 'backpack' 0 0 0;pause 750;while @findtype 0x2258 'any' 'gold1' and @property 'Deeds in Book' 'ResetBook' &lt; 500;moveitem 'found' 'ResetBook' 0 0 0;endwhile;pause 750;while @findobject 'ResetBook' 'any' 'backpack';moveitem 'ResetBook' 'gold2';pause 750;endwhile;else;sysmsg 'Need a bod book in the Gold Container' 34;endif;endif;if @property 'Deeds in Book' 'ResetBook' == 500;sysmsg 'GOLD BOOK FULL' 33;endif;endif;//Bronze;sysmsg 'Bronze' 249;if @property 'Contents' 'bronze1' > 0;useobject 'bronze1';pause 750;useobject 'bronze2';pause 750;if @findtype 0x2258 'any' 'bronze1';if findtype 0x2259 0 'bronze2';@setalias 'ResetBook' 'found';@moveitem 'ResetBook' 'backpack' 0 0 0;pause 750;while @findtype 0x2258 'any' 'bronze1' and @property 'Deeds in Book' 'ResetBook' &lt; 500;moveitem 'found' 'ResetBook' 0 0 0;endwhile;pause 750;while @findobject 'ResetBook' 'any' 'backpack';moveitem 'ResetBook' 'bronze2';pause 750;endwhile;else;sysmsg 'Need a bod book in the Bronze Container' 34;endif;endif;if @injournal 'world will save';while not @injournal 'world save complete';endwhile;@clearjournal;endif;if @property 'Deeds in Book' 'ResetBook' == 500;sysmsg 'BRONZE BOOK FULL' 33;endif;endif;//Copper;sysmsg 'Copper' 242;if @property 'Contents' 'copper1' > 0;useobject 'copper1';pause 750;useobject 'copper2';pause 750;if @findtype 0x2258 'any' 'copper1';if findtype 0x2259 0 'copper2';@setalias 'ResetBook' 'found';@moveitem 'ResetBook' 'backpack' 0 0 0;pause 750;while @findtype 0x2258 'any' 'copper1' and @property 'Deeds in Book' 'ResetBook' &lt; 500;moveitem 'found' 'ResetBook' 0 0 0;endwhile;pause 750;while @findobject 'ResetBook' 'any' 'backpack';moveitem 'ResetBook' 'copper2';pause 750;endwhile;else;sysmsg 'Need a bod book in the Copper Container' 34;endif;endif;if @property 'Deeds in Book' 'ResetBook' == 500;sysmsg 'COPPER BOOK FULL' 33;endif;endif;//+60;sysmsg '+60' 34;if not counttype 0x2259 0 '+60' > 0;useobject '+60';pause 750;endif;if @findtype 0x2258 'any' '+60';if findtype 0x2259 0 '+60';@setalias 'ResetBook' 'found';@moveitem 'ResetBook' 'backpack' 0 0 0;pause 750;while @findtype 0x2258 'any' '+60' and @property 'Deeds in Book' 'ResetBook' &lt; 500;moveitem 'found' 'ResetBook' 0 0 0;endwhile;pause 750;while @findobject 'ResetBook' 'any' 'backpack';moveitem 'ResetBook' '+60';pause 750;endwhile;else;sysmsg 'Need a bod book in the +60 Container' 34;endif;if @property 'Deeds in Book' 'ResetBook' == 500;sysmsg '+60 ASH BOOK FULL' 33;endif;endif;if @injournal 'world will save';while not @injournal 'world save complete';endwhile;@clearjournal;endif;//+30;sysmsg '+30' 73;if not counttype 0x2259 0 '+30' > 0;useobject '+30';pause 750;endif;if @findtype 0x2258 'any' '+30';if findtype 0x2259 0 '+30';@setalias 'ResetBook' 'found';@moveitem 'ResetBook' 'backpack' 0 0 0;pause 750;while @findtype 0x2258 'any' '+30' and @property 'Deeds in Book' 'ResetBook' &lt; 500;moveitem 'found' 'ResetBook' 0 0 0;endwhile;pause 750;while @findobject 'ResetBook' 'any' 'backpack';moveitem 'ResetBook' '+30';pause 750;endwhile;else;sysmsg 'Need a bod book in the +30 Container' 34;endif;if @property 'Deeds in Book' 'ResetBook' == 500;sysmsg '+30 ASH BOOK FULL' 33;endif;endif;if @injournal 'world will save';while not @injournal 'world save complete';endwhile;@clearjournal;endif;//+15;sysmsg '+15' 20;if @property 'Contents' '+151' > 0;useobject '+151';pause 750;useobject '+152';pause 750;if @findtype 0x2258 'any' '+151';if findtype 0x2259 0 '+152';@setalias 'ResetBook' 'found';@moveitem 'ResetBook' 'backpack' 0 0 0;pause 750;while @findtype 0x2258 'any' '+151' and @property 'Deeds in Book' 'ResetBook' &lt; 500;moveitem 'found' 'ResetBook' 0 0 0;endwhile;pause 750;while @findobject 'ResetBook' 'any' 'backpack';moveitem 'ResetBook' '+152';pause 750;endwhile;else;sysmsg 'Need a bod book in the +15 Container' 34;endif;endif;if @property 'Deeds in Book' 'ResetBook' == 500;sysmsg '+15 ASH BOOK FULL' 33;endif;if @injournal 'world will save';while not @injournal 'world save complete';endwhile;@clearjournal;endif;endif;//BronzeSmall;sysmsg 'Bronze Small' 88;if not counttype 0x2259 0 'BronzeSmall' > 0;useobject 'BronzeSmall';pause 750;endif;if @findtype 0x2258 'any' 'BronzeSmall';if findtype 0x2259 0 'BronzeSmall';@setalias 'ResetBook' 'found';@moveitem 'ResetBook' 'backpack' 0 0 0;pause 750;while @findtype 0x2258 'any' 'BronzeSmall' and @property 'Deeds in Book' 'ResetBook' &lt; 500;moveitem 'found' 'ResetBook' 0 0 0;endwhile;pause 750;while @findobject 'ResetBook' 'any' 'backpack';moveitem 'ResetBook' 'BronzeSmall';pause 750;endwhile;else;sysmsg 'Need a bod book in the BronzeSmall Container' 34;endif;if @property 'Deeds in Book' 'ResetBook' == 500;sysmsg 'BRONZE SMALL BOD BOOK FULL' 33;endif;endif;if @injournal 'world will save';while not @injournal 'world save complete';endwhile;@clearjournal;endif;//CopperSmall;sysmsg 'Copper Small' 88;if not counttype 0x2259 0 'CopperSmall' > 0;useobject 'CopperSmall';pause 750;endif;if @findtype 0x2258 'any' 'CopperSmall';if findtype 0x2259 0 'CopperSmall';@setalias 'ResetBook' 'found';@moveitem 'ResetBook' 'backpack' 0 0 0;pause 750;while @findtype 0x2258 'any' 'CopperSmall' and @property 'Deeds in Book' 'ResetBook' &lt; 500;moveitem 'found' 'ResetBook' 0 0 0;endwhile;pause 750;while @findobject 'ResetBook' 'any' 'backpack';moveitem 'ResetBook' 'CopperSmall';pause 750;endwhile;else;sysmsg 'Need a bod book in the CopperSmall Container' 34;endif;if @property 'Deeds in Book' 'ResetBook' == 500;sysmsg 'COPPER SMALL BOD BOOK FULL' 33;endif;endif;if @injournal 'world will save';while not @injournal 'world save complete';endwhile;@clearjournal;endif;//ShadowSmall;sysmsg 'Shadow Small' 88;if not counttype 0x2259 0 'ShadowSmall' > 0;useobject 'ShadowSmall';pause 750;endif;if @findtype 0x2258 'any' 'ShadowSmall';if findtype 0x2259 0 'ShadowSmall';@setalias 'ResetBook' 'found';@moveitem 'ResetBook' 'backpack' 0 0 0;pause 750;while @findtype 0x2258 'any' 'ShadowSmall' and @property 'Deeds in Book' 'ResetBook' &lt; 500;moveitem 'found' 'ResetBook' 0 0 0;endwhile;pause 750;while @findobject 'ResetBook' 'any' 'backpack';moveitem 'ResetBook' 'ShadowSmall';pause 750;endwhile;else;sysmsg 'Need a bod book in the ShadowSmall Container' 34;endif;if @property 'Deeds in Book' 'ResetBook' == 500;sysmsg 'SHADOW SMALL BOD BOOK FULL' 33;endif;endif;if @injournal 'world will save';while not @injournal 'world save complete';endwhile;@clearjournal;endif;//POF;sysmsg 'POF' 88;if @property 'Contents' 'POF1' > 0;useobject 'POF1';pause 750;useobject 'POF2';pause 750;if @findtype 0x2258 'any' 'POF1';if findtype 0x2259 0 'POF2';@setalias 'ResetBook' 'found';@moveitem 'ResetBook' 'backpack' 0 0 0;pause 750;while @findtype 0x2258 'any' 'POF1' and @property 'Deeds in Book' 'ResetBook' &lt; 500;moveitem 'found' 'ResetBook' 0 0 0;endwhile;pause 750;while @findobject 'ResetBook' 'any' 'backpack';moveitem 'ResetBook' 'POF2';pause 750;endwhile;else;sysmsg 'Need a bod book in the PoF Container' 34;endif;endif;if @property 'Deeds in Book' 'ResetBook' == 500;sysmsg 'POF BOOK FULL' 33;endif;endif;if @injournal 'world will save';while not @injournal 'world save complete';endwhile;@clearjournal;endif;//120;sysmsg '120' 2498;if not counttype 0x2259 0 '120' > 0;useobject '120';pause 750;endif;if @findtype 0x2258 'any' '120';if findtype 0x2259 0 '120';@setalias 'ResetBook' 'found';@moveitem 'ResetBook' 'backpack' 0 0 0;pause 750;while @findtype 0x2258 'any' '120' and @property 'Deeds in Book' 'ResetBook' &lt; 500;moveitem 'found' 'ResetBook' 0 0 0;endwhile;pause 750;while @findobject 'ResetBook' 'any' 'backpack';moveitem 'ResetBook' '120';pause 750;endwhile;else;sysmsg 'Need a bod book in the 120 Container' 34;endif;if @property 'Deeds in Book' 'ResetBook' == 500;sysmsg '120 BOOK FULL' 33;endif;endif;if @injournal 'world will save';while not @injournal 'world save complete';endwhile;@clearjournal;endif;//BRSK;sysmsg 'BRSK' 168;if @property 'Contents' 'brsk1' > 0;useobject 'BRSK1';pause 750;useobject 'BRSK2';pause 750;if @findtype 0x2258 'any' 'BRSK1';if findtype 0x2259 0 'BRSK2';@setalias 'ResetBook' 'found';@moveitem 'ResetBook' 'backpack' 0 0 0;pause 750;while @findtype 0x2258 'any' 'BRSK1' and @property 'Deeds in Book' 'ResetBook' &lt; 500;moveitem 'found' 'ResetBook' 0 0 0;endwhile;pause 750;while @findobject 'ResetBook' 'any' 'backpack';moveitem 'ResetBook' 'BRSK2';pause 750;endwhile;else;sysmsg 'Need a bod book in the BRSK Container' 34;endif;endif;if @property 'Deeds in Book' 'ResetBook' == 500;sysmsg 'BRSK BOOK FULL' 33;endif;if @injournal 'world will save';while not @injournal 'world save complete';endwhile;@clearjournal;endif;endif;//HRSK;sysmsg 'HRSK' 34;if @property 'Contents' 'hrsk1' > 0;useobject 'HRSK1';pause 750;useobject 'HRSK2';pause 750;if @findtype 0x2258 'any' 'HRSK1';if findtype 0x2259 0 'HRSK2';@setalias 'ResetBook' 'found';@moveitem 'ResetBook' 'backpack' 0 0 0;pause 750;while @findtype 0x2258 'any' 'HRSK1' and @property 'Deeds in Book' 'ResetBook' &lt; 500;moveitem 'found' 'ResetBook' 0 0 0;endwhile;pause 750;while @findobject 'ResetBook' 'any' 'backpack';moveitem 'ResetBook' 'HRSK2';pause 750;endwhile;else;sysmsg 'Need a bod book in the HRSK Container' 34;endif;endif;if @property 'Deeds in Book' 'ResetBook' == 500;sysmsg 'HRSK BOOK FULL' 33;endif;if @injournal 'world will save';while not @injournal 'world save complete';endwhile;@clearjournal;endif;endif;if @findalias 'setaside1' or @findalias 'setaside2';for 5;if @findalias 'setaside1' and not @findobject 'setaside1' 'any' 'backpack';moveitem 'setaside1' 'backpack';pause 2000;endif;if @findalias 'setaside2' and not @findobject 'setaside2' 'any' 'backpack';moveitem 'setaside2' 'backpack';pause 2000;endif;if @findobject 'setaside1' 'any' 'backpack' and @findobject 'setaside2' 'any' 'backpack';@unsetalias 'setaside1';@unsetalias 'setaside2';endif;endfor;endif;</macro>
  134. <macro loop="False" name="TrainBS" interrupt="True">@setalias 'restock' 0x40c86f89;@setalias 'trash' 0x41fa9781;//mace;while skill 'Blacksmithy' &lt; 56;if counttype 0x1bf2 'any' 'backpack' &lt; 50;movetype 0x1bf2 'restock' 'backpack' [(0 0 0)] 0 1000;pause 1000;endif;usetype! 0x13e3;waitforgump 0x38920abd 15000;replygump 0x38920abd 36;waitforgump 0x38920abd 15000;replygump 0x38920abd 44;waitforgump 0x38920abd 15000;if counttype 0x1441 0 'backpack' > 4;while counttype 0x1441 0 'backpack' > 0;if not gumpexists 0x38920abd;usetype! 0x13e3;waitforgump 0x38920abd 15000;endif;replygump 0x38920abd 14;waitfortarget 1500;targettype! 0x1441;waitforgump 0x38920abd 1500;endwhile;endif;endwhile;//cutlass;while skill 'Blacksmithy' &lt; 62;if counttype 0x1bf2 'any' 'backpack' &lt; 50;movetype 0x1bf2 'restock' 'backpack' [(0 0 0)] 0 1000;pause 1000;endif;usetype! 0x13e3;waitforgump 0x38920abd 15000;replygump 0x38920abd 36;waitforgump 0x38920abd 15000;replygump 0x38920abd 23;waitforgump 0x38920abd 15000;if counttype 0x1441 0 'backpack' > 4;while counttype 0x1441 0 'backpack' > 0;if not gumpexists 0x38920abd;usetype! 0x13e3;waitforgump 0x38920abd 15000;endif;replygump 0x38920abd 14;waitfortarget 1500;targettype! 0x1441;waitforgump 0x38920abd 1500;endwhile;endif;endwhile;//kryss;while skill 'Blacksmithy' &lt; 70;if counttype 0x1bf2 'any' 'backpack' &lt; 50;movetype 0x1bf2 'restock' 'backpack' [(0 0 0)] 0 1000;pause 1000;endif;usetype! 0x13e3;waitforgump 0x38920abd 15000;replygump 0x38920abd 36;waitforgump 0x38920abd 15000;replygump 0x38920abd 44;waitforgump 0x38920abd 15000;if counttype 0x1401 0 'backpack' > 4;while counttype 0x1401 0 'backpack' > 0;if not gumpexists 0x38920abd;usetype! 0x13e3;waitforgump 0x38920abd 15000;endif;replygump 0x38920abd 14;waitfortarget 1500;targettype! 0x1401;waitforgump 0x38920abd 1500;endwhile;endif;endwhile;//short spear;while skill 'Blacksmithy' &lt; 90;if counttype 0x1bf2 'any' 'backpack' &lt; 50;movetype 0x1bf2 'restock' 'backpack' [(0 0 0)] 0 1000;pause 1000;endif;usetype! 0x13e3;waitforgump 0x38920abd 15000;replygump 0x38920abd 50;waitforgump 0x38920abd 15000;replygump 0x38920abd 44;waitforgump 0x38920abd 15000;if counttype 0x1403 0 'backpack' > 4;while counttype 0x1403 0 'backpack' > 0;if not gumpexists 0x38920abd;usetype! 0x13e3;waitforgump 0x38920abd 15000;endif;replygump 0x38920abd 14;waitfortarget 1500;targettype! 0x1403;waitforgump 0x38920abd 1500;endwhile;endif;endwhile;//platemail gorget;while skill 'Blacksmithy' &lt; 105;if counttype 0x1bf2 'any' 'backpack' &lt; 50;movetype 0x1bf2 'restock' 'backpack' [(0 0 0)] 0 1000;pause 1000;endif;usetype! 0x13e3;waitforgump 0x38920abd 15000;replygump 0x38920abd 15;waitforgump 0x38920abd 15000;replygump 0x38920abd 16;waitforgump 0x38920abd 15000;if counttype 0x1413 0 'backpack' > 4;while counttype 0x1413 0 'backpack' > 0;if not gumpexists 0x38920abd;usetype! 0x13e3;waitforgump 0x38920abd 15000;endif;replygump 0x38920abd 14;waitfortarget 1500;targettype! 0x1413;waitforgump 0x38920abd 1500;endwhile;endif;endwhile;//platemail hiro sode;while skill 'Blacksmithy' &lt; 120;if counttype 0x1bf2 'any' 'backpack' &lt; 50;movetype 0x1bf2 'restock' 'backpack' [(0 0 0)] 0 1000;pause 1000;endif;usetype! 0x13e3;waitforgump 0x38920abd 15000;replygump 0x38920abd 15;waitforgump 0x38920abd 15000;replygump 0x38920abd 65;waitforgump 0x38920abd 15000;if counttype 0x2780 0 'backpack' > 4;while counttype 0x2780 0 'backpack' > 0;if not gumpexists 0x38920abd;usetype! 0x13e3;waitforgump 0x38920abd 15000;endif;replygump 0x38920abd 14;waitfortarget 1500;targettype! 0x2780;waitforgump 0x38920abd 1500;endwhile;endif;endwhile;</macro>
  135. <macro loop="False" name="Sort Loose Bods" interrupt="True">@removelist 'CBDclothamount';@createlist 'CBDclothamount';//Cloth is cheaper than leather, might want to save more. also change in the Sort Books and the Turn In Go Home Macro;@pushlist 'CBDclothamount' 5;@removelist 'CBDamount';@createlist 'CBDamount';//change this number to the number of CBD leather sets you want waiting to fill (for each stack). Also change in the Sort Books and the Turn In Go Home Macro;@pushlist 'CBDamount' 1;@removelist 'CBDlbodamount';@createlist 'CBDlbodamount';//change this number to the number of CBD leather lbods you want waiting to fill. They are rare so good idea to save more than the exceptional sbods above.;@pushlist 'CBDlbodamount' 5;@setalias '+60' 0x42ac2999;@setalias 'agapite' 0x42c86fe0;@setalias 'verite' 0x42ac299a;@setalias 'valorite' 0x42ac2994;@setalias 'gold1' 0x42ac298a;@setalias 'bronze1' 0x42ac298b;@setalias 'copper1' 0x42ac2990;@setalias '+30' 0x42c86fde;@setalias '+151' 0x42c86fe3;@setalias '120' 0x42c86fe1;@setalias 'POF1' 0x4055fb66;@setalias 'BronzeSmall' 0x42ac2991;@setalias 'CopperSmall' 0x42ac299b;@setalias 'ShadowSmall' 0x4055fb69;@setalias 'copper2' 0x42c77275;@setalias '+152' 0x42c86fdf;@setalias 'POF2' 0x4055fb67;@setalias 'Trash Barrel' 0x4313db26;@setalias 'HRSK1' 0x42ac2997;@setalias 'BRSK1' 0x42ac2998;@setalias 'lbod10male' 0x4063f37d;@setalias '10leggings' 0x4063f384;@setalias '10tunic' 0x4063f37b;@setalias '10gloves' 0x4063eb3f;@setalias '10sleeves' 0x4063ddcc;@setalias '10gorget' 0x4063eb39;@setalias '10cap' 0x4063eb32;@setalias 'lbod15male' 0x4063f382;@setalias '15leggings' 0x4063eb37;@setalias '15tunic' 0x4063eb3d;@setalias '15gloves' 0x4063eb45;@setalias '15sleeves' 0x4063eb35;@setalias '15gorget' 0x4063eb40;@setalias '15cap' 0x4063ddd4;@setalias 'lbod10female' 0x4063ddcf;@setalias '10skirt' 0x4063ddd3;@setalias '10shorts' 0x4063f37f;@setalias '10studdedbustier' 0x4063ddd2;@setalias '10leatherbustier' 0x4063eb43;@setalias '10armor' 0x4063ddcd;@setalias '10studdedarmor' 0x4063f37c;@setalias 'lbod15female' 0x4063ddc6;@setalias '15skirt' 0x4063eb3e;@setalias '15shorts' 0x4063eb44;@setalias '15studdedbustier' 0x4063f378;@setalias '15leatherbustier' 0x4063eb34;@setalias '15armor' 0x4063ddc4;@setalias '15studdedarmor' 0x4063eb3c;@setalias 'lbodcrier' 0x4063ddce;@setalias 'thighboots' 0x4063eb36;@setalias 'shortpants' 0x4063f379;@setalias 'fancyshirt' 0x4063ddc3;@setalias 'surcoat' 0x4063f383;@setalias 'featheredhat' 0x4063eb38;@setalias 'lbod20male' 0x4063eb41;@setalias '20leggings' 0x4063ddd0;@setalias '20tunic' 0x4063ddc9;@setalias '20gloves' 0x4063ddcb;@setalias '20sleeves' 0x4063eb33;@setalias '20gorget' 0x4063ddc5;@setalias '20cap' 0x4063eb3a;@setalias 'lbod20female' 0x4063f380;@setalias '20skirt' 0x4063ddc8;@setalias '20shorts' 0x4063ddd1;@setalias '20studdedbustier' 0x4063ddc7;@setalias '20leatherbustier' 0x4063eb42;@setalias '20armor' 0x4063eb3b;@setalias '20studdedarmor' 0x4063ddd5;@setalias 'lbodmalecbd' 0x4092802c;@setalias 'cbdleggings' 0x4063ddca;@setalias 'cbdtunic' 0x40928027;@setalias 'cbdgloves' 0x40928029;@setalias 'cbdsleeves' 0x40928026;@setalias 'cbdgorget' 0x4092802b;@setalias 'cbdcap' 0x40928025;@setalias 'lbodfemalecbd' 0x40928024;@setalias 'cbdskirt' 0x4093d129;@setalias 'cbdshorts' 0x4093d125;@setalias 'cbdstuddedbustier' 0x4093d126;@setalias 'cbdleatherbustier' 0x4093d127;@setalias 'cbdarmor' 0x4093d124;@setalias 'cbdstuddedarmor' 0x40928023;@setalias '120tailorlarge' 0x42ac2992;sysmsg 'Target the book in your pack to place resets' 34;clearignorelist;promptalias 'Resets';while @findtype 0x2258 'any' 'backpack';if @injournal 'world will save';while not @injournal 'world save complete';endwhile;@clearjournal;endif;//center goza;if not x == 1176 and y == 2790;sysmsg 'stand on the goza';stop;endif;waitforproperties 'found' 5000;//trashing nonexceptional bods;if not @property 'exceptional' 'found';if not @property 'spined' 'found' and not @property 'horned' 'found';if not @property 'barbed' 'found' and @property 'large' 'found';if @property '20' 'found' and @property 'leather gorget' 'found';if @property 'Contents' 'lbodmalecbd' &lt; CBDlbodamount[0];sysmsg 'CBD' 53;moveitem 'found' 'lbodmalecbd';pause 750;endif;elseif @property '20' 'found' and @property 'studded bustier' 'found';if @property 'Contents' 'lbodfemalecbd' &lt; CBDlbodamount[0];sysmsg 'CBD' 53;moveitem 'found' 'lbodfemalecbd';pause 750;endif;endif;endif;endif;if @findobject 'found' 'any' 'backpack';moveitem 'found' 'Trash Barrel';if @property 'large' 'found';sysmsg 'Normal LBOD Trash' 33;else;sysmsg 'Normal SBOD Trash' 33;endif;pause 750;endif;elseif color 'found' == 1102;if @property 'Valorite' 'found';if @property 'exceptional' 'found';if @property '20' 'found';if @property 'platemail' 'found' or @property 'plate helm' 'found';moveitem 'found' 'valorite';sysmsg 'Valorite' 95;elseif @property 'chainmail' 'found';moveitem 'found' '+60';sysmsg '+60' 34;elseif @property 'ringmail' 'found';moveitem 'found' '+30';sysmsg '+30' 73;else;moveitem 'found' 'Trash Barrel';sysmsg 'Trash';endif;elseif @property '10' 'found' or @property '15' 'found';if @property 'platemail' 'found' or @property 'plate helm' 'found';moveitem 'found' 'verite';sysmsg 'Verite' 79;elseif @property 'chainmail' 'found';moveitem 'found' 'agapite';sysmsg 'Agapite' 36;elseif @property 'ringmail' 'found';moveitem 'found' 'gold1';sysmsg 'Gold' 252;else;moveitem 'found' 'Trash Barrel';sysmsg 'Trash';endif;endif;elseif not @property 'exceptional' found';//shouldn't have these;endif;elseif @property 'Verite' 'found';if @property 'exceptional' 'found';if @property '20' 'found';if @property 'platemail' 'found' or @property 'plate helm' 'found';moveitem 'found' 'verite';sysmsg 'Verite' 79;elseif @property 'chainmail' 'found';moveitem 'found' 'agapite';sysmsg 'Agapite' 36;elseif @property 'ringmail' 'found';moveitem 'found' 'gold1';sysmsg 'Gold' 252;else;moveitem 'found' 'Trash Barrel';sysmsg 'Trash';endif;elseif @property '10' 'found' or @property '15' 'found';if @property 'platemail' 'found' or @property 'plate helm' 'found';moveitem 'found' '+60';sysmsg '+60' 34;elseif @property 'chainmail' 'found' and not @property 'large' 'found';//bronzes worth more than +30, remove large clause if changing;//moveitem 'found' '+30';//sysmsg '+30' 73;moveitem 'found' 'BronzeSmall';sysmsg 'Bronze' 88;elseif @property 'ringmail' 'found' and not @property 'large' 'found';//bronzes worth more than 120, remove large clause if changing;//moveitem 'found' '120';//sysmsg '120' 2498;moveitem 'found' 'BronzeSmall';sysmsg 'Bronze' 88;elseif not @property 'large' 'found';moveitem 'found' 'BronzeSmall';sysmsg 'Bronze' 88;else;moveitem 'found' 'Trash Barrel';sysmsg 'Trash';endif;endif;elseif not @property 'exceptional' 'found';//shouldn't have these;endif;elseif @property 'Agapite' 'found';if @property 'exceptional' 'found';if @property '20' 'found';if @property 'platemail' 'found' or @property 'plate helm' 'found';moveitem 'found' '+60';sysmsg '+60' 34;elseif @property 'chainmail' 'found' and not @property 'large' 'found';//+30 but small bod bronzes worth more, remove large clause if changing;//moveitem 'found' '+30';//sysmsg '+30' 73;moveitem 'found' 'BronzeSmall';sysmsg 'Bronze' 88;elseif @property 'ringmail' 'found' and not @property 'large' 'found';//120 but small bod bronzes worth more, remove large clause if changing;//moveitem 'found' '120';//sysmsg '120' 2498;moveitem 'found' 'BronzeSmall';sysmsg 'Bronze' 88;elseif not @property 'large' 'found';moveitem 'found' 'BronzeSmall';sysmsg 'Bronze' 88;else;moveitem 'found' 'Trash Barrel';sysmsg 'Trash';endif;elseif @property '10' 'found' or @property '15' 'found';if @property 'platemail' 'found' or @property 'plate helm' 'found';moveitem 'found' 'agapite';sysmsg 'Agapite' 36;elseif @property 'chainmail' 'found';moveitem 'found' 'gold1';sysmsg 'Gold' 252;elseif @property 'ringmail' 'found';if @property '15' 'found';if @property 'Contents' '+152' &lt; 101;moveitem 'found' '+151';sysmsg '+15' 20;else;moveitem 'found' 'Trash Barrel';sysmsg '+15 book full, trashing' 20;endif;//+15 but 4 small bod coppers worth more, remove large clause if changing;elseif @property '10' 'found' and not @property 'large' 'found';moveitem 'found' 'CopperSmall';sysmsg 'Copper' 88;else;moveitem 'found' 'Trash Barrel';sysmsg 'Trash';endif;elseif not @property 'large' 'found' and @property '10' 'found';moveitem 'found' 'CopperSmall';sysmsg 'Copper' 88;else;moveitem 'found' 'Trash Barrel';sysmsg 'Trash';endif;endif;elseif not @property 'exceptional' 'found';//shouldn't have these;endif;elseif @property 'gold' 'found';if @property 'exceptional' 'found';if @property '20' 'found';if @property 'platemail' 'found' or @property 'plate helm' 'found';moveitem 'found' 'agapite';sysmsg 'Agapite' 36;elseif @property 'chainmail' 'found';moveitem 'found' 'gold1';sysmsg 'Gold' 252;//+15 but 4 small bod coppers worth more, remove large clause if changing;elseif @property 'ringmail' 'found' and not @property 'large' 'found';//moveitem 'found' '+151';// sysmsg '+15' 20;moveitem 'found' 'CopperSmall';sysmsg 'Copper' 88;elseif not @property 'large' 'found';moveitem 'found' 'CopperSmall';sysmsg 'Copper' 88;else;moveitem 'found' 'Trash Barrel';sysmsg 'Trash';endif;elseif @property '10' 'found' or @property '15' 'found';if @property 'platemail' 'found' or @property 'plate helm' 'found';moveitem 'found' '+30';sysmsg '+30' 73;elseif @property 'chainmail' 'found';if @property 'Contents' '120' &lt; 101;moveitem 'found' '120';sysmsg '120' 2498;else;moveitem 'found' 'Trash Barrel';sysmsg '120 book full, trashing' 2498;endif;elseif not @property 'large' 'found' and @property '10' 'found';if @property 'Contents' 'ShadowSmall' &lt; 101;moveitem 'found' 'ShadowSmall';sysmsg 'ShadowSmall' 88;else;moveitem 'found' 'Trash Barrel';sysmsg 'Shadow book full, trashing' 88;endif;else;moveitem 'found' 'Trash Barrel';sysmsg 'Trash';endif;endif;elseif not @property 'exceptional' 'found';//shouldn't have these;endif;elseif @property 'bronze ingots' 'found';if @property 'exceptional' 'found';if @property '20' 'found';if @property 'platemail' 'found' or @property 'plate helm' 'found';moveitem 'found' '+30';sysmsg '+30' 73;elseif @property 'chainmail' 'found';if @property 'Contents' '120' &lt; 101;moveitem 'found' '120';sysmsg '120' 2498;else;moveitem 'found' 'Trash Barrel';sysmsg '120 book full, trashing' 2498;endif;elseif not @property 'large' 'found';if @property 'Contents' 'ShadowSmall' &lt; 101;moveitem 'found' 'ShadowSmall';sysmsg 'ShadowSmall' 88;else;moveitem 'found' 'Trash Barrel';sysmsg 'Shadow book full, trashing' 88;endif;else;moveitem 'found' 'Trash Barrel';sysmsg 'Trash';endif;elseif @property '10' 'found' or @property '15' 'found';if @property 'platemail' 'found' or @property 'plate helm' 'found';moveitem 'found' 'gold1';sysmsg 'Gold' 252;elseif @property 'chainmail' 'found';if @property 'Contents' '+152' &lt; 101;moveitem 'found' '+151';sysmsg '+15' 20;else;moveitem 'found' 'Trash Barrel';sysmsg '+15 book full, trashing' 20;endif;elseif not @property 'large' 'found';if @property 'Contents' 'ShadowSmall' &lt; 101;moveitem 'found' 'ShadowSmall';sysmsg 'ShadowSmall' 88;else;moveitem 'found' 'Trash Barrel';sysmsg 'Shadow book full, trashing' 88;endif;else;moveitem 'found' 'Trash Barrel';sysmsg 'Trash';endif;endif;elseif not @property 'exceptional' 'found';//shouldn't have these;endif;elseif @property 'copper' 'found' and not @property 'dull' 'found';if @property 'exceptional' 'found';if @property '20' 'found';if @property 'platemail' 'found' or @property 'plate helm' 'found';moveitem 'found' 'gold1';sysmsg 'Gold' 252;elseif @property 'chainmail' 'found';if @property 'Contents' '+152' &lt; 101;moveitem 'found' '+151';sysmsg '+15' 20;else;moveitem 'found' 'Trash Barrel';sysmsg '+15 book full, trashing' 20;endif;elseif not @property 'large' 'found';if @property 'Contents' 'ShadowSmall' &lt; 101;moveitem 'found' 'ShadowSmall';sysmsg 'ShadowSmall' 88;else;moveitem 'found' 'Trash Barrel';sysmsg 'Shadow book full, trashing' 88;endif;else;moveitem 'found' 'Trash Barrel';sysmsg 'Trash';endif;elseif @property '10' 'found' or @property '15' 'found';if @property 'platemail' 'found' or @property 'plate helm' 'found';if @property 'Contents' '120' &lt; 101;moveitem 'found' '120';sysmsg '120' 2498;else;moveitem 'found' 'Trash Barrel';sysmsg '120 book full, trashing' 2498;endif;elseif @property 'ringmail' 'found';moveitem 'found' 'bronze1';sysmsg 'Bronze' 249;elseif not @property 'large' 'found';//dull copper;//moveitem 'found' 'ShadowSmall';//sysmsg 'Dull Copper' 88;moveitem 'found' 'Trash Barrel';sysmsg 'Trash';else;moveitem 'found' 'Trash Barrel';sysmsg 'Trash';endif;endif;elseif not @property 'exceptional' 'found';//shouldn't have these;endif;elseif @property 'shadow' 'found';if @property 'exceptional' 'found';if @property '20' 'found';if @property 'platemail' 'found' or @property 'plate helm' 'found';if @property 'Contents' '120' &lt; 101;moveitem 'found' '120';sysmsg '120' 2498;else;moveitem 'found' 'Trash Barrel';sysmsg '120 book full, trashing' 2498;endif;elseif @property 'ringmail' 'found';moveitem 'found' 'bronze1';sysmsg 'Bronze' 249;elseif not @property 'large' 'found';//dull copper;//moveitem 'found' 'ShadowSmall';//sysmsg 'Dull Copper' 88;moveitem 'found' 'Trash Barrel';sysmsg 'Trash';else;moveitem 'found' 'Trash Barrel';sysmsg 'Trash';endif;elseif @property '10' 'found' or @property '15' 'found';if @property 'platemail' 'found' or @property 'plate helm' 'found';if @property 'Contents' '+152' &lt; 101;moveitem 'found' '+151';sysmsg '+15' 20;else;moveitem 'found' 'Trash Barrel';sysmsg '+15 book full, trashing' 20;endif;elseif not @property 'large' 'found';if @property 'Contents' 'POF2' &lt; 101;moveitem 'found' 'POF1';sysmsg 'PoF' 88;else;moveitem 'found' 'Trash Barrel';sysmsg 'PoF book full, trashing' 88;endif;else;moveitem 'found' 'Trash Barrel';sysmsg 'Trash';endif;endif;elseif not @property 'exceptional' 'found';//shouldn't have these;endif;elseif @property 'dull' 'found';if @property 'exceptional' 'found';if @property '20' 'found';if @property 'platemail' 'found' or @property 'plate helm' 'found';if @property 'Contents' '+152' &lt; 101;moveitem 'found' '+151';sysmsg '+15' 20;else;moveitem 'found' 'Trash Barrel';sysmsg '+15 book full, trashing' 20;endif;elseif not @property 'large' 'found';if @property 'Contents' 'POF2' &lt; 101;moveitem 'found' 'POF1';sysmsg 'PoF' 88;else;moveitem 'found' 'Trash Barrel';sysmsg 'PoF book full, trashing' 88;endif;else;moveitem 'found' 'Trash Barrel';sysmsg 'Trash';endif;elseif @property '10' 'found' or @property '15' 'found';if @property 'chainmail' 'found';moveitem 'found' 'bronze1';sysmsg 'Bronze' 249;else;moveitem 'found' 'Trash Barrel';sysmsg 'Trash';endif;endif;elseif not @property 'exceptional' 'found';//shouldn't have these;endif;else;if @property 'exceptional' 'found' and @property '20' 'found';if @property 'platemail' 'found' or @property 'plate helm' 'found';if @property 'Contents' 'copper2' &lt; 101;moveitem 'found' 'copper1';sysmsg 'Copper' 242;else;moveitem 'found' 'Trash Barrel';sysmsg 'Copper book full, trashing' 242;endif;elseif @property 'small' 'found';moveitem 'found' 'resets';sysmsg 'Reset' '110';else;moveitem 'found' 'Trash Barrel';sysmsg 'Trash';endif;elseif @property 'small' 'found';moveitem 'found' 'resets';sysmsg 'Reset' '110';else;moveitem 'found' 'Trash Barrel';sysmsg 'Trash';endif;endif;pause 750;if @findobject 'found' 'any' 'backpack';sysmsg 'Bod didnt sort, pausing and trying again' 34;pause 750;endif;else if color 'found' == 1155;if @property 'leather' 'found';if @property 'Barbed' 'found';if @property 'exceptional' 'found';if @property '20' 'found';if @property 'bone' 'found';moveitem 'found' 'BRSK1';sysmsg 'BRSK' 168;elseif @property 'studded armor' 'found' or @property 'studded bustier' 'found';moveitem 'found' 'BRSK1';sysmsg 'BRSK' 168;elseif @property 'studded' 'found';moveitem 'found' 'BRSK1';sysmsg 'BRSK' 168;elseif @property 'sandals' 'found' or @property 'shoes' 'found';moveitem 'found' 'HRSK1';sysmsg 'HRSK' 34;elseif @property 'boots' 'found';moveitem 'found' 'HRSK1';sysmsg 'HRSK' 34;else;@moveitem 'found' 'BRSK1';sysmsg 'BRSK' 168;endif;elseif @property '10' 'found' or @property '15' 'found';if not @property 'bone' 'found';if @property 'studded armor' 'found' or @property 'studded bustier' 'found';moveitem 'found' 'BRSK1';sysmsg 'BRSK' 168;elseif @property 'sandals' 'found' or @property 'shoes' 'found';//if not @property '15' 'found';//no point in saving rarer cbds when already needing to cull the others;//moveitem 'found' 'CBD1';//sysmsg 'CBD' 53;//endif;moveitem 'found' 'Trash Barrel';sysmsg 'Trash';elseif @property 'boots' 'found';//if not @property '15' 'found';//no point in saving rarer cbds when already needing to cull the others;//moveitem 'found' 'CBD1';//sysmsg 'CBD' 53;//endif;moveitem 'found' 'Trash Barrel';sysmsg 'Trash';elseif not @property 'studded' 'found';moveitem 'found' 'BRSK1';sysmsg 'BRSK' 168;else;moveitem 'found' 'Trash Barrel';sysmsg 'Trash';endif;else;moveitem 'found' 'Trash Barrel';sysmsg 'Trash';endif;endif;elseif not @property 'exceptional' 'found';//shouldn't have these;endif;elseif @property 'Horned' 'found';if @property 'exceptional' 'found' and not @property 'bone' 'found';if @property '20' 'found';if @property 'sandals' 'found' or @property 'shoes' 'found';//no point in saving rarer cbds when already needing to cull the others;//moveitem 'found' 'CBD1';//sysmsg 'CBD' 53;moveitem 'found' 'Trash Barrel';sysmsg 'Trash';elseif @property 'boots' 'found';//no point in saving rarer cbds when already needing to cull the others;//moveitem 'found' 'CBD1';// sysmsg 'CBD' 53;moveitem 'found' 'Trash Barrel';sysmsg 'Trash';elseif @property 'studded armor' 'found' or @property 'studded bustier' 'found';moveitem 'found' 'BRSK1';sysmsg 'BRSK' 168;elseif not @property 'studded' 'found';moveitem 'found' 'BRSK1';sysmsg 'BRSK' 168;else;moveitem 'found' 'Trash Barrel';sysmsg 'Trash';endif;elseif @property '10' 'found' or @property '15' 'found';if not @property 'sandals' 'found' and not @property 'shoes' 'found';if not @property 'boots' 'found';if @property 'studded armor' 'found' or @property 'studded bustier' 'found';moveitem 'found' 'BRSK1';sysmsg 'BRSK' 168;elseif @property 'studded' 'found';moveitem 'found' 'HRSK1';sysmsg 'HRSK' 34;elseif not @property 'studded' 'found';moveitem 'found' 'BRSK1';sysmsg 'BRSK' 168;else;moveitem 'found' 'Trash Barrel';sysmsg 'Trash';endif;else;moveitem 'found' 'Trash Barrel';sysmsg 'Trash';endif;else;moveitem 'found' 'Trash Barrel';sysmsg 'Trash';endif;endif;elseif not @property 'exceptional' 'found';//shouldn't have these;else;moveitem 'found' 'Trash Barrel';sysmsg 'Trash';endif;elseif @property 'Spined' 'found';if not @property 'sandals' 'found' and not @property 'shoes' 'found';if not @property 'boots' 'found' and not @property 'bone' 'found';if @property 'exceptional' 'found';if @property '20' 'found';if @property 'studded armor' 'found' or @property 'studded bustier' 'found';sysmsg 'BRSK' 168;if @property 'large' 'found' and @property '20' 'found';moveitem 'found' 'lbod20female';elseif @property 'studded armor' 'found' and @property '20' 'found';moveitem 'found' '20studdedarmor';elseif @property 'studded bustier' 'found' and @property '20' 'found';moveitem 'found' '20studdedbustier';endif;elseif @property 'studded' 'found';moveitem 'found' 'HRSK1';sysmsg 'HRSK' 34;elseif not @property 'studded' 'found';sysmsg 'BRSK' 168;if @property 'large' 'found' and @property '20' 'found';moveitem 'found' 'lbod20male';elseif @property 'skirt' 'found' and @property '20' 'found';moveitem 'found' '20skirt';elseif @property 'shorts' 'found' and @property '20' 'found';moveitem 'found' '20shorts';elseif @property 'armor' 'found' and @property '20' 'found';moveitem 'found' '20armor';elseif @property 'leather bustier' 'found' and @property '20' 'found';moveitem 'found' '20leatherbustier';elseif @property 'leggings' 'found' and @property '20' 'found';moveitem 'found' '20leggings';elseif @property 'tunic' 'found' and @property '20' 'found';moveitem 'found' '20tunic';elseif @property 'gloves' 'found' and @property '20' 'found';moveitem 'found' '20gloves';elseif @property 'sleeves' 'found' and @property '20' 'found';moveitem 'found' '20sleeves';elseif @property 'gorget' 'found' and @property '20' 'found';moveitem 'found' '20gorget';elseif @property 'cap' 'found' and @property '20' 'found';moveitem 'found' '20cap';endif;endif;//elseif @property '10' 'found';//if @property 'studded' 'found';//if not @property 'studded armor' 'found' and not @property 'studded bustier' 'found';//no point in saving rarer cbds when already needing to cull the others;// moveitem 'found' 'CBD1';//sysmsg 'CBD';//endif;//endif;else;moveitem 'found' 'Trash Barrel';sysmsg 'Trash';endif;elseif not @property 'exceptional' 'found';//shouldn't have these;endif;else;moveitem 'found' 'Trash Barrel';sysmsg 'Trash';endif;else;moveitem 'found' 'Trash Barrel';sysmsg 'Trash';endif;//plain leather;elseif not @property 'bone' 'found';if @property 'exceptional' 'found';if @property '20' 'found';if @property 'studded armor' 'found' or @property 'studded bustier' 'found';//normally a 120 scroll but can put ex in normal LBOD for cbd;if @property 'large' 'found';if @property 'Contents' '120tailorlarge' &lt; 5;sysmsg '120 Tailor PS';moveitem 'found' '120tailorlarge';else;moveitem 'found' 'Trash Barrel';sysmsg 'Trash';endif;elseif not @property 'large' 'found';sysmsg 'CBD' 53;if @property 'studded armor' 'found';if @property 'Contents' 'cbdstuddedarmor' &lt; CBDamount[0];moveitem 'found' 'cbdstuddedarmor';else;moveitem 'found' 'resets';sysmsg 'CBD Reset';endif;elseif @property 'studded bustier' 'found';if @property 'Contents' 'cbdstuddedbustier' &lt; CBDamount[0];moveitem 'found' 'cbdstuddedbustier';else;moveitem 'found' 'resets';sysmsg 'CBD Reset';endif;endif;endif;elseif @property 'studded' 'found';//no point in saving rarer cbds when already needing to cull the others;// moveitem! 'found' 'CBD1';//sysmsg 'CBD' 53;moveitem! 'found' 'resets';sysmsg 'CBD Reset';else;if @property 'large' 'found';if @property 'Contents' '120tailorlarge' &lt; 5;sysmsg '120 Tailor PS';moveitem 'found' '120tailorlarge';else;moveitem 'found' 'Trash Barrel';sysmsg 'Trash';endif;elseif not @property 'large' 'found';sysmsg 'CBD' 53;if @property 'leggings' 'found';if @property 'Contents' 'cbdleggings' &lt; CBDamount[0];moveitem 'found' 'cbdleggings';else;moveitem 'found' 'resets';sysmsg 'CBD Reset';endif;elseif @property 'tunic' 'found';if @property 'Contents' 'cbdtunic' &lt; CBDamount[0];moveitem 'found' 'cbdtunic';else;moveitem 'found' 'resets';sysmsg 'CBD Reset';endif;elseif @property 'gloves' 'found';if @property 'Contents' 'cbdgloves' &lt; CBDamount[0];moveitem 'found' 'cbdgloves';else;moveitem 'found' 'resets';sysmsg 'CBD Reset';endif;elseif @property 'sleeves' 'found';if @property 'Contents' 'cbdsleeves' &lt; CBDamount[0];moveitem 'found' 'cbdsleeves';else;moveitem 'found' 'resets';sysmsg 'CBD Reset';endif;elseif @property 'gorget' 'found';if @property 'Contents' 'cbdgorget' &lt; CBDamount[0];moveitem 'found' 'cbdgorget';else;moveitem 'found' 'resets';sysmsg 'CBD Reset';endif;elseif @property 'cap' 'found';if @property 'Contents' 'cbdcap' &lt; CBDamount[0];moveitem 'found' 'cbdcap';else;moveitem 'found' 'resets';sysmsg 'CBD Reset';endif;elseif @property 'shorts' 'found';if @property 'Contents' 'cbdshorts' &lt; CBDamount[0];moveitem 'found' 'cbdshorts';else;moveitem 'found' 'resets';sysmsg 'CBD Reset';endif;elseif @property 'skirt' 'found';if @property 'Contents' 'cbdskirt' &lt; CBDamount[0];moveitem 'found' 'cbdskirt';else;moveitem 'found' 'resets';sysmsg 'CBD Reset';endif;elseif @property 'leather bustier' 'found';if @property 'Contents' 'cbdleatherbustier' &lt; CBDamount[0];moveitem 'found' 'cbdleatherbustier';else;moveitem 'found' 'resets';sysmsg 'CBD Reset';endif;elseif @property 'armor' 'found';if @property 'Contents' 'cbdarmor' &lt; CBDamount[0];moveitem 'found' 'cbdarmor';else;moveitem 'found' 'resets';sysmsg 'CBD Reset';endif;endif;endif;endif;elseif @property '10' 'found' or @property '15' 'found';if @property 'studded armor' 'found' or @property 'studded bustier' 'found';sysmsg 'HRSK' 34;if @property 'large' 'found' and @property '10' 'found';moveitem 'found' 'lbod10female';elseif @property 'large' 'found' and @property '15' 'found';moveitem 'found' 'lbod15female';elseif @property 'studded armor' 'found' and @property '10' 'found';moveitem 'found' '10studdedarmor';elseif @property 'studded armor' 'found' and @property '15' 'found';moveitem 'found' '15studdedarmor';elseif @property 'studded bustier' 'found' and @property '10' 'found';moveitem 'found' '10studdedbustier';elseif @property 'studded bustier' 'found' and @property '15' 'found';moveitem 'found' '15studdedbustier';endif;elseif not @property 'studded' 'found';sysmsg 'HRSK' 34;if @property 'large' 'found' and @property '10' 'found';moveitem 'found' 'lbod10male';elseif @property 'large' 'found' and @property '15' 'found';moveitem 'found' 'lbod15male';elseif @property 'skirt' 'found' and @property '10' 'found';moveitem 'found' '10skirt';elseif @property 'shorts' 'found' and @property '10' 'found';moveitem 'found' '10shorts';elseif @property 'armor' 'found' and @property '10' 'found';moveitem 'found' '10armor';elseif @property 'leather bustier' 'found' and @property '10' 'found';moveitem 'found' '10leatherbustier';elseif @property 'leggings' 'found' and @property '10' 'found';moveitem 'found' '10leggings';elseif @property 'tunic' 'found' and @property '10' 'found';moveitem 'found' '10tunic';elseif @property 'gloves' 'found' and @property '10' 'found';moveitem 'found' '10gloves';elseif @property 'sleeves' 'found' and @property '10' 'found';moveitem 'found' '10sleeves';elseif @property 'gorget' 'found' and @property '10' 'found';moveitem 'found' '10gorget';elseif @property 'cap' 'found' and @property '10' 'found';moveitem 'found' '10cap';elseif @property 'skirt' 'found' and @property '15' 'found';moveitem 'found' '15skirt';elseif @property 'shorts' 'found' and @property '15' 'found';moveitem 'found' '15shorts';elseif @property 'armor' 'found' and @property '15' 'found';moveitem 'found' '15armor';elseif @property 'leather bustier' 'found' and @property '15' 'found';moveitem 'found' '15leatherbustier';elseif @property 'leggings' 'found' and @property '15' 'found';moveitem 'found' '15leggings';elseif @property 'tunic' 'found' and @property '15' 'found';moveitem 'found' '15tunic';elseif @property 'gloves' 'found' and @property '15' 'found';moveitem 'found' '15gloves';elseif @property 'sleeves' 'found' and @property '15' 'found';moveitem 'found' '15sleeves';elseif @property 'gorget' 'found' and @property '15' 'found';moveitem 'found' '15gorget';elseif @property 'cap' 'found' and @property '15' 'found';moveitem 'found' '15cap';endif;elseif not @property 'large' 'found';moveitem 'found' 'resets';sysmsg 'Reset';else;moveitem 'found' 'Trash Barrel';sysmsg 'Trash';endif;endif;elseif not @property 'exceptional' 'found';//shouldn't have these;endif;endif;elseif @property 'studded armor' 'found' or @property 'studded bustier' 'found';if @property 'exceptional' 'found';if @property '20' 'found';if @property 'large' 'found';if @property 'Contents' '120tailorlarge' &lt; 5;sysmsg '120 Tailor PS';moveitem 'found' '120tailorlarge';else;moveitem 'found' 'Trash Barrel';sysmsg 'Trash';endif;elseif not @property 'large' 'found';sysmsg 'CBD' 53;if @property 'studded armor' 'found';if @property 'Contents' 'cbdstuddedarmor' &lt; CBDamount[0];moveitem 'found' 'cbdstuddedarmor';else;moveitem 'found' 'resets';sysmsg 'CBD Reset';endif;elseif @property 'studded bustier' 'found';if @property 'Contents' 'cbdstuddedbustier' &lt; CBDamount[0];moveitem 'found' 'cbdstuddedbustier';else;moveitem 'found' 'resets';sysmsg 'CBD Reset';endif;endif;endif;elseif @property '10' 'found' or @property '15' 'found';sysmsg 'HRSK' 34;if @property 'studded armor' 'found' and @property '10' 'found';moveitem 'found' '10studdedarmor';elseif @property 'studded armor' 'found' and @property '15' 'found';moveitem 'found' '15studdedarmor';elseif @property 'studded bustier' 'found' and @property '10' 'found';moveitem 'found' '10studdedbustier';elseif @property 'studded bustier' 'found' and @property '15' 'found';moveitem 'found' '15studdedbustier';endif;endif;elseif not @property 'exceptional' 'found';//shouldn't have these;endif;elseif @property 'shoes' 'found' or @property 'sandals' 'found';if not @property 'large' 'found';moveitem 'found' 'resets';sysmsg 'Reset';else;moveitem 'found' 'Trash Barrel';sysmsg 'Trash';endif;elseif @property 'boots' 'found' and not @property 'thigh' 'found';if not @property 'large' 'found';moveitem 'found' 'resets';sysmsg 'Reset';else;moveitem 'found' 'Trash Barrel';sysmsg 'Trash';endif;//town crier ex 20;elseif @property 'feathered hat' 'found' or @property 'surcoat' 'found';if @property '20' 'found' and @property 'exceptional' 'found';sysmsg 'CBD' 53;if @property 'large' 'found';if @property 'Contents' 'lbodcrier' &lt; CBDclothamount[0];moveitem 'found' 'lbodcrier';else;moveitem 'found' 'Trash Barrel';sysmsg 'Trash';endif;elseif @property 'feathered hat' 'found';if @property 'Contents' 'featheredhat' &lt; CBDclothamount[0];moveitem 'found' 'featheredhat';else;moveitem 'found' 'resets';sysmsg 'CBD Reset';endif;elseif @property 'surcoat' 'found';if @property 'Contents' 'surcoat' &lt; CBDclothamount[0];moveitem 'found' 'surcoat';else;moveitem 'found' 'resets';sysmsg 'CBD Reset';endif;endif;elseif not @property 'large' 'found';moveitem 'found' 'resets';sysmsg 'Reset';else;moveitem 'found' 'Trash Barrel';sysmsg 'Trash';endif;elseif @property 'fancy shirt' 'found' or @property 'short pants' 'found';if @property '20' 'found' and @property 'exceptional' 'found';sysmsg 'CBD' 53;if @property 'fancy shirt' 'found';if @property 'Contents' 'fancyshirt' &lt; CBDclothamount[0];moveitem 'found' 'fancyshirt';else;moveitem 'found' 'resets';sysmsg 'CBD Reset';endif;elseif @property 'short pants' 'found';if @property 'Contents' 'shortpants' &lt; CBDclothamount[0];moveitem 'found' 'shortpants';else;moveitem 'found' 'resets';sysmsg 'CBD Reset';endif;endif;elseif not @property 'large' 'found';moveitem 'found' 'resets';sysmsg 'Reset';else;moveitem 'found' 'Trash Barrel';sysmsg 'Trash';endif;elseif @property 'thigh boots' 'found' and not @property 'bandana' 'found';if @property '20' 'found' and @property 'exceptional' 'found';sysmsg 'CBD' 53;if @property 'Contents' 'thighboots' &lt; CBDclothamount[0];moveitem 'found' 'thighboots';else;moveitem 'found' 'resets';sysmsg 'CBD Reset';endif;elseif not @property 'large' 'found';moveitem 'found' 'resets';sysmsg 'Reset';else;moveitem 'found' 'Trash Barrel';sysmsg 'Trash';endif;elseif not @property 'large' 'found' and not @property 'bone' 'found';moveitem 'found' 'resets';sysmsg 'Reset';else;moveitem 'found' 'Trash Barrel';sysmsg 'Trash';endif;pause 750;if @findobject 'found' 'any' 'backpack';sysmsg 'Bod didnt sort, pausing and trying again' 34;pause 750;endif;endif;sysmsg '-' 64;endwhile;</macro>
  136. <macro loop="True" name="CraftFill Loose Bods" interrupt="True">//completed bags go to 4 dark grey bags south of trash cans. Just setting different bags to different players so can fill loose simultaneously;//account 1;if serial 'self' == 0x68607;@setalias 'loosefill' 0x4285a04d;sysmsg 'The top bag is your filled bod bag' 34;//account 2;elseif serial 'self' == 0x1d81b0;@setalias 'loosefill' 0x4285a04b;sysmsg 'The second down bag is your filled bod bag' 34;//account 3;elseif serial 'self' == 0x3090d;@setalias 'loosefill' 0x4285a04e;sysmsg 'The third down bag is your filled bod bag' 34;//account 4;elseif serial 'self' == 0xb29bf;@setalias 'loosefill' 0x4285a04c;sysmsg 'The bottom bag is your filled bod bag' 34;else;@setalias 'loosefill' 0x4285a04c;sysmsg 'The bottom bag is your filled bod bag' 34;endif;@removelist 'Amount';@removelist 'MaterialGraphic';@removelist 'MaterialButton';@removelist 'MaterialHue';@removelist 'GumpCat';@removelist 'GumpSel';@removelist 'ToolType';@removelist 'Graphic';@removelist 'Destination';@removelist 'NotIron0';@removelist 'Leather';@createlist 'Amount';@createlist 'MaterialGraphic';@createlist 'MaterialButton';@createlist 'MaterialHue';@createlist 'GumpCat';@createlist 'GumpSel';@createlist 'ToolType';@createlist 'Graphic';@createlist 'Destination';@createlist 'NotIron0';@createlist 'Leather';@setalias 'Restock' 0x40c86f89;@setalias 'Trash Barrel' 0x4313db26;@setalias 'Trash BODs Destination' 0x40c86f89;@clearjournal;clearignorelist;if not hidden 'self';useskill 'hiding';endif;if @injournal 'world will save';while not @injournal 'world save complete';endwhile;@clearjournal;endif;//center goza;if not x == 1842 and y == 2076;sysmsg 'stand on the goza';stop;endif;// Search for a BOD to fill;if @findtype 0x2258 'any' 'backpack' and @property 'large' 'found';moveitem 'found' 'loosefill';pause 550;elseif @findtype 0x2258 'any' 'backpack' and @property 'small' 'found';// Reset craft state;@unsetalias 'crafting';// Define and open new BOD;@setalias 'bod' 'found';useobject! 'bod';waitforgump 0x5afbd742 2500;pause 550;if @injournal 'wait';@setalias 'bod' 'found';useobject! 'bod';waitforgump 0x5afbd742 15000;pause 550;endif;// Combine items;if not targetexists 'server';replygump 0x5afbd742 2;waitforgump 0x5afbd742 15000;waitfortarget 1000;if @injournal 'The maximum amount of requested items';clearjournal;moveitem 'bod' 'loosefill';endif;endif;//set your talismans;if not listexists 'Talismans';@createlist 'Talismans';@pushlist 'Talismans' 0x2f58;@pushlist 'Talismans' 0x2f59;@pushlist 'Talismans' 0x2f5a;@pushlist 'Talismans' 0x2f5b;endif;//forget tally if they are registering off another char;if not @findobject 'tailortally' 'any' 'backpack' and not @findobject 'smithtally' 'any' 'backpack';unsetalias 'smithtally';unsetalias 'tailortally';@unsetalias 'warning';endif;//auto set talismans;if not @findalias 'smithtally' or not @findalias 'tailortally';clearignorelist;if not @findalias 'warning';if @findlayer 'self' 9;pause 550;@moveitem 'found' 'backpack';pause 550;endif;for 0 to 'Talismans';while @findtype Talismans[] 0 'backpack';waitforproperties 'found' 5000;if @property 'Blacksmithing Bonus' 'found' > 0;@setalias 'smithtally' 'found';elseif @property 'Tailoring Bonus' 'found' > 0;@setalias 'tailortally' 'found';endif;ignoreobject 'found';endwhile;endfor;if not @findalias 'smithtally';sysmsg 'You should get a Smith Bonus/Ex tally. Clear active objects after' 34;endif;if not @findalias 'tailortally';sysmsg 'You should get a Tailor Bonus/Ex tally. Clear active objects after' 34;endif;@setalias 'warning' 'self';endif;endif;//equip talisman;if color 'bod' == 1102 and @findobject 'smithtally' 'any' 'backpack';if @findlayer 'self' 9;pause 550;@moveitem 'found' 'backpack';pause 550;endif;if findobject 'smithtally' 'any' 'backpack';pause 550;equipitem 'smithtally' 9;pause 550;endif;elseif color 'bod' == 1155 and @findobject 'tailortally' 'any' 'backpack';if @findlayer 'self' 9;pause 550;@moveitem 'found' 'backpack';pause 550;endif;if findobject 'tailortally' 'any' 'backpack';pause 550;equipitem 'tailortally' 9;pause 550;endif;endif;//equip ASH hammers;if @property 'platemail tunic' 'bod' or @property 'platemail legs' 'bod';if not @findlayer 'self' 1;@setalias '15hammerstash' 0x42338d9c;useobject '15hammerstash';pause 550;waitforcontents '15hammerstash' 5000;if @findtype 0x13e4 1154 '15hammerstash';@setalias '15hammer' 'found';if not @findlayer 'self' 1;equipitem '15hammer' 1;pause 550;endif;endif;endif;elseif @property 'plate helm' 'bod' or @property 'platemail arms' 'bod';if not @findlayer 'self' 1;@setalias '15hammerstash' 0x42338d9c;useobject '15hammerstash';pause 550;waitforcontents '15hammerstash' 5000;if @findtype 0x13e4 1154 '15hammerstash';@setalias '15hammer' 'found';if not @findlayer 'self' 1;equipitem '15hammer' 1;pause 550;endif;endif;endif;elseif @findlayer 'self' 1;clearhands 'both';pause 550;if @findtype 0x13e4 1154 'backpack';moveitem 'found' '15hammerstash';pause 550;endif;elseif @findtype 0x13e4 1154 'backpack';moveitem 'found' '15hammerstash';pause 550;endif;// Craft;while targetexists 'server';if @property 'Contents' 'backpack' >= 124 or @property 'Stones' 'backpack' >= 525;sysmsg 'Something went wrong! Pack full! Abort! Abort!' 34;stop;endif;if @injournal 'world will save';while not @injournal 'world save complete';endwhile;@clearjournal;endif;if not @findalias 'crafting';//bone armor;if @ingump 0x5afbd742 'bone leggings';@pushlist 'GumpCat' 57;@pushlist 'GumpSel' 23;@pushlist 'Graphic' 0x1452;@pushlist 'ToolType' 0xf9d;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'bone armor';@pushlist 'GumpCat' 57;@pushlist 'GumpSel' 30;@pushlist 'Graphic' 0x144f;@pushlist 'ToolType' 0xf9d;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'bone arms';@pushlist 'GumpCat' 57;@pushlist 'GumpSel' 16;@pushlist 'Graphic' 0x144e;@pushlist 'ToolType' 0xf9d;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'bone gloves';@pushlist 'GumpCat' 57;@pushlist 'GumpSel' 9;@pushlist 'Graphic' 0x1450;@pushlist 'ToolType' 0xf9d;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'bone helm';@pushlist 'GumpCat' 57;@pushlist 'GumpSel' 2;@pushlist 'Graphic' 0x1451;@pushlist 'ToolType' 0xf9d;@pushlist 'Destination' 'FilledBods';// Leather;elseif @ingump 0x5afbd742 'leather gorget';@pushlist 'GumpCat' 36;@pushlist 'GumpSel' 23;@pushlist 'Graphic' 0x13c7;@pushlist 'ToolType' 0xf9d;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'leather cap';@pushlist 'GumpCat' 36;@pushlist 'GumpSel' 30;@pushlist 'Graphic' 0x1db9;@pushlist 'ToolType' 0xf9d;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'leather gloves';@pushlist 'GumpCat' 36;@pushlist 'GumpSel' 37;@pushlist 'Graphic' 0x13c6;@pushlist 'ToolType' 0xf9d;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'leather sleeves';@pushlist 'GumpCat' 36;@pushlist 'GumpSel' 44;@pushlist 'Graphic' 0x13cd;@pushlist 'ToolType' 0xf9d;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'leather leggings';@pushlist 'GumpCat' 36;@pushlist 'GumpSel' 51;@pushlist 'Graphic' 0x13cb;@pushlist 'ToolType' 0xf9d;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'leather tunic';@pushlist 'GumpCat' 36;@pushlist 'GumpSel' 58;@pushlist 'Graphic' 0x13cc;@pushlist 'ToolType' 0xf9d;@pushlist 'Destination' 'FilledBods';// Studded;elseif @ingump 0x5afbd742 'studded gorget';@pushlist 'GumpCat' 43;@pushlist 'GumpSel' 2;@pushlist 'Graphic' 0x13d6;@pushlist 'ToolType' 0xf9d;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'studded gloves';@pushlist 'GumpCat' 43;@pushlist 'GumpSel' 9;@pushlist 'Graphic' 0x13d5;@pushlist 'ToolType' 0xf9d;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'studded sleeves';@pushlist 'GumpCat' 43;@pushlist 'GumpSel' 16;@pushlist 'Graphic' 0x13dc;@pushlist 'ToolType' 0xf9d;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'studded leggings';@pushlist 'GumpCat' 43;@pushlist 'GumpSel' 23;@pushlist 'Graphic' 0x13da;@pushlist 'ToolType' 0xf9d;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'studded tunic';@pushlist 'GumpCat' 43;@pushlist 'GumpSel' 30;@pushlist 'Graphic' 0x13db;@pushlist 'ToolType' 0xf9d;@pushlist 'Destination' 'FilledBods';// Female Armor;elseif @ingump 0x5afbd742 'leather shorts';@pushlist 'GumpCat' 50;@pushlist 'GumpSel' 2;@pushlist 'Graphic' 0x1c00;@pushlist 'ToolType' 0xf9d;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'leather skirt';@pushlist 'GumpCat' 50;@pushlist 'GumpSel' 9;@pushlist 'Graphic' 0x1c08;@pushlist 'ToolType' 0xf9d;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'leather bustier';@pushlist 'GumpCat' 50;@pushlist 'GumpSel' 16;@pushlist 'Graphic' 0x1c0a;@pushlist 'ToolType' 0xf9d;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'studded bustier';@pushlist 'GumpCat' 50;@pushlist 'GumpSel' 23;@pushlist 'Graphic' 0x1c0c;@pushlist 'ToolType' 0xf9d;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'female leather armor';@pushlist 'GumpCat' 50;@pushlist 'GumpSel' 30;@pushlist 'Graphic' 0x1c06;@pushlist 'ToolType' 0xf9d;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'studded armor';@pushlist 'GumpCat' 50;@pushlist 'GumpSel' 37;@pushlist 'Graphic' 0x1c02;@pushlist 'ToolType' 0xf9d;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'thigh boots';@pushlist 'GumpCat' 29;@pushlist 'GumpSel' 51;@pushlist 'Graphic' 0x1711;@pushlist 'ToolType' 0xf9d;@pushlist 'Destination' 'FilledBods';if @ingump 0x5afbd742 'barbed' or @ingump 0x5afbd742 'horned';elseif @ingump 0x5afbd742 'spined';else;@pushlist 'MaterialButton' 6;@pushlist 'MaterialHue' 0;@pushlist 'MaterialGraphic' 0x1081;@pushlist 'Leather' 'yep';endif;elseif @ingump 0x5afbd742 'shoes';@pushlist 'GumpCat' 29;@pushlist 'GumpSel' 37;@pushlist 'Graphic' 0x170f;@pushlist 'ToolType' 0xf9d;@pushlist 'Destination' 'FilledBods';if @ingump 0x5afbd742 'barbed' or @ingump 0x5afbd742 'horned';elseif @ingump 0x5afbd742 'spined';else;@pushlist 'MaterialButton' 6;@pushlist 'MaterialHue' 0;@pushlist 'MaterialGraphic' 0x1081;@pushlist 'Leather' 'yep';endif;elseif @ingump 0x5afbd742 'sandals';@pushlist 'GumpCat' 29;@pushlist 'GumpSel' 30;@pushlist 'Graphic' 0x170d;@pushlist 'ToolType' 0xf9d;@pushlist 'Destination' 'FilledBods';if @ingump 0x5afbd742 'barbed' or @ingump 0x5afbd742 'horned';elseif @ingump 0x5afbd742 'spined';else;@pushlist 'MaterialButton' 6;@pushlist 'MaterialHue' 0;@pushlist 'MaterialGraphic' 0x1081;@pushlist 'Leather' 'yep';endif;elseif @ingump 0x5afbd742 'boots';@pushlist 'GumpCat' 29;@pushlist 'GumpSel' 44;@pushlist 'Graphic' 0x170b;@pushlist 'ToolType' 0xf9d;@pushlist 'Destination' 'FilledBods';if @ingump 0x5afbd742 'barbed' or @ingump 0x5afbd742 'horned';elseif @ingump 0x5afbd742 'spined';else;@pushlist 'MaterialButton' 6;@pushlist 'MaterialHue' 0;@pushlist 'MaterialGraphic' 0x1081;@pushlist 'Leather' 'yep';endif;// Hats;elseif @ingump 0x5afbd742 'skullcap';@pushlist 'GumpCat' 1;@pushlist 'GumpSel' 2;@pushlist 'Graphic' 0x1544;@pushlist 'ToolType' 0xf9d;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'bandana';@pushlist 'GumpCat' 1;@pushlist 'GumpSel' 9;@pushlist 'Graphic' 0x1540;@pushlist 'ToolType' 0xf9d;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'floppy hat';@pushlist 'GumpCat' 1;@pushlist 'GumpSel' 16;@pushlist 'Graphic' 0x1713;@pushlist 'ToolType' 0xf9d;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'cap';@pushlist 'GumpCat' 1;@pushlist 'GumpSel' 23;@pushlist 'Graphic' 0x1715;@pushlist 'ToolType' 0xf9d;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'wide-brim hat';@pushlist 'GumpCat' 1;@pushlist 'GumpSel' 30;@pushlist 'Graphic' 0x1714;@pushlist 'ToolType' 0xf9d;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'tall straw hat';@pushlist 'GumpCat' 1;@pushlist 'GumpSel' 44;@pushlist 'Graphic' 0x1716;@pushlist 'ToolType' 0xf9d;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'straw hat';@pushlist 'GumpCat' 1;@pushlist 'GumpSel' 37;@pushlist 'Graphic' 0x1717;@pushlist 'ToolType' 0xf9d;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 "wizard's hat";@pushlist 'GumpCat' 1;@pushlist 'GumpSel' 51;@pushlist 'Graphic' 0x1718;@pushlist 'ToolType' 0xf9d;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'bonnet';@pushlist 'GumpCat' 1;@pushlist 'GumpSel' 58;@pushlist 'Graphic' 0x1719;@pushlist 'ToolType' 0xf9d;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'feathered hat';@pushlist 'GumpCat' 1;@pushlist 'GumpSel' 65;@pushlist 'Graphic' 0x171a;@pushlist 'ToolType' 0xf9d;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'tricorne hat';@pushlist 'GumpCat' 1;@pushlist 'GumpSel' 72;@pushlist 'Graphic' 0x171b;@pushlist 'ToolType' 0xf9d;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'jester hat';@pushlist 'GumpCat' 1;@pushlist 'GumpSel' 79;@pushlist 'Graphic' 0x171c;@pushlist 'ToolType' 0xf9d;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'flower garland';@pushlist 'GumpCat' 1;@pushlist 'GumpSel' 86;@pushlist 'Graphic' 0x2306;@pushlist 'ToolType' 0xf9d;@pushlist 'Destination' 'FilledBods';// Shirts;elseif @ingump 0x5afbd742 'doublet';@pushlist 'GumpCat' 8;@pushlist 'GumpSel' 2;@pushlist 'Graphic' 0x1f7b;@pushlist 'ToolType' 0xf9d;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'fancy shirt';@pushlist 'GumpCat' 8;@pushlist 'GumpSel' 16;@pushlist 'Graphic' 0x1efd;@pushlist 'ToolType' 0xf9d;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'formal shirt';@pushlist 'GumpCat' 8;@pushlist 'GumpSel' 86;@pushlist 'Graphic' 0x2310;@pushlist 'ToolType' 0xf9d;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'shirt';@pushlist 'GumpCat' 8;@pushlist 'GumpSel' 9;@pushlist 'Graphic' 0x1517;@pushlist 'ToolType' 0xf9d;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'surcoat';@pushlist 'GumpCat' 8;@pushlist 'GumpSel' 30;@pushlist 'Graphic' 0x1ffd;@pushlist 'ToolType' 0xf9d;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'plain dress';@pushlist 'GumpCat' 8;@pushlist 'GumpSel' 37;@pushlist 'Graphic' 0x1f01;@pushlist 'ToolType' 0xf9d;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'fancy dress';@pushlist 'GumpCat' 8;@pushlist 'GumpSel' 44;@pushlist 'Graphic' 0x1f00;@pushlist 'ToolType' 0xf9d;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'cloak';@pushlist 'GumpCat' 8;@pushlist 'GumpSel' 51;@pushlist 'Graphic' 0x1515;@pushlist 'ToolType' 0xf9d;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'robe';@pushlist 'GumpCat' 8;@pushlist 'GumpSel' 58;@pushlist 'Graphic' 0x1f03;@pushlist 'ToolType' 0xf9d;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'jester suit';@pushlist 'GumpCat' 8;@pushlist 'GumpSel' 65;@pushlist 'Graphic' 0x1f9f;@pushlist 'ToolType' 0xf9d;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'fur cape';@pushlist 'GumpCat' 8;@pushlist 'GumpSel' 72;@pushlist 'Graphic' 0x230a;@pushlist 'ToolType' 0xf9d;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'gilded dress';@pushlist 'GumpCat' 8;@pushlist 'GumpSel' 79;@pushlist 'Graphic' 0x230e;@pushlist 'ToolType' 0xf9d;@pushlist 'Destination' 'FilledBods';// Pants;elseif @ingump 0x5afbd742 'short pants';@pushlist 'GumpCat' 15;@pushlist 'GumpSel' 2;@pushlist 'Graphic' 0x152e;@pushlist 'ToolType' 0xf9d;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'long pants';@pushlist 'GumpCat' 15;@pushlist 'GumpSel' 9;@pushlist 'Graphic' 0x1539;@pushlist 'ToolType' 0xf9d;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'kilt';@pushlist 'GumpCat' 15;@pushlist 'GumpSel' 16;@pushlist 'Graphic' 0x1537;@pushlist 'ToolType' 0xf9d;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'skirt';@pushlist 'GumpCat' 15;@pushlist 'GumpSel' 23;@pushlist 'Graphic' 0x1516;@pushlist 'ToolType' 0xf9d;@pushlist 'Destination' 'FilledBods';// Miscellaneous;elseif @ingump 0x5afbd742 'body sash';@pushlist 'GumpCat' 22;@pushlist 'GumpSel' 2;@pushlist 'Graphic' 0x1541;@pushlist 'ToolType' 0xf9d;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'half apron';@pushlist 'GumpCat' 22;@pushlist 'GumpSel' 9;@pushlist 'Graphic' 0x153b;@pushlist 'ToolType' 0xf9d;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'full apron';@pushlist 'GumpCat' 22;@pushlist 'GumpSel' 16;@pushlist 'Graphic' 0x153d;@pushlist 'ToolType' 0xf9d;@pushlist 'Destination' 'FilledBods';// Footwear;elseif @ingump 0x5afbd742 'fur boots';@pushlist 'GumpCat' 29;@pushlist 'GumpSel' 9;@pushlist 'Graphic' 0x2307;@pushlist 'ToolType' 0xf9d;@pushlist 'Destination' 'FilledBods';// Ringmail;elseif @ingump 0x5afbd742 'ringmail gloves';@pushlist 'GumpCat' 1;@pushlist 'GumpSel' 2;@pushlist 'Graphic' 0x13eb;@pushlist 'ToolType' 0xfbb;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'ringmail leggings';@pushlist 'GumpCat' 1;@pushlist 'GumpSel' 9;@pushlist 'Graphic' 0x13f0;@pushlist 'ToolType' 0xfbb;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'ringmail sleeves';@pushlist 'GumpCat' 1;@pushlist 'GumpSel' 16;@pushlist 'Graphic' 0x13ee;@pushlist 'ToolType' 0xfbb;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'ringmail tunic';@pushlist 'GumpCat' 1;@pushlist 'GumpSel' 23;@pushlist 'Graphic' 0x13ec;@pushlist 'ToolType' 0xfbb;@pushlist 'Destination' 'FilledBods';// Chainmail;elseif @ingump 0x5afbd742 'chainmail coif';@pushlist 'GumpCat' 8;@pushlist 'GumpSel' 2;@pushlist 'Graphic' 0x13bb;@pushlist 'ToolType' 0xfbb;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'chainmail leggings';@pushlist 'GumpCat' 8;@pushlist 'GumpSel' 9;@pushlist 'Graphic' 0x13be;@pushlist 'ToolType' 0xfbb;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'chainmail tunic';@pushlist 'GumpCat' 8;@pushlist 'GumpSel' 16;@pushlist 'Graphic' 0x13bf;@pushlist 'ToolType' 0xfbb;@pushlist 'Destination' 'FilledBods';// Platemail;elseif @ingump 0x5afbd742 'platemail arms';@pushlist 'GumpCat' 15;@pushlist 'GumpSel' 2;@pushlist 'Graphic' 0x1410;@pushlist 'ToolType' 0xfbb;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'platemail gloves';@pushlist 'GumpCat' 15;@pushlist 'GumpSel' 9;@pushlist 'Graphic' 0x1414;@pushlist 'ToolType' 0xfbb;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'platemail gorget';@pushlist 'GumpCat' 15;@pushlist 'GumpSel' 16;@pushlist 'Graphic' 0x1413;@pushlist 'ToolType' 0xfbb;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'platemail legs';@pushlist 'GumpCat' 15;@pushlist 'GumpSel' 23;@pushlist 'Graphic' 0x1411;@pushlist 'ToolType' 0xfbb;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'platemail tunic';@pushlist 'GumpCat' 15;@pushlist 'GumpSel' 30;@pushlist 'Graphic' 0x1415;@pushlist 'ToolType' 0xfbb;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'female plate';@pushlist 'GumpCat' 15;@pushlist 'GumpSel' 37;@pushlist 'Graphic' 0x1c04;@pushlist 'ToolType' 0xfbb;@pushlist 'Destination' 'FilledBods';// Helmets;elseif @ingump 0x5afbd742 'bascinet';@pushlist 'GumpCat' 22;@pushlist 'GumpSel' 2;@pushlist 'Graphic' 0x140c;@pushlist 'ToolType' 0xfbb;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'close helmet';@pushlist 'GumpCat' 22;@pushlist 'GumpSel' 9;@pushlist 'Graphic' 0x1408;@pushlist 'ToolType' 0xfbb;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'helmet' and not @ingump 0x5afbd742 'bone';@pushlist 'GumpCat' 22;@pushlist 'GumpSel' 16;@pushlist 'Graphic' 0x140a;@pushlist 'ToolType' 0xfbb;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'norse helm';@pushlist 'GumpCat' 22;@pushlist 'GumpSel' 23;@pushlist 'Graphic' 0x140e;@pushlist 'ToolType' 0xfbb;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'plate helm';@pushlist 'GumpCat' 22;@pushlist 'GumpSel' 30;@pushlist 'Graphic' 0x1412;@pushlist 'ToolType' 0xfbb;@pushlist 'Destination' 'FilledBods';// Shields;elseif @ingump 0x5afbd742 'buckler';@pushlist 'GumpCat' 29;@pushlist 'GumpSel' 2;@pushlist 'Graphic' 0x1b73;@pushlist 'ToolType' 0xfbb;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'bronze shield';@pushlist 'GumpCat' 29;@pushlist 'GumpSel' 9;@pushlist 'Graphic' 0x1b72;@pushlist 'ToolType' 0xfbb;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'heater shield';@pushlist 'GumpCat' 29;@pushlist 'GumpSel' 16;@pushlist 'Graphic' 0x1b76;@pushlist 'ToolType' 0xfbb;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'metal shield';@pushlist 'GumpCat' 29;@pushlist 'GumpSel' 23;@pushlist 'Graphic' 0x1b7b;@pushlist 'ToolType' 0xfbb;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'metal kite shield';@pushlist 'GumpCat' 29;@pushlist 'GumpSel' 30;@pushlist 'Graphic' 0x1b74;@pushlist 'ToolType' 0xfbb;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'tear kite shield';@pushlist 'GumpCat' 29;@pushlist 'GumpSel' 37;@pushlist 'Graphic' 0x1b79;@pushlist 'ToolType' 0xfbb;@pushlist 'Destination' 'FilledBods';// Bladed;elseif @ingump 0x5afbd742 'broadsword';@pushlist 'GumpCat' 36;@pushlist 'GumpSel' 9;@pushlist 'Graphic' 0xf5e;@pushlist 'ToolType' 0xfbb;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'cutlass';@pushlist 'GumpCat' 36;@pushlist 'GumpSel' 23;@pushlist 'Graphic' 0x1441;@pushlist 'ToolType' 0xfbb;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'dagger';@pushlist 'GumpCat' 36;@pushlist 'GumpSel' 30;@pushlist 'Graphic' 0xf52;@pushlist 'ToolType' 0xfbb;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'katana';@pushlist 'GumpCat' 36;@pushlist 'GumpSel' 37;@pushlist 'Graphic' 0x13ff;@pushlist 'ToolType' 0xfbb;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'kryss';@pushlist 'GumpCat' 36;@pushlist 'GumpSel' 44;@pushlist 'Graphic' 0x1401;@pushlist 'ToolType' 0xfbb;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'longsword';@pushlist 'GumpCat' 36;@pushlist 'GumpSel' 51;@pushlist 'Graphic' 0xf61;@pushlist 'ToolType' 0xfbb;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'scimitar';@pushlist 'GumpCat' 36;@pushlist 'GumpSel' 58;@pushlist 'Graphic' 0x13b6;@pushlist 'ToolType' 0xfbb;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'viking sword';@pushlist 'GumpCat' 36;@pushlist 'GumpSel' 65;@pushlist 'Graphic' 0x13b9;@pushlist 'ToolType' 0xfbb;@pushlist 'Destination' 'FilledBods';// Axes;elseif @ingump 0x5afbd742 'large battle axe';@pushlist 'GumpCat' 43;@pushlist 'GumpSel' 30;@pushlist 'Graphic' 0x13fb;@pushlist 'ToolType' 0xfbb;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'double axe';@pushlist 'GumpCat' 43;@pushlist 'GumpSel' 16;@pushlist 'Graphic' 0xf4b;@pushlist 'ToolType' 0xfbb;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 "executioner's axe";@pushlist 'GumpCat' 43;@pushlist 'GumpSel' 23;@pushlist 'Graphic' 0xf45;@pushlist 'ToolType' 0xfbb;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'battle axe';@pushlist 'GumpCat' 43;@pushlist 'GumpSel' 9;@pushlist 'Graphic' 0xf47;@pushlist 'ToolType' 0xfbb;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'two handed axe';@pushlist 'GumpCat' 43;@pushlist 'GumpSel' 37;@pushlist 'Graphic' 0x1443;@pushlist 'ToolType' 0xfbb;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'war axe';@pushlist 'GumpCat' 43;@pushlist 'GumpSel' 44;@pushlist 'Graphic' 0x13b0;@pushlist 'ToolType' 0xfbb;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'axe';@pushlist 'GumpCat' 43;@pushlist 'GumpSel' 2;@pushlist 'Graphic' 0xf49;@pushlist 'ToolType' 0xfbb;@pushlist 'Destination' 'FilledBods';// Polearms;elseif @ingump 0x5afbd742 'bardiche';@pushlist 'GumpCat' 50;@pushlist 'GumpSel' 2;@pushlist 'Graphic' 0xf4d;@pushlist 'ToolType' 0xfbb;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'halberd';@pushlist 'GumpCat' 50;@pushlist 'GumpSel' 23;@pushlist 'Graphic' 0x143e;@pushlist 'ToolType' 0xfbb;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'short spear';@pushlist 'GumpCat' 50;@pushlist 'GumpSel' 44;@pushlist 'Graphic' 0x1403;@pushlist 'ToolType' 0xfbb;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'spear';@pushlist 'GumpCat' 50;@pushlist 'GumpSel' 58;@pushlist 'Graphic' 0xf62;@pushlist 'ToolType' 0xfbb;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'war fork';@pushlist 'GumpCat' 50;@pushlist 'GumpSel' 65;@pushlist 'Graphic' 0x1405;@pushlist 'ToolType' 0xfbb;@pushlist 'Destination' 'FilledBods';// Bashing;elseif @ingump 0x5afbd742 'war mace';@pushlist 'GumpCat' 57;@pushlist 'GumpSel' 30;@pushlist 'Graphic' 0x1407;@pushlist 'ToolType' 0xfbb;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'hammer pick';@pushlist 'GumpCat' 57;@pushlist 'GumpSel' 2;@pushlist 'Graphic' 0x143d;@pushlist 'ToolType' 0xfbb;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'mace';@pushlist 'GumpCat' 57;@pushlist 'GumpSel' 9;@pushlist 'Graphic' 0xf5c;@pushlist 'ToolType' 0xfbb;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'maul';@pushlist 'GumpCat' 57;@pushlist 'GumpSel' 16;@pushlist 'Graphic' 0x143b;@pushlist 'ToolType' 0xfbb;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'war hammer';@pushlist 'GumpCat' 57;@pushlist 'GumpSel' 37;@pushlist 'Graphic' 0x1439;@pushlist 'ToolType' 0xfbb;@pushlist 'Destination' 'FilledBods';elseif @ingump 0x5afbd742 'tunic';@pushlist 'GumpCat' 8;@pushlist 'GumpSel' 23;@pushlist 'Graphic' 0x1fa1;@pushlist 'ToolType' 0xf9d;@pushlist 'Destination' 'FilledBods';else;break;endif;// Define resource;if @ingump 0x5afbd742 'barbed';@pushlist 'MaterialButton' 27;@pushlist 'MaterialHue' 2129;@pushlist 'MaterialGraphic' 0x1081;@pushlist 'Leather' 'yep';elseif @ingump 0x5afbd742 'horned';@pushlist 'MaterialButton' 20;@pushlist 'MaterialHue' 2117;@pushlist 'MaterialGraphic' 0x1081;@pushlist 'Leather' 'yep';elseif @ingump 0x5afbd742 'spined';@pushlist 'MaterialButton' 13;@pushlist 'MaterialHue' 2220;@pushlist 'MaterialGraphic' 0x1081;@pushlist 'Leather' 'yep';elseif @ingump 0x5afbd742 'leather' or @ingump 0x5afbd742 'studded';@pushlist 'MaterialButton' 6;@pushlist 'MaterialHue' 0;@pushlist 'MaterialGraphic' 0x1081;@pushlist 'Leather' 'yep';elseif @ingump 0x5afbd742 'valorite';@pushlist 'MaterialButton' 62;@pushlist 'MaterialHue' 2219;@pushlist 'MaterialGraphic' 0x1bf2;@pushlist 'NotIron0' 'yep';elseif @ingump 0x5afbd742 'verite';@pushlist 'MaterialButton' 55;@pushlist 'MaterialHue' 2207;@pushlist 'MaterialGraphic' 0x1bf2;@pushlist 'NotIron0' 'yep';elseif @ingump 0x5afbd742 'agapite';@pushlist 'MaterialButton' 48;@pushlist 'MaterialHue' 2425;@pushlist 'MaterialGraphic' 0x1bf2;@pushlist 'NotIron0' 'yep';elseif @ingump 0x5afbd742 'gold';@pushlist 'MaterialButton' 41;@pushlist 'MaterialHue' 2213;@pushlist 'MaterialGraphic' 0x1bf2;@pushlist 'NotIron0' 'yep';elseif @ingump 0x5afbd742 'bronze ingots';@pushlist 'MaterialButton' 34;@pushlist 'MaterialHue' 2418;@pushlist 'MaterialGraphic' 0x1bf2;@pushlist 'NotIron0' 'yep';elseif @ingump 0x5afbd742 'shadow iron';@pushlist 'MaterialButton' 20;@pushlist 'MaterialHue' 2406;@pushlist 'MaterialGraphic' 0x1bf2;@pushlist 'NotIron0' 'yep';elseif @ingump 0x5afbd742 'dull copper';@pushlist 'MaterialButton' 13;@pushlist 'MaterialHue' 2419;@pushlist 'MaterialGraphic' 0x1bf2;@pushlist 'NotIron0' 'yep';elseif @ingump 0x5afbd742 'copper';@pushlist 'MaterialButton' 27;@pushlist 'MaterialHue' 2413;@pushlist 'MaterialGraphic' 0x1bf2;@pushlist 'NotIron0' 'yep';elseif color 'bod' == 1102;@pushlist 'MaterialButton' 6;@pushlist 'MaterialHue' 0;@pushlist 'MaterialGraphic' 0x1bf2;else;//cloth;endif;@unsetalias 'bone';if @ingump 0x5afbd742 'bone';@setalias 'bone' 'self';endif;endif;// Check for cut cloths and ingots if using cloth;for 3;if list 'MaterialHue' == 0;if @counttype 0x1bf2 0 'backpack' &lt; 50;if @movetype 0x1bf2 'Restock' 'backpack' 0 0 0 0 200;pause 750;else;useobject 'Restock';pause 550;waitforcontents 'Restock' 5000;for 2;if @movetype 0x1bf2 'Restock' 'backpack' 0 0 0 0 100;pause 750;endif;endfor;for 3;if @movetype 0x1bf2 'Restock' 'backpack' 0 0 0 0 25;pause 750;endif;endfor;for 5;if @movetype 0x1bf2 'Restock' 'backpack' 0 0 0 0 5;pause 750;endif;endfor;for 10;if @movetype 0x1bf2 'Restock' 'backpack' 0 0 0 0 1;pause 750;endif;endfor;@canceltarget;if @counttype 0x1bf2 0 'restock' == 0;sysmsg 'Out of Ingots' 34;@canceltarget;pause 600000;@playmacro 'CraftFill Loose Bods';endif;endif;endif;//unload colored ingots;while counttype 0x1bf2 2219 'backpack' > 0;movetype 0x1bf2 'backpack' 'restock' (0 0 0) 2219;pause 550;endwhile;while counttype 0x1bf2 2207 'backpack' > 0;movetype 0x1bf2 'backpack' 'restock' (0 0 0) 2207;pause 550;endwhile;while counttype 0x1bf2 2425 'backpack' > 0;movetype 0x1bf2 'backpack' 'restock' (0 0 0) 2425;pause 550;endwhile;while counttype 0x1bf2 2213 'backpack' > 0;movetype 0x1bf2 'backpack' 'restock' (0 0 0) 2213;pause 550;endwhile;while counttype 0x1bf2 2418 'backpack' > 0;movetype 0x1bf2 'backpack' 'restock' (0 0 0) 2418;pause 550;endwhile;while counttype 0x1bf2 2406 'backpack' > 0;movetype 0x1bf2 'backpack' 'restock' (0 0 0) 2406;pause 550;endwhile;while counttype 0x1bf2 2419 'backpack' > 0;movetype 0x1bf2 'backpack' 'restock' (0 0 0) 2419;pause 550;endwhile;while counttype 0x1bf2 2413 'backpack' > 0;movetype 0x1bf2 'backpack' 'restock' (0 0 0) 2413;pause 550;endwhile;//get cloth;if @counttype 0x1766 'any' 'backpack' &lt; 50 and @counttype 0x1767 'any' 'backpack' &lt; 50;if @movetype 0x1766 'Restock' 'backpack' 0 0 0 'any' 500 or @movetype 0x1767 'Restock' 'backpack' 0 0 0 'any' 500;pause 750;else;useobject 'Restock';pause 550;waitforcontents 'Restock' 5000;for 5;if @movetype 0x1766 'Restock' 'backpack' 0 0 0 'any' 100 or @movetype 0x1767 'Restock' 'backpack' 0 0 0 'any' 100;pause 750;endif;endfor;for 5;if @movetype 0x1766 'Restock' 'backpack' 0 0 0 'any' 50 or @movetype 0x1767 'Restock' 'backpack' 0 0 0 'any' 50;pause 750;endif;endfor;for 2;if @movetype 0x1766 'Restock' 'backpack' 0 0 0 'any' 25 or @movetype 0x1767 'Restock' 'backpack' 0 0 0 'any' 25;pause 750;endif;endfor;for 5;if @movetype 0x1766 'Restock' 'backpack' 0 0 0 'any' 5 or @movetype 0x1767 'Restock' 'backpack' 0 0 0 'any' 5;pause 750;endif;endfor;for 5;if @movetype 0x1766 'Restock' 'backpack' 0 0 0 'any' 1 or @movetype 0x1767 'Restock' 'backpack' 0 0 0 'any' 1;pause 750;endif;endfor;if @counttype 0x1bf2 0 'restock' == 0;sysmsg 'Out of Cloth' 25;@canceltarget;pause 600000;@playmacro 'CraftFill Loose Bods';endif;endif;endif;else;if list 'Leather' >= 1;//unload colored ingots;while counttype 0x1bf2 2219 'backpack' > 0;movetype 0x1bf2 'backpack' 'restock' (0 0 0) 2219;pause 550;endwhile;while counttype 0x1bf2 2207 'backpack' > 0;movetype 0x1bf2 'backpack' 'restock' (0 0 0) 2207;pause 550;endwhile;while counttype 0x1bf2 2425 'backpack' > 0;movetype 0x1bf2 'backpack' 'restock' (0 0 0) 2425;pause 550;endwhile;while counttype 0x1bf2 2213 'backpack' > 0;movetype 0x1bf2 'backpack' 'restock' (0 0 0) 2213;pause 550;endwhile;while counttype 0x1bf2 2418 'backpack' > 0;movetype 0x1bf2 'backpack' 'restock' (0 0 0) 2418;pause 550;endwhile;while counttype 0x1bf2 2406 'backpack' > 0;movetype 0x1bf2 'backpack' 'restock' (0 0 0) 2406;pause 550;endwhile;while counttype 0x1bf2 2419 'backpack' > 0;movetype 0x1bf2 'backpack' 'restock' (0 0 0) 2419;pause 550;endwhile;while counttype 0x1bf2 2413 'backpack' > 0;movetype 0x1bf2 'backpack' 'restock' (0 0 0) 2413;pause 550;endwhile;//check bone;if @findalias 'bone';if @counttype 0xf7e 0 'backpack' &lt; 100;//try to restock 150 bone;if @movetype 0xf7e 'Restock' 'backpack' 0 0 0 0 150;pause 750;else;useobject 'Restock';pause 550;waitforcontents 'Restock' 5000;for 3;if @movetype 0xf7e 'Restock' 'backpack' 0 0 0 0 50 and @property 'Stones' 'backpack' &lt; 400;pause 750;endif;endfor;for 3;if @movetype 0xf7e 'Restock' 'backpack' 0 0 0 0 25 and @property 'Stones' 'backpack' &lt; 475;pause 750;endif;endfor;for 5;if @movetype 0xf7e 'Restock' 'backpack' 0 0 0 0 5 and @property 'Stones' 'backpack' &lt; 500;pause 750;endif;endfor;for 5;if @movetype 0xf7e 'Restock' 'backpack' 0 0 0 0 1 and @property 'Stones' 'backpack' &lt; 500;pause 750;endif;endfor;@canceltarget;if @counttype 0xf7e 0 'restock' == 0;sysmsg 'Out of Bone' 25;@canceltarget;pause 600000;@playmacro 'CraftFill Loose Bods';endif;endif;if @counttype 0x1bf2 0 'backpack' &lt; 20;if movetype 0x1bf2 'Restock' 'backpack' 0 0 0 0 50;pause 550;else;useobject 'Restock';pause 550;waitforcontents 'Restock' 5000;for 4;movetype 0x1bf2 'Restock' 'backpack' 0 0 0 0 10;pause 550;endfor;for 4;movetype 0x1bf2 'Restock' 'backpack' 0 0 0 0 4;pause 550;endfor;for 5;movetype 0x1bf2 'Restock' 'backpack' 0 0 0 0 1;pause 550;endfor;endif;endif;if @property 'Stones' 'backpack' >= 525;movetype 0xf7e 'backpack' 'restock' (0 0 0) 'any' 50;pause 550;endif;endif;endif;if @counttype MaterialGraphic[0] MaterialHue[0] 'backpack' &lt; 50;//unload all leather types;while @movetype MaterialGraphic[0] 'backpack' 'Restock';pause 750;endwhile;//try to restock 250 leather;if @movetype MaterialGraphic[0] 'Restock' 'backpack' 0 0 0 MaterialHue[0] 250;pause 750;else;useobject 'Restock';pause 550;waitforcontents 'Restock' 5000;for 4;if @movetype MaterialGraphic[0] 'Restock' 'backpack' 0 0 0 MaterialHue[0] 50 and @property 'Stones' 'backpack' &lt; 400;pause 750;endif;endfor;for 4;if @movetype MaterialGraphic[0] 'Restock' 'backpack' 0 0 0 MaterialHue[0] 25 and @property 'Stones' 'backpack' &lt; 475;pause 750;endif;endfor;for 5;if @movetype MaterialGraphic[0] 'Restock' 'backpack' 0 0 0 MaterialHue[0] 5 and @property 'Stones' 'backpack' &lt; 500;pause 750;endif;endfor;for 5;if @movetype MaterialGraphic[0] 'Restock' 'backpack' 0 0 0 MaterialHue[0] 1 and @property 'Stones' 'backpack' &lt; 500;pause 750;endif;endfor;@canceltarget;if @counttype MaterialGraphic[0] MaterialHue[0] 'restock' == 0;sysmsg 'Out of Leather or Ingots' 25;@canceltarget;pause 600000;@playmacro 'CraftFill Loose Bods';endif;endif;if @counttype 0x1bf2 0 'backpack' &lt; 20;if movetype 0x1bf2 'Restock' 'backpack' 0 0 0 0 50;pause 550;else;useobject 'Restock';pause 550;waitforcontents 'Restock' 5000;for 4;movetype 0x1bf2 'Restock' 'backpack' 0 0 0 0 10;pause 550;endfor;for 4;movetype 0x1bf2 'Restock' 'backpack' 0 0 0 0 4;pause 550;endfor;for 5;movetype 0x1bf2 'Restock' 'backpack' 0 0 0 0 1;pause 550;endfor;endif;endif;if @property 'Stones' 'backpack' >= 525;movetype MaterialGraphic[0] 'backpack' 'restock' (0 0 0) 'any' 50;pause 550;endif;endif;elseif list 'NotIron0' >= 1;//unload leather;while counttype 0x1081 'any' 'backpack' > 0;movetype 0x1081 'backpack' 'restock';pause 550;endwhile;if @counttype MaterialGraphic[0] MaterialHue[0] 'backpack' &lt; 50;//unload all ingots types;while @movetype MaterialGraphic[0] 'backpack' 'Restock';pause 750;endwhile;if @movetype MaterialGraphic[0] 'Restock' 'backpack' 0 0 0 MaterialHue[0] 1000;pause 750;else;useobject 'Restock';pause 550;waitforcontents 'Restock' 5000;for 4;if @movetype MaterialGraphic[0] 'Restock' 'backpack' 0 0 0 MaterialHue[0] 250;pause 750;endif;endfor;for 5;if @movetype MaterialGraphic[0] 'Restock' 'backpack' 0 0 0 MaterialHue[0] 50;pause 750;endif;endfor;for 2;if @movetype MaterialGraphic[0] 'Restock' 'backpack' 0 0 0 MaterialHue[0] 25;pause 750;endif;endfor;for 5;if @movetype MaterialGraphic[0] 'Restock' 'backpack' 0 0 0 MaterialHue[0] 5;pause 750;endif;endfor;for 5;if @movetype MaterialGraphic[0] 'Restock' 'backpack' 0 0 0 MaterialHue[0] 1;pause 750;endif;endfor;@canceltarget;if @counttype MaterialGraphic[0] MaterialHue[0] 'restock' == 0;sysmsg 'Out of Leather or Ingots' 25;@canceltarget;pause 600000;@playmacro 'CraftFill Loose Bods';endif;endif;if @counttype 0x1bf2 0 'backpack' &lt; 20;if movetype 0x1bf2 'Restock' 'backpack' 0 0 0 0 50;pause 550;else;useobject 'Restock';pause 550;waitforcontents 'Restock' 5000;for 4;movetype 0x1bf2 'Restock' 'backpack' 0 0 0 0 10;pause 550;endfor;for 4;movetype 0x1bf2 'Restock' 'backpack' 0 0 0 0 4;pause 550;endfor;for 5;movetype 0x1bf2 'Restock' 'backpack' 0 0 0 0 1;pause 550;endfor;endif;endif;endif;else;//iron restock;if @counttype 0x1bf2 0 'backpack' &lt; 200;if @movetype 0x1bf2 'Restock' 'backpack' 0 0 0 0 1000;pause 750;else;useobject 'Restock';pause 550;waitforcontents 'Restock' 5000;for 3;if @movetype 0x1bf2 'Restock' 'backpack' 0 0 0 0 250;pause 750;endif;endfor;for 2;if @movetype 0x1bf2 'Restock' 'backpack' 0 0 0 0 100;pause 750;endif;endfor;for 3;if @movetype 0x1bf2 'Restock' 'backpack' 0 0 0 0 25;pause 750;endif;endfor;for 5;if @movetype 0x1bf2 'Restock' 'backpack' 0 0 0 0 5;pause 750;endif;endfor;for 10;if @movetype 0x1bf2 'Restock' 'backpack' 0 0 0 0 1;pause 750;endif;endfor;@canceltarget;if @counttype 0x1bf2 0 'restock' == 0;sysmsg 'Out of Ingots' 34;pause 600000;@playmacro 'CraftFill Loose Bods';endif;endif;endif;endif;endif;endfor;if @property 'Contents' 'backpack' >= 124 or @property 'Stones' 'backpack' >= 525;sysmsg 'Something went wrong! Pack full! Abort! Abort!' 34;stop;endif;// Check for tools;// make tinker tools;if @counttype 0x1eb8 0 'backpack' &lt; 2;pause 550;@unsetalias 'warning';while @counttype 0x1eb8 0 'backpack' &lt; 2;usetype! 0x1eb8;waitforgump 0x38920abd 2000;replygump 0x38920abd 7;waitforgump 0x38920abd 2000;replygump 0x38920abd 6;waitforgump 0x38920abd 2000;@replygump 0x38920abd 8;waitforgump 0x38920abd 2000;@replygump 0x38920abd 23;pause 1000;endwhile;endif;//make kits;if @counttype 0xf9d 0 'backpack' &lt; 3 and color 'bod' == 1155;pause 550;while @counttype 0xf9d 0 'backpack' &lt; 3;usetype! 0x1eb8;waitforgump 0x38920abd 2000;replygump 0x38920abd 7;waitforgump 0x38920abd 2000;replygump 0x38920abd 6;waitforgump 0x38920abd 2000;@replygump 0x38920abd 8;waitforgump 0x38920abd 2000;@replygump 0x38920abd 44;waitforgump 0x38920abd 2000;pause 1000;endwhile;endif;//make hammers;if @counttype 0xfbb 0 'backpack' &lt; 3 and color 'bod' == 1102;pause 550;while @counttype 0xfbb 0 'backpack' &lt; 3;usetype! 0x1eb8;waitforgump 0x38920abd 2000;replygump 0x38920abd 7;waitforgump 0x38920abd 2000;replygump 0x38920abd 6;waitforgump 0x38920abd 2000;@replygump 0x38920abd 8;waitforgump 0x38920abd 2000;@replygump 0x38920abd 86;waitforgump 0x38920abd 2000;pause 1000;endwhile;endif;// Search for existing items;while @findtype Graphic[0] 'any' 'backpack';target! 'found';waitfortarget 1000;if not targetexists 'server' and @injournal 'must be exceptional' 'system';// Recycle this item;@clearjournal;if color 'bod' == 1102;replygump 0x38920abd 14;waitfortarget 5000;target! 'found';pause 750;else;if usetype! 0xf9f;waitfortarget 5000;target! 'found';pause 750;endif;endif;// Unable to recycle, trash item;if @findobject 'found';@moveitem! 'found' 'Trash Barrel';pause 750;endif;elseif not targetexists 'server' and @injournal 'the maximum amount of requested items';// Recycle this item;if color 'bod' == 1102;replygump 0x38920abd 14;waitfortarget 5000;target! 'found';pause 750;else;if usetype! 0xf9f;waitfortarget 5000;target! 'found';pause 750;endif;endif;// Unable to recycle, trash item;if @findobject 'found';@moveitem! 'found' 'Trash Barrel';pause 750;endif;elseif not targetexists 'server';replygump 0x5afbd742 2;waitforgump 0x5afbd742 2500;waitfortarget 1000;endif;endwhile;// Craft new items if necessary;if targetexists 'server';// Swap resource and category only once per BOD;if not @findobject 'crafting' 'any' 'backpack';@setalias 'crafting' 'bod';// Resource;if not list 'MaterialHue' == 0;usetype! ToolType[0] 0;waitforgump 0x38920abd 2000;replygump 0x38920abd 7;waitforgump 0x38920abd 2000;replygump 0x38920abd MaterialButton[0];waitforgump 0x38920abd 2000;endif;// Category;pause 550;usetype! ToolType[0] 0;waitforgump 0x38920abd 2000;replygump 0x38920abd GumpCat[0];waitforgump 0x38920abd 2000;endif;if not @gumpexists 0x38920abd or @injournal 'replygump: gump id not found';usetype! ToolType[0] 0;waitforgump 0x38920abd 2000;@clearjournal;elseif not @ingump 0x38920abd 'Bone Armor' and not @ingump 0x38920abd 'Dragon Scale Armor';usetype! ToolType[0] 0;waitforgump 0x38920abd 2000;endif;replygump 0x38920abd GumpSel[0];waitforgump 0x38920abd 2000;pause 50;if counttype Graphic[0] 'any' 'backpack' == 0 or counttype Graphic[0] 'any' 'backpack' > 2;@unsetalias 'crafting';pause 550;@playmacro 'CraftFill Loose Bods';endif;endif;endwhile;// BOD is complete, move to destination;if not targetexists 'server' and @injournal 'the maximum amount of requested items';while @findtype Graphic[0] 'any' 'backpack';if color 'bod' == 1102;replygump 0x38920abd 14;waitfortarget 5000;target! 'found';pause 750;else;if usetype! 0xf9f;waitfortarget 5000;target! 'found';pause 750;endif;endif;// Unable to recycle, trash item;if @findobject 'found';@moveitem! 'found' 'Trash Barrel';pause 750;endif;replygump 0x5afbd742 2;waitforgump 0x5afbd742 2500;waitfortarget 5000;clearjournal;endwhile;clearjournal;@moveitem 'bod' 'loosefill';// Trash BOD or missing definitions;elseif not targetexists 'server';replygump 0x5afbd742 2;waitforgump 0x5afbd742 2500;waitfortarget 1000;elseif not @findalias 'crafting';@moveitem 'bod' 'Trash BODs Destination';endif;pause 750;elseif counttype 0x2258 'any' 'backpack' &lt; 1;sysmsg 'out of bods' 64;useobject 'loosefill';pause 550;while counttype 0x2258 'any' 'loosefill' > 0;movetype 0x2258 'loosefill' 'backpack';endwhile;@playmacro 'Combine Sm and Lg';stop;endif;</macro>
  137. <macro loop="False" name="Two Books to One" interrupt="True">//MAKE SURE NOT MIXING TAILOR AND BLACKSMITH BODS;sysmsg 'Have both books in your pack, their total must be under 500' 168;sysmsg 'Target the book with the most bods' 34;promptalias 'book1';sysmsg 'Target the other book' 34;promptalias 'book2';while @property 'Deeds in Book' 'book2' > 0;useobject 'book2';waitforgump 0x54f555df 1500;while @property 'Deeds in Book' 'book2' > 0 and @property 'Contents' 'backpack' &lt; 123;replygump 0x54f555df 5;waitforgump 0x54f555df 1500;endwhile;while counttype 0x2258 'any' 'backpack' > 0;movetype 0x2258 'backpack' 'book1';pause 100;endwhile;pause 550;endwhile;</macro>
  138. <macro loop="False" name="Combine Sm and Lg" interrupt="True">//red bag south of goza;@setalias 'finished' 0x42ac298d;@setalias 'finished2' 0x41fec6c0;clearignorelist;clearjournal;@unsetalias 'bigbod';while counttype 0x2258 'any' 'backpack' > 0 and not @injournal "useobject: object 'bigbod' not found";while @findtype 0x2258 'any' 'backpack';if @property 'large' 'found';@setalias 'bigbod' 'found';clearignorelist;break;else;ignoreobject 'found';endif;endwhile;pause 1000;useobject 'bigbod';waitforgump 0xa125b54a 1500;clearignorelist;if not @findobject 'bigbod' 'any' 'backpack';while @findtype 0x2258 'any' 'backpack';moveitem 'found' 0x40c86f89;pause 550;endwhile;endif;while @findtype 0x2258 'any' 'backpack';if not @property 'large' 'found';replygump 0xa125b54a 2;waitforgump 0xa125b54a 1500;target! 'found';endif;ignoreobject 'found';if @injournal 'world will save';while not @injournal 'world save complete';endwhile;@clearjournal;endif;endwhile;pause 550;if @property 'Contents' 'finished' &lt; 125;moveitem! 'bigbod' 'finished';else;moveitem! 'bigbod' 'finished2';endif;pause 1000;@unsetalias 'bigbod';clearignorelist;endwhile;pause 1000;@playmacro 'Pull HRSK to Craft';</macro>
  139. <macro loop="True" name="Pull HRSK to Craft" interrupt="True">//change this number to how many you want to pull;for 5;//red and yellow sets west of goza;@setalias 'lbod10male' 0x4063f37d;@setalias '10leggings' 0x4063f384;@setalias '10tunic' 0x4063f37b;@setalias '10gloves' 0x4063eb3f;@setalias '10sleeves' 0x4063ddcc;@setalias '10gorget' 0x4063eb39;@setalias '10cap' 0x4063eb32;//;@setalias 'lbod15male' 0x4063f382;@setalias '15leggings' 0x4063eb37;@setalias '15tunic' 0x4063eb3d;@setalias '15gloves' 0x4063eb45;@setalias '15sleeves' 0x4063eb35;@setalias '15gorget' 0x4063eb40;@setalias '15cap' 0x4063ddd4;//;@setalias 'lbod10female' 0x4063ddcf;@setalias '10skirt' 0x4063ddd3;@setalias '10shorts' 0x4063f37f;@setalias '10studdedbustier' 0x4063ddd2;@setalias '10leatherbustier' 0x4063eb43;@setalias '10armor' 0x4063ddcd;@setalias '10studdedarmor' 0x4063f37c;//;@setalias 'lbod15female' 0x4063ddc6;@setalias '15skirt' 0x4063eb3e;@setalias '15shorts' 0x4063eb44;@setalias '15studdedbustier' 0x4063f378;@setalias '15leatherbustier' 0x4063eb34;@setalias '15armor' 0x4063ddc4;@setalias '15studdedarmor' 0x4063eb3c;//;if @injournal 'world will save';while not @injournal 'world save complete';endwhile;@clearjournal;endif;//;if @property 'Contents' 'lbod10male' > 0 and @property 'Contents' '10leggings' > 0;if @property 'Contents' '10tunic' > 0 and @property 'Contents' '10gloves' > 0;if @property 'Contents' '10sleeves' > 0 and @property 'Contents' '10gorget' > 0;if @property 'Contents' '10cap' > 0;while @property 'Contents' 'lbod10male' > 0 and not counttype 0x2258 1155 'lbod10male' > 0;@useobject 'lbod10male';pause 750;endwhile;while @property 'Contents' '10leggings' > 0 and not counttype 0x2258 1155 '10leggings' > 0;@useobject '10leggings';pause 750;endwhile;while @property 'Contents' '10tunic' > 0 and not counttype 0x2258 1155 '10tunic' > 0;@useobject '10tunic';pause 750;endwhile;while @property 'Contents' '10gloves' > 0 and not counttype 0x2258 1155 '10gloves' > 0;@useobject '10gloves';pause 750;endwhile;while @property 'Contents' '10sleeves' > 0 and not counttype 0x2258 1155 '10sleeves' > 0;@useobject '10sleeves';pause 750;endwhile;while @property 'Contents' '10gorget' > 0 and not counttype 0x2258 1155 '10gorget' > 0;@useobject '10gorget';pause 750;endwhile;while @property 'Contents' '10cap' > 0 and not counttype 0x2258 1155 '10cap' > 0;@useobject '10cap';pause 750;endwhile;endif;endif;endif;endif;while @injournal 'world will save';while not @injournal 'world save complete';endwhile;@clearjournal;endwhile;if @property 'Contents' 'lbod15male' > 0 and @property 'Contents' '15leggings' > 0;if @property 'Contents' '15tunic' > 0 and @property 'Contents' '15gloves' > 0;if @property 'Contents' '15sleeves' > 0 and @property 'Contents' '15gorget' > 0;if @property 'Contents' '15cap' > 0;while @property 'Contents' 'lbod15male' > 0 and not counttype 0x2258 1155 'lbod15male' > 0;@useobject 'lbod15male';pause 750;endwhile;while @property 'Contents' '15leggings' > 0 and not counttype 0x2258 1155 '15leggings' > 0;@useobject '15leggings';pause 750;endwhile;while @property 'Contents' '15tunic' > 0 and not counttype 0x2258 1155 '15tunic' > 0;@useobject '15tunic';pause 750;endwhile;while @property 'Contents' '15gloves' > 0 and not counttype 0x2258 1155 '15gloves' > 0;@useobject '15gloves';pause 750;endwhile;while @property 'Contents' '15sleeves' > 0 and not counttype 0x2258 1155 '15sleeves' > 0;@useobject '15sleeves';pause 750;endwhile;while @property 'Contents' '15gorget' > 0 and not counttype 0x2258 1155 '15gorget' > 0;@useobject '15gorget';pause 750;endwhile;while @property 'Contents' '15cap' > 0 and not counttype 0x2258 1155 '15cap' > 0;@useobject '15cap';pause 750;endwhile;endif;endif;endif;endif;while @injournal 'world will save';while not @injournal 'world save complete';endwhile;@clearjournal;endwhile;if @property 'Contents' 'lbod10female' > 0 and @property 'Contents' '10skirt' > 0;if @property 'Contents' '10shorts' > 0 and @property 'Contents' '10studdedbustier' > 0;if @property 'Contents' '10leatherbustier' > 0 and @property 'Contents' '10armor' > 0;if @property 'Contents' '10studdedarmor' > 0;while @property 'Contents' 'lbod10female' > 0 and not counttype 0x2258 1155 'lbod10female' > 0;@useobject 'lbod10female';pause 750;endwhile;while @property 'Contents' '10skirt' > 0 and not counttype 0x2258 1155 '10skirt' > 0;@useobject '10skirt';pause 750;endwhile;while @property 'Contents' '10shorts' > 0 and not counttype 0x2258 1155 '10shorts' > 0;@useobject '10shorts';pause 750;endwhile;while @property 'Contents' '10studdedbustier' > 0 and not counttype 0x2258 1155 '10studdedbustier' > 0;@useobject '10studdedbustier';pause 750;endwhile;while @property 'Contents' '10leatherbustier' > 0 and not counttype 0x2258 1155 '10leatherbustier' > 0;@useobject '10leatherbustier';pause 750;endwhile;while @property 'Contents' '10armor' > 0 and not counttype 0x2258 1155 '10armor' > 0;@useobject '10armor';pause 750;endwhile;while @property 'Contents' '10studdedarmor' > 0 and not counttype 0x2258 1155 '10studdedarmor' > 0;@useobject '10studdedarmor';pause 750;endwhile;endif;endif;endif;endif;while @injournal 'world will save';while not @injournal 'world save complete';endwhile;@clearjournal;endwhile;if @property 'Contents' 'lbod15female' > 0 and @property 'Contents' '15skirt' > 0;if @property 'Contents' '15shorts' > 0 and @property 'Contents' '15studdedbustier' > 0;if @property 'Contents' '15leatherbustier' > 0 and @property 'Contents' '15armor' > 0;if @property 'Contents' '15studdedarmor' > 0;while @property 'Contents' 'lbod15female' > 0 and not counttype 0x2258 1155 'lbod15female' > 0;@useobject 'lbod15female';pause 750;endwhile;while @property 'Contents' '15skirt' > 0 and not counttype 0x2258 1155 '15skirt' > 0;@useobject '15skirt';pause 750;endwhile;while @property 'Contents' '15shorts' > 0 and not counttype 0x2258 1155 '15shorts' > 0;@useobject '15shorts';pause 750;endwhile;while @property 'Contents' '15studdedbustier' > 0 and not counttype 0x2258 1155 '15studdedbustier' > 0;@useobject '15studdedbustier';pause 750;endwhile;while @property 'Contents' '15leatherbustier' > 0 and not counttype 0x2258 1155 '15leatherbustier' > 0;@useobject '15leatherbustier';pause 750;endwhile;while @property 'Contents' '15armor' > 0 and not counttype 0x2258 1155 '15armor' > 0;@useobject '15armor';pause 750;endwhile;while @property 'Contents' '15studdedarmor' > 0 and not counttype 0x2258 1155 '15studdedarmor' > 0;@useobject '15studdedarmor';pause 750;endwhile;endif;endif;endif;endif;if @injournal 'world will save';while not @injournal 'world save complete';endwhile;@clearjournal;endif;//;//;//;@unsetalias '10female';@unsetalias '15female';@unsetalias '10male';@unsetalias '15male';sysmsg '-' 33;if @property 'Contents' 'lbod10male' > 0 and @property 'Contents' '10leggings' > 0;if @property 'Contents' '10tunic' > 0 and @property 'Contents' '10gloves' > 0;if @property 'Contents' '10sleeves' > 0 and @property 'Contents' '10gorget' > 0;if @property 'Contents' '10cap' > 0;@setalias '10male' 'self';sysmsg '10 Male' 33;endif;endif;endif;endif;if @property 'Contents' 'lbod15male' > 0 and @property 'Contents' '15leggings' > 0;if @property 'Contents' '15tunic' > 0 and @property 'Contents' '15gloves' > 0;if @property 'Contents' '15sleeves' > 0 and @property 'Contents' '15gorget' > 0;if @property 'Contents' '15cap' > 0;@setalias '15male' 'self';sysmsg '15 Male' 33;endif;endif;endif;endif;if @property 'Contents' 'lbod10female' > 0 and @property 'Contents' '10skirt' > 0;if @property 'Contents' '10shorts' > 0 and @property 'Contents' '10studdedbustier' > 0;if @property 'Contents' '10leatherbustier' > 0 and @property 'Contents' '10armor' > 0;if @property 'Contents' '10studdedarmor' > 0;@setalias '10female' 'self';sysmsg '10 Female' 34;endif;endif;endif;endif;if @property 'Contents' 'lbod15female' > 0 and @property 'Contents' '15skirt' > 0;if @property 'Contents' '15shorts' > 0 and @property 'Contents' '15studdedbustier' > 0;if @property 'Contents' '15leatherbustier' > 0 and @property 'Contents' '15armor' > 0;if @property 'Contents' '15studdedarmor' > 0;@setalias '15female' 'self';sysmsg '15 Female' 34;endif;endif;endif;endif;if @injournal 'world will save';while not @injournal 'world save complete';endwhile;@clearjournal;endif;if @findalias '15female';movetype 0x2258 'lbod15female' 'backpack';pause 750;movetype 0x2258 '15skirt' 'backpack';pause 750;movetype 0x2258 '15shorts' 'backpack';pause 750;movetype 0x2258 '15studdedbustier' 'backpack';pause 750;movetype 0x2258 '15leatherbustier' 'backpack';pause 750;movetype 0x2258 '15armor' 'backpack';pause 750;movetype 0x2258 '15studdedarmor' 'backpack';pause 750;elseif @findalias '10male';movetype 0x2258 'lbod10male' 'backpack';pause 750;movetype 0x2258 '10leggings' 'backpack';pause 750;movetype 0x2258 '10tunic' 'backpack';pause 750;movetype 0x2258 '10gloves' 'backpack';pause 750;movetype 0x2258 '10sleeves' 'backpack';pause 750;movetype 0x2258 '10gorget' 'backpack';pause 750;movetype 0x2258 '10cap' 'backpack';pause 750;elseif @findalias '15male';movetype 0x2258 'lbod15male' 'backpack';pause 750;movetype 0x2258 '15leggings' 'backpack';pause 750;movetype 0x2258 '15tunic' 'backpack';pause 750;movetype 0x2258 '15gloves' 'backpack';pause 750;movetype 0x2258 '15sleeves' 'backpack';pause 750;movetype 0x2258 '15gorget' 'backpack';pause 750;movetype 0x2258 '15cap' 'backpack';pause 750;elseif @findalias '10female';movetype 0x2258 'lbod10female' 'backpack';pause 750;movetype 0x2258 '10skirt' 'backpack';pause 750;movetype 0x2258 '10shorts' 'backpack';pause 750;movetype 0x2258 '10studdedbustier' 'backpack';pause 750;movetype 0x2258 '10leatherbustier' 'backpack';pause 750;movetype 0x2258 '10armor' 'backpack';pause 750;movetype 0x2258 '10studdedarmor' 'backpack';pause 750;else;sysmsg 'No full HRSK sets' 34;if counttype 0x2258 1155 'backpack' > 0;@playmacro 'CraftFill Loose Bods';else;pause 30000;endif;endif;endfor;if counttype 0x2258 1155 'backpack' > 0;@playmacro 'CraftFill Loose Bods';else;pause 30000;endif;</macro>
  140. <macro loop="False" name="Pull BRSK to Craft" interrupt="True">//change this number to how many you want to pull;for 14;//two sets of green and blue east of goza;@setalias 'lbod20male' 0x4063eb41;@setalias '20leggings'0x4063ddd0;@setalias '20tunic'0x4063ddc9;@setalias '20gloves'0x4063ddcb;@setalias '20sleeves'0x4063eb33;@setalias '20gorget'0x4063ddc5;@setalias '20cap'0x4063eb3a;//;@setalias 'lbod20female'0x4063f380;@setalias '20skirt' 0x4063ddc8;@setalias '20shorts'0x4063ddd1;@setalias '20studdedbustier' 0x4063ddc7;@setalias '20leatherbustier'0x4063eb42;@setalias '20armor' 0x4063eb3b;@setalias '20studdedarmor' 0x4063ddd5;if @property 'Contents' 'lbod20male' > 0 and @property 'Contents' '20leggings' > 0;if @property 'Contents' '20tunic' > 0 and @property 'Contents' '20gloves' > 0;if @property 'Contents' '20sleeves' > 0 and @property 'Contents' '20gorget' > 0;if @property 'Contents' '20cap' > 0;while @property 'Contents' 'lbod20male' > 0 and not counttype 0x2258 1155 'lbod20male' > 0;@useobject 'lbod20male';pause 750;endwhile;while @property 'Contents' '20leggings' > 0 and not counttype 0x2258 1155 '20leggings' > 0;@useobject '20leggings';pause 750;endwhile;while @property 'Contents' '20tunic' > 0 and not counttype 0x2258 1155 '20tunic' > 0;@useobject '20tunic';pause 750;endwhile;while @property 'Contents' '20gloves' > 0 and not counttype 0x2258 1155 '20gloves' > 0;@useobject '20gloves';pause 750;endwhile;while @property 'Contents' '20sleeves' > 0 and not counttype 0x2258 1155 '20sleeves' > 0;@useobject '20sleeves';pause 750;endwhile;while @property 'Contents' '20gorget' > 0 and not counttype 0x2258 1155 '20gorget' > 0;@useobject '20gorget';pause 750;endwhile;while @property 'Contents' '20cap' > 0 and not counttype 0x2258 1155 '20cap' > 0;@useobject '20cap';pause 750;endwhile;endif;endif;endif;endif;while @injournal 'world will save';while not @injournal 'world save complete';endwhile;@clearjournal;endwhile;if @property 'Contents' 'lbod20female' > 0 and @property 'Contents' '20skirt' > 0;if @property 'Contents' '20shorts' > 0 and @property 'Contents' '20studdedbustier' > 0;if @property 'Contents' '20leatherbustier' > 0 and @property 'Contents' '20armor' > 0;if @property 'Contents' '20studdedarmor' > 0;while @property 'Contents' 'lbod20female' > 0 and not counttype 0x2258 1155 'lbod20female' > 0;@useobject 'lbod20female';pause 750;endwhile;while @property 'Contents' '20skirt' > 0 and not counttype 0x2258 1155 '20skirt' > 0;@useobject '20skirt';pause 750;endwhile;while @property 'Contents' '20shorts' > 0 and not counttype 0x2258 1155 '20shorts' > 0;@useobject '20shorts';pause 750;endwhile;while @property 'Contents' '20studdedbustier' > 0 and not counttype 0x2258 1155 '20studdedbustier' > 0;@useobject '20studdedbustier';pause 750;endwhile;while @property 'Contents' '20leatherbustier' > 0 and not counttype 0x2258 1155 '20leatherbustier' > 0;@useobject '20leatherbustier';pause 750;endwhile;while @property 'Contents' '20armor' > 0 and not counttype 0x2258 1155 '20armor' > 0;@useobject '20armor';pause 750;endwhile;while @property 'Contents' '20studdedarmor' > 0 and not counttype 0x2258 1155 '20studdedarmor' > 0;@useobject '20studdedarmor';pause 750;endwhile;endif;endif;endif;endif;if @injournal 'world will save';while not @injournal 'world save complete';endwhile;@clearjournal;endif;//;//;//;@unsetalias '20male';@unsetalias '20female';sysmsg '-' 33;if @property 'Contents' 'lbod20male' > 0 and @property 'Contents' '20leggings' > 0;if @property 'Contents' '20tunic' > 0 and @property 'Contents' '20gloves' > 0;if @property 'Contents' '20sleeves' > 0 and @property 'Contents' '20gorget' > 0;if @property 'Contents' '20cap' > 0;@setalias '20male' 'self';sysmsg '20 Male' 73;endif;endif;endif;endif;if @property 'Contents' 'lbod20female' > 0 and @property 'Contents' '20skirt' > 0;if @property 'Contents' '20shorts' > 0 and @property 'Contents' '20studdedbustier' > 0;if @property 'Contents' '20leatherbustier' > 0 and @property 'Contents' '20armor' > 0;if @property 'Contents' '20studdedarmor' > 0;@setalias '20female' 'self';sysmsg '20 Female' 75;endif;endif;endif;endif;if @injournal 'world will save';while not @injournal 'world save complete';endwhile;@clearjournal;endif;if @findalias '20male';movetype 0x2258 'lbod20male' 'backpack';pause 750;movetype 0x2258 '20leggings' 'backpack';pause 750;movetype 0x2258 '20tunic' 'backpack';pause 750;movetype 0x2258 '20gloves' 'backpack';pause 750;movetype 0x2258 '20sleeves' 'backpack';pause 750;movetype 0x2258 '20gorget' 'backpack';pause 750;movetype 0x2258 '20cap' 'backpack';pause 750;elseif @findalias '20female';movetype 0x2258 'lbod20female' 'backpack';pause 750;movetype 0x2258 '20skirt' 'backpack';pause 750;movetype 0x2258 '20shorts' 'backpack';pause 750;movetype 0x2258 '20studdedbustier' 'backpack';pause 750;movetype 0x2258 '20leatherbustier' 'backpack';pause 750;movetype 0x2258 '20armor' 'backpack';pause 750;movetype 0x2258 '20studdedarmor' 'backpack';pause 750;else;sysmsg 'No full BRSK sets' 168;@playmacro 'CraftFill Loose Bods';stop;endif;endfor;@playmacro 'CraftFill Loose Bods';</macro>
  141. <macro loop="False" name="Pull CBD to Craft" interrupt="True">//change this number to how many you want to pull;for 15;//first is NW light and dark grey stack, others are same color stacks east of goza;@setalias 'lbodcrier' 0x4063ddce;@setalias 'thighboots' 0x4063eb36;@setalias 'shortpants' 0x4063f379;@setalias 'fancyshirt' 0x4063ddc3;@setalias 'surcoat' 0x4063f383;@setalias 'featheredhat' 0x4063eb38;//;@setalias 'lbodmalecbd' 0x4092802c;@setalias 'cbdleggings' 0x4063ddca;@setalias 'cbdtunic' 0x40928027;@setalias 'cbdgloves' 0x40928029;@setalias 'cbdsleeves' 0x40928026;@setalias 'cbdgorget' 0x4092802b;@setalias 'cbdcap' 0x40928025;//;@setalias 'lbodfemalecbd' 0x40928024;@setalias 'cbdskirt' 0x4093d129;@setalias 'cbdshorts' 0x4093d125;@setalias 'cbdstuddedbustier' 0x4093d126;@setalias 'cbdleatherbustier' 0x4093d127;@setalias 'cbdarmor' 0x4093d124;@setalias 'cbdstuddedarmor' 0x40928023;if @property 'Contents' 'lbodcrier' > 0 and @property 'Contents' 'thighboots' > 0;if @property 'Contents' 'shortpants' > 0 and @property 'Contents' 'fancyshirt' > 0;if @property 'Contents' 'surcoat' > 0 and @property 'Contents' 'featheredhat' > 0;while @property 'Contents' 'lbodcrier' > 0 and not counttype 0x2258 1155 'lbodcrier' > 0;@useobject 'lbodcrier';pause 750;endwhile;while @property 'Contents' 'thighboots' > 0 and not counttype 0x2258 1155 'thighboots' > 0;@useobject 'thighboots';pause 750;endwhile;while @property 'Contents' 'shortpants' > 0 and not counttype 0x2258 1155 'shortpants' > 0;@useobject 'shortpants';pause 750;endwhile;while @property 'Contents' 'fancyshirt' > 0 and not counttype 0x2258 1155 'fancyshirt' > 0;@useobject 'fancyshirt';pause 750;endwhile;while @property 'Contents' 'surcoat' > 0 and not counttype 0x2258 1155 'surcoat' > 0;@useobject 'surcoat';pause 750;endwhile;while @property 'Contents' 'featheredhat' > 0 and not counttype 0x2258 1155 'featheredhat' > 0;@useobject 'featheredhat';pause 750;endwhile;endif;endif;endif;if @injournal 'world will save';while not @injournal 'world save complete';endwhile;@clearjournal;endif;if @property 'Contents' 'lbodmalecbd' > 0 and @property 'Contents' 'cbdleggings' > 0;if @property 'Contents' 'cbdtunic' > 0 and @property 'Contents' 'cbdgloves' > 0;if @property 'Contents' 'cbdsleeves' > 0 and @property 'Contents' 'cbdgorget' > 0;if @property 'Contents' 'cbdcap' > 0;while @property 'Contents' 'lbodmalecbd' > 0 and not counttype 0x2258 1155 'lbodmalecbd' > 0;@useobject 'lbodmalecbd';pause 750;endwhile;while @property 'Contents' 'cbdleggings' > 0 and not counttype 0x2258 1155 'cbdleggings' > 0;@useobject 'cbdleggings';pause 750;endwhile;while @property 'Contents' 'cbdtunic' > 0 and not counttype 0x2258 1155 'cbdtunic' > 0;@useobject 'cbdtunic';pause 750;endwhile;while @property 'Contents' 'cbdgloves' > 0 and not counttype 0x2258 1155 'cbdgloves' > 0;@useobject 'cbdgloves';pause 750;endwhile;while @property 'Contents' 'cbdsleeves' > 0 and not counttype 0x2258 1155 'cbdsleeves' > 0;@useobject 'cbdsleeves';pause 750;endwhile;while @property 'Contents' 'cbdgorget' > 0 and not counttype 0x2258 1155 'cbdgorget' > 0;@useobject 'cbdgorget';pause 750;endwhile;while @property 'Contents' 'cbdcap' > 0 and not counttype 0x2258 1155 'cbdcap' > 0;@useobject 'cbdcap';pause 750;endwhile;if @injournal 'world will save';while not @injournal 'world save complete';endwhile;@clearjournal;endif;endif;endif;endif;endif;if @property 'Contents' 'lbodfemalecbd' > 0 and @property 'Contents' 'cbdskirt' > 0;if @property 'Contents' 'cbdshorts' > 0 and @property 'Contents' 'cbdstuddedbustier' > 0;if @property 'Contents' 'cbdleatherbustier' > 0 and @property 'Contents' 'cbdstuddedarmor' > 0;if @property 'Contents' 'cbdarmor' > 0;while @property 'Contents' 'lbodfemalecbd' > 0 and not counttype 0x2258 1155 'lbodfemalecbd' > 0;@useobject 'lbodfemalecbd';pause 750;endwhile;while @property 'Contents' 'cbdskirt' > 0 and not counttype 0x2258 1155 'cbdskirt' > 0;@useobject 'cbdskirt';pause 750;endwhile;while @property 'Contents' 'cbdshorts' > 0 and not counttype 0x2258 1155 'cbdshorts' > 0;@useobject 'cbdshorts';pause 750;endwhile;while @property 'Contents' 'cbdstuddedbustier' > 0 and not counttype 0x2258 1155 'cbdstuddedbustier' > 0;@useobject 'cbdstuddedbustier';pause 750;endwhile;while @property 'Contents' 'cbdleatherbustier' > 0 and not counttype 0x2258 1155 'cbdleatherbustier' > 0;@useobject 'cbdleatherbustier';pause 750;endwhile;while @property 'Contents' 'cbdarmor' > 0 and not counttype 0x2258 1155 'cbdarmor' > 0;@useobject 'cbdarmor';pause 750;endwhile;while @property 'Contents' 'cbdstuddedarmor' > 0 and not counttype 0x2258 1155 'cbdstuddedarmor' > 0;@useobject 'cbdstuddedarmor';pause 750;endwhile;endif;endif;endif;endif;if @injournal 'world will save';while not @injournal 'world save complete';endwhile;@clearjournal;endif;@unsetalias 'towncrier';@unsetalias 'malecbd';@unsetalias 'femalecbd';sysmsg '-' 33;if @property 'Contents' 'lbodcrier' > 0 and @property 'Contents' 'thighboots' > 0;if @property 'Contents' 'shortpants' > 0 and @property 'Contents' 'fancyshirt' > 0;if @property 'Contents' 'surcoat' > 0 and @property 'Contents' 'featheredhat' > 0;@setalias 'towncrier' 'self';sysmsg 'Town Crier' 53;endif;endif;endif;if @property 'Contents' 'lbodmalecbd' > 0 and @property 'Contents' 'cbdleggings' > 0;if @property 'Contents' 'cbdtunic' > 0 and @property 'Contents' 'cbdgloves' > 0;if @property 'Contents' 'cbdsleeves' > 0 and @property 'Contents' 'cbdgorget' > 0;if @property 'Contents' 'cbdcap' > 0;@setalias 'malecbd' 'self';sysmsg '20 Male Leather' 88;endif;endif;endif;endif;if @property 'Contents' 'lbodfemalecbd' > 0 and @property 'Contents' 'cbdskirt' > 0;if @property 'Contents' 'cbdshorts' > 0 and @property 'Contents' 'cbdstuddedbustier' > 0;if @property 'Contents' 'cbdleatherbustier' > 0 and @property 'Contents' 'cbdstuddedarmor' > 0;if @property 'Contents' 'cbdarmor' > 0;@setalias 'femalecbd' 'self';sysmsg '20 Female Leather' 31;endif;endif;endif;endif;if @injournal 'world will save';while not @injournal 'world save complete';endwhile;@clearjournal;endif;if @findalias 'towncrier';movetype 0x2258 'lbodcrier' 'backpack';pause 750;movetype 0x2258 'thighboots' 'backpack';pause 750;movetype 0x2258 'shortpants' 'backpack';pause 750;movetype 0x2258 'fancyshirt' 'backpack';pause 750;movetype 0x2258 'surcoat' 'backpack';pause 750;movetype 0x2258 'featheredhat' 'backpack';pause 750;elseif @findalias 'malecbd';movetype 0x2258 'lbodmalecbd' 'backpack';pause 750;movetype 0x2258 'cbdleggings' 'backpack';pause 750;movetype 0x2258 'cbdtunic' 'backpack';pause 750;movetype 0x2258 'cbdgloves' 'backpack';pause 750;movetype 0x2258 'cbdsleeves' 'backpack';pause 750;movetype 0x2258 'cbdgorget' 'backpack';pause 750;movetype 0x2258 'cbdcap' 'backpack';pause 750;elseif @findalias 'femalecbd';movetype 0x2258 'lbodfemalecbd' 'backpack';pause 750;movetype 0x2258 'cbdskirt' 'backpack';pause 750;movetype 0x2258 'cbdshorts' 'backpack';pause 750;movetype 0x2258 'cbdstuddedbustier' 'backpack';pause 750;movetype 0x2258 'cbdleatherbustier' 'backpack';pause 750;movetype 0x2258 'cbdarmor' 'backpack';pause 750;movetype 0x2258 'cbdstuddedarmor' 'backpack';pause 750;else;sysmsg 'No full CBD sets' 34;@playmacro 'CraftFill Loose Bods';stop;endif;endfor;@playmacro 'CraftFill Loose Bods';</macro>
  142. <macro loop="True" name="Turn In Luna BS" interrupt="True">if not timerexists 'turnin';createtimer 'turnin';settimer 'turnin' 10000;endif;//Ask to Target the Blacksmith NPC;if not @findobject 'blacksmith';sysmsg 'Target the Blacksmith NPC to turn in to' 34;promptalias 'blacksmith';endif;if not @findobject 'filledbods' or not @findobject 'newbods';@unsetalias 'filledbods';@unsetalias 'newbods';endif;if serial 'filledbods' == serial 'newbods';@unsetalias 'filledbods';@unsetalias 'newbods';endif;//Ask to Target the Completed Bods Book;if not @findobject 'filledbods';sysmsg 'Target the Filled Bods Book in your backpack' 167;promptalias 'filledbods';endif;//Ask to Target the New Bods Book;if not @findobject 'newbods';sysmsg 'Target the New Bods Book in your backpack!' 34;promptalias 'newbods';endif;//Ask to Target the Trash;if not @findobject 'trash can';sysmsg 'Target the Trash Can or junk container' 167;promptalias 'trash can';endif;if not @findobject 'rewardsbag';sysmsg 'Target the Reward Bag in your Bank' 34;promptalias 'rewardsbag';endif;//2 left click "Complete Blacksmith Bods Book";if not @findtype 0x2258 'any' 'backpack';useobject 'filledbods';pause 1000;//Take Bod Out of the Book;replygump 0x54f555df 5;pause 1000;endif;if counttype 0x2258 1155 'backpack' > 3;sysmsg 'Looks like you have tailors bods at the blacksmith shop. Stopping!' 34;pause 1000;useobject 'beetle';stop;endif;//Move Bod on the NPC;while timer 'turnin' &lt; 9100;endwhile;clearjournal;movetype '0x2258' 'backpack' 'blacksmith' 0 0 0 '1102' 1;pause 1000;if @injournal 'have to wait a few seconds';movetype '0x2258' 'backpack' 'tailor' 0 0 0 '1102' 1;pause 1000;endif;@settimer 'turnin' 0;//Ask NPC for a new Bod;waitforcontext 'blacksmith' 1 15000;pause 1000;//Confirm NEW Bod - Small Bod Gump;@replygump 0x9bade6ea 1;//Confirm NEW Bod - Large Bod Gump;@replygump 0xbe0dad1e 1;pause 1000;//Move NEW Bod to book;movetype '0x2258' 'backpack' 'newbods' 0 0 0 '1102' 1;pause 1000;//Move NEW Items into Trash (Bag);//sledge hammer;while @findtype '0xfb4' 'any' 'backpack' 1;movetype '0xfb4' 'backpack' 'trash can' 0 0 0 'any' 1;pause 550;endwhile;//pickaxe;while @findtype '0xe86' 'any' 'backpack' 1;movetype '0xe86' 'backpack' 'trash can' 0 0 0 'any' 1;pause 550;endwhile;//pickaxe;while @findtype '0xe85' 'any' 'backpack' 1;movetype '0xe85' 'backpack' 'trash can' 0 0 0 'any' 1;pause 550;endwhile;//studded gloves;while @findtype '0x13d5' 'any' 'backpack' 1;movetype '0x13d5' 'backpack' 'trash can' 0 0 0 'any' 1;pause 550;endwhile;//gloves;while @findtype '0x13c6' 'any' 'backpack' 1;movetype '0x13c6' 'backpack' 'trash can' 0 0 0 'any' 1;pause 550;endwhile;while @findtype '0x13eb' 'any' 'backpack' 1;movetype '0x13eb' 'backpack' 'trash can' 0 0 0 'any' 1;pause 550;endwhile;//shovel;while @findtype '0xf39' 'any' 'backpack' 1;movetype '0xf39' 'backpack' 'trash can' 0 0 0 'any' 1;pause 550;endwhile;while @findtype '0xeed' 'any' 'backpack';movetype '0xeed' 'backpack' 'rewardsbag' 0 0 0 'any';pause 550;endwhile;if @injournal 'world will save';while not @injournal 'world save complete';endwhile;@clearjournal;endif;while @findtype 0x14f0 'any' 'backpack';movetype 0x14f0 'backpack' 'rewardsbag';pause 550;endwhile;while @findtype 0x1006 '2419' 'backpack';movetype 0x1006 'backpack' 'rewardsbag' [(0 0 0)] '2419';pause 550;endwhile;while @findtype 0x13e3 '2406' 'backpack';movetype 0x13e3 'backpack' 'rewardsbag' [(0 0 0)] '2406';pause 550;endwhile;while @findtype 0x13e3 '2419' 'backpack';movetype 0x13e3 'backpack' 'rewardsbag' [(0 0 0)] '2419';pause 550;endwhile;while @findtype 0x13e3 '2418' 'backpack';movetype 0x13e3 'backpack' 'rewardsbag' [(0 0 0)] '2418';pause 550;endwhile;while @findtype 0x13e3 '2413' 'backpack';movetype 0x13e3 'backpack' 'rewardsbag' [(0 0 0)] '2413';pause 550;endwhile;while @findtype 0x13e3 '2213' 'backpack';movetype 0x13e3 'backpack' 'rewardsbag' [(0 0 0)] '2213';pause 550;endwhile;while @findtype 0x13e3 '2425' 'backpack';movetype 0x13e3 'backpack' 'rewardsbag' [(0 0 0)] '2425';pause 550;endwhile;while @findtype 0x13e4 '1154' 'backpack';movetype 0x13e4 'backpack' 'rewardsbag' [(0 0 0)] '1154';pause 550;endwhile;while @findtype 0x14f0 '52' 'rewardsbag';useobject 'found';pause 550;endwhile;if counttype 0xeed 0 'bank' > 1000000;msg 'check 1000000';endif;//stall while GMs around;if @findtype 0x3db 'any' 'ground' 18;while @findtype 0x3db 'any' 'ground' 18;endwhile;//pause 3 minutes after they leave;pause 180000;endif;if @injournal 'world will save';while not @injournal 'world save complete';endwhile;@clearjournal;endif;if property 'Deeds In Book: 0' 'filledbods';sysmsg 'Done' 34;stop;endif;if property 'Contents' 'rewardsbag' > 80;sysmsg 'Reward bag full' 34;stop;endif;</macro>
  143. <macro loop="True" name="Turn In Luna Tailor" interrupt="True">//Auto Give Tailor Bods to NPC!;//Ask to Target the Tailor NPC;if not @findobject 'tailornpc';sysmsg 'Target the Tailor NPC to turn in to' 34;promptalias 'tailornpc';endif;if not timerexists 'turnin';createtimer 'turnin';settimer 'turnin' 10000;endif;if not @findobject 'filledbods' or not @findobject 'newbods';@unsetalias 'filledbods';@unsetalias 'newbods';endif;if serial 'filledbods' == serial 'newbods';@unsetalias 'filledbods';@unsetalias 'newbods';endif;//Ask to Target the Completed Bods Book;if not @findobject 'filledbods';sysmsg 'Target the Filled Bods book in your backpack' 167;promptalias 'filledbods';endif;//Ask to Target the New Bods Book;if not @findobject 'newbods';sysmsg 'Target the New Bods Book in your backpack' 34;promptalias 'newbods';endif;//Ask to Target the Storage (Beetle);if not @findobject 'rewardsbag';sysmsg 'Target the container in your bank for rewards' 167;promptalias 'rewardsbag';endif;//2 left click "Complete Tailor Bods Book";useobject 'filledbods';pause 1000;//Take Bod Out of the Book;if not @findtype 0x2258 1155 'backpack';replygump 0x54f555df 5;pause 1000;endif;if counttype 0x2258 1102 'backpack' > 3;sysmsg 'Looks like you have blacksmith bods at the tailor shop. Stopping!' 34;stop;endif;//Move Bod on the NPC;clearjournal;while timer 'turnin' &lt; 9100;endwhile;movetype '0x2258' 'backpack' 'tailornpc' 0 0 0 '1155' 1;pause 1000;if @injournal 'have to wait a few seconds';movetype '0x2258' 'backpack' 'tailornpc' 0 0 0 '1155' 1;pause 1000;endif;settimer 'turnin' 0;pause 1000;//Ask NPC for a new Bod;waitforcontext 'tailornpc' 1 15000;pause 2000;//Confirm NEW Bod - Small Bod Gump;@replygump 0x9bade6ea 1;//Confirm NEW Bod - Large Bod Gump;@replygump 0xbe0dad1e 1;pause 1000;if @injournal 'world will save';while not @injournal 'world save complete';endwhile;@clearjournal;endif;//Move NEW Bod to new book;movetype '0x2258' 'backpack' 'newbods' 0 0 0 '1155' 1;pause 1000;//Move NEW Cloth into Beetle;if @findtype 0x1767 'any' 'backpack';usetype 0xfab;pause 1000;targettype 0x1767 'any';pause 1000;endif;while @findtype 0x1767 'any' 'backpack';movetype 0x1767 'backpack' 'rewardsbag';pause 550;endwhile;while @findtype 0xeed 'any' 'backpack';movetype 0xeed 'backpack' 'rewardsbag';pause 550;endwhile;while @findtype 0x14f0 'any' 'backpack';movetype 0x14f0 'backpack' 'rewardsbag';pause 550;endwhile;while @findtype 0xf9d '2117' 'backpack';movetype 0xf9d 'backpack' 'rewardsbag' [(0 0 0)] '2117';pause 550;endwhile;while @findtype 0xf9d '2129' 'backpack';movetype 0xf9d 'backpack' 'rewardsbag' [(0 0 0)] '2129';pause 550;endwhile;if @findtype 0x170d 'any' 'backpack';moveitemoffset 'found' 'ground' (0 1 0);endif;while @findtype 0x14f0 '52' 'rewardsbag';useobject 'found';pause 550;endwhile;if counttype 0xeed 0 'bank' > 1000000;msg 'check 1000000';endif;if property 'Deeds In Book: 0' 'filledbods';sysmsg 'Done' 34;stop;endif;if property 'Contents' 'rewardsbag' > 80;sysmsg 'Reward bag full' 34;stop;endif;if @injournal 'world will save';while not @injournal 'world save complete';endwhile;@clearjournal;endif;</macro>
  144. <macro loop="False" name="Turn In Go Home" interrupt="True">@removelist 'CBDclothamount';@createlist 'CBDclothamount';//Cloth is cheaper than leather, might want to save more. also change in the Sort Books and Sort Loose macros;@pushlist 'CBDclothamount' 5;@removelist 'CBDamount';@createlist 'CBDamount';//change this number to the number of CBD leather sets you want waiting to fill per stack. Also change in the Sort Books and Sort Loose macros;@pushlist 'CBDamount' 1;@removelist 'CBDlbodamount';@createlist 'CBDlbodamount';//change this number to the number of CBD leather lbods you want waiting to fill. They are rare so good idea to save more than the exceptional sbods above.;@pushlist 'CBDlbodamount' 5;if @injournal 'world will save';while not @injournal 'world save complete';endwhile;@clearjournal;endif;clearignorelist;if @injournal 'world will save';while not @injournal 'world save complete';endwhile;@clearjournal;endif;while not mounted 'self';useobject 'beetle';pause 550;endwhile;clearjournal;while not @gumpexists 0x554b87f3;useobject 'turninrunebook';waitforgump 0x554b87f3 1500;endwhile;replygump 0x554b87f3 5;pause 3000;//north and south of recall, for castle this is center goza y-5 and y-11;while not y &lt; 2785 and y > 2779;//if the rune is blocked, pause and try again;if @injournal 'blocked' 'system';sysmsg 'Rune blocked, trying again in 30 seconds' 33;pause 30000;@clearjournal;while not @gumpexists 0x554b87f3;useobject 'turninrunebook';waitforgump 0x554b87f3 1500;endwhile;replygump 0x554b87f3 5;pause 2000;endif;endwhile;//center goza X minus 2 for castle, lining up with teleporter to craft station;while not x == 1174;if x > 1174;walk 'west';pause 250;endif;if x &lt; 1174;walk 'east';pause 250;endif;endwhile;pause 500;//center goza Y-15 and center goza Y-5, walking until on other side of teleporter in line with craft station;while y > 2775 and not y > 2785;walk 'north';pause 500;endwhile;turn 'west';//X of center goza;while not x == 1176;walk 'west';pause 500;endwhile;@setalias 'booktosort' 'newbods';@setalias 'resets' 'filledbods';//;@setalias 'Trash Barrel' 0x411004bb;@setalias 'verite' 0x42ac299a;@setalias 'valorite' 0x42ac2994;@setalias 'agapite' 0x42c86fe0;@setalias 'gold1' 0x42ac298a;@setalias 'gold2' 0x42ac2995;@setalias 'bronze1' 0x42ac298b;@setalias 'bronze2' 0x42ac298e;@setalias 'copper1' 0x42ac2990;@setalias 'copper2' 0x42c77275;@setalias '+60' 0x42ac2999;@setalias '+30' 0x42c86fde;@setalias '+151' 0x42c86fe3;@setalias '+152' 0x42c86fdf;@setalias '120' 0x42c86fe1;@setalias 'POF1' 0x4055fb66;@setalias 'POF2' 0x4055fb67;@setalias 'BronzeSmall' 0x42ac2991;@setalias 'CopperSmall' 0x42ac299b;@setalias 'ShadowSmall' 0x4055fb69;@setalias 'HRSK1' 0x42ac2997;@setalias 'HRSK2' 0x42ac2993;@setalias 'BRSK1' 0x42ac2998;@setalias 'BRSK2' 0x42ac2996;@setalias 'lbod10male' 0x4063f37d;@setalias '10leggings' 0x4063f384;@setalias '10tunic' 0x4063f37b;@setalias '10gloves' 0x4063eb3f;@setalias '10sleeves' 0x4063ddcc;@setalias '10gorget' 0x4063eb39;@setalias '10cap' 0x4063eb32;@setalias 'lbod15male' 0x4063f382;@setalias '15leggings' 0x4063eb37;@setalias '15tunic' 0x4063eb3d;@setalias '15gloves' 0x4063eb45;@setalias '15sleeves' 0x4063eb35;@setalias '15gorget' 0x4063eb40;@setalias '15cap' 0x4063ddd4;@setalias 'lbod10female' 0x4063ddcf;@setalias '10skirt' 0x4063ddd3;@setalias '10shorts' 0x4063f37f;@setalias '10studdedbustier' 0x4063ddd2;@setalias '10leatherbustier' 0x4063eb43;@setalias '10armor' 0x4063ddcd;@setalias '10studdedarmor' 0x4063f37c;@setalias 'lbod15female' 0x4063ddc6;@setalias '15skirt' 0x4063eb3e;@setalias '15shorts' 0x4063eb44;@setalias '15studdedbustier' 0x4063f378;@setalias '15leatherbustier' 0x4063eb34;@setalias '15armor' 0x4063ddc4;@setalias '15studdedarmor' 0x4063eb3c;@setalias 'lbodcrier' 0x4063ddce;@setalias 'thighboots' 0x4063eb36;@setalias 'shortpants' 0x4063f379;@setalias 'fancyshirt' 0x4063ddc3;@setalias 'surcoat' 0x4063f383;@setalias 'featheredhat' 0x4063eb38;@setalias 'lbod20male' 0x4063eb41;@setalias '20leggings' 0x4063ddd0;@setalias '20tunic' 0x4063ddc9;@setalias '20gloves' 0x4063ddcb;@setalias '20sleeves' 0x4063eb33;@setalias '20gorget' 0x4063ddc5;@setalias '20cap' 0x4063eb3a;@setalias 'lbod20female' 0x4063f380;@setalias '20skirt' 0x4063ddc8;@setalias '20shorts' 0x4063ddd1;@setalias '20studdedbustier' 0x4063ddc7;@setalias '20leatherbustier' 0x4063eb42;@setalias '20armor' 0x4063eb3b;@setalias '20studdedarmor' 0x4063ddd5;@setalias 'lbodmalecbd' 0x4092802c;@setalias 'cbdleggings' 0x4063ddca;@setalias 'cbdtunic' 0x40928027;@setalias 'cbdgloves' 0x40928029;@setalias 'cbdsleeves' 0x40928026;@setalias 'cbdgorget' 0x4092802b;@setalias 'cbdcap' 0x40928025;@setalias 'lbodfemalecbd' 0x40928024;@setalias 'cbdskirt' 0x4093d129;@setalias 'cbdshorts' 0x4093d125;@setalias 'cbdstuddedbustier' 0x4093d126;@setalias 'cbdleatherbustier' 0x4093d127;@setalias 'cbdarmor' 0x4093d124;@setalias 'cbdstuddedarmor' 0x40928023;@setalias '120tailorlarge' 0x42ac2992;//;@useobject 'BookToSort';waitforgump 0x54f555df 2500;replygump 0x54f555df 1;waitforgump 0x968739db 2500;replygump 0x968739db 3;waitforgump 0x968739db 2500;replygump 0x968739db 0;waitforgump 0x54f555df 2500;pause 1000;for 505;if not hidden 'self';useskill 'hiding';endif;if @property 'Deeds in Book' 'BookToSort' > 0;if not @findtype 0x2258 'any' 'backpack';useobject 'BookToSort';waitforgump 0x54f555df 2500;while @property 'Deeds in Book' 'BookToSort' > 0 and @property 'Contents' 'backpack' &lt; 123;replygump 0x54f555df 5;waitforgump 0x54f555df 2500;endwhile;endif;if @injournal 'world will save';while not @injournal 'world save complete';endwhile;@clearjournal;endif;pause 550;while @findtype 0x2258 'any' 'backpack';if @injournal 'world will save';while not @injournal 'world save complete';endwhile;@clearjournal;endif;//center goza;if not x == 1842 and y == 2076;sysmsg 'stand on the goza';stop;endif;waitforproperties 'found' 5000;//trashing nonexceptional bods;if not @property 'exceptional' 'found';if not @property 'spined' 'found' and not @property 'horned' 'found';if not @property 'barbed' 'found' and @property 'large' 'found';if @property '20' 'found' and @property 'leather gorget' 'found';if @property 'Contents' 'lbodmalecbd' &lt; CBDlbodamount[0];sysmsg 'CBD' 53;moveitem 'found' 'lbodmalecbd';pause 750;endif;elseif @property '20' 'found' and @property 'studded bustier' 'found';if @property 'Contents' 'lbodfemalecbd' &lt; CBDlbodamount[0];sysmsg 'CBD' 53;moveitem 'found' 'lbodfemalecbd';pause 750;endif;endif;endif;endif;if @findobject 'found' 'any' 'backpack';moveitem 'found' 'Trash Barrel';if @property 'large' 'found';sysmsg 'Normal LBOD Trash' 33;else;sysmsg 'Normal SBOD Trash' 33;endif;pause 750;endif;elseif color 'found' == 1102;if @property 'Valorite' 'found';if @property 'exceptional' 'found';if @property '20' 'found';if @property 'platemail' 'found' or @property 'plate helm' 'found';moveitem 'found' 'valorite';sysmsg 'Valorite' 95;elseif @property 'chainmail' 'found';moveitem 'found' '+60';sysmsg '+60' 34;elseif @property 'ringmail' 'found';moveitem 'found' '+30';sysmsg '+30' 73;else;moveitem 'found' 'Trash Barrel';sysmsg 'Trash';endif;elseif @property '10' 'found' or @property '15' 'found';if @property 'platemail' 'found' or @property 'plate helm' 'found';moveitem 'found' 'verite';sysmsg 'Verite' 79;elseif @property 'chainmail' 'found';moveitem 'found' 'agapite';sysmsg 'Agapite' 36;elseif @property 'ringmail' 'found';moveitem 'found' 'gold1';sysmsg 'Gold' 252;else;moveitem 'found' 'Trash Barrel';sysmsg 'Trash';endif;endif;elseif not @property 'exceptional' found';//shouldn't have these;endif;elseif @property 'Verite' 'found';if @property 'exceptional' 'found';if @property '20' 'found';if @property 'platemail' 'found' or @property 'plate helm' 'found';moveitem 'found' 'verite';sysmsg 'Verite' 79;elseif @property 'chainmail' 'found';moveitem 'found' 'agapite';sysmsg 'Agapite' 36;elseif @property 'ringmail' 'found';moveitem 'found' 'gold1';sysmsg 'Gold' 252;else;moveitem 'found' 'Trash Barrel';sysmsg 'Trash';endif;elseif @property '10' 'found' or @property '15' 'found';if @property 'platemail' 'found' or @property 'plate helm' 'found';moveitem 'found' '+60';sysmsg '+60' 34;elseif @property 'chainmail' 'found' and not @property 'large' 'found';//bronzes worth more than +30, remove large clause if changing;//moveitem 'found' '+30';//sysmsg '+30' 73;moveitem 'found' 'BronzeSmall';sysmsg 'Bronze' 88;elseif @property 'ringmail' 'found' and not @property 'large' 'found';//bronzes worth more than 120, remove large clause if changing;//moveitem 'found' '120';//sysmsg '120' 2498;moveitem 'found' 'BronzeSmall';sysmsg 'Bronze' 88;elseif not @property 'large' 'found';moveitem 'found' 'BronzeSmall';sysmsg 'Bronze' 88;else;moveitem 'found' 'Trash Barrel';sysmsg 'Trash';endif;endif;elseif not @property 'exceptional' 'found';//shouldn't have these;endif;elseif @property 'Agapite' 'found';if @property 'exceptional' 'found';if @property '20' 'found';if @property 'platemail' 'found' or @property 'plate helm' 'found';moveitem 'found' '+60';sysmsg '+60' 34;elseif @property 'chainmail' 'found' and not @property 'large' 'found';//+30 but small bod bronzes worth more, remove large clause if changing;//moveitem 'found' '+30';//sysmsg '+30' 73;moveitem 'found' 'BronzeSmall';sysmsg 'Bronze' 88;elseif @property 'ringmail' 'found' and not @property 'large' 'found';//120 but small bod bronzes worth more, remove large clause if changing;//moveitem 'found' '120';//sysmsg '120' 2498;moveitem 'found' 'BronzeSmall';sysmsg 'Bronze' 88;elseif not @property 'large' 'found';moveitem 'found' 'BronzeSmall';sysmsg 'Bronze' 88;else;moveitem 'found' 'Trash Barrel';sysmsg 'Trash';endif;elseif @property '10' 'found' or @property '15' 'found';if @property 'platemail' 'found' or @property 'plate helm' 'found';moveitem 'found' 'agapite';sysmsg 'Agapite' 36;elseif @property 'chainmail' 'found';moveitem 'found' 'gold1';sysmsg 'Gold' 252;elseif @property 'ringmail' 'found';if @property '15' 'found';if @property 'Contents' '+152' &lt; 101;moveitem 'found' '+151';sysmsg '+15' 20;else;moveitem 'found' 'Trash Barrel';sysmsg '+15 book full, trashing' 20;endif;//+15 but 4 small bod coppers worth more, remove large clause if changing;elseif @property '10' 'found' and not @property 'large' 'found';moveitem 'found' 'CopperSmall';sysmsg 'Copper' 88;else;moveitem 'found' 'Trash Barrel';sysmsg 'Trash';endif;elseif not @property 'large' 'found' and @property '10' 'found';moveitem 'found' 'CopperSmall';sysmsg 'Copper' 88;else;moveitem 'found' 'Trash Barrel';sysmsg 'Trash';endif;endif;elseif not @property 'exceptional' 'found';//shouldn't have these;endif;elseif @property 'gold' 'found';if @property 'exceptional' 'found';if @property '20' 'found';if @property 'platemail' 'found' or @property 'plate helm' 'found';moveitem 'found' 'agapite';sysmsg 'Agapite' 36;elseif @property 'chainmail' 'found';moveitem 'found' 'gold1';sysmsg 'Gold' 252;//+15 but 4 small bod coppers worth more, remove large clause if changing;elseif @property 'ringmail' 'found' and not @property 'large' 'found';//moveitem 'found' '+151';// sysmsg '+15' 20;moveitem 'found' 'CopperSmall';sysmsg 'Copper' 88;elseif not @property 'large' 'found';moveitem 'found' 'CopperSmall';sysmsg 'Copper' 88;else;moveitem 'found' 'Trash Barrel';sysmsg 'Trash';endif;elseif @property '10' 'found' or @property '15' 'found';if @property 'platemail' 'found' or @property 'plate helm' 'found';moveitem 'found' '+30';sysmsg '+30' 73;elseif @property 'chainmail' 'found';if @property 'Contents' '120' &lt; 101;moveitem 'found' '120';sysmsg '120' 2498;else;moveitem 'found' 'Trash Barrel';sysmsg '120 book full, trashing' 2498;endif;elseif not @property 'large' 'found' and @property '10' 'found';if @property 'Contents' 'ShadowSmall' &lt; 101;moveitem 'found' 'ShadowSmall';sysmsg 'ShadowSmall' 88;else;moveitem 'found' 'Trash Barrel';sysmsg 'Shadow book full, trashing' 88;endif;else;moveitem 'found' 'Trash Barrel';sysmsg 'Trash';endif;endif;elseif not @property 'exceptional' 'found';//shouldn't have these;endif;elseif @property 'bronze ingots' 'found';if @property 'exceptional' 'found';if @property '20' 'found';if @property 'platemail' 'found' or @property 'plate helm' 'found';moveitem 'found' '+30';sysmsg '+30' 73;elseif @property 'chainmail' 'found';if @property 'Contents' '120' &lt; 101;moveitem 'found' '120';sysmsg '120' 2498;else;moveitem 'found' 'Trash Barrel';sysmsg '120 book full, trashing' 2498;endif;elseif not @property 'large' 'found';if @property 'Contents' 'ShadowSmall' &lt; 101;moveitem 'found' 'ShadowSmall';sysmsg 'ShadowSmall' 88;else;moveitem 'found' 'Trash Barrel';sysmsg 'Shadow book full, trashing' 88;endif;else;moveitem 'found' 'Trash Barrel';sysmsg 'Trash';endif;elseif @property '10' 'found' or @property '15' 'found';if @property 'platemail' 'found' or @property 'plate helm' 'found';moveitem 'found' 'gold1';sysmsg 'Gold' 252;elseif @property 'chainmail' 'found';if @property 'Contents' '+152' &lt; 101;moveitem 'found' '+151';sysmsg '+15' 20;else;moveitem 'found' 'Trash Barrel';sysmsg '+15 book full, trashing' 20;endif;elseif not @property 'large' 'found';if @property 'Contents' 'ShadowSmall' &lt; 101;moveitem 'found' 'ShadowSmall';sysmsg 'ShadowSmall' 88;else;moveitem 'found' 'Trash Barrel';sysmsg 'Shadow book full, trashing' 88;endif;else;moveitem 'found' 'Trash Barrel';sysmsg 'Trash';endif;endif;elseif not @property 'exceptional' 'found';//shouldn't have these;endif;elseif @property 'copper' 'found' and not @property 'dull' 'found';if @property 'exceptional' 'found';if @property '20' 'found';if @property 'platemail' 'found' or @property 'plate helm' 'found';moveitem 'found' 'gold1';sysmsg 'Gold' 252;elseif @property 'chainmail' 'found';if @property 'Contents' '+152' &lt; 101;moveitem 'found' '+151';sysmsg '+15' 20;else;moveitem 'found' 'Trash Barrel';sysmsg '+15 book full, trashing' 20;endif;elseif not @property 'large' 'found';if @property 'Contents' 'ShadowSmall' &lt; 101;moveitem 'found' 'ShadowSmall';sysmsg 'ShadowSmall' 88;else;moveitem 'found' 'Trash Barrel';sysmsg 'Shadow book full, trashing' 88;endif;else;moveitem 'found' 'Trash Barrel';sysmsg 'Trash';endif;elseif @property '10' 'found' or @property '15' 'found';if @property 'platemail' 'found' or @property 'plate helm' 'found';if @property 'Contents' '120' &lt; 101;moveitem 'found' '120';sysmsg '120' 2498;else;moveitem 'found' 'Trash Barrel';sysmsg '120 book full, trashing' 2498;endif;elseif @property 'ringmail' 'found';moveitem 'found' 'bronze1';sysmsg 'Bronze' 249;elseif not @property 'large' 'found';//dull copper;//moveitem 'found' 'ShadowSmall';//sysmsg 'Dull Copper' 88;moveitem 'found' 'Trash Barrel';sysmsg 'Trash';else;moveitem 'found' 'Trash Barrel';sysmsg 'Trash';endif;endif;elseif not @property 'exceptional' 'found';//shouldn't have these;endif;elseif @property 'shadow' 'found';if @property 'exceptional' 'found';if @property '20' 'found';if @property 'platemail' 'found' or @property 'plate helm' 'found';if @property 'Contents' '120' &lt; 101;moveitem 'found' '120';sysmsg '120' 2498;else;moveitem 'found' 'Trash Barrel';sysmsg '120 book full, trashing' 2498;endif;elseif @property 'ringmail' 'found';moveitem 'found' 'bronze1';sysmsg 'Bronze' 249;elseif not @property 'large' 'found';//dull copper;//moveitem 'found' 'ShadowSmall';//sysmsg 'Dull Copper' 88;moveitem 'found' 'Trash Barrel';sysmsg 'Trash';else;moveitem 'found' 'Trash Barrel';sysmsg 'Trash';endif;elseif @property '10' 'found' or @property '15' 'found';if @property 'platemail' 'found' or @property 'plate helm' 'found';if @property 'Contents' '+152' &lt; 101;moveitem 'found' '+151';sysmsg '+15' 20;else;moveitem 'found' 'Trash Barrel';sysmsg '+15 book full, trashing' 20;endif;elseif not @property 'large' 'found';if @property 'Contents' 'POF2' &lt; 101;moveitem 'found' 'POF1';sysmsg 'PoF' 88;else;moveitem 'found' 'Trash Barrel';sysmsg 'PoF book full, trashing' 88;endif;else;moveitem 'found' 'Trash Barrel';sysmsg 'Trash';endif;endif;elseif not @property 'exceptional' 'found';//shouldn't have these;endif;elseif @property 'dull' 'found';if @property 'exceptional' 'found';if @property '20' 'found';if @property 'platemail' 'found' or @property 'plate helm' 'found';if @property 'Contents' '+152' &lt; 101;moveitem 'found' '+151';sysmsg '+15' 20;else;moveitem 'found' 'Trash Barrel';sysmsg '+15 book full, trashing' 20;endif;elseif not @property 'large' 'found';if @property 'Contents' 'POF2' &lt; 101;moveitem 'found' 'POF1';sysmsg 'PoF' 88;else;moveitem 'found' 'Trash Barrel';sysmsg 'PoF book full, trashing' 88;endif;else;moveitem 'found' 'Trash Barrel';sysmsg 'Trash';endif;elseif @property '10' 'found' or @property '15' 'found';if @property 'chainmail' 'found';moveitem 'found' 'bronze1';sysmsg 'Bronze' 249;else;moveitem 'found' 'Trash Barrel';sysmsg 'Trash';endif;endif;elseif not @property 'exceptional' 'found';//shouldn't have these;endif;else;if @property 'exceptional' 'found' and @property '20' 'found';if @property 'platemail' 'found' or @property 'plate helm' 'found';if @property 'Contents' 'copper2' &lt; 101;moveitem 'found' 'copper1';sysmsg 'Copper' 242;else;moveitem 'found' 'Trash Barrel';sysmsg 'Copper book full, trashing' 242;endif;elseif @property 'small' 'found';moveitem 'found' 'resets';sysmsg 'Reset' '110';else;moveitem 'found' 'Trash Barrel';sysmsg 'Trash';endif;elseif @property 'small' 'found';moveitem 'found' 'resets';sysmsg 'Reset' '110';else;moveitem 'found' 'Trash Barrel';sysmsg 'Trash';endif;endif;pause 750;if @findobject 'found' 'any' 'backpack';sysmsg 'Bod didnt sort, pausing and trying again' 34;pause 750;endif;else if color 'found' == 1155;if @property 'leather' 'found';if @property 'Barbed' 'found';if @property 'exceptional' 'found';if @property '20' 'found';if @property 'bone' 'found';moveitem 'found' 'BRSK1';sysmsg 'BRSK' 168;elseif @property 'studded armor' 'found' or @property 'studded bustier' 'found';moveitem 'found' 'BRSK1';sysmsg 'BRSK' 168;elseif @property 'studded' 'found';moveitem 'found' 'BRSK1';sysmsg 'BRSK' 168;elseif @property 'sandals' 'found' or @property 'shoes' 'found';moveitem 'found' 'HRSK1';sysmsg 'HRSK' 34;elseif @property 'boots' 'found';moveitem 'found' 'HRSK1';sysmsg 'HRSK' 34;else;@moveitem 'found' 'BRSK1';sysmsg 'BRSK' 168;endif;elseif @property '10' 'found' or @property '15' 'found';if not @property 'bone' 'found';if @property 'studded armor' 'found' or @property 'studded bustier' 'found';moveitem 'found' 'BRSK1';sysmsg 'BRSK' 168;elseif @property 'sandals' 'found' or @property 'shoes' 'found';//if not @property '15' 'found';//no point in saving rarer cbds when already needing to cull the others;//moveitem 'found' 'CBD1';//sysmsg 'CBD' 53;//endif;moveitem 'found' 'Trash Barrel';sysmsg 'Trash';elseif @property 'boots' 'found';//if not @property '15' 'found';//no point in saving rarer cbds when already needing to cull the others;//moveitem 'found' 'CBD1';//sysmsg 'CBD' 53;//endif;moveitem 'found' 'Trash Barrel';sysmsg 'Trash';elseif not @property 'studded' 'found';moveitem 'found' 'BRSK1';sysmsg 'BRSK' 168;else;moveitem 'found' 'Trash Barrel';sysmsg 'Trash';endif;else;moveitem 'found' 'Trash Barrel';sysmsg 'Trash';endif;endif;elseif not @property 'exceptional' 'found';//shouldn't have these;endif;elseif @property 'Horned' 'found';if @property 'exceptional' 'found' and not @property 'bone' 'found';if @property '20' 'found';if @property 'sandals' 'found' or @property 'shoes' 'found';//no point in saving rarer cbds when already needing to cull the others;//moveitem 'found' 'CBD1';//sysmsg 'CBD' 53;moveitem 'found' 'Trash Barrel';sysmsg 'Trash';elseif @property 'boots' 'found';//no point in saving rarer cbds when already needing to cull the others;//moveitem 'found' 'CBD1';// sysmsg 'CBD' 53;moveitem 'found' 'Trash Barrel';sysmsg 'Trash';elseif @property 'studded armor' 'found' or @property 'studded bustier' 'found';moveitem 'found' 'BRSK1';sysmsg 'BRSK' 168;elseif not @property 'studded' 'found';moveitem 'found' 'BRSK1';sysmsg 'BRSK' 168;else;moveitem 'found' 'Trash Barrel';sysmsg 'Trash';endif;elseif @property '10' 'found' or @property '15' 'found';if not @property 'sandals' 'found' and not @property 'shoes' 'found';if not @property 'boots' 'found';if @property 'studded armor' 'found' or @property 'studded bustier' 'found';moveitem 'found' 'BRSK1';sysmsg 'BRSK' 168;elseif @property 'studded' 'found';moveitem 'found' 'HRSK1';sysmsg 'HRSK' 34;elseif not @property 'studded' 'found';moveitem 'found' 'BRSK1';sysmsg 'BRSK' 168;else;moveitem 'found' 'Trash Barrel';sysmsg 'Trash';endif;else;moveitem 'found' 'Trash Barrel';sysmsg 'Trash';endif;else;moveitem 'found' 'Trash Barrel';sysmsg 'Trash';endif;endif;elseif not @property 'exceptional' 'found';//shouldn't have these;else;moveitem 'found' 'Trash Barrel';sysmsg 'Trash';endif;elseif @property 'Spined' 'found';if not @property 'sandals' 'found' and not @property 'shoes' 'found';if not @property 'boots' 'found' and not @property 'bone' 'found';if @property 'exceptional' 'found';if @property '20' 'found';if @property 'studded armor' 'found' or @property 'studded bustier' 'found';sysmsg 'BRSK' 168;if @property 'large' 'found' and @property '20' 'found';moveitem 'found' 'lbod20female';elseif @property 'studded armor' 'found' and @property '20' 'found';moveitem 'found' '20studdedarmor';elseif @property 'studded bustier' 'found' and @property '20' 'found';moveitem 'found' '20studdedbustier';endif;elseif @property 'studded' 'found';moveitem 'found' 'HRSK1';sysmsg 'HRSK' 34;elseif not @property 'studded' 'found';sysmsg 'BRSK' 168;if @property 'large' 'found' and @property '20' 'found';moveitem 'found' 'lbod20male';elseif @property 'skirt' 'found' and @property '20' 'found';moveitem 'found' '20skirt';elseif @property 'shorts' 'found' and @property '20' 'found';moveitem 'found' '20shorts';elseif @property 'armor' 'found' and @property '20' 'found';moveitem 'found' '20armor';elseif @property 'leather bustier' 'found' and @property '20' 'found';moveitem 'found' '20leatherbustier';elseif @property 'leggings' 'found' and @property '20' 'found';moveitem 'found' '20leggings';elseif @property 'tunic' 'found' and @property '20' 'found';moveitem 'found' '20tunic';elseif @property 'gloves' 'found' and @property '20' 'found';moveitem 'found' '20gloves';elseif @property 'sleeves' 'found' and @property '20' 'found';moveitem 'found' '20sleeves';elseif @property 'gorget' 'found' and @property '20' 'found';moveitem 'found' '20gorget';elseif @property 'cap' 'found' and @property '20' 'found';moveitem 'found' '20cap';endif;endif;//elseif @property '10' 'found';//if @property 'studded' 'found';//if not @property 'studded armor' 'found' and not @property 'studded bustier' 'found';//no point in saving rarer cbds when already needing to cull the others;// moveitem 'found' 'CBD1';//sysmsg 'CBD';//endif;//endif;else;moveitem 'found' 'Trash Barrel';sysmsg 'Trash';endif;elseif not @property 'exceptional' 'found';//shouldn't have these;endif;else;moveitem 'found' 'Trash Barrel';sysmsg 'Trash';endif;else;moveitem 'found' 'Trash Barrel';sysmsg 'Trash';endif;//plain leather;elseif not @property 'bone' 'found';if @property 'exceptional' 'found';if @property '20' 'found';if @property 'studded armor' 'found' or @property 'studded bustier' 'found';//normally a 120 scroll but can put ex in normal LBOD for cbd;if @property 'large' 'found';if @property 'Contents' '120tailorlarge' &lt; 5;sysmsg '120 Tailor PS';moveitem 'found' '120tailorlarge';else;moveitem 'found' 'Trash Barrel';sysmsg 'Trash';endif;elseif not @property 'large' 'found';sysmsg 'CBD' 53;if @property 'studded armor' 'found';if @property 'Contents' 'cbdstuddedarmor' &lt; CBDamount[0];moveitem 'found' 'cbdstuddedarmor';else;moveitem 'found' 'resets';sysmsg 'CBD Reset';endif;elseif @property 'studded bustier' 'found';if @property 'Contents' 'cbdstuddedbustier' &lt; CBDamount[0];moveitem 'found' 'cbdstuddedbustier';else;moveitem 'found' 'resets';sysmsg 'CBD Reset';endif;endif;endif;elseif @property 'studded' 'found';//no point in saving rarer cbds when already needing to cull the others;// moveitem! 'found' 'CBD1';//sysmsg 'CBD' 53;moveitem! 'found' 'resets';sysmsg 'CBD Reset';else;if @property 'large' 'found';if @property 'Contents' '120tailorlarge' &lt; 5;sysmsg '120 Tailor PS';moveitem 'found' '120tailorlarge';else;moveitem 'found' 'Trash Barrel';sysmsg 'Trash';endif;elseif not @property 'large' 'found';sysmsg 'CBD' 53;if @property 'leggings' 'found';if @property 'Contents' 'cbdleggings' &lt; CBDamount[0];moveitem 'found' 'cbdleggings';else;moveitem 'found' 'resets';sysmsg 'CBD Reset';endif;elseif @property 'tunic' 'found';if @property 'Contents' 'cbdtunic' &lt; CBDamount[0];moveitem 'found' 'cbdtunic';else;moveitem 'found' 'resets';sysmsg 'CBD Reset';endif;elseif @property 'gloves' 'found';if @property 'Contents' 'cbdgloves' &lt; CBDamount[0];moveitem 'found' 'cbdgloves';else;moveitem 'found' 'resets';sysmsg 'CBD Reset';endif;elseif @property 'sleeves' 'found';if @property 'Contents' 'cbdsleeves' &lt; CBDamount[0];moveitem 'found' 'cbdsleeves';else;moveitem 'found' 'resets';sysmsg 'CBD Reset';endif;elseif @property 'gorget' 'found';if @property 'Contents' 'cbdgorget' &lt; CBDamount[0];moveitem 'found' 'cbdgorget';else;moveitem 'found' 'resets';sysmsg 'CBD Reset';endif;elseif @property 'cap' 'found';if @property 'Contents' 'cbdcap' &lt; CBDamount[0];moveitem 'found' 'cbdcap';else;moveitem 'found' 'resets';sysmsg 'CBD Reset';endif;elseif @property 'shorts' 'found';if @property 'Contents' 'cbdshorts' &lt; CBDamount[0];moveitem 'found' 'cbdshorts';else;moveitem 'found' 'resets';sysmsg 'CBD Reset';endif;elseif @property 'skirt' 'found';if @property 'Contents' 'cbdskirt' &lt; CBDamount[0];moveitem 'found' 'cbdskirt';else;moveitem 'found' 'resets';sysmsg 'CBD Reset';endif;elseif @property 'leather bustier' 'found';if @property 'Contents' 'cbdleatherbustier' &lt; CBDamount[0];moveitem 'found' 'cbdleatherbustier';else;moveitem 'found' 'resets';sysmsg 'CBD Reset';endif;elseif @property 'armor' 'found';if @property 'Contents' 'cbdarmor' &lt; CBDamount[0];moveitem 'found' 'cbdarmor';else;moveitem 'found' 'resets';sysmsg 'CBD Reset';endif;endif;endif;endif;elseif @property '10' 'found' or @property '15' 'found';if @property 'studded armor' 'found' or @property 'studded bustier' 'found';sysmsg 'HRSK' 34;if @property 'large' 'found' and @property '10' 'found';moveitem 'found' 'lbod10female';elseif @property 'large' 'found' and @property '15' 'found';moveitem 'found' 'lbod15female';elseif @property 'studded armor' 'found' and @property '10' 'found';moveitem 'found' '10studdedarmor';elseif @property 'studded armor' 'found' and @property '15' 'found';moveitem 'found' '15studdedarmor';elseif @property 'studded bustier' 'found' and @property '10' 'found';moveitem 'found' '10studdedbustier';elseif @property 'studded bustier' 'found' and @property '15' 'found';moveitem 'found' '15studdedbustier';endif;elseif not @property 'studded' 'found';sysmsg 'HRSK' 34;if @property 'large' 'found' and @property '10' 'found';moveitem 'found' 'lbod10male';elseif @property 'large' 'found' and @property '15' 'found';moveitem 'found' 'lbod15male';elseif @property 'skirt' 'found' and @property '10' 'found';moveitem 'found' '10skirt';elseif @property 'shorts' 'found' and @property '10' 'found';moveitem 'found' '10shorts';elseif @property 'armor' 'found' and @property '10' 'found';moveitem 'found' '10armor';elseif @property 'leather bustier' 'found' and @property '10' 'found';moveitem 'found' '10leatherbustier';elseif @property 'leggings' 'found' and @property '10' 'found';moveitem 'found' '10leggings';elseif @property 'tunic' 'found' and @property '10' 'found';moveitem 'found' '10tunic';elseif @property 'gloves' 'found' and @property '10' 'found';moveitem 'found' '10gloves';elseif @property 'sleeves' 'found' and @property '10' 'found';moveitem 'found' '10sleeves';elseif @property 'gorget' 'found' and @property '10' 'found';moveitem 'found' '10gorget';elseif @property 'cap' 'found' and @property '10' 'found';moveitem 'found' '10cap';elseif @property 'skirt' 'found' and @property '15' 'found';moveitem 'found' '15skirt';elseif @property 'shorts' 'found' and @property '15' 'found';moveitem 'found' '15shorts';elseif @property 'armor' 'found' and @property '15' 'found';moveitem 'found' '15armor';elseif @property 'leather bustier' 'found' and @property '15' 'found';moveitem 'found' '15leatherbustier';elseif @property 'leggings' 'found' and @property '15' 'found';moveitem 'found' '15leggings';elseif @property 'tunic' 'found' and @property '15' 'found';moveitem 'found' '15tunic';elseif @property 'gloves' 'found' and @property '15' 'found';moveitem 'found' '15gloves';elseif @property 'sleeves' 'found' and @property '15' 'found';moveitem 'found' '15sleeves';elseif @property 'gorget' 'found' and @property '15' 'found';moveitem 'found' '15gorget';elseif @property 'cap' 'found' and @property '15' 'found';moveitem 'found' '15cap';endif;elseif not @property 'large' 'found';moveitem 'found' 'resets';sysmsg 'Reset';else;moveitem 'found' 'Trash Barrel';sysmsg 'Trash';endif;endif;elseif not @property 'exceptional' 'found';//shouldn't have these;endif;endif;elseif @property 'studded armor' 'found' or @property 'studded bustier' 'found';if @property 'exceptional' 'found';if @property '20' 'found';if @property 'large' 'found';if @property 'Contents' '120tailorlarge' &lt; 5;sysmsg '120 Tailor PS';moveitem 'found' '120tailorlarge';else;moveitem 'found' 'Trash Barrel';sysmsg 'Trash';endif;elseif not @property 'large' 'found';sysmsg 'CBD' 53;if @property 'studded armor' 'found';if @property 'Contents' 'cbdstuddedarmor' &lt; CBDamount[0];moveitem 'found' 'cbdstuddedarmor';else;moveitem 'found' 'resets';sysmsg 'CBD Reset';endif;elseif @property 'studded bustier' 'found';if @property 'Contents' 'cbdstuddedbustier' &lt; CBDamount[0];moveitem 'found' 'cbdstuddedbustier';else;moveitem 'found' 'resets';sysmsg 'CBD Reset';endif;endif;endif;elseif @property '10' 'found' or @property '15' 'found';sysmsg 'HRSK' 34;if @property 'studded armor' 'found' and @property '10' 'found';moveitem 'found' '10studdedarmor';elseif @property 'studded armor' 'found' and @property '15' 'found';moveitem 'found' '15studdedarmor';elseif @property 'studded bustier' 'found' and @property '10' 'found';moveitem 'found' '10studdedbustier';elseif @property 'studded bustier' 'found' and @property '15' 'found';moveitem 'found' '15studdedbustier';endif;endif;elseif not @property 'exceptional' 'found';//shouldn't have these;endif;elseif @property 'shoes' 'found' or @property 'sandals' 'found';if not @property 'large' 'found';moveitem 'found' 'resets';sysmsg 'Reset';else;moveitem 'found' 'Trash Barrel';sysmsg 'Trash';endif;elseif @property 'boots' 'found' and not @property 'thigh' 'found';if not @property 'large' 'found';moveitem 'found' 'resets';sysmsg 'Reset';else;moveitem 'found' 'Trash Barrel';sysmsg 'Trash';endif;//town crier ex 20;elseif @property 'feathered hat' 'found' or @property 'surcoat' 'found';if @property '20' 'found' and @property 'exceptional' 'found';sysmsg 'CBD' 53;if @property 'large' 'found';if @property 'Contents' 'lbodcrier' &lt; CBDclothamount[0];moveitem 'found' 'lbodcrier';else;moveitem 'found' 'Trash Barrel';sysmsg 'Trash';endif;elseif @property 'feathered hat' 'found';if @property 'Contents' 'featheredhat' &lt; CBDclothamount[0];moveitem 'found' 'featheredhat';else;moveitem 'found' 'resets';sysmsg 'CBD Reset';endif;elseif @property 'surcoat' 'found';if @property 'Contents' 'surcoat' &lt; CBDclothamount[0];moveitem 'found' 'surcoat';else;moveitem 'found' 'resets';sysmsg 'CBD Reset';endif;endif;elseif not @property 'large' 'found';moveitem 'found' 'resets';sysmsg 'Reset';else;moveitem 'found' 'Trash Barrel';sysmsg 'Trash';endif;elseif @property 'fancy shirt' 'found' or @property 'short pants' 'found';if @property '20' 'found' and @property 'exceptional' 'found';sysmsg 'CBD' 53;if @property 'fancy shirt' 'found';if @property 'Contents' 'fancyshirt' &lt; CBDclothamount[0];moveitem 'found' 'fancyshirt';else;moveitem 'found' 'resets';sysmsg 'CBD Reset';endif;elseif @property 'short pants' 'found';if @property 'Contents' 'shortpants' &lt; CBDclothamount[0];moveitem 'found' 'shortpants';else;moveitem 'found' 'resets';sysmsg 'CBD Reset';endif;endif;elseif not @property 'large' 'found';moveitem 'found' 'resets';sysmsg 'Reset';else;moveitem 'found' 'Trash Barrel';sysmsg 'Trash';endif;elseif @property 'thigh boots' 'found' and not @property 'bandana' 'found';if @property '20' 'found' and @property 'exceptional' 'found';sysmsg 'CBD' 53;if @property 'Contents' 'thighboots' &lt; CBDclothamount[0];moveitem 'found' 'thighboots';else;moveitem 'found' 'resets';sysmsg 'CBD Reset';endif;elseif not @property 'large' 'found';moveitem 'found' 'resets';sysmsg 'Reset';else;moveitem 'found' 'Trash Barrel';sysmsg 'Trash';endif;elseif not @property 'large' 'found' and not @property 'bone' 'found';moveitem 'found' 'resets';sysmsg 'Reset';else;moveitem 'found' 'Trash Barrel';sysmsg 'Trash';endif;pause 750;if @findobject 'found' 'any' 'backpack';sysmsg 'Bod didnt sort, pausing and trying again' 34;pause 750;endif;endif;sysmsg '-' 64;endwhile;endif;endfor;pause 2000;//;//;//;//;//after sort;if @injournal 'world will save';while not @injournal 'world save complete';endwhile;@clearjournal;endif;//make room by temporarily placing other books on ground;clearignorelist;@unsetalias 'setaside1';@unsetalias 'setaside2';if not x == 1176 and y == 2790;sysmsg 'stand on the goza';stop;endif;if counttype 0x2259 'any' 'backpack' &lt;= 2;while @findtype 0x2259 'any' 'backpack';if not @findalias 'setaside1';@setalias 'setaside1' 'found';elseif not @findalias 'setaside2';@setalias 'setaside2' 'found';endif;ignoreobject 'found';endwhile;@moveitemoffset 'setaside1' 'ground' (0 1 0);pause 750;@moveitemoffset 'setaside2' 'ground' (0 1 0);pause 750;else;sysmsg 'Too many bod books in your pack to run this macro.' 34;if @findalias 'setaside1' or @findalias 'setaside2';moveitem 'setaside1' 'backpack';pause 750;moveitem 'setaside2' 'backpack';pause 750;endif;stop;endif;if @injournal 'world will save';while not @injournal 'world save complete';endwhile;@clearjournal;endif;//Valorite;if not counttype 0x2259 0 'Valorite' > 0;useobject 'Valorite';pause 750;endif;sysmsg 'Valorite' 95;if @findtype 0x2258 'any' 'Valorite';if findtype 0x2259 0 'Valorite';@setalias 'ResetBook' 'found';@moveitem 'ResetBook' 'backpack' 0 0 0;pause 750;while @findtype 0x2258 'any' 'Valorite' and @property 'Deeds in Book' 'ResetBook' &lt; 500;moveitem 'found' 'ResetBook' 0 0 0;endwhile;pause 750;while @findobject 'ResetBook' 'any' 'backpack';moveitem 'ResetBook' 'Valorite';pause 750;endwhile;else;sysmsg 'Need a bod book in the Valorite Container' 34;endif;if @property 'Deeds in Book' 'ResetBook' == 500;sysmsg 'VALORITE BOOK FULL' 33;endif;endif;//Verite;sysmsg 'Verite' 79;if not counttype 0x2259 0 'Verite' > 0;useobject 'Verite';pause 750;endif;if @findtype 0x2258 'any' 'Verite';if findtype 0x2259 0 'Verite';@setalias 'ResetBook' 'found';@moveitem 'ResetBook' 'backpack' 0 0 0;pause 750;while @findtype 0x2258 'any' 'Verite' and @property 'Deeds in Book' 'ResetBook' &lt; 500;moveitem 'found' 'ResetBook' 0 0 0;endwhile;pause 750;while @findobject 'ResetBook' 'any' 'backpack';moveitem 'ResetBook' 'Verite';pause 750;endwhile;else;sysmsg 'Need a bod book in the Verite Container' 34;endif;if @property 'Deeds in Book' 'ResetBook' == 500;sysmsg 'VERITE BOOK FULL' 33;endif;endif;//Agapite;sysmsg 'Agapite' 36;if not counttype 0x2259 0 'Agapite' > 0;useobject 'Agapite';pause 750;endif;if @findtype 0x2258 'any' 'Agapite';if findtype 0x2259 0 'Agapite';@setalias 'ResetBook' 'found';@moveitem 'ResetBook' 'backpack' 0 0 0;pause 750;while @findtype 0x2258 'any' 'Agapite' and @property 'Deeds in Book' 'ResetBook' &lt; 500;moveitem 'found' 'ResetBook' 0 0 0;endwhile;pause 750;while @findobject 'ResetBook' 'any' 'backpack';moveitem 'ResetBook' 'Agapite';pause 750;endwhile;else;sysmsg 'Need a bod book in the Agapite Container' 34;endif;if @property 'Deeds in Book' 'ResetBook' == 500;sysmsg 'AGAPITE BOOK FULL' 33;endif;endif;if @injournal 'world will save';while not @injournal 'world save complete';endwhile;@clearjournal;endif;//Gold;sysmsg 'Gold' 252;if @property 'Contents' 'gold1' > 0;useobject 'gold1';pause 750;useobject 'gold2';pause 750;if @findtype 0x2258 'any' 'gold1';if findtype 0x2259 0 'gold2';@setalias 'ResetBook' 'found';@moveitem 'ResetBook' 'backpack' 0 0 0;pause 750;while @findtype 0x2258 'any' 'gold1' and @property 'Deeds in Book' 'ResetBook' &lt; 500;moveitem 'found' 'ResetBook' 0 0 0;endwhile;pause 750;while @findobject 'ResetBook' 'any' 'backpack';moveitem 'ResetBook' 'gold2';pause 750;endwhile;else;sysmsg 'Need a bod book in the Gold Container' 34;endif;endif;if @property 'Deeds in Book' 'ResetBook' == 500;sysmsg 'GOLD BOOK FULL' 33;endif;endif;//Bronze;sysmsg 'Bronze' 249;if @property 'Contents' 'bronze1' > 0;useobject 'bronze1';pause 750;useobject 'bronze2';pause 750;if @findtype 0x2258 'any' 'bronze1';if findtype 0x2259 0 'bronze2';@setalias 'ResetBook' 'found';@moveitem 'ResetBook' 'backpack' 0 0 0;pause 750;while @findtype 0x2258 'any' 'bronze1' and @property 'Deeds in Book' 'ResetBook' &lt; 500;moveitem 'found' 'ResetBook' 0 0 0;endwhile;pause 750;while @findobject 'ResetBook' 'any' 'backpack';moveitem 'ResetBook' 'bronze2';pause 750;endwhile;else;sysmsg 'Need a bod book in the Bronze Container' 34;endif;endif;if @injournal 'world will save';while not @injournal 'world save complete';endwhile;@clearjournal;endif;if @property 'Deeds in Book' 'ResetBook' == 500;sysmsg 'BRONZE BOOK FULL' 33;endif;endif;//Copper;sysmsg 'Copper' 242;if @property 'Contents' 'copper1' > 0;useobject 'copper1';pause 750;useobject 'copper2';pause 750;if @findtype 0x2258 'any' 'copper1';if findtype 0x2259 0 'copper2';@setalias 'ResetBook' 'found';@moveitem 'ResetBook' 'backpack' 0 0 0;pause 750;while @findtype 0x2258 'any' 'copper1' and @property 'Deeds in Book' 'ResetBook' &lt; 500;moveitem 'found' 'ResetBook' 0 0 0;endwhile;pause 750;while @findobject 'ResetBook' 'any' 'backpack';moveitem 'ResetBook' 'copper2';pause 750;endwhile;else;sysmsg 'Need a bod book in the Copper Container' 34;endif;endif;if @property 'Deeds in Book' 'ResetBook' == 500;sysmsg 'COPPER BOOK FULL' 33;endif;endif;//+60;sysmsg '+60' 34;if not counttype 0x2259 0 '+60' > 0;useobject '+60';pause 750;endif;if @findtype 0x2258 'any' '+60';if findtype 0x2259 0 '+60';@setalias 'ResetBook' 'found';@moveitem 'ResetBook' 'backpack' 0 0 0;pause 750;while @findtype 0x2258 'any' '+60' and @property 'Deeds in Book' 'ResetBook' &lt; 500;moveitem 'found' 'ResetBook' 0 0 0;endwhile;pause 750;while @findobject 'ResetBook' 'any' 'backpack';moveitem 'ResetBook' '+60';pause 750;endwhile;else;sysmsg 'Need a bod book in the +60 Container' 34;endif;if @property 'Deeds in Book' 'ResetBook' == 500;sysmsg '+60 ASH BOOK FULL' 33;endif;endif;if @injournal 'world will save';while not @injournal 'world save complete';endwhile;@clearjournal;endif;//+30;sysmsg '+30' 73;if not counttype 0x2259 0 '+30' > 0;useobject '+30';pause 750;endif;if @findtype 0x2258 'any' '+30';if findtype 0x2259 0 '+30';@setalias 'ResetBook' 'found';@moveitem 'ResetBook' 'backpack' 0 0 0;pause 750;while @findtype 0x2258 'any' '+30' and @property 'Deeds in Book' 'ResetBook' &lt; 500;moveitem 'found' 'ResetBook' 0 0 0;endwhile;pause 750;while @findobject 'ResetBook' 'any' 'backpack';moveitem 'ResetBook' '+30';pause 750;endwhile;else;sysmsg 'Need a bod book in the +30 Container' 34;endif;if @property 'Deeds in Book' 'ResetBook' == 500;sysmsg '+30 ASH BOOK FULL' 33;endif;endif;if @injournal 'world will save';while not @injournal 'world save complete';endwhile;@clearjournal;endif;//+15;sysmsg '+15' 20;if @property 'Contents' '+151' > 0;useobject '+151';pause 750;useobject '+152';pause 750;if @findtype 0x2258 'any' '+151';if findtype 0x2259 0 '+152';@setalias 'ResetBook' 'found';@moveitem 'ResetBook' 'backpack' 0 0 0;pause 750;while @findtype 0x2258 'any' '+151' and @property 'Deeds in Book' 'ResetBook' &lt; 500;moveitem 'found' 'ResetBook' 0 0 0;endwhile;pause 750;while @findobject 'ResetBook' 'any' 'backpack';moveitem 'ResetBook' '+152';pause 750;endwhile;else;sysmsg 'Need a bod book in the +15 Container' 34;endif;endif;if @property 'Deeds in Book' 'ResetBook' == 500;sysmsg '+15 ASH BOOK FULL' 33;endif;if @injournal 'world will save';while not @injournal 'world save complete';endwhile;@clearjournal;endif;endif;//BronzeSmall;sysmsg 'Bronze Small' 88;if not counttype 0x2259 0 'BronzeSmall' > 0;useobject 'BronzeSmall';pause 750;endif;if @findtype 0x2258 'any' 'BronzeSmall';if findtype 0x2259 0 'BronzeSmall';@setalias 'ResetBook' 'found';@moveitem 'ResetBook' 'backpack' 0 0 0;pause 750;while @findtype 0x2258 'any' 'BronzeSmall' and @property 'Deeds in Book' 'ResetBook' &lt; 500;moveitem 'found' 'ResetBook' 0 0 0;endwhile;pause 750;while @findobject 'ResetBook' 'any' 'backpack';moveitem 'ResetBook' 'BronzeSmall';pause 750;endwhile;else;sysmsg 'Need a bod book in the BronzeSmall Container' 34;endif;if @property 'Deeds in Book' 'ResetBook' == 500;sysmsg 'BRONZE SMALL BOD BOOK FULL' 33;endif;endif;if @injournal 'world will save';while not @injournal 'world save complete';endwhile;@clearjournal;endif;//CopperSmall;sysmsg 'Copper Small' 88;if not counttype 0x2259 0 'CopperSmall' > 0;useobject 'CopperSmall';pause 750;endif;if @findtype 0x2258 'any' 'CopperSmall';if findtype 0x2259 0 'CopperSmall';@setalias 'ResetBook' 'found';@moveitem 'ResetBook' 'backpack' 0 0 0;pause 750;while @findtype 0x2258 'any' 'CopperSmall' and @property 'Deeds in Book' 'ResetBook' &lt; 500;moveitem 'found' 'ResetBook' 0 0 0;endwhile;pause 750;while @findobject 'ResetBook' 'any' 'backpack';moveitem 'ResetBook' 'CopperSmall';pause 750;endwhile;else;sysmsg 'Need a bod book in the CopperSmall Container' 34;endif;if @property 'Deeds in Book' 'ResetBook' == 500;sysmsg 'COPPER SMALL BOD BOOK FULL' 33;endif;endif;if @injournal 'world will save';while not @injournal 'world save complete';endwhile;@clearjournal;endif;//ShadowSmall;sysmsg 'Shadow Small' 88;if not counttype 0x2259 0 'ShadowSmall' > 0;useobject 'ShadowSmall';pause 750;endif;if @findtype 0x2258 'any' 'ShadowSmall';if findtype 0x2259 0 'ShadowSmall';@setalias 'ResetBook' 'found';@moveitem 'ResetBook' 'backpack' 0 0 0;pause 750;while @findtype 0x2258 'any' 'ShadowSmall' and @property 'Deeds in Book' 'ResetBook' &lt; 500;moveitem 'found' 'ResetBook' 0 0 0;endwhile;pause 750;while @findobject 'ResetBook' 'any' 'backpack';moveitem 'ResetBook' 'ShadowSmall';pause 750;endwhile;else;sysmsg 'Need a bod book in the ShadowSmall Container' 34;endif;if @property 'Deeds in Book' 'ResetBook' == 500;sysmsg 'SHADOW SMALL BOD BOOK FULL' 33;endif;endif;if @injournal 'world will save';while not @injournal 'world save complete';endwhile;@clearjournal;endif;//POF;sysmsg 'POF' 88;if @property 'Contents' 'POF1' > 0;useobject 'POF1';pause 750;useobject 'POF2';pause 750;if @findtype 0x2258 'any' 'POF1';if findtype 0x2259 0 'POF2';@setalias 'ResetBook' 'found';@moveitem 'ResetBook' 'backpack' 0 0 0;pause 750;while @findtype 0x2258 'any' 'POF1' and @property 'Deeds in Book' 'ResetBook' &lt; 500;moveitem 'found' 'ResetBook' 0 0 0;endwhile;pause 750;while @findobject 'ResetBook' 'any' 'backpack';moveitem 'ResetBook' 'POF2';pause 750;endwhile;else;sysmsg 'Need a bod book in the PoF Container' 34;endif;endif;if @property 'Deeds in Book' 'ResetBook' == 500;sysmsg 'POF BOOK FULL' 33;endif;if @injournal 'world will save';while not @injournal 'world save complete';endwhile;@clearjournal;endif;endif;//120;sysmsg '120' 2498;if not counttype 0x2259 0 '120' > 0;useobject '120';pause 750;endif;if @findtype 0x2258 'any' '120';if findtype 0x2259 0 '120';@setalias 'ResetBook' 'found';@moveitem 'ResetBook' 'backpack' 0 0 0;pause 750;while @findtype 0x2258 'any' '120' and @property 'Deeds in Book' 'ResetBook' &lt; 500;moveitem 'found' 'ResetBook' 0 0 0;endwhile;pause 750;while @findobject 'ResetBook' 'any' 'backpack';moveitem 'ResetBook' '120';pause 750;endwhile;else;sysmsg 'Need a bod book in the 120 Container' 34;endif;if @property 'Deeds in Book' 'ResetBook' == 500;sysmsg '120 BOOK FULL' 33;endif;endif;if @injournal 'world will save';while not @injournal 'world save complete';endwhile;@clearjournal;endif;//BRSK;sysmsg 'BRSK' 168;if @property 'Contents' 'brsk1' > 0;useobject 'BRSK1';pause 750;useobject 'BRSK2';pause 750;if @findtype 0x2258 'any' 'BRSK1';if findtype 0x2259 0 'BRSK2';@setalias 'ResetBook' 'found';@moveitem 'ResetBook' 'backpack' 0 0 0;pause 750;while @findtype 0x2258 'any' 'BRSK1' and @property 'Deeds in Book' 'ResetBook' &lt; 500;moveitem 'found' 'ResetBook' 0 0 0;endwhile;pause 750;while @findobject 'ResetBook' 'any' 'backpack';moveitem 'ResetBook' 'BRSK2';pause 750;endwhile;else;sysmsg 'Need a bod book in the BRSK Container' 34;endif;endif;if @property 'Deeds in Book' 'ResetBook' == 500;sysmsg 'BRSK BOOK FULL' 33;endif;if @injournal 'world will save';while not @injournal 'world save complete';endwhile;@clearjournal;endif;endif;//HRSK;sysmsg 'HRSK' 34;if @property 'Contents' 'hrsk1' > 0;useobject 'HRSK1';pause 750;useobject 'HRSK2';pause 750;if @findtype 0x2258 'any' 'HRSK1';if findtype 0x2259 0 'HRSK2';@setalias 'ResetBook' 'found';@moveitem 'ResetBook' 'backpack' 0 0 0;pause 750;while @findtype 0x2258 'any' 'HRSK1' and @property 'Deeds in Book' 'ResetBook' &lt; 500;moveitem 'found' 'ResetBook' 0 0 0;endwhile;pause 750;while @findobject 'ResetBook' 'any' 'backpack';moveitem 'ResetBook' 'HRSK2';pause 750;endwhile;else;sysmsg 'Need a bod book in the HRSK Container' 34;endif;endif;if @property 'Deeds in Book' 'ResetBook' == 500;sysmsg 'HRSK BOOK FULL' 33;endif;if @injournal 'world will save';while not @injournal 'world save complete';endwhile;@clearjournal;endif;endif;if @findalias 'setaside1' or @findalias 'setaside2';for 5;if @findalias 'setaside1' and not @findobject 'setaside1' 'any' 'backpack';moveitem 'setaside1' 'backpack';pause 2000;endif;if @findalias 'setaside2' and not @findobject 'setaside2' 'any' 'backpack';moveitem 'setaside2' 'backpack';pause 2000;endif;if @findobject 'setaside1' 'any' 'backpack' and @findobject 'setaside2' 'any' 'backpack';@unsetalias 'setaside1';@unsetalias 'setaside2';endif;endfor;endif;@playmacro 'Turn In Get New Book';</macro>
  145. <macro loop="False" name="Turn In Get New Book" interrupt="True">//list also maintained in BS Loop and Tailor Loop;//account 1;if serial 'self' == 0x68607;@setalias 'beetle' 0x119ca1;@setalias 'turninrunebook' 0x40d01398;//account 2;elseif serial 'self' == 0x1d81b0;@setalias 'beetle' 0xf4206;@setalias 'turninrunebook' 0x411b35f0;//account 3;elseif serial 'self' == 0x3090d;@setalias 'beetle' 0x1372cf;@setalias 'turninrunebook' 0x40c9bad4;//account 4;elseif serial 'self' == 0xb29bf;@setalias 'beetle' 0xe2b69;@setalias 'turninrunebook' 0x40d010df;else;sysmsg 'I dont have your serial for the beetle/runebook list' 34;stop;endif;clearignorelist;//4 multicolored bags NE of goza;@setalias 'redbag' 0x42ac29a8;@setalias 'bluebag' 0x42ac29a5;@setalias 'greenbag' 0x42c77268;@setalias 'purplebag' 0x42ac299c;//white bags;@setalias 'Done1' 0x42c86fe5;@setalias 'Done2' 0x42c77267;@setalias 'Done3' 0x42c77264;@setalias 'Done4' 0x42c77265;@setalias 'Done5' 0x42c7726c;@setalias 'Done6' 0x42c77270;@setalias 'Done7' 0x42c77260;@setalias 'Done8' 0x42c77262;@setalias 'Done9' 0x42c7726a;@setalias 'Done10' 0x42c7726d;@setalias 'Done11' 0x401783cf;@setalias 'Done12' 0x401783ca;@setalias 'Done13' 0x401783c8;@setalias 'Done14' 0x401783c6;@setalias 'Done15' 0x401783cb;@setalias 'Done16' 0x401783cd;@setalias 'Done17' 0x401783bf;@setalias 'Done18' 0x401783c7;@setalias 'Done19' 0x401783be;@setalias 'Done20' 0x401783cc;@setalias 'Done21' 0x42ce1326;@setalias 'Done22' 0x42ce1329;@setalias 'Done23' 0x42ce34d4;@setalias 'Done24' 0x42ce1323;@setalias 'Done25' 0x42ce1320;@setalias 'Done26' 0x42ce131d;@setalias 'Done27' 0x42ce34d7;@setalias 'Done28' 0x42ce131f;@setalias 'Done29' 0x42ce131e;@setalias 'Done30' 0x42ce131a;@setalias 'Done31' 0x42ce34d8;@setalias 'Done32' 0x42ce132a;@setalias 'Done33' 0x42ce1328;@setalias 'Done34' 0x42ce1324;@setalias 'Done35' 0x42ce132b;@setalias 'Done36' 0x42ce132c;@setalias 'Done37' 0x42ce1327;@setalias 'Done38' 0x42ce1322;@setalias 'Done39' 0x42ce1321;@setalias 'Done40' 0x42ce1325;//black bags;@setalias 'Queue1' 0x42c77266;@setalias 'Queue2' 0x42c77272;@setalias 'Queue3' 0x42c7725f;@setalias 'Queue4' 0x42c77269;@setalias 'Queue5' 0x42c7726b;@setalias 'Queue6' 0x42c7726f;@setalias 'Queue7' 0x42c7726e;@setalias 'Queue8' 0x42c77274;@setalias 'Queue9' 0x42c77273;@setalias 'Queue10' 0x42c77263;@setalias 'Queue11' 0x401783c1;@setalias 'Queue12' 0x401783d2;@setalias 'Queue13' 0x401783d6;@setalias 'Queue14' 0x401783c9;@setalias 'Queue15' 0x401783ce;@setalias 'Queue16' 0x401783bd;@setalias 'Queue17' 0x401783d3;@setalias 'Queue18' 0x401783c5;@setalias 'Queue19' 0x401783c0;@setalias 'Queue20' 0x401783d0;@setalias 'Queue21' 0x42ce34e0;@setalias 'Queue22' 0x42ce34dd;@setalias 'Queue23' 0x42ce34d0;@setalias 'Queue24' 0x42ce34d6;@setalias 'Queue25' 0x42ce34cd;@setalias 'Queue26' 0x42ce34da;@setalias 'Queue27' 0x42ce34d5;@setalias 'Queue28' 0x42ce34ce;@setalias 'Queue29' 0x42ce131b;@setalias 'Queue30' 0x42ce34d2;@setalias 'Queue31' 0x42ce34cf;@setalias 'Queue32' 0x42ce1319;@setalias 'Queue33' 0x42ce131c;@setalias 'Queue34' 0x42ce34d9;@setalias 'Queue35' 0x42ce34dc;@setalias 'Queue36' 0x42ce34d3;@setalias 'Queue37' 0x42ce34df;@setalias 'Queue38' 0x42ce34d1;@setalias 'Queue39' 0x42ce34de;@setalias 'Queue40' 0x42ce34db;if @injournal 'world will save';while not @injournal 'world save complete';endwhile;@clearjournal;endif;pause 1000;if @property 'Deeds in Book' 'resets' &lt;= 20;pause 1000;useobject 'resets';pause 1000;waitforgump 0x54f555df 1500;if @ingump 0x54f555df 'Iron';if @property 'Contents' 'greenbag' &lt;= 115;moveitem 'resets' 'greenbag';elseif @property 'Contents' 'purplebag' &lt;= 115;moveitem 'resets' 'purplebag';endif;else;if @property 'Contents' 'redbag' &lt;= 115;moveitem 'resets' 'redbag';elseif @property 'Contents' 'bluebag' &lt;= 115;moveitem 'resets' 'bluebag';endif;endif;pause 1000;endif;if @injournal 'world will save';while not @injournal 'world save complete';endwhile;@clearjournal;endif;//center goza X-4;while x > 1172;walk 'west';pause 550;endwhile;if @injournal 'world will save';while not @injournal 'world save complete';endwhile;@clearjournal;endif;pause 1000;///;if @property 'Deeds in Book' 'resets' > 400;//needs 100;if @property 'Contents' 'Queue1' &lt; 24;moveitem 'resets' 'Queue1';pause 750;elseif @property 'Contents' 'Queue2' &lt; 24;moveitem 'resets' 'Queue2';pause 750;elseif @property 'Contents' 'Queue3' &lt; 24;moveitem 'resets' 'Queue3';pause 750;elseif @property 'Contents' 'Queue4' &lt; 24;moveitem 'resets' 'Queue4';pause 750;elseif @property 'Contents' 'Queue5' &lt; 24;moveitem 'resets' 'Queue5';pause 750;elseif @property 'Contents' 'Queue6' &lt; 24;moveitem 'resets' 'Queue6';pause 750;elseif @property 'Contents' 'Queue7' &lt; 24;moveitem 'resets' 'Queue7';pause 750;elseif @property 'Contents' 'Queue8' &lt; 24;moveitem 'resets' 'Queue8';pause 750;elseif @property 'Contents' 'Queue9' &lt; 24;moveitem 'resets' 'Queue9';pause 750;elseif @property 'Contents' 'Queue10' &lt; 24;moveitem 'resets' 'Queue10';pause 750;elseif @property 'Contents' 'Queue11' &lt; 24;moveitem 'resets' 'Queue11';pause 750;elseif @property 'Contents' 'Queue12' &lt; 24;moveitem 'resets' 'Queue12';pause 750;elseif @property 'Contents' 'Queue13' &lt; 24;moveitem 'resets' 'Queue13';pause 750;elseif @property 'Contents' 'Queue14' &lt; 24;moveitem 'resets' 'Queue14';pause 750;elseif @property 'Contents' 'Queue15' &lt; 24;moveitem 'resets' 'Queue15';pause 750;elseif @property 'Contents' 'Queue16' &lt; 24;moveitem 'resets' 'Queue16';pause 750;elseif @property 'Contents' 'Queue17' &lt; 24;moveitem 'resets' 'Queue17';pause 750;elseif @property 'Contents' 'Queue18' &lt; 24;moveitem 'resets' 'Queue18';pause 750;elseif @property 'Contents' 'Queue19' &lt; 24;moveitem 'resets' 'Queue19';pause 750;elseif @property 'Contents' 'Queue20' &lt; 24;moveitem 'resets' 'Queue20';pause 750;elseif @property 'Contents' 'Queue21' &lt; 24;moveitem 'resets' 'Queue21';pause 750;elseif @property 'Contents' 'Queue22' &lt; 24;moveitem 'resets' 'Queue22';pause 750;elseif @property 'Contents' 'Queue23' &lt; 24;moveitem 'resets' 'Queue23';pause 750;elseif @property 'Contents' 'Queue24' &lt; 24;moveitem 'resets' 'Queue24';pause 750;elseif @property 'Contents' 'Queue25' &lt; 24;moveitem 'resets' 'Queue25';pause 750;elseif @property 'Contents' 'Queue26' &lt; 24;moveitem 'resets' 'Queue26';pause 750;elseif @property 'Contents' 'Queue27' &lt; 24;moveitem 'resets' 'Queue27';pause 750;elseif @property 'Contents' 'Queue28' &lt; 24;moveitem 'resets' 'Queue28';pause 750;elseif @property 'Contents' 'Queue29' &lt; 24;moveitem 'resets' 'Queue29';pause 750;elseif @property 'Contents' 'Queue30' &lt; 24;moveitem 'resets' 'Queue30';pause 750;elseif @property 'Contents' 'Queue31' &lt; 24;moveitem 'resets' 'Queue31';pause 750;elseif @property 'Contents' 'Queue32' &lt; 24;moveitem 'resets' 'Queue32';pause 750;elseif @property 'Contents' 'Queue33' &lt; 24;moveitem 'resets' 'Queue33';pause 750;elseif @property 'Contents' 'Queue34' &lt; 24;moveitem 'resets' 'Queue34';pause 750;elseif @property 'Contents' 'Queue35' &lt; 24;moveitem 'resets' 'Queue35';pause 750;elseif @property 'Contents' 'Queue36' &lt; 24;moveitem 'resets' 'Queue36';pause 750;elseif @property 'Contents' 'Queue37' &lt; 24;moveitem 'resets' 'Queue37';pause 750;elseif @property 'Contents' 'Queue38' &lt; 24;moveitem 'resets' 'Queue38';pause 750;elseif @property 'Contents' 'Queue39' &lt; 24;moveitem 'resets' 'Queue39';pause 750;elseif @property 'Contents' 'Queue40' &lt; 24;moveitem 'resets' 'Queue40';pause 750;endif;elseif @property 'Deeds In Book' 'resets' > 300;//needs 80;if @property 'Contents' 'Queue1' &lt; 44;moveitem 'resets' 'Queue1';pause 750;elseif @property 'Contents' 'Queue2' &lt; 44;moveitem 'resets' 'Queue2';pause 750;elseif @property 'Contents' 'Queue3' &lt; 44;moveitem 'resets' 'Queue3';pause 750;elseif @property 'Contents' 'Queue4' &lt; 44;moveitem 'resets' 'Queue4';pause 750;elseif @property 'Contents' 'Queue5' &lt; 44;moveitem 'resets' 'Queue5';pause 750;elseif @property 'Contents' 'Queue6' &lt; 44;moveitem 'resets' 'Queue6';pause 750;elseif @property 'Contents' 'Queue7' &lt; 44;moveitem 'resets' 'Queue7';pause 750;elseif @property 'Contents' 'Queue8' &lt; 44;moveitem 'resets' 'Queue8';pause 750;elseif @property 'Contents' 'Queue9' &lt; 44;moveitem 'resets' 'Queue9';pause 750;elseif @property 'Contents' 'Queue10' &lt; 44;moveitem 'resets' 'Queue10';pause 750;elseif @property 'Contents' 'Queue11' &lt; 44;moveitem 'resets' 'Queue11';pause 750;elseif @property 'Contents' 'Queue12' &lt; 44;moveitem 'resets' 'Queue12';pause 750;elseif @property 'Contents' 'Queue13' &lt; 44;moveitem 'resets' 'Queue13';pause 750;elseif @property 'Contents' 'Queue14' &lt; 44;moveitem 'resets' 'Queue14';pause 750;elseif @property 'Contents' 'Queue15' &lt; 44;moveitem 'resets' 'Queue15';pause 750;elseif @property 'Contents' 'Queue16' &lt; 44;moveitem 'resets' 'Queue16';pause 750;elseif @property 'Contents' 'Queue17' &lt; 44;moveitem 'resets' 'Queue17';pause 750;elseif @property 'Contents' 'Queue18' &lt; 44;moveitem 'resets' 'Queue18';pause 750;elseif @property 'Contents' 'Queue19' &lt; 44;moveitem 'resets' 'Queue19';pause 750;elseif @property 'Contents' 'Queue20' &lt; 44;moveitem 'resets' 'Queue20';pause 750;elseif @property 'Contents' 'Queue21' &lt; 44;moveitem 'resets' 'Queue21';pause 750;elseif @property 'Contents' 'Queue22' &lt; 44;moveitem 'resets' 'Queue22';pause 750;elseif @property 'Contents' 'Queue23' &lt; 44;moveitem 'resets' 'Queue23';pause 750;elseif @property 'Contents' 'Queue24' &lt; 44;moveitem 'resets' 'Queue24';pause 750;elseif @property 'Contents' 'Queue25' &lt; 44;moveitem 'resets' 'Queue25';pause 750;elseif @property 'Contents' 'Queue26' &lt; 44;moveitem 'resets' 'Queue26';pause 750;elseif @property 'Contents' 'Queue27' &lt; 44;moveitem 'resets' 'Queue27';pause 750;elseif @property 'Contents' 'Queue28' &lt; 44;moveitem 'resets' 'Queue28';pause 750;elseif @property 'Contents' 'Queue29' &lt; 44;moveitem 'resets' 'Queue29';pause 750;elseif @property 'Contents' 'Queue30' &lt; 44;moveitem 'resets' 'Queue30';pause 750;elseif @property 'Contents' 'Queue31' &lt; 44;moveitem 'resets' 'Queue31';pause 750;elseif @property 'Contents' 'Queue32' &lt; 44;moveitem 'resets' 'Queue32';pause 750;elseif @property 'Contents' 'Queue33' &lt; 44;moveitem 'resets' 'Queue33';pause 750;elseif @property 'Contents' 'Queue34' &lt; 44;moveitem 'resets' 'Queue34';pause 750;elseif @property 'Contents' 'Queue35' &lt; 44;moveitem 'resets' 'Queue35';pause 750;elseif @property 'Contents' 'Queue36' &lt; 44;moveitem 'resets' 'Queue36';pause 750;elseif @property 'Contents' 'Queue37' &lt; 44;moveitem 'resets' 'Queue37';pause 750;elseif @property 'Contents' 'Queue38' &lt; 44;moveitem 'resets' 'Queue38';pause 750;elseif @property 'Contents' 'Queue39' &lt; 44;moveitem 'resets' 'Queue39';pause 750;elseif @property 'Contents' 'Queue40' &lt; 44;moveitem 'resets' 'Queue40';pause 750;endif;elseif @property 'Deeds In Book' 'resets' > 200;//needs 60;if @property 'Contents' 'Queue1' &lt; 64;moveitem 'resets' 'Queue1';pause 750;elseif @property 'Contents' 'Queue2' &lt; 64;moveitem 'resets' 'Queue2';pause 750;elseif @property 'Contents' 'Queue3' &lt; 64;moveitem 'resets' 'Queue3';pause 750;elseif @property 'Contents' 'Queue4' &lt; 64;moveitem 'resets' 'Queue4';pause 750;elseif @property 'Contents' 'Queue5' &lt; 64;moveitem 'resets' 'Queue5';pause 750;elseif @property 'Contents' 'Queue6' &lt; 64;moveitem 'resets' 'Queue6';pause 750;elseif @property 'Contents' 'Queue7' &lt; 64;moveitem 'resets' 'Queue7';pause 750;elseif @property 'Contents' 'Queue8' &lt; 64;moveitem 'resets' 'Queue8';pause 750;elseif @property 'Contents' 'Queue9' &lt; 64;moveitem 'resets' 'Queue9';pause 750;elseif @property 'Contents' 'Queue10' &lt; 64;moveitem 'resets' 'Queue10';pause 750;elseif @property 'Contents' 'Queue11' &lt; 64;moveitem 'resets' 'Queue11';pause 750;elseif @property 'Contents' 'Queue12' &lt; 64;moveitem 'resets' 'Queue12';pause 750;elseif @property 'Contents' 'Queue13' &lt; 64;moveitem 'resets' 'Queue13';pause 750;elseif @property 'Contents' 'Queue14' &lt; 64;moveitem 'resets' 'Queue14';pause 750;elseif @property 'Contents' 'Queue15' &lt; 64;moveitem 'resets' 'Queue15';pause 750;elseif @property 'Contents' 'Queue16' &lt; 64;moveitem 'resets' 'Queue16';pause 750;elseif @property 'Contents' 'Queue17' &lt; 64;moveitem 'resets' 'Queue17';pause 750;elseif @property 'Contents' 'Queue18' &lt; 64;moveitem 'resets' 'Queue18';pause 750;elseif @property 'Contents' 'Queue19' &lt; 64;moveitem 'resets' 'Queue19';pause 750;elseif @property 'Contents' 'Queue20' &lt; 64;moveitem 'resets' 'Queue20';pause 750;elseif @property 'Contents' 'Queue21' &lt; 64;moveitem 'resets' 'Queue21';pause 750;elseif @property 'Contents' 'Queue22' &lt; 64;moveitem 'resets' 'Queue22';pause 750;elseif @property 'Contents' 'Queue23' &lt; 64;moveitem 'resets' 'Queue23';pause 750;elseif @property 'Contents' 'Queue24' &lt; 64;moveitem 'resets' 'Queue24';pause 750;elseif @property 'Contents' 'Queue25' &lt; 64;moveitem 'resets' 'Queue25';pause 750;elseif @property 'Contents' 'Queue26' &lt; 64;moveitem 'resets' 'Queue26';pause 750;elseif @property 'Contents' 'Queue27' &lt; 64;moveitem 'resets' 'Queue27';pause 750;elseif @property 'Contents' 'Queue28' &lt; 64;moveitem 'resets' 'Queue28';pause 750;elseif @property 'Contents' 'Queue29' &lt; 64;moveitem 'resets' 'Queue29';pause 750;elseif @property 'Contents' 'Queue30' &lt; 64;moveitem 'resets' 'Queue30';pause 750;elseif @property 'Contents' 'Queue31' &lt; 64;moveitem 'resets' 'Queue31';pause 750;elseif @property 'Contents' 'Queue32' &lt; 64;moveitem 'resets' 'Queue32';pause 750;elseif @property 'Contents' 'Queue33' &lt; 64;moveitem 'resets' 'Queue33';pause 750;elseif @property 'Contents' 'Queue34' &lt; 64;moveitem 'resets' 'Queue34';pause 750;elseif @property 'Contents' 'Queue35' &lt; 64;moveitem 'resets' 'Queue35';pause 750;elseif @property 'Contents' 'Queue36' &lt; 64;moveitem 'resets' 'Queue36';pause 750;elseif @property 'Contents' 'Queue37' &lt; 64;moveitem 'resets' 'Queue37';pause 750;elseif @property 'Contents' 'Queue38' &lt; 64;moveitem 'resets' 'Queue38';pause 750;elseif @property 'Contents' 'Queue39' &lt; 64;moveitem 'resets' 'Queue39';pause 750;elseif @property 'Contents' 'Queue40' &lt; 64;moveitem 'resets' 'Queue40';pause 750;endif;elseif @property 'Deeds In Book' 'resets' > 100;//needs 40;if @property 'Contents' 'Queue1' &lt; 84;moveitem 'resets' 'Queue1';pause 750;elseif @property 'Contents' 'Queue2' &lt; 84;moveitem 'resets' 'Queue2';pause 750;elseif @property 'Contents' 'Queue3' &lt; 84;moveitem 'resets' 'Queue3';pause 750;elseif @property 'Contents' 'Queue4' &lt; 84;moveitem 'resets' 'Queue4';pause 750;elseif @property 'Contents' 'Queue5' &lt; 84;moveitem 'resets' 'Queue5';pause 750;elseif @property 'Contents' 'Queue6' &lt; 84;moveitem 'resets' 'Queue6';pause 750;elseif @property 'Contents' 'Queue7' &lt; 84;moveitem 'resets' 'Queue7';pause 750;elseif @property 'Contents' 'Queue8' &lt; 84;moveitem 'resets' 'Queue8';pause 750;elseif @property 'Contents' 'Queue9' &lt; 84;moveitem 'resets' 'Queue9';pause 750;elseif @property 'Contents' 'Queue10' &lt; 84;moveitem 'resets' 'Queue10';pause 750;elseif @property 'Contents' 'Queue11' &lt; 84;moveitem 'resets' 'Queue11';pause 750;elseif @property 'Contents' 'Queue12' &lt; 84;moveitem 'resets' 'Queue12';pause 750;elseif @property 'Contents' 'Queue13' &lt; 84;moveitem 'resets' 'Queue13';pause 750;elseif @property 'Contents' 'Queue14' &lt; 84;moveitem 'resets' 'Queue14';pause 750;elseif @property 'Contents' 'Queue15' &lt; 84;moveitem 'resets' 'Queue15';pause 750;elseif @property 'Contents' 'Queue16' &lt; 84;moveitem 'resets' 'Queue16';pause 750;elseif @property 'Contents' 'Queue17' &lt; 84;moveitem 'resets' 'Queue17';pause 750;elseif @property 'Contents' 'Queue18' &lt; 84;moveitem 'resets' 'Queue18';pause 750;elseif @property 'Contents' 'Queue19' &lt; 84;moveitem 'resets' 'Queue19';pause 750;elseif @property 'Contents' 'Queue20' &lt; 84;moveitem 'resets' 'Queue20';pause 750;elseif @property 'Contents' 'Queue21' &lt; 84;moveitem 'resets' 'Queue21';pause 750;elseif @property 'Contents' 'Queue22' &lt; 84;moveitem 'resets' 'Queue22';pause 750;elseif @property 'Contents' 'Queue23' &lt; 84;moveitem 'resets' 'Queue23';pause 750;elseif @property 'Contents' 'Queue24' &lt; 84;moveitem 'resets' 'Queue24';pause 750;elseif @property 'Contents' 'Queue25' &lt; 84;moveitem 'resets' 'Queue25';pause 750;elseif @property 'Contents' 'Queue26' &lt; 84;moveitem 'resets' 'Queue26';pause 750;elseif @property 'Contents' 'Queue27' &lt; 84;moveitem 'resets' 'Queue27';pause 750;elseif @property 'Contents' 'Queue28' &lt; 84;moveitem 'resets' 'Queue28';pause 750;elseif @property 'Contents' 'Queue29' &lt; 84;moveitem 'resets' 'Queue29';pause 750;elseif @property 'Contents' 'Queue30' &lt; 84;moveitem 'resets' 'Queue30';pause 750;elseif @property 'Contents' 'Queue31' &lt; 84;moveitem 'resets' 'Queue31';pause 750;elseif @property 'Contents' 'Queue32' &lt; 84;moveitem 'resets' 'Queue32';pause 750;elseif @property 'Contents' 'Queue33' &lt; 84;moveitem 'resets' 'Queue33';pause 750;elseif @property 'Contents' 'Queue34' &lt; 84;moveitem 'resets' 'Queue34';pause 750;elseif @property 'Contents' 'Queue35' &lt; 84;moveitem 'resets' 'Queue35';pause 750;elseif @property 'Contents' 'Queue36' &lt; 84;moveitem 'resets' 'Queue36';pause 750;elseif @property 'Contents' 'Queue37' &lt; 84;moveitem 'resets' 'Queue37';pause 750;elseif @property 'Contents' 'Queue38' &lt; 84;moveitem 'resets' 'Queue38';pause 750;elseif @property 'Contents' 'Queue39' &lt; 84;moveitem 'resets' 'Queue39';pause 750;elseif @property 'Contents' 'Queue40' &lt; 84;moveitem 'resets' 'Queue40';pause 750;endif;else;//needs 20;if @property 'Contents' 'Queue1' &lt; 104;moveitem 'resets' 'Queue1';pause 750;elseif @property 'Contents' 'Queue2' &lt; 104;moveitem 'resets' 'Queue2';pause 750;elseif @property 'Contents' 'Queue3' &lt; 104;moveitem 'resets' 'Queue3';pause 750;elseif @property 'Contents' 'Queue4' &lt; 104;moveitem 'resets' 'Queue4';pause 750;elseif @property 'Contents' 'Queue5' &lt; 104;moveitem 'resets' 'Queue5';pause 750;elseif @property 'Contents' 'Queue6' &lt; 104;moveitem 'resets' 'Queue6';pause 750;elseif @property 'Contents' 'Queue7' &lt; 104;moveitem 'resets' 'Queue7';pause 750;elseif @property 'Contents' 'Queue8' &lt; 104;moveitem 'resets' 'Queue8';pause 750;elseif @property 'Contents' 'Queue9' &lt; 104;moveitem 'resets' 'Queue9';pause 750;elseif @property 'Contents' 'Queue10' &lt; 104;moveitem 'resets' 'Queue10';pause 750;elseif @property 'Contents' 'Queue11' &lt; 104;moveitem 'resets' 'Queue11';pause 750;elseif @property 'Contents' 'Queue12' &lt; 104;moveitem 'resets' 'Queue12';pause 750;elseif @property 'Contents' 'Queue13' &lt; 104;moveitem 'resets' 'Queue13';pause 750;elseif @property 'Contents' 'Queue14' &lt; 104;moveitem 'resets' 'Queue14';pause 750;elseif @property 'Contents' 'Queue15' &lt; 104;moveitem 'resets' 'Queue15';pause 750;elseif @property 'Contents' 'Queue16' &lt; 104;moveitem 'resets' 'Queue16';pause 750;elseif @property 'Contents' 'Queue17' &lt; 104;moveitem 'resets' 'Queue17';pause 750;elseif @property 'Contents' 'Queue18' &lt; 104;moveitem 'resets' 'Queue18';pause 750;elseif @property 'Contents' 'Queue19' &lt; 104;moveitem 'resets' 'Queue19';pause 750;elseif @property 'Contents' 'Queue20' &lt; 104;moveitem 'resets' 'Queue20';pause 750;elseif @property 'Contents' 'Queue21' &lt; 104;moveitem 'resets' 'Queue21';pause 750;elseif @property 'Contents' 'Queue22' &lt; 104;moveitem 'resets' 'Queue22';pause 750;elseif @property 'Contents' 'Queue23' &lt; 104;moveitem 'resets' 'Queue23';pause 750;elseif @property 'Contents' 'Queue24' &lt; 104;moveitem 'resets' 'Queue24';pause 750;elseif @property 'Contents' 'Queue25' &lt; 104;moveitem 'resets' 'Queue25';pause 750;elseif @property 'Contents' 'Queue26' &lt; 104;moveitem 'resets' 'Queue26';pause 750;elseif @property 'Contents' 'Queue27' &lt; 104;moveitem 'resets' 'Queue27';pause 750;elseif @property 'Contents' 'Queue28' &lt; 104;moveitem 'resets' 'Queue28';pause 750;elseif @property 'Contents' 'Queue29' &lt; 104;moveitem 'resets' 'Queue29';pause 750;elseif @property 'Contents' 'Queue30' &lt; 104;moveitem 'resets' 'Queue30';pause 750;elseif @property 'Contents' 'Queue31' &lt; 104;moveitem 'resets' 'Queue31';pause 750;elseif @property 'Contents' 'Queue32' &lt; 104;moveitem 'resets' 'Queue32';pause 750;elseif @property 'Contents' 'Queue33' &lt; 104;moveitem 'resets' 'Queue33';pause 750;elseif @property 'Contents' 'Queue34' &lt; 104;moveitem 'resets' 'Queue34';pause 750;elseif @property 'Contents' 'Queue35' &lt; 104;moveitem 'resets' 'Queue35';pause 750;elseif @property 'Contents' 'Queue36' &lt; 104;moveitem 'resets' 'Queue36';pause 750;elseif @property 'Contents' 'Queue37' &lt; 104;moveitem 'resets' 'Queue37';pause 750;elseif @property 'Contents' 'Queue38' &lt; 104;moveitem 'resets' 'Queue38';pause 750;elseif @property 'Contents' 'Queue39' &lt; 104;moveitem 'resets' 'Queue39';pause 750;elseif @property 'Contents' 'Queue40' &lt; 104;moveitem 'resets' 'Queue40';pause 750;endif;endif;@setalias 'resets' 'booktosort';if @injournal 'world will save';while not @injournal 'world save complete';endwhile;@clearjournal;endif;pause 1000;if @property 'Contents' 'done1' > 0;useobject 'done1';pause 550;endif;if @property 'Contents' 'done2' > 0;useobject 'done2';pause 550;endif;if @property 'Contents' 'done3' > 0;useobject 'done3';pause 550;endif;if @property 'Contents' 'done4' > 0;useobject 'done4';pause 550;endif;if @property 'Contents' 'done5' > 0;useobject 'done5';pause 550;endif;if @property 'Contents' 'done6' > 0;useobject 'done6';pause 550;endif;if @property 'Contents' 'done7' > 0;useobject 'done7';pause 550;endif;if @property 'Contents' 'done8' > 0;useobject 'done8';pause 550;endif;if @property 'Contents' 'done9' > 0;useobject 'done9';pause 550;endif;if @property 'Contents' 'done10' > 0;useobject 'done10';pause 550;endif;if @injournal 'world will save';while not @injournal 'world save complete';endwhile;@clearjournal;endif;if @property 'Contents' 'done11' > 0;useobject 'done11';pause 550;endif;if @property 'Contents' 'done12' > 0;useobject 'done12';pause 550;endif;if @property 'Contents' 'done13' > 0;useobject 'done13';pause 550;endif;if @property 'Contents' 'done14' > 0;useobject 'done14';pause 550;endif;if @property 'Contents' 'done15' > 0;useobject 'done15';pause 550;endif;if @property 'Contents' 'done16' > 0;useobject 'done16';pause 550;endif;if @property 'Contents' 'done17' > 0;useobject 'done17';pause 550;endif;if @property 'Contents' 'done18' > 0;useobject 'done18';pause 550;endif;if @property 'Contents' 'done19' > 0;useobject 'done19';pause 550;endif;if @property 'Contents' 'done20' > 0;useobject 'done20';pause 550;endif;if @injournal 'world will save';while not @injournal 'world save complete';endwhile;@clearjournal;endif;if @property 'Contents' 'done21' > 0;useobject 'done21';pause 550;endif;if @property 'Contents' 'done22' > 0;useobject 'done22';pause 550;endif;if @property 'Contents' 'done23' > 0;useobject 'done23';pause 550;endif;if @property 'Contents' 'done24' > 0;useobject 'done24';pause 550;endif;if @property 'Contents' 'done25' > 0;useobject 'done25';pause 550;endif;if @property 'Contents' 'done26' > 0;useobject 'done26';pause 550;endif;if @property 'Contents' 'done27' > 0;useobject 'done27';pause 550;endif;if @property 'Contents' 'done28' > 0;useobject 'done28';pause 550;endif;if @property 'Contents' 'done29' > 0;useobject 'done29';pause 550;endif;if @property 'Contents' 'done30' > 0;useobject 'done30';pause 550;endif;if @injournal 'world will save';while not @injournal 'world save complete';endwhile;@clearjournal;endif;if @property 'Contents' 'done31' > 0;useobject 'done31';pause 550;endif;if @property 'Contents' 'done32' > 0;useobject 'done32';pause 550;endif;if @property 'Contents' 'done33' > 0;useobject 'done33';pause 550;endif;if @property 'Contents' 'done34' > 0;useobject 'done34';pause 550;endif;if @property 'Contents' 'done35' > 0;useobject 'done35';pause 550;endif;if @property 'Contents' 'done36' > 0;useobject 'done36';pause 550;endif;if @property 'Contents' 'done37' > 0;useobject 'done37';pause 550;endif;if @property 'Contents' 'done38' > 0;useobject 'done38';pause 550;endif;if @property 'Contents' 'done39' > 0;useobject 'done39';pause 550;endif;if @property 'Contents' 'done40' > 0;useobject 'done40';pause 550;endif;if @injournal 'world will save';while not @injournal 'world save complete';endwhile;@clearjournal;endif;pause 1000;if @findtype 0x2259 'any' 'Done40';moveitem 'found' 'backpack';pause 550;@setalias 'filledbods' 'found';elseif @findtype 0x2259 'any' 'Done39';moveitem 'found' 'backpack';pause 550;@setalias 'filledbods' 'found';elseif @findtype 0x2259 'any' 'Done38';moveitem 'found' 'backpack';pause 550;@setalias 'filledbods' 'found';elseif @findtype 0x2259 'any' 'Done37';moveitem 'found' 'backpack';pause 550;@setalias 'filledbods' 'found';elseif @findtype 0x2259 'any' 'Done36';moveitem 'found' 'backpack';pause 550;@setalias 'filledbods' 'found';elseif @findtype 0x2259 'any' 'Done35';moveitem 'found' 'backpack';pause 550;@setalias 'filledbods' 'found';elseif @findtype 0x2259 'any' 'Done34';moveitem 'found' 'backpack';pause 550;@setalias 'filledbods' 'found';elseif @findtype 0x2259 'any' 'Done33';moveitem 'found' 'backpack';pause 550;@setalias 'filledbods' 'found';elseif @findtype 0x2259 'any' 'Done32';moveitem 'found' 'backpack';pause 550;@setalias 'filledbods' 'found';elseif @findtype 0x2259 'any' 'Done31';moveitem 'found' 'backpack';pause 550;@setalias 'filledbods' 'found';elseif @findtype 0x2259 'any' 'Done30';moveitem 'found' 'backpack';pause 550;@setalias 'filledbods' 'found';elseif @findtype 0x2259 'any' 'Done29';moveitem 'found' 'backpack';pause 550;@setalias 'filledbods' 'found';elseif @findtype 0x2259 'any' 'Done28';moveitem 'found' 'backpack';pause 550;@setalias 'filledbods' 'found';elseif @findtype 0x2259 'any' 'Done27';moveitem 'found' 'backpack';pause 550;@setalias 'filledbods' 'found';elseif @findtype 0x2259 'any' 'Done26';moveitem 'found' 'backpack';pause 550;@setalias 'filledbods' 'found';elseif @findtype 0x2259 'any' 'Done25';moveitem 'found' 'backpack';pause 550;@setalias 'filledbods' 'found';elseif @findtype 0x2259 'any' 'Done24';moveitem 'found' 'backpack';pause 550;@setalias 'filledbods' 'found';elseif @findtype 0x2259 'any' 'Done23';moveitem 'found' 'backpack';pause 550;@setalias 'filledbods' 'found';elseif @findtype 0x2259 'any' 'Done22';moveitem 'found' 'backpack';pause 550;@setalias 'filledbods' 'found';elseif @findtype 0x2259 'any' 'Done21';moveitem 'found' 'backpack';pause 550;@setalias 'filledbods' 'found';elseif @findtype 0x2259 'any' 'Done20';moveitem 'found' 'backpack';pause 550;@setalias 'filledbods' 'found';elseif @findtype 0x2259 'any' 'Done19';moveitem 'found' 'backpack';pause 550;@setalias 'filledbods' 'found';elseif @findtype 0x2259 'any' 'Done18';moveitem 'found' 'backpack';pause 550;@setalias 'filledbods' 'found';elseif @findtype 0x2259 'any' 'Done17';moveitem 'found' 'backpack';pause 550;@setalias 'filledbods' 'found';elseif @findtype 0x2259 'any' 'Done16';moveitem 'found' 'backpack';pause 550;@setalias 'filledbods' 'found';elseif @findtype 0x2259 'any' 'Done15';moveitem 'found' 'backpack';pause 550;@setalias 'filledbods' 'found';elseif @findtype 0x2259 'any' 'Done14';moveitem 'found' 'backpack';pause 550;@setalias 'filledbods' 'found';elseif @findtype 0x2259 'any' 'Done13';moveitem 'found' 'backpack';pause 550;@setalias 'filledbods' 'found';elseif @findtype 0x2259 'any' 'Done12';moveitem 'found' 'backpack';pause 550;@setalias 'filledbods' 'found';elseif @findtype 0x2259 'any' 'Done11';moveitem 'found' 'backpack';pause 550;@setalias 'filledbods' 'found';elseif @findtype 0x2259 'any' 'Done10';moveitem 'found' 'backpack';pause 550;@setalias 'filledbods' 'found';elseif @findtype 0x2259 'any' 'Done9';moveitem 'found' 'backpack';pause 550;@setalias 'filledbods' 'found';elseif @findtype 0x2259 'any' 'Done8';moveitem 'found' 'backpack';pause 550;@setalias 'filledbods' 'found';elseif @findtype 0x2259 'any' 'Done7';moveitem 'found' 'backpack';pause 550;@setalias 'filledbods' 'found';elseif @findtype 0x2259 'any' 'Done6';moveitem 'found' 'backpack';pause 550;@setalias 'filledbods' 'found';elseif @findtype 0x2259 'any' 'Done5';moveitem 'found' 'backpack';pause 550;@setalias 'filledbods' 'found';elseif @findtype 0x2259 'any' 'Done4';moveitem 'found' 'backpack';pause 550;@setalias 'filledbods' 'found';elseif @findtype 0x2259 'any' 'Done3';moveitem 'found' 'backpack';pause 550;@setalias 'filledbods' 'found';elseif @findtype 0x2259 'any' 'Done2';moveitem 'found' 'backpack';pause 550;@setalias 'filledbods' 'found';elseif @findtype 0x2259 'any' 'Done1';moveitem 'found' 'backpack';pause 550;@setalias 'filledbods' 'found';else;sysmsg 'No books done' 34;@unsetalias 'filledbods';@setalias 'emptybods' 'booktosort';@playmacro 'Take New Book';stop;endif;if @injournal 'world will save';while not @injournal 'world save complete';endwhile;@clearjournal;endif;pause 1000;if counttype 0x2259 0 'backpack' > 2;sysmsg 'Stopping because you have more than 2 bod books in your pack. This could be happening because the castle has filled up' 34;stop;endif;useobject 'filledbods';waitforgump 0x54f555df 2000;replygump 0x54f555df 1;waitforgump 0x968739db 2000;replygump 0x968739db 3;waitforgump 0x968739db 2000;replygump 0x968739db 0;waitforgump 0x54f555df 2000;replygump 0x54f555df 5;waitforgump 0x54f555df 2000;pause 2000;if findtype 0x2258 'any' 'backpack';if color 'found' == 1102;moveitem 'found' 'filledbods';pause 1000;while not @gumpexists 0x554b87f3;useobject 'turninrunebook';waitforgump 0x554b87f3 1500;endwhile;if @findalias 'smithshop3';@unsetalias 'smithshop1';@unsetalias 'smithshop2';@unsetalias 'smithshop3';endif;if not @findalias 'smithshop1';replygump 0x554b87f3 35;@setalias 'smithshop1' 'self';elseif not @findalias 'smithshop2';replygump 0x554b87f3 41;@setalias 'smithshop2' 'self';elseif not @findalias 'smithshop3';replygump 0x554b87f3 47;@setalias 'smithshop3' 'self';endif;while @inrange 'Done1' 10;//if the rune is blocked, pause 2 min to give time for NPCs to move;if @injournal 'blocked' 'system';sysmsg 'Rune blocked, trying a different rune in 10 seconds' 33;pause 10000;@clearjournal;while not @gumpexists 0x554b87f3;useobject 'turninrunebook';waitforgump 0x554b87f3 1500;endwhile;if @findalias 'smithshop3';@unsetalias 'smithshop1';@unsetalias 'smithshop2';@unsetalias 'smithshop3';endif;if not @findalias 'smithshop1';replygump 0x554b87f3 35;@setalias 'smithshop1' 'self';elseif not @findalias 'smithshop2';replygump 0x554b87f3 41;@setalias 'smithshop2' 'self';elseif not @findalias 'smithshop3';replygump 0x554b87f3 47;@setalias 'smithshop3' 'self';endif;pause 2000;endif;endwhile;pause 1000;//navigate into shops;//Skara Brae;if y > 2185 and y &lt; 2199;while x &lt; 623;walk 'east';endwhile;//Jhelom;elseif y > 3695 and y &lt; 3719;while y &lt; 3707;run 'south';endwhile;while x &lt; 1398;run 'east';endwhile;//Nujelm;elseif y > 1176 and y &lt; 1208;while x > 3551;walk 'west';pause 250;endwhile;//Moonglow;elseif y > 1103 and y &lt; 1118;while y > 1111;walk 'north';endwhile;//Serpents Hold;elseif y > 3399 and y &lt; 3421;while y > 3408;run 'north';endwhile;//Trinsic;elseif y > 2757 and y &lt; 2777;while y &lt; 2768;walk 'south';pause 500;endwhile;//Vesper;elseif y > 847 and y &lt; 863;while y > 854;walk 'north';pause 250;endwhile;while x > 2864;walk 'west';pause 250;endwhile;//Zento;elseif y > 1242 and y &lt; 1265;while x > 775;run 'west';endwhile;//Jhelom weaponsmith;elseif y > 3847 and y &lt; 3864;while x > 1422;walk 'west';endwhile;endif;pause 750;if @injournal 'world will save';while not @injournal 'world save complete';endwhile;@clearjournal;endif;//set NPC alias;//Skara Brae;if y > 2185 and y &lt; 2199;@setalias 'blacksmith' 0x7af97;//Jhelom;elseif y > 3695 and y &lt; 3719;@setalias 'blacksmith' 0x77eb5;//Nujelm;elseif y > 1176 and y &lt; 1208;@setalias 'blacksmith' 0x7a9ab;//Moonglow;elseif y > 1103 and y &lt; 1118;@setalias 'blacksmith' 0x17e0d;//Serpents Hold;elseif y > 3399 and y &lt; 3421;@setalias 'blacksmith' 0x4c8ff;//Trinsic;elseif y > 2757 and y &lt; 2777;@setalias 'blacksmith' 0x5b02a;//Vesper;elseif y > 847 and y &lt; 863;@setalias 'blacksmith' 0x7a259;//Zento;elseif y > 1242 and y &lt; 1265;@setalias 'blacksmith' 0x61725;//Jhelom weaponsmith;elseif y > 3847 and y &lt; 3864;@setalias 'blacksmith' 0x1743c;endif;while not @inrange 'blacksmith' 1;if @x 'blacksmith' > x 'self' and @y 'blacksmith' > y 'self';walk 'Southeast';elseif @x 'blacksmith' &lt; x 'self' and @y 'blacksmith' > y 'self';walk 'Southwest';elseif @x 'blacksmith' > x 'self' and @y 'blacksmith' &lt; y 'self';walk 'Northeast';elseif @x 'blacksmith' &lt; x 'self' and @y 'blacksmith' &lt; y 'self';walk 'Northwest';elseif @x 'blacksmith' > x 'self' and @y 'blacksmith' == y 'self';walk 'East';elseif @x 'blacksmith' &lt; x 'self' and @y 'blacksmith' == y 'self';walk 'West';elseif @x 'blacksmith' == x 'self' and @y 'blacksmith' > y 'self';walk 'South';elseif @x 'blacksmith' == x 'self' and @y 'blacksmith' &lt; y 'self';walk 'North';endif;pause 500;if @inrange 'blacksmith' 1;for 3;//call NPC name;//Skara Brae;if y > 2185 and y &lt; 2199;msg 'Sally';//Jhelom;elseif y > 3695 and y &lt; 3719;msg 'Pearce';//Nujelm;elseif y > 1176 and y &lt; 1208;msg 'Seif';//Moonglow;elseif y > 1103 and y &lt; 1118;msg 'Bayta';//Serpents Hold;elseif y > 3399 and y &lt; 3421;msg 'Lysel';//Trinsic;elseif y > 2757 and y &lt; 2777;msg 'Brittany';//Vesper;elseif y > 847 and y &lt; 863;msg 'Tracy';//Zento;elseif y > 1242 and y &lt; 1265;msg 'Sanesue';//Jhelom weaponsmith;elseif y > 3847 and y &lt; 3864;msg 'Mansi';endif;endfor;endif;endwhile;useobject 'self';pause 1000;@playmacro 'Turn In BS Loop';elseif color 'found' == 1155;moveitem 'found' 'filledbods';pause 1000;clearjournal;while not @gumpexists 0x554b87f3;useobject 'turninrunebook';waitforgump 0x554b87f3 1500;endwhile;if @findalias 'tailorshop3';@unsetalias 'tailorshop1';@unsetalias 'tailorshop2';@unsetalias 'tailorshop3';endif;if not @findalias 'tailorshop1';@setalias 'tailorshop1' 'self';replygump 0x554b87f3 17;elseif not @findalias 'tailorshop2';@setalias 'tailorshop2' 'self';replygump 0x554b87f3 23;elseif not @findalias 'tailorshop3';@setalias 'tailorshop3' 'self';replygump 0x554b87f3 29;endif;while @inrange 'Done1' 10;if @injournal 'blocked' 'system';sysmsg 'Rune blocked, trying a different rune in 10 seconds' 33;pause 10000;@clearjournal;while not @gumpexists 0x554b87f3;useobject 'turninrunebook';waitforgump 0x554b87f3 1500;endwhile;if @findalias 'tailorshop3';@unsetalias 'tailorshop1';@unsetalias 'tailorshop2';@unsetalias 'tailorshop3';endif;if not @findalias 'tailorshop1';@setalias 'tailorshop1' 'self';replygump 0x554b87f3 17;elseif not @findalias 'tailorshop2';@setalias 'tailorshop2' 'self';replygump 0x554b87f3 23;elseif not @findalias 'tailorshop3';@setalias 'tailorshop3' 'self';replygump 0x554b87f3 29;endif;pause 2000;endif;endwhile;pause 1000;//navigate into shop;//Nujelm;if y > 1255 and y &lt; 1271;while x > 3770;walk 'west';endwhile;//Jhelom;elseif y > 3775 and y &lt; 3791;while x &lt; 1351;walk 'east';endwhile;//Moonglow;elseif y > 1055 and y &lt; 1072;while x &lt; 4462;run 'east';endwhile;while y &lt; 1063;walk 'south';pause 250;endwhile;//Serpents Hold;elseif y > 3495 and y &lt; 3511;while x &lt; 2884;run 'east';endwhile;while y > 3504;walk 'north';endwhile;//Trinsic;elseif y > 2833 and y &lt; 2850;while y > 2844;walk 'north';pause 250;endwhile;while x > 1984;walk 'west';pause 250;endwhile;//Vesper;elseif y > 866 and y &lt; 888;while y &lt; 886;run 'south';endwhile;while x &lt; 2839;walk 'east';pause 500;endwhile;//Delucia;elseif y > 4013 and y &lt; 4033;while y > 4020;run 'north';endwhile;//Skara Brae;elseif y > 2176 and y &lt; 2198;while y > 2182;run 'north';endwhile;while x &lt; 654;run 'east';endwhile;while y > 2181;walk 'north';pause 500;endwhile;//Zento;elseif y > 1201 and y &lt; 1214;while y > 1204;run 'north';endwhile;endif;//set NPC alias;//Nujelm;if y > 1255 and y &lt; 1271;@setalias 'tailor' 0x7deae;//Jhelom;elseif y > 3775 and y &lt; 3791;@setalias 'tailor' 0x7cdcb;//Moonglow;elseif y > 1055 and y &lt; 1072;@setalias 'tailor' 0x6794f;//serpents hold;elseif y > 3495 and y &lt; 3511;@setalias 'tailor' 0x4c96d;//Trinsic;elseif y > 2833 and y &lt; 2850;@setalias 'tailor' 0x47bc7;//Vesper;elseif y > 866 and y &lt; 888;@setalias 'tailor' 0x801a4;//Delucia;elseif y > 4013 and y &lt; 4033;@setalias 'tailor' 0x7ffaa;//Skara Brae;elseif y > 2176 and y &lt; 2198;@setalias 'tailor' 0x7ea1e;//Zento;elseif y > 1201 and y &lt; 1214;@setalias 'tailor' 0x62a93;endif;pause 750;if @injournal 'world will save';while not @injournal 'world save complete';endwhile;@clearjournal;endif;while not @inrange 'tailor' 1;if @x 'tailor' > x 'self' and @y 'tailor' > y 'self';walk 'Southeast';elseif @x 'tailor' &lt; x 'self' and @y 'tailor' > y 'self';walk 'Southwest';elseif @x 'tailor' > x 'self' and @y 'tailor' &lt; y 'self';walk 'Northeast';elseif @x 'tailor' &lt; x 'self' and @y 'tailor' &lt; y 'self';walk 'Northwest';elseif @x 'tailor' > x 'self' and @y 'tailor' == y 'self';walk 'East';elseif @x 'tailor' &lt; x 'self' and @y 'tailor' == y 'self';walk 'West';elseif @x 'tailor' == x 'self' and @y 'tailor' > y 'self';walk 'South';elseif @x 'tailor' == x 'self' and @y 'tailor' &lt; y 'self';walk 'North';endif;pause 500;if @inrange 'tailor' 1;for 3;//NPC name;//Nujelm;if y > 1255 and y &lt; 1271;msg 'Moon';//Jhelom;elseif y > 3775 and y &lt; 3791;msg 'Annora';//Moonglow;elseif y > 1055 and y &lt; 1072;msg 'Cain';//Serpents Hold;elseif y > 3495 and y &lt; 3511;msg 'Jamie';//Trinsic;elseif y > 2833 and y &lt; 2850;msg 'Caldwell';//Vesper;elseif y > 866 and y &lt; 888;msg 'Pembroke';//Delucia;elseif y > 4013 and y &lt; 4033;msg 'Armstrong';//Skara Brae;elseif y > 2176 and y &lt; 2198;msg 'Ira';//Zento;elseif y > 1201 and y &lt; 1214;msg 'Chihu';endif;endfor;endif;endwhile;useobject 'self';pause 1000;@playmacro 'Turn In Tailor Loop';endif;endif;</macro>
  146. <macro loop="False" name="Turn In Tailor Loop" interrupt="True">if mounted 'self';useobject 'self';pause 1000;endif;//list also maintained in BS Loop and Get New Book;//account 1;if serial 'self' == 0x68607;@setalias 'beetle' 0x119ca1;@setalias 'turninrunebook' 0x40d01398;//account 2;elseif serial 'self' == 0x1d81b0;@setalias 'beetle' 0xf4206;@setalias 'turninrunebook' 0x411b35f0;//account 3;elseif serial 'self' == 0xe21d7;@setalias 'beetle' 0x2b623;@setalias 'turninrunebook' 0x43a8ab43;//account 4;elseif serial 'self' == 0xb29bf;@setalias 'beetle' 0xe2b69;@setalias 'turninrunebook' 0x40d010df;else;sysmsg 'I dont have your serial for the beetle/runebook list' 34;stop;endif;if not timerexists 'turnin';createtimer 'turnin';settimer 'turnin' 10000;endif;if not @findobject 'filledbods' or not @findobject 'newbods';@unsetalias 'filledbods';@unsetalias 'newbods';endif;if serial 'filledbods' == serial 'newbods';@unsetalias 'filledbods';@unsetalias 'newbods';endif;if not @findobject 'filledbods';sysmsg 'Target the Filled Bods book in your backpack' 167;promptalias 'filledbods';endif;if not @findobject 'newbods';sysmsg 'Target the New Bods Book in your backpack' 34;promptalias 'newbods';endif;while @property 'Deeds in Book' 'filledbods' > 0;while hits &lt; maxhits or poisoned 'self';msg 'guards';miniheal 'self';pause 500;endwhile;if counttype 0x2258 1102 'backpack' > 3;sysmsg 'Looks like you have blacksmith bods at the tailor shop. Stopping!' 34;pause 1000;useobject 'beetle';stop;endif;//2 left click "Complete Tailor Bods Book";useobject 'filledbods';pause 1000;//Take Bod Out of the Book;if not @findtype 0x2258 1155 'backpack';replygump 0x54f555df 5;endif;pause 1000;//set NPC alias;//Nujelm;if y > 1255 and y &lt; 1271;@setalias 'tailor' 0x7deae;//Jhelom;elseif y > 3775 and y &lt; 3791;@setalias 'tailor' 0x7cdcb;//Moonglow;elseif y > 1055 and y &lt; 1072;@setalias 'tailor' 0x6794f;//serpents hold;elseif y > 3495 and y &lt; 3511;@setalias 'tailor' 0x4c96d;//Trinsic;elseif y > 2833 and y &lt; 2850;@setalias 'tailor' 0x47bc7;//Vesper;elseif y > 866 and y &lt; 888;@setalias 'tailor' 0x801a4;//Delucia;elseif y > 4013 and y &lt; 4033;@setalias 'tailor' 0x7ffaa;//Skara Brae;elseif y > 2176 and y &lt; 2198;@setalias 'tailor' 0x7ea1e;//Zento;elseif y > 1201 and y &lt; 1214;@setalias 'tailor' 0x62a93;endif;//Move Bod on the NPC;while not @inrange 'tailor' 1;while hits &lt; maxhits or poisoned 'self';msg 'guards';miniheal 'self';pause 500;endwhile;if @x 'tailor' > x 'self' and @y 'tailor' > y 'self';walk 'Southeast';elseif @x 'tailor' &lt; x 'self' and @y 'tailor' > y 'self';walk 'Southwest';elseif @x 'tailor' > x 'self' and @y 'tailor' &lt; y 'self';walk 'Northeast';elseif @x 'tailor' &lt; x 'self' and @y 'tailor' &lt; y 'self';walk 'Northwest';elseif @x 'tailor' > x 'self' and @y 'tailor' == y 'self';walk 'East';elseif @x 'tailor' &lt; x 'self' and @y 'tailor' == y 'self';walk 'West';elseif @x 'tailor' == x 'self' and @y 'tailor' > y 'self';walk 'South';elseif @x 'tailor' == x 'self' and @y 'tailor' &lt; y 'self';walk 'North';endif;pause 500;if @inrange 'tailor' 1;for 3;//NPC name;//Nujelm;if y > 1255 and y &lt; 1271;msg 'Moon';//Jhelom;elseif y > 3775 and y &lt; 3791;msg 'Annora';//Moonglow;elseif y > 1055 and y &lt; 1072;msg 'Cain';//Serpents Hold;elseif y > 3495 and y &lt; 3511;msg 'Jamie';//Trinsic;elseif y > 2833 and y &lt; 2850;msg 'Caldwell';//Vesper;elseif y > 866 and y &lt; 888;msg 'Pembroke';//Delucia;elseif y > 4013 and y &lt; 4033;msg 'Armstrong';//Skara Brae;elseif y > 2176 and y &lt; 2198;msg 'Ira';//Zento;elseif y > 1201 and y &lt; 1214;msg 'Chihu';endif;endfor;endif;endwhile;clearjournal;if @injournal 'world will save';while not @injournal 'world save complete';endwhile;@clearjournal;endif;while timer 'turnin' &lt; 9100;while hits &lt; maxhits or poisoned 'self';msg 'guards';miniheal 'self';pause 500;endwhile;endwhile;movetype '0x2258' 'backpack' 'tailor' 0 0 0 '1155' 1;pause 1000;if @injournal 'have to wait a few seconds';movetype '0x2258' 'backpack' 'tailor' 0 0 0 '1155' 1;pause 1000;endif;@settimer 'turnin' 0;//Ask NPC for a new Bod;waitforcontext 'tailor' 1 15000;pause 750;//stall while GMs around;if @findtype 0x3db 'any' 'ground' 18;while @findtype 0x3db 'any' 'ground' 18;endwhile;//pause 3 minutes after they leave;pause 180000;endif;while hits &lt; maxhits or poisoned 'self';msg 'guards';miniheal 'self';pause 500;endwhile;//Confirm NEW Bod - Small Bod Gump;@replygump 0x9bade6ea 1;//Confirm NEW Bod - Large Bod Gump;@replygump 0xbe0dad1e 1;pause 500;if @injournal 'world will save';while not @injournal 'world save complete';endwhile;@clearjournal;endif;//Move NEW Bod to "New Bods Book";movetype '0x2258' 'backpack' 'newbods' 0 0 0 '1155' 1;pause 1000;while hits &lt; maxhits or poisoned 'self';msg 'guards';miniheal 'self';pause 500;endwhile;if @injournal 'world will save';while not @injournal 'world save complete';endwhile;@clearjournal;endif;//Move NEW Cloth into Beetle;while @findtype 0x1767 'any' 'backpack';usetype 0xfab;pause 1000;target! 'found';pause 1000;moveitem 'found' 'beetle';pause 1000;endwhile;while hits &lt; maxhits or poisoned 'self';msg 'guards';miniheal 'self';pause 500;endwhile;movetype 0xeed 'backpack' 'beetle' 0 0 0 'any';pause 1000;while @findtype 0x170d 'any' 'backpack' 1;movetype 0x170d 'backpack' 'beetle' 0 0 0 'any' 1;pause 550;endwhile;if @property 'weight' 'beetle' > 1400;while not mounted 'self';msg 'all follow me';useobject 'beetle';pause 1000;endwhile;if @injournal 'world will save';while not @injournal 'world save complete';endwhile;@clearjournal;endif;while not @gumpexists 0x554b87f3;useobject 'turninrunebook';waitforgump 0x554b87f3 1500;endwhile;if @findalias 'trashbank3';@unsetalias 'trashbank1';@unsetalias 'trashbank2';@unsetalias 'trashbank3';endif;if not @findalias 'trashbank1';replygump 0x554b87f3 53;@setalias 'trashbank1' 'self';elseif not @findalias 'trashbank2';replygump 0x554b87f3 59;@setalias 'trashbank2' 'self';elseif not @findalias 'trashbank3';replygump 0x554b87f3 65;@setalias 'trashbank3' 'self';endif;while @inrange 'tailor' 10;while hits &lt; maxhits or poisoned 'self';msg 'guards';miniheal 'self';pause 500;endwhile;//if the rune is blocked, try different rune;if @injournal 'blocked' 'system';sysmsg 'Rune blocked, different rune in 10 seconds' 33;pause 10000;@clearjournal;while not @gumpexists 0x554b87f3;useobject 'turninrunebook';waitforgump 0x554b87f3 1500;endwhile;if @findalias 'trashbank3';@unsetalias 'trashbank1';@unsetalias 'trashbank2';@unsetalias 'trashbank3';endif;if not @findalias 'trashbank1';replygump 0x554b87f3 53;@setalias 'trashbank1' 'self';elseif not @findalias 'trashbank2';replygump 0x554b87f3 59;@setalias 'trashbank2' 'self';elseif not @findalias 'trashbank3';replygump 0x554b87f3 65;@setalias 'trashbank3' 'self';endif;pause 2000;endif;endwhile;msg 'bank';pause 250;while mounted 'self';useobject 'self';pause 550;endwhile;waitforproperties 'beetle' 5000;if @property 'bonded' 'beetle';waitforcontext 'beetle' 10 15000;else;waitforcontext 'beetle' 9 15000;endif;while @findtype 0xeed 'any' 'beetle';movetype 0xeed 'beetle' 'bank';pause 550;endwhile;while hits &lt; maxhits or poisoned 'self';msg 'guards';miniheal 'self';pause 500;endwhile;if counttype 0xeed 0 'bank' > 1000000;msg 'check 1000000';endif;while @findtype 0x1767 'any' 'beetle';movetype 0x1767 'beetle' 'bank';pause 550;endwhile;//Umbra trash;if y > 1338 and y &lt; 1352;@setalias 'banktrash' 0x4009b005;elseif y > 1249 and y &lt; 1259;//Zento trash;@setalias 'banktrash' 0x402eceff;//Jhelom Trash;elseif y > 557 and y &lt; 567;@setalias 'banktrash' 0x4001e289;//Moonglow Trash;elseif y > 1154 and y &lt; 1166;@setalias 'banktrash' 0x4044c11b;//Vesper Trash;elseif y > 673 and y &lt; 688;@setalias 'banktrash' 0x4079cd96;//New Haven Trash;elseif y > 2563 and y &lt; 2576;@setalias 'banktrash' 0x404fcbbc;endif;while @findtype 0x170d 'any' 'beetle';movetype 0x170d 'beetle' 'banktrash';pause 550;endwhile;while @findtype 0xfb4 'any' 'beetle';movetype 0xfb4 'beetle' 'banktrash';pause 550;endwhile;while @findtype 0xe86 'any' 'beetle';movetype 0xe86 'beetle' 'banktrash';pause 550;endwhile;while @findtype 0xe85 'any' 'beetle';movetype 0xe85 'beetle' 'banktrash';pause 550;endwhile;while @findtype 0x13d5 'any' 'beetle';movetype 0x13d5 'beetle' 'banktrash';pause 550;endwhile;while @findtype 0x13c6 'any' 'beetle';movetype 0x13c6 'beetle' 'banktrash';pause 550;endwhile;while @findtype 0xf39 'any' 'beetle';movetype 0xf39 'beetle' 'banktrash';pause 550;endwhile;if @injournal 'world will save';while not @injournal 'world save complete';endwhile;@clearjournal;endif;while not mounted 'self';msg 'all follow me';useobject 'beetle';pause 1000;endwhile;while not @gumpexists 0x554b87f3;useobject 'turninrunebook';waitforgump 0x554b87f3 1500;endwhile;if @findalias 'tailorshop3';@unsetalias 'tailorshop1';@unsetalias 'tailorshop2';@unsetalias 'tailorshop3';endif;if not @findalias 'tailorshop1';@setalias 'tailorshop1' 'self';replygump 0x554b87f3 17;elseif not @findalias 'tailorshop2';@setalias 'tailorshop2' 'self';replygump 0x554b87f3 23;elseif not @findalias 'tailorshop3';@setalias 'tailorshop3' 'self';replygump 0x554b87f3 29;endif;while inrange 'banktrash' 10;while hits &lt; maxhits or poisoned 'self';msg 'guards';miniheal 'self';pause 500;endwhile;//if the rune is blocked, try a different rune;if @injournal 'blocked' 'system';sysmsg 'Rune blocked, trying a different rune in 10 seconds' 33;pause 10000;@clearjournal;while not @gumpexists 0x554b87f3;useobject 'turninrunebook';waitforgump 0x554b87f3 1500;endwhile;if @findalias 'tailorshop3';@unsetalias 'tailorshop1';@unsetalias 'tailorshop2';@unsetalias 'tailorshop3';endif;if not @findalias 'tailorshop1';@setalias 'tailorshop1' 'self';replygump 0x554b87f3 17;elseif not @findalias 'tailorshop2';@setalias 'tailorshop2' 'self';replygump 0x554b87f3 23;elseif not @findalias 'tailorshop3';@setalias 'tailorshop3' 'self';replygump 0x554b87f3 29;endif;pause 2000;endif;endwhile;//navigate into shop;//Nujelm;if y > 1255 and y &lt; 1271;while x > 3770;walk 'west';endwhile;//Jhelom;elseif y > 3775 and y &lt; 3791;while x &lt; 1351;walk 'east';endwhile;//Moonglow;elseif y > 1055 and y &lt; 1072;while x &lt; 4462;run 'east';endwhile;while y &lt; 1063;walk 'south';pause 250;endwhile;//Serpents Hold;elseif y > 3495 and y &lt; 3511;while x &lt; 2884;run 'east';endwhile;while y > 3504;walk 'north';endwhile;//Trinsic;elseif y > 2833 and y &lt; 2850;while y > 2844;walk 'north';pause 250;endwhile;while x > 1984;walk 'west';pause 250;endwhile;//Vesper;elseif y > 866 and y &lt; 888;while y &lt; 886;run 'south';endwhile;while x &lt; 2839;walk 'east';pause 500;endwhile;//Delucia;elseif y > 4013 and y &lt; 4033;while y > 4020;run 'north';endwhile;//Skara Brae;elseif y > 2176 and y &lt; 2198;while y > 2182;run 'north';endwhile;while x &lt; 654;run 'east';endwhile;while y > 2181;walk 'north';pause 500;endwhile;//Zento;elseif y > 1201 and y &lt; 1214;while y > 1204;run 'north';endwhile;endif;//set NPC alias;//Nujelm;if y > 1255 and y &lt; 1271;@setalias 'tailor' 0x7deae;//Jhelom;elseif y > 3775 and y &lt; 3791;@setalias 'tailor' 0x7cdcb;//Moonglow;elseif y > 1055 and y &lt; 1072;@setalias 'tailor' 0x6794f;//serpents hold;elseif y > 3495 and y &lt; 3511;@setalias 'tailor' 0x4c96d;//Trinsic;elseif y > 2833 and y &lt; 2850;@setalias 'tailor' 0x47bc7;//Vesper;elseif y > 866 and y &lt; 888;@setalias 'tailor' 0x801a4;//Delucia;elseif y > 4013 and y &lt; 4033;@setalias 'tailor' 0x7ffaa;//Skara Brae;elseif y > 2176 and y &lt; 2198;@setalias 'tailor' 0x7ea1e;//Zento;elseif y > 1201 and y &lt; 1214;@setalias 'tailor' 0x62a93;endif;pause 750;while not @inrange 'tailor' 1;while hits &lt; maxhits or poisoned 'self';msg 'guards';miniheal 'self';pause 500;endwhile;if @x 'tailor' > x 'self' and @y 'tailor' > y 'self';walk 'Southeast';elseif @x 'tailor' &lt; x 'self' and @y 'tailor' > y 'self';walk 'Southwest';elseif @x 'tailor' > x 'self' and @y 'tailor' &lt; y 'self';walk 'Northeast';elseif @x 'tailor' &lt; x 'self' and @y 'tailor' &lt; y 'self';walk 'Northwest';elseif @x 'tailor' > x 'self' and @y 'tailor' == y 'self';walk 'East';elseif @x 'tailor' &lt; x 'self' and @y 'tailor' == y 'self';walk 'West';elseif @x 'tailor' == x 'self' and @y 'tailor' > y 'self';walk 'South';elseif @x 'tailor' == x 'self' and @y 'tailor' &lt; y 'self';walk 'North';endif;pause 500;if @inrange 'tailor' 1;for 3;//NPC name;//Nujelm;if y > 1255 and y &lt; 1271;msg 'Moon';//Jhelom;elseif y > 3775 and y &lt; 3791;msg 'Annora';//Moonglow;elseif y > 1055 and y &lt; 1072;msg 'Cain';//Serpents Hold;elseif y > 3495 and y &lt; 3511;msg 'Jamie';//Trinsic;elseif y > 2833 and y &lt; 2850;msg 'Caldwell';//Vesper;elseif y > 866 and y &lt; 888;msg 'Pembroke';//Delucia;elseif y > 4013 and y &lt; 4033;msg 'Armstrong';//Skara Brae;elseif y > 2176 and y &lt; 2198;msg 'Ira';//Zento;elseif y > 1201 and y &lt; 1214;msg 'Chihu';endif;endfor;endif;endwhile;useobject 'self';pause 1000;endif;endwhile;while not mounted 'self';msg 'all follow me';useobject 'beetle';pause 1000;endwhile;while not @gumpexists 0x554b87f3;useobject 'turninrunebook';waitforgump 0x554b87f3 1500;endwhile;if @findalias 'trashbank3';@unsetalias 'trashbank1';@unsetalias 'trashbank2';@unsetalias 'trashbank3';endif;if not @findalias 'trashbank1';replygump 0x554b87f3 53;@setalias 'trashbank1' 'self';elseif not @findalias 'trashbank2';replygump 0x554b87f3 59;@setalias 'trashbank2' 'self';elseif not @findalias 'trashbank3';replygump 0x554b87f3 65;@setalias 'trashbank3' 'self';endif;while @inrange 'tailor' 10;while hits &lt; maxhits or poisoned 'self';msg 'guards';miniheal 'self';pause 500;endwhile;//if the rune is blocked, try different rune;if @injournal 'blocked' 'system';sysmsg 'Rune blocked, trying again in 10 seconds' 33;pause 10000;@clearjournal;while not @gumpexists 0x554b87f3;useobject 'turninrunebook';waitforgump 0x554b87f3 1500;endwhile;if @findalias 'trashbank3';@unsetalias 'trashbank1';@unsetalias 'trashbank2';@unsetalias 'trashbank3';endif;if not @findalias 'trashbank1';replygump 0x554b87f3 53;@setalias 'trashbank1' 'self';elseif not @findalias 'trashbank2';replygump 0x554b87f3 59;@setalias 'trashbank2' 'self';elseif not @findalias 'trashbank3';replygump 0x554b87f3 65;@setalias 'trashbank3' 'self';endif;pause 2000;endif;endwhile;msg 'bank';pause 250;while mounted 'self';useobject 'self';pause 550;endwhile;waitforproperties 'beetle' 5000;if @property 'bonded' 'beetle';waitforcontext 'beetle' 10 15000;else;waitforcontext 'beetle' 9 15000;endif;while @findtype 0xeed 'any' 'beetle';movetype 0xeed 'beetle' 'bank';pause 550;endwhile;if counttype 0xeed 0 'bank' > 1000000;msg 'check 1000000';endif;while @findtype 0x1767 'any' 'beetle';movetype 0x1767 'beetle' 'bank';pause 550;endwhile;//Umbra trash;if y > 1338 and y &lt; 1352;@setalias 'banktrash' 0x4009b005;elseif y > 1249 and y &lt; 1259;//Zento trash;@setalias 'banktrash' 0x402eceff;//Jhelom Trash;elseif y > 557 and y &lt; 567;@setalias 'banktrash' 0x4001e289;//Moonglow Trash;elseif y > 1154 and y &lt; 1166;@setalias 'banktrash' 0x4044c11b;//Vesper Trash;elseif y > 673 and y &lt; 688;@setalias 'banktrash' 0x4079cd96;//New Haven Trash;elseif y > 2563 and y &lt; 2576;@setalias 'banktrash' 0x404fcbbc;endif;while @findtype 0x170d 'any' 'beetle';movetype 0x170d 'beetle' 'banktrash';pause 550;endwhile;while @findtype 0xfb4 'any' 'beetle';movetype 0xfb4 'beetle' 'banktrash';pause 550;endwhile;while @findtype 0xe86 'any' 'beetle';movetype 0xe86 'beetle' 'banktrash';pause 550;endwhile;while @findtype 0xe85 'any' 'beetle';movetype 0xe85 'beetle' 'banktrash';pause 550;endwhile;while @findtype 0x13d5 'any' 'beetle';movetype 0x13d5 'beetle' 'banktrash';pause 550;endwhile;while @findtype 0x13c6 'any' 'beetle';movetype 0x13c6 'beetle' 'banktrash';pause 550;endwhile;while @findtype 0xf39 'any' 'beetle';movetype 0xf39 'beetle' 'banktrash';pause 550;endwhile;if @injournal 'world will save';while not @injournal 'world save complete';endwhile;@clearjournal;endif;while not mounted 'self';msg 'all follow me';useobject 'beetle';pause 1000;endwhile;@playmacro 'Turn In Go Home';</macro>
  147. <macro loop="False" name="Turn In BS Loop" interrupt="True">if mounted 'self';useobject 'self';pause 1000;endif;//list also maintained in Tailor Loop and Get New Book;//account 1;if serial 'self' == 0x68607;@setalias 'beetle' 0x119ca1;@setalias 'turninrunebook' 0x40d01398;//account 2;elseif serial 'self' == 0x1d81b0;@setalias 'beetle' 0xf4206;@setalias 'turninrunebook' 0x411b35f0;//account 3;elseif serial 'self' == 0x3090d;@setalias 'beetle' 0x1372cf;@setalias 'turninrunebook' 0x40c9bad4;//account 4;elseif serial 'self' == 0xb29bf;@setalias 'beetle' 0xe2b69;@setalias 'turninrunebook' 0x40d010df;else;sysmsg 'I dont have your serial for the beetle/runebook list' 34;stop;endif;if mounted 'self';useobject 'self';pause 1000;endif;if not timerexists 'turnin';createtimer 'turnin';settimer 'turnin' 10000;endif;if not @findobject 'filledbods' or not @findobject 'newbods';@unsetalias 'filledbods';@unsetalias 'newbods';endif;if serial 'filledbods' == serial 'newbods';@unsetalias 'filledbods';@unsetalias 'newbods';endif;if not @findobject 'filledbods';sysmsg 'Target the Filled Bods book in your backpack' 167;promptalias 'filledbods';endif;if not @findobject 'newbods';sysmsg 'Target the New Bods Book in your backpack' 34;promptalias 'newbods';endif;while @property 'Deeds in Book' 'filledbods' > 0;while hits &lt; maxhits or poisoned 'self';msg 'guards';miniheal 'self';pause 500;endwhile;if counttype 0x2258 1155 'backpack' > 3;sysmsg 'Looks like you have tailors bods at the blacksmith shop. Stopping!' 34;pause 1000;useobject 'beetle';stop;endif;//2 left click "Complete Tailor Bods Book";useobject 'filledbods';pause 1000;//Take Bod Out of the Book;if not @findtype 0x2258 1102 'backpack';replygump 0x54f555df 5;pause 1000;endif;if @injournal 'world will save';while not @injournal 'world save complete';endwhile;@clearjournal;endif;//set NPC alias;//Skara Brae;if y > 2185 and y &lt; 2199;@setalias 'blacksmith' 0x7af97;//Jhelom;elseif y > 3695 and y &lt; 3719;@setalias 'blacksmith' 0x77eb5;//Nujelm;elseif y > 1176 and y &lt; 1208;@setalias 'blacksmith' 0x7a9ab;//Moonglow;elseif y > 1103 and y &lt; 1118;@setalias 'blacksmith' 0x17e0d;//Serpents Hold;elseif y > 3399 and y &lt; 3421;@setalias 'blacksmith' 0x4c8ff;//Trinsic;elseif y > 2757 and y &lt; 2777;@setalias 'blacksmith' 0x5b02a;//Vesper;elseif y > 847 and y &lt; 863;@setalias 'blacksmith' 0x7a259;//Zento;elseif y > 1242 and y &lt; 1265;@setalias 'blacksmith' 0x61725;//Jhelom weaponsmith;elseif y > 3847 and y &lt; 3864;@setalias 'blacksmith' 0x1743c;endif;while not @inrange 'blacksmith' 1;while hits &lt; maxhits or poisoned 'self';msg 'guards';miniheal 'self';pause 500;endwhile;if @x 'blacksmith' > x 'self' and @y 'blacksmith' > y 'self';walk 'Southeast';elseif @x 'blacksmith' &lt; x 'self' and @y 'blacksmith' > y 'self';walk 'Southwest';elseif @x 'blacksmith' > x 'self' and @y 'blacksmith' &lt; y 'self';walk 'Northeast';elseif @x 'blacksmith' &lt; x 'self' and @y 'blacksmith' &lt; y 'self';walk 'Northwest';elseif @x 'blacksmith' > x 'self' and @y 'blacksmith' == y 'self';walk 'East';elseif @x 'blacksmith' &lt; x 'self' and @y 'blacksmith' == y 'self';walk 'West';elseif @x 'blacksmith' == x 'self' and @y 'blacksmith' > y 'self';walk 'South';elseif @x 'blacksmith' == x 'self' and @y 'blacksmith' &lt; y 'self';walk 'North';endif;pause 500;if @inrange 'blacksmith' 1;for 3;//call NPC name;//Skara Brae;if y > 2185 and y &lt; 2199;msg 'Sally';//Jhelom;elseif y > 3695 and y &lt; 3719;msg 'Pearce';//Nujelm;elseif y > 1176 and y &lt; 1208;msg 'Seif';//Moonglow;elseif y > 1103 and y &lt; 1118;msg 'Bayta';//Serpents Hold;elseif y > 3399 and y &lt; 3421;msg 'Lysel';//Trinsic;elseif y > 2757 and y &lt; 2777;msg 'Brittany';//Vesper;elseif y > 847 and y &lt; 863;msg 'Tracy';//Zento;elseif y > 1242 and y &lt; 1265;msg 'Sanesue';//Jhelom weaponsmith;elseif y > 3847 and y &lt; 3864;msg 'Mansi';endif;endfor;endif;endwhile;if @injournal 'world will save';while not @injournal 'world save complete';endwhile;@clearjournal;endif;//Move Bod on the NPC;while timer 'turnin' &lt; 9100;while hits &lt; maxhits or poisoned 'self';msg 'guards';miniheal 'self';pause 500;endwhile;endwhile;clearjournal;movetype '0x2258' 'backpack' 'blacksmith' 0 0 0 '1102' 1;pause 1000;if @injournal 'have to wait a few seconds';movetype '0x2258' 'backpack' 'tailor' 0 0 0 '1102' 1;pause 1000;endif;@settimer 'turnin' 0;//stall while GMs around;if @findtype 0x3db 'any' 'ground' 18;while @findtype 0x3db 'any' 'ground' 18;endwhile;//pause 3 minutes after they leave;pause 180000;endif;while hits &lt; maxhits or poisoned 'self';msg 'guards';miniheal 'self';pause 500;endwhile;//Ask NPC for a new Bod;waitforcontext 'blacksmith' 1 15000;pause 1000;//Confirm NEW Bod - Small Bod Gump;@replygump 0x9bade6ea 1;//Confirm NEW Bod - Large Bod Gump;@replygump 0xbe0dad1e 1;pause 1000;while hits &lt; maxhits or poisoned 'self';msg 'guards';miniheal 'self';pause 500;endwhile;if @injournal 'world will save';while not @injournal 'world save complete';endwhile;@clearjournal;endif;//Move NEW Bod to "New Bods Book";movetype '0x2258' 'backpack' 'newbods' 0 0 0 '1102' 1;pause 1000;//Move items to Beetle;while @findtype '0xfb4' 'any' 'backpack' 1;movetype '0xfb4' 'backpack' 'beetle' 0 0 0 'any' 1;pause 550;endwhile;//pickaxe;while @findtype '0xe86' 'any' 'backpack' 1;movetype '0xe86' 'backpack' 'beetle' 0 0 0 'any' 1;pause 550;endwhile;//pickaxe;while @findtype '0xe85' 'any' 'backpack' 1;movetype '0xe85' 'backpack' 'beetle' 0 0 0 'any' 1;pause 550;endwhile;//studded gloves;while @findtype '0x13d5' 'any' 'backpack' 1;movetype '0x13d5' 'backpack' 'beetle' 0 0 0 'any' 1;pause 550;endwhile;//gloves;while @findtype '0x13c6' 'any' 'backpack' 1;movetype '0x13c6' 'backpack' 'beetle' 0 0 0 'any' 1;pause 550;endwhile;//shovel;while @findtype '0xf39' 'any' 'backpack' 1;movetype '0xf39' 'backpack' 'beetle' 0 0 0 'any' 1;pause 550;endwhile;while @findtype '0xeed' 'any' 'backpack' 1;movetype 0xeed 'backpack' 'beetle' 0 0 0 'any';pause 550;endwhile;if @property 'weight' 'beetle' > 800;while hits &lt; maxhits or poisoned 'self';msg 'guards';miniheal 'self';pause 500;endwhile;while not mounted 'self';msg 'all follow me';useobject 'beetle';pause 1000;endwhile;if @injournal 'world will save';while not @injournal 'world save complete';endwhile;@clearjournal;endif;while not @gumpexists 0x554b87f3;useobject 'turninrunebook';waitforgump 0x554b87f3 1500;endwhile;if @findalias 'trashbank3';@unsetalias 'trashbank1';@unsetalias 'trashbank2';@unsetalias 'trashbank3';endif;if not @findalias 'trashbank1';replygump 0x554b87f3 53;@setalias 'trashbank1' 'self';elseif not @findalias 'trashbank2';replygump 0x554b87f3 59;@setalias 'trashbank2' 'self';elseif not @findalias 'trashbank3';replygump 0x554b87f3 65;@setalias 'trashbank3' 'self';endif;while @inrange 'blacksmith' 10;while hits &lt; maxhits or poisoned 'self';msg 'guards';miniheal 'self';pause 500;endwhile;//if the rune is blocked, try a different rune;if @injournal 'blocked' 'system';sysmsg 'Rune blocked, trying different rune in 10 seconds' 33;pause 10000;@clearjournal;while not @gumpexists 0x554b87f3;useobject 'turninrunebook';waitforgump 0x554b87f3 1500;endwhile;if @findalias 'trashbank3';@unsetalias 'trashbank1';@unsetalias 'trashbank2';@unsetalias 'trashbank3';endif;if not @findalias 'trashbank1';replygump 0x554b87f3 53;@setalias 'trashbank1' 'self';elseif not @findalias 'trashbank2';replygump 0x554b87f3 59;@setalias 'trashbank2' 'self';elseif not @findalias 'trashbank3';replygump 0x554b87f3 65;@setalias 'trashbank3' 'self';endif;pause 2000;endif;endwhile;pause 1000;//Umbra trash;if y > 1338 and y &lt; 1352;@setalias 'banktrash' 0x4009b005;elseif y > 1249 and y &lt; 1259;//Zento trash;@setalias 'banktrash' 0x402eceff;//Jhelom Trash;elseif y > 557 and y &lt; 567;@setalias 'banktrash' 0x4001e289;//Moonglow Trash;elseif y > 1154 and y &lt; 1166;@setalias 'banktrash' 0x4044c11b;//Vesper Trash;elseif y > 673 and y &lt; 688;@setalias 'banktrash' 0x4079cd96;//New Haven Trash;elseif y > 2563 and y &lt; 2576;@setalias 'banktrash' 0x404fcbbc;endif;msg 'bank';pause 250;while mounted 'self';useobject 'self';pause 550;endwhile;waitforproperties 'beetle' 5000;if @property 'bonded' 'beetle';waitforcontext 'beetle' 10 15000;else;waitforcontext 'beetle' 9 15000;endif;if @injournal 'world will save';while not @injournal 'world save complete';endwhile;@clearjournal;endif;while @findtype 0xeed 'any' 'beetle';movetype 0xeed 'beetle' 'bank';pause 550;endwhile;if counttype 0xeed 0 'bank' > 1000000;msg 'check 1000000';endif;while @findtype 0x1767 'any' 'beetle';movetype 0x1767 'beetle' 'bank';pause 550;endwhile;while @findtype 0xfb4 'any' 'beetle';movetype 0xfb4 'beetle' 'banktrash';pause 550;endwhile;while @findtype 0xe86 'any' 'beetle';movetype 0xe86 'beetle' 'banktrash';pause 550;endwhile;while @findtype 0xe85 'any' 'beetle';movetype 0xe85 'beetle' 'banktrash';pause 550;endwhile;while hits &lt; maxhits or poisoned 'self';msg 'guards';miniheal 'self';pause 500;endwhile;while @findtype 0x13d5 'any' 'beetle';movetype 0x13d5 'beetle' 'banktrash';pause 550;endwhile;while @findtype 0x13c6 'any' 'beetle';movetype 0x13c6 'beetle' 'banktrash';pause 550;endwhile;while @findtype 0xf39 'any' 'beetle';movetype 0xf39 'beetle' 'banktrash';pause 550;endwhile;while @findtype 0x170d 'any' 'beetle';movetype 0x170d 'beetle' 'banktrash';pause 550;endwhile;if @injournal 'world will save';while not @injournal 'world save complete';endwhile;@clearjournal;endif;while not mounted 'self';msg 'all follow me';useobject 'beetle';pause 1000;endwhile;while not @gumpexists 0x554b87f3;useobject 'turninrunebook';waitforgump 0x554b87f3 1500;endwhile;if @findalias 'smithshop3';@unsetalias 'smithshop1';@unsetalias 'smithshop2';@unsetalias 'smithshop3';endif;if not @findalias 'smithshop1';replygump 0x554b87f3 35;@setalias 'smithshop1' 'self';elseif not @findalias 'smithshop2';replygump 0x554b87f3 41;@setalias 'smithshop2' 'self';elseif not @findalias 'smithshop3';replygump 0x554b87f3 47;@setalias 'smithshop3' 'self';endif;while @inrange 'banktrash' 5;while hits &lt; maxhits or poisoned 'self';msg 'guards';miniheal 'self';pause 500;endwhile;//if the rune is blocked, try a different rune;if @injournal 'blocked' 'system';sysmsg 'Rune blocked, trying a different rune in 10 seconds' 33;pause 10000;@clearjournal;while not @gumpexists 0x554b87f3;useobject 'turninrunebook';waitforgump 0x554b87f3 1500;endwhile;if @findalias 'smithshop3';@unsetalias 'smithshop1';@unsetalias 'smithshop2';@unsetalias 'smithshop3';endif;if not @findalias 'smithshop1';replygump 0x554b87f3 35;@setalias 'smithshop1' 'self';elseif not @findalias 'smithshop2';replygump 0x554b87f3 41;@setalias 'smithshop2' 'self';elseif not @findalias 'smithshop3';replygump 0x554b87f3 47;@setalias 'smithshop3' 'self';endif;pause 2000;endif;endwhile;//navigate into shops;//Skara Brae;if y > 2185 and y &lt; 2199;while x &lt; 623;walk 'east';endwhile;//Jhelom;elseif y > 3695 and y &lt; 3719;while y &lt; 3707;run 'south';endwhile;while x &lt; 1398;run 'east';endwhile;//Nujelm;elseif y > 1176 and y &lt; 1208;while x > 3551;walk 'west';pause 250;endwhile;//Moonglow;elseif y > 1103 and y &lt; 1118;while y > 1111;walk 'north';endwhile;//Serpents Hold;elseif y > 3399 and y &lt; 3421;while y > 3408;run 'north';endwhile;//Trinsic;elseif y > 2757 and y &lt; 2777;while y &lt; 2768;walk 'south';pause 500;endwhile;//Vesper;elseif y > 847 and y &lt; 863;while y > 854;walk 'north';pause 250;endwhile;while x > 2864;walk 'west';pause 250;endwhile;//Zento;elseif y > 1242 and y &lt; 1265;while x > 775;run 'west';endwhile;//Jhelom weaponsmith;elseif y > 3847 and y &lt; 3864;while x > 1422;walk 'west';endwhile;endif;pause 750;//set NPC alias;//Skara Brae;if y > 2185 and y &lt; 2199;@setalias 'blacksmith' 0x7af97;//Jhelom;elseif y > 3695 and y &lt; 3719;@setalias 'blacksmith' 0x77eb5;//Nujelm;elseif y > 1176 and y &lt; 1208;@setalias 'blacksmith' 0x7a9ab;//Moonglow;elseif y > 1103 and y &lt; 1118;@setalias 'blacksmith' 0x17e0d;//Serpents Hold;elseif y > 3399 and y &lt; 3421;@setalias 'blacksmith' 0x4c8ff;//Trinsic;elseif y > 2757 and y &lt; 2777;@setalias 'blacksmith' 0x5b02a;//Vesper;elseif y > 847 and y &lt; 863;@setalias 'blacksmith' 0x7a259;//Zento;elseif y > 1242 and y &lt; 1265;@setalias 'blacksmith' 0x61725;//Jhelom weaponsmith;elseif y > 3847 and y &lt; 3864;@setalias 'blacksmith' 0x1743c;endif;while not @inrange 'blacksmith' 1;while hits &lt; maxhits or poisoned 'self';msg 'guards';miniheal 'self';pause 500;endwhile;if @x 'blacksmith' > x 'self' and @y 'blacksmith' > y 'self';walk 'Southeast';elseif @x 'blacksmith' &lt; x 'self' and @y 'blacksmith' > y 'self';walk 'Southwest';elseif @x 'blacksmith' > x 'self' and @y 'blacksmith' &lt; y 'self';walk 'Northeast';elseif @x 'blacksmith' &lt; x 'self' and @y 'blacksmith' &lt; y 'self';walk 'Northwest';elseif @x 'blacksmith' > x 'self' and @y 'blacksmith' == y 'self';walk 'East';elseif @x 'blacksmith' &lt; x 'self' and @y 'blacksmith' == y 'self';walk 'West';elseif @x 'blacksmith' == x 'self' and @y 'blacksmith' > y 'self';walk 'South';elseif @x 'blacksmith' == x 'self' and @y 'blacksmith' &lt; y 'self';walk 'North';endif;pause 500;if @inrange 'blacksmith' 1;for 3;//call NPC name;//Skara Brae;if y > 2185 and y &lt; 2199;msg 'Sally';//Jhelom;elseif y > 3695 and y &lt; 3719;msg 'Pearce';//Nujelm;elseif y > 1176 and y &lt; 1208;msg 'Seif';//Moonglow;elseif y > 1103 and y &lt; 1118;msg 'Bayta';//Serpents Hold;elseif y > 3399 and y &lt; 3421;msg 'Lysel';//Trinsic;elseif y > 2757 and y &lt; 2777;msg 'Brittany';//Vesper;elseif y > 847 and y &lt; 863;msg 'Tracy';//Zento;elseif y > 1242 and y &lt; 1265;msg 'Sanesue';//Jhelom weaponsmith;elseif y > 3847 and y &lt; 3864;msg 'Mansi';endif;endfor;endif;endwhile;useobject 'self';pause 1000;endif;endwhile;while not mounted 'self';msg 'all follow me';useobject 'beetle';pause 1000;endwhile;if @injournal 'world will save';while not @injournal 'world save complete';endwhile;@clearjournal;endif;while not @gumpexists 0x554b87f3;useobject 'turninrunebook';waitforgump 0x554b87f3 1500;endwhile;if @findalias 'trashbank3';@unsetalias 'trashbank1';@unsetalias 'trashbank2';@unsetalias 'trashbank3';endif;if not @findalias 'trashbank1';replygump 0x554b87f3 53;@setalias 'trashbank1' 'self';elseif not @findalias 'trashbank2';replygump 0x554b87f3 59;@setalias 'trashbank2' 'self';elseif not @findalias 'trashbank3';replygump 0x554b87f3 65;@setalias 'trashbank3' 'self';endif;while @inrange 'blacksmith' 10;while hits &lt; maxhits or poisoned 'self';msg 'guards';miniheal 'self';pause 500;endwhile;//if the rune is blocked, pause 10 seconds and try again;if @injournal 'blocked' 'system';sysmsg 'Rune blocked, trying again in 10 seconds' 33;pause 10000;@clearjournal;while not @gumpexists 0x554b87f3;useobject 'turninrunebook';waitforgump 0x554b87f3 1500;endwhile;if @findalias 'trashbank3';@unsetalias 'trashbank1';@unsetalias 'trashbank2';@unsetalias 'trashbank3';endif;if not @findalias 'trashbank1';replygump 0x554b87f3 53;@setalias 'trashbank1' 'self';elseif not @findalias 'trashbank2';replygump 0x554b87f3 59;@setalias 'trashbank2' 'self';elseif not @findalias 'trashbank3';replygump 0x554b87f3 65;@setalias 'trashbank3' 'self';endif;pause 2000;endif;endwhile;pause 1000;//Umbra trash;if y > 1338 and y &lt; 1352;@setalias 'banktrash' 0x4009b005;elseif y > 1249 and y &lt; 1259;//Zento trash;@setalias 'banktrash' 0x402eceff;//Jhelom Trash;elseif y > 557 and y &lt; 567;@setalias 'banktrash' 0x4001e289;//Moonglow Trash;elseif y > 1154 and y &lt; 1166;@setalias 'banktrash' 0x4044c11b;//Vesper Trash;elseif y > 673 and y &lt; 688;@setalias 'banktrash' 0x4079cd96;//New Haven Trash;elseif y > 2563 and y &lt; 2576;@setalias 'banktrash' 0x404fcbbc;endif;msg 'bank';pause 250;while mounted 'self';useobject 'self';pause 550;endwhile;waitforproperties 'beetle' 5000;if @property 'bonded' 'beetle';waitforcontext 'beetle' 10 15000;else;waitforcontext 'beetle' 9 15000;endif;while @findtype 0xeed 'any' 'beetle';movetype 0xeed 'beetle' 'bank';pause 550;endwhile;if counttype 0xeed 0 'bank' > 1000000;msg 'check 1000000';endif;while hits &lt; maxhits or poisoned 'self';msg 'guards';miniheal 'self';pause 500;endwhile;while @findtype 0x1767 'any' 'beetle';movetype 0x1767 'beetle' 'bank';pause 550;endwhile;while @findtype 0xfb4 'any' 'beetle';movetype 0xfb4 'beetle' 'banktrash';pause 550;endwhile;while @findtype 0xe86 'any' 'beetle';movetype 0xe86 'beetle' 'banktrash';pause 550;endwhile;while @findtype 0xe85 'any' 'beetle';movetype 0xe85 'beetle' 'banktrash';pause 550;endwhile;while @findtype 0x13d5 'any' 'beetle';movetype 0x13d5 'beetle' 'banktrash';pause 550;endwhile;while @findtype 0x13c6 'any' 'beetle';movetype 0x13c6 'beetle' 'banktrash';pause 550;endwhile;while @findtype 0xf39 'any' 'beetle';movetype 0xf39 'beetle' 'banktrash';pause 550;endwhile;while @findtype 0x170d 'any' 'beetle';movetype 0x170d 'beetle' 'banktrash';pause 550;endwhile;if @injournal 'world will save';while not @injournal 'world save complete';endwhile;@clearjournal;endif;while not mounted 'self';msg 'all follow me';useobject 'beetle';pause 1000;endwhile;@playmacro 'Turn In Go Home';</macro>
  148. <macro loop="False" name="Sort Books" interrupt="True">@removelist 'CBDclothamount';@createlist 'CBDclothamount';//Cloth is cheaper than leather, might want to save more. also change in the Sort Loose and the Turn In Go Home Macro;@pushlist 'CBDclothamount' 5;@removelist 'CBDamount';@createlist 'CBDamount';//change this number to the number of CBD leather sets you want waiting to fill (for each stack). Also change in the Sort Loose and the Turn In Go Home Macro;@pushlist 'CBDamount' 1;@removelist 'CBDlbodamount';@createlist 'CBDlbodamount';//change this number to the number of CBD leather lbods you want waiting to fill. They are rare so good idea to save more than the exceptional sbods above.;@pushlist 'CBDlbodamount' 5;@setalias '+60' 0x42ac2999;@setalias 'agapite' 0x42c86fe0;@setalias 'verite' 0x42ac299a;@setalias 'valorite' 0x42ac2994;@setalias 'gold1' 0x42ac298a;@setalias 'bronze1' 0x42ac298b;@setalias 'copper1' 0x42ac2990;@setalias '+30' 0x42c86fde;@setalias '+151' 0x42c86fe3;@setalias '120' 0x42c86fe1;@setalias 'POF1' 0x4055fb66;@setalias 'BronzeSmall' 0x42ac2991;@setalias 'CopperSmall' 0x42ac299b;@setalias 'ShadowSmall' 0x4055fb69;@setalias 'copper2' 0x42c77275;@setalias '+152' 0x42c86fdf;@setalias 'POF2' 0x4055fb67;@setalias 'Trash Barrel' 0x411004bb;@setalias 'HRSK1' 0x42ac2997;@setalias 'BRSK1' 0x42ac2998;@setalias 'lbod10male' 0x4063f37d;@setalias '10leggings' 0x4063f384;@setalias '10tunic' 0x4063f37b;@setalias '10gloves' 0x4063eb3f;@setalias '10sleeves' 0x4063ddcc;@setalias '10gorget' 0x4063eb39;@setalias '10cap' 0x4063eb32;@setalias 'lbod15male' 0x4063f382;@setalias '15leggings' 0x4063eb37;@setalias '15tunic' 0x4063eb3d;@setalias '15gloves' 0x4063eb45;@setalias '15sleeves' 0x4063eb35;@setalias '15gorget' 0x4063eb40;@setalias '15cap' 0x4063ddd4;@setalias 'lbod10female' 0x4063ddcf;@setalias '10skirt' 0x4063ddd3;@setalias '10shorts' 0x4063f37f;@setalias '10studdedbustier' 0x4063ddd2;@setalias '10leatherbustier' 0x4063eb43;@setalias '10armor' 0x4063ddcd;@setalias '10studdedarmor' 0x4063f37c;@setalias 'lbod15female' 0x4063ddc6;@setalias '15skirt' 0x4063eb3e;@setalias '15shorts' 0x4063eb44;@setalias '15studdedbustier' 0x4063f378;@setalias '15leatherbustier' 0x4063eb34;@setalias '15armor' 0x4063ddc4;@setalias '15studdedarmor' 0x4063eb3c;@setalias 'lbodcrier' 0x4063ddce;@setalias 'thighboots' 0x4063eb36;@setalias 'shortpants' 0x4063f379;@setalias 'fancyshirt' 0x4063ddc3;@setalias 'surcoat' 0x4063f383;@setalias 'featheredhat' 0x4063eb38;@setalias 'lbod20male' 0x4063eb41;@setalias '20leggings' 0x4063ddd0;@setalias '20tunic' 0x4063ddc9;@setalias '20gloves' 0x4063ddcb;@setalias '20sleeves' 0x4063eb33;@setalias '20gorget' 0x4063ddc5;@setalias '20cap' 0x4063eb3a;@setalias 'lbod20female' 0x4063f380;@setalias '20skirt' 0x4063ddc8;@setalias '20shorts' 0x4063ddd1;@setalias '20studdedbustier' 0x4063ddc7;@setalias '20leatherbustier' 0x4063eb42;@setalias '20armor' 0x4063eb3b;@setalias '20studdedarmor' 0x4063ddd5;@setalias 'lbodmalecbd' 0x4092802c;@setalias 'cbdleggings' 0x4063ddca;@setalias 'cbdtunic' 0x40928027;@setalias 'cbdgloves' 0x40928029;@setalias 'cbdsleeves' 0x40928026;@setalias 'cbdgorget' 0x4092802b;@setalias 'cbdcap' 0x40928025;@setalias 'lbodfemalecbd' 0x40928024;@setalias 'cbdskirt' 0x4093d129;@setalias 'cbdshorts' 0x4093d125;@setalias 'cbdstuddedbustier' 0x4093d126;@setalias 'cbdleatherbustier' 0x4093d127;@setalias 'cbdarmor' 0x4093d124;@setalias 'cbdstuddedarmor' 0x40928023;@setalias '120tailorlarge' 0x42ac2992;sysmsg 'Target the book of bods received from turning in' 34;promptalias 'BookToSort';sysmsg 'Target the book in your pack to place resets' 167;promptalias 'resets';@useobject 'BookToSort';waitforgump 0x54f555df 2500;replygump 0x54f555df 1;waitforgump 0x968739db 2500;replygump 0x968739db 3;waitforgump 0x968739db 2500;replygump 0x968739db 0;waitforgump 0x54f555df 2500;pause 1000;for 505;if not hidden 'self';useskill 'hiding';endif;if @property 'Deeds in Book' 'BookToSort' > 0;if not @findtype 0x2258 'any' 'backpack';useobject 'BookToSort';waitforgump 0x54f555df 2500;while @property 'Deeds in Book' 'BookToSort' > 0 and @property 'Contents' 'backpack' &lt; 123;replygump 0x54f555df 5;waitforgump 0x54f555df 2500;endwhile;endif;if @injournal 'world will save';while not @injournal 'world save complete';endwhile;@clearjournal;endif;pause 550;while @findtype 0x2258 'any' 'backpack';if @injournal 'world will save';while not @injournal 'world save complete';endwhile;@clearjournal;endif;//center goza;if not x == 1842 and y == 2076;sysmsg 'stand on the goza';stop;endif;waitforproperties 'found' 5000;//trashing nonexceptional bods;if not @property 'exceptional' 'found';if not @property 'spined' 'found' and not @property 'horned' 'found';if not @property 'barbed' 'found' and @property 'large' 'found';if @property '20' 'found' and @property 'leather gorget' 'found';if @property 'Contents' 'lbodmalecbd' &lt; CBDlbodamount[0];sysmsg 'CBD' 53;moveitem 'found' 'lbodmalecbd';pause 750;endif;elseif @property '20' 'found' and @property 'studded bustier' 'found';if @property 'Contents' 'lbodfemalecbd' &lt; CBDlbodamount[0];sysmsg 'CBD' 53;moveitem 'found' 'lbodfemalecbd';pause 750;endif;endif;endif;endif;if @findobject 'found' 'any' 'backpack';moveitem 'found' 'reset';//moveitem 'found' 'Trash Barrel';if @property 'large' 'found';sysmsg 'Normal LBOD Trash' 33;else;sysmsg 'Normal SBOD Trash' 33;endif;pause 750;endif;elseif color 'found' == 1102;if @property 'Valorite' 'found';if @property 'exceptional' 'found';if @property '20' 'found';if @property 'platemail' 'found' or @property 'plate helm' 'found';moveitem 'found' 'valorite';sysmsg 'Valorite' 95;elseif @property 'chainmail' 'found';moveitem 'found' '+60';sysmsg '+60' 34;elseif @property 'ringmail' 'found';moveitem 'found' '+30';sysmsg '+30' 73;else;moveitem 'found' 'Trash Barrel';sysmsg 'Trash';endif;elseif @property '10' 'found' or @property '15' 'found';if @property 'platemail' 'found' or @property 'plate helm' 'found';moveitem 'found' 'verite';sysmsg 'Verite' 79;elseif @property 'chainmail' 'found';moveitem 'found' 'agapite';sysmsg 'Agapite' 36;elseif @property 'ringmail' 'found';moveitem 'found' 'gold1';sysmsg 'Gold' 252;else;moveitem 'found' 'Trash Barrel';sysmsg 'Trash';endif;endif;elseif not @property 'exceptional' 'found';//shouldn't have these;endif;elseif @property 'Verite' 'found';if @property 'exceptional' 'found';if @property '20' 'found';if @property 'platemail' 'found' or @property 'plate helm' 'found';moveitem 'found' 'verite';sysmsg 'Verite' 79;elseif @property 'chainmail' 'found';moveitem 'found' 'agapite';sysmsg 'Agapite' 36;elseif @property 'ringmail' 'found';moveitem 'found' 'gold1';sysmsg 'Gold' 252;else;moveitem 'found' 'Trash Barrel';sysmsg 'Trash';endif;elseif @property '10' 'found' or @property '15' 'found';if @property 'platemail' 'found' or @property 'plate helm' 'found';moveitem 'found' '+60';sysmsg '+60' 34;elseif @property 'chainmail' 'found' and not @property 'large' 'found';//bronzes worth more than +30, remove large clause if changing;//moveitem 'found' '+30';//sysmsg '+30' 73;moveitem 'found' 'BronzeSmall';sysmsg 'Bronze' 88;elseif @property 'ringmail' 'found' and not @property 'large' 'found';//bronzes worth more than 120, remove large clause if changing;//moveitem 'found' '120';//sysmsg '120' 2498;moveitem 'found' 'BronzeSmall';sysmsg 'Bronze' 88;elseif not @property 'large' 'found';moveitem 'found' 'BronzeSmall';sysmsg 'Bronze' 88;else;moveitem 'found' 'Trash Barrel';sysmsg 'Trash';endif;endif;elseif not @property 'exceptional' 'found';//shouldn't have these;endif;elseif @property 'Agapite' 'found';if @property 'exceptional' 'found';if @property '20' 'found';if @property 'platemail' 'found' or @property 'plate helm' 'found';moveitem 'found' '+60';sysmsg '+60' 34;elseif @property 'chainmail' 'found' and not @property 'large' 'found';//+30 but small bod bronzes worth more, remove large clause if changing;//moveitem 'found' '+30';//sysmsg '+30' 73;moveitem 'found' 'BronzeSmall';sysmsg 'Bronze' 88;elseif @property 'ringmail' 'found' and not @property 'large' 'found';//120 but small bod bronzes worth more, remove large clause if changing;//moveitem 'found' '120';//sysmsg '120' 2498;moveitem 'found' 'BronzeSmall';sysmsg 'Bronze' 88;elseif not @property 'large' 'found';moveitem 'found' 'BronzeSmall';sysmsg 'Bronze' 88;else;moveitem 'found' 'Trash Barrel';sysmsg 'Trash';endif;elseif @property '10' 'found' or @property '15' 'found';if @property 'platemail' 'found' or @property 'plate helm' 'found';moveitem 'found' 'agapite';sysmsg 'Agapite' 36;elseif @property 'chainmail' 'found';moveitem 'found' 'gold1';sysmsg 'Gold' 252;elseif @property 'ringmail' 'found';if @property '15' 'found';if @property 'Contents' '+152' &lt; 101;moveitem 'found' '+151';sysmsg '+15' 20;else;moveitem 'found' 'Trash Barrel';sysmsg '+15 book full, trashing' 20;endif;//+15 but 4 small bod coppers worth more, remove large clause if changing;elseif @property '10' 'found' and not @property 'large' 'found';moveitem 'found' 'CopperSmall';sysmsg 'Copper' 88;else;moveitem 'found' 'Trash Barrel';sysmsg 'Trash';endif;elseif not @property 'large' 'found' and @property '10' 'found';moveitem 'found' 'CopperSmall';sysmsg 'Copper' 88;else;moveitem 'found' 'Trash Barrel';sysmsg 'Trash';endif;endif;elseif not @property 'exceptional' 'found';//shouldn't have these;endif;elseif @property 'gold' 'found';if @property 'exceptional' 'found';if @property '20' 'found';if @property 'platemail' 'found' or @property 'plate helm' 'found';moveitem 'found' 'agapite';sysmsg 'Agapite' 36;elseif @property 'chainmail' 'found';moveitem 'found' 'gold1';sysmsg 'Gold' 252;//+15 but 4 small bod coppers worth more, remove large clause if changing;elseif @property 'ringmail' 'found' and not @property 'large' 'found';//moveitem 'found' '+151';// sysmsg '+15' 20;moveitem 'found' 'CopperSmall';sysmsg 'Copper' 88;elseif not @property 'large' 'found';moveitem 'found' 'CopperSmall';sysmsg 'Copper' 88;else;moveitem 'found' 'Trash Barrel';sysmsg 'Trash';endif;elseif @property '10' 'found' or @property '15' 'found';if @property 'platemail' 'found' or @property 'plate helm' 'found';moveitem 'found' '+30';sysmsg '+30' 73;elseif @property 'chainmail' 'found';if @property 'Contents' '120' &lt; 101;moveitem 'found' '120';sysmsg '120' 2498;else;moveitem 'found' 'Trash Barrel';sysmsg '120 book full, trashing' 2498;endif;elseif not @property 'large' 'found' and @property '10' 'found';if @property 'Contents' 'ShadowSmall' &lt; 101;moveitem 'found' 'ShadowSmall';sysmsg 'ShadowSmall' 88;else;moveitem 'found' 'Trash Barrel';sysmsg 'Shadow book full, trashing' 88;endif;else;moveitem 'found' 'Trash Barrel';sysmsg 'Trash';endif;endif;elseif not @property 'exceptional' 'found';//shouldn't have these;endif;elseif @property 'bronze ingots' 'found';if @property 'exceptional' 'found';if @property '20' 'found';if @property 'platemail' 'found' or @property 'plate helm' 'found';moveitem 'found' '+30';sysmsg '+30' 73;elseif @property 'chainmail' 'found';if @property 'Contents' '120' &lt; 101;moveitem 'found' '120';sysmsg '120' 2498;else;moveitem 'found' 'Trash Barrel';sysmsg '120 book full, trashing' 2498;endif;elseif not @property 'large' 'found';if @property 'Contents' 'ShadowSmall' &lt; 101;moveitem 'found' 'ShadowSmall';sysmsg 'ShadowSmall' 88;else;moveitem 'found' 'Trash Barrel';sysmsg 'Shadow book full, trashing' 88;endif;else;moveitem 'found' 'Trash Barrel';sysmsg 'Trash';endif;elseif @property '10' 'found' or @property '15' 'found';if @property 'platemail' 'found' or @property 'plate helm' 'found';moveitem 'found' 'gold1';sysmsg 'Gold' 252;elseif @property 'chainmail' 'found';if @property 'Contents' '+152' &lt; 101;moveitem 'found' '+151';sysmsg '+15' 20;else;moveitem 'found' 'Trash Barrel';sysmsg '+15 book full, trashing' 20;endif;elseif not @property 'large' 'found';if @property 'Contents' 'ShadowSmall' &lt; 101;moveitem 'found' 'ShadowSmall';sysmsg 'ShadowSmall' 88;else;moveitem 'found' 'Trash Barrel';sysmsg 'Shadow book full, trashing' 88;endif;else;moveitem 'found' 'Trash Barrel';sysmsg 'Trash';endif;endif;elseif not @property 'exceptional' 'found';//shouldn't have these;endif;elseif @property 'copper' 'found' and not @property 'dull' 'found';if @property 'exceptional' 'found';if @property '20' 'found';if @property 'platemail' 'found' or @property 'plate helm' 'found';moveitem 'found' 'gold1';sysmsg 'Gold' 252;elseif @property 'chainmail' 'found';if @property 'Contents' '+152' &lt; 101;moveitem 'found' '+151';sysmsg '+15' 20;else;moveitem 'found' 'Trash Barrel';sysmsg '+15 book full, trashing' 20;endif;elseif not @property 'large' 'found';if @property 'Contents' 'ShadowSmall' &lt; 101;moveitem 'found' 'ShadowSmall';sysmsg 'ShadowSmall' 88;else;moveitem 'found' 'Trash Barrel';sysmsg 'Shadow book full, trashing' 88;endif;else;moveitem 'found' 'Trash Barrel';sysmsg 'Trash';endif;elseif @property '10' 'found' or @property '15' 'found';if @property 'platemail' 'found' or @property 'plate helm' 'found';if @property 'Contents' '120' &lt; 101;moveitem 'found' '120';sysmsg '120' 2498;else;moveitem 'found' 'Trash Barrel';sysmsg '120 book full, trashing' 2498;endif;elseif @property 'ringmail' 'found';moveitem 'found' 'bronze1';sysmsg 'Bronze' 249;elseif not @property 'large' 'found';//dull copper;//moveitem 'found' 'ShadowSmall';//sysmsg 'Dull Copper' 88;moveitem 'found' 'Trash Barrel';sysmsg 'Trash';else;moveitem 'found' 'Trash Barrel';sysmsg 'Trash';endif;endif;elseif not @property 'exceptional' 'found';//shouldn't have these;endif;elseif @property 'shadow' 'found';if @property 'exceptional' 'found';if @property '20' 'found';if @property 'platemail' 'found' or @property 'plate helm' 'found';if @property 'Contents' '120' &lt; 101;moveitem 'found' '120';sysmsg '120' 2498;else;moveitem 'found' 'Trash Barrel';sysmsg '120 book full, trashing' 2498;endif;elseif @property 'ringmail' 'found';moveitem 'found' 'bronze1';sysmsg 'Bronze' 249;elseif not @property 'large' 'found';//dull copper;//moveitem 'found' 'ShadowSmall';//sysmsg 'Dull Copper' 88;moveitem 'found' 'Trash Barrel';sysmsg 'Trash';else;moveitem 'found' 'Trash Barrel';sysmsg 'Trash';endif;elseif @property '10' 'found' or @property '15' 'found';if @property 'platemail' 'found' or @property 'plate helm' 'found';if @property 'Contents' '+152' &lt; 101;moveitem 'found' '+151';sysmsg '+15' 20;else;moveitem 'found' 'Trash Barrel';sysmsg '+15 book full, trashing' 20;endif;elseif not @property 'large' 'found';if @property 'Contents' 'POF2' &lt; 101;moveitem 'found' 'POF1';sysmsg 'PoF' 88;else;moveitem 'found' 'Trash Barrel';sysmsg 'PoF book full, trashing' 88;endif;else;moveitem 'found' 'Trash Barrel';sysmsg 'Trash';endif;endif;elseif not @property 'exceptional' 'found';//shouldn't have these;endif;elseif @property 'dull' 'found';if @property 'exceptional' 'found';if @property '20' 'found';if @property 'platemail' 'found' or @property 'plate helm' 'found';if @property 'Contents' '+152' &lt; 101;moveitem 'found' '+151';sysmsg '+15' 20;else;moveitem 'found' 'Trash Barrel';sysmsg '+15 book full, trashing' 20;endif;elseif not @property 'large' 'found';if @property 'Contents' 'POF2' &lt; 101;moveitem 'found' 'POF1';sysmsg 'PoF' 88;else;moveitem 'found' 'Trash Barrel';sysmsg 'PoF book full, trashing' 88;endif;else;moveitem 'found' 'Trash Barrel';sysmsg 'Trash';endif;elseif @property '10' 'found' or @property '15' 'found';if @property 'chainmail' 'found';moveitem 'found' 'bronze1';sysmsg 'Bronze' 249;else;moveitem 'found' 'Trash Barrel';sysmsg 'Trash';endif;endif;elseif not @property 'exceptional' 'found';//shouldn't have these;endif;else;if @property 'exceptional' 'found' and @property '20' 'found';if @property 'platemail' 'found' or @property 'plate helm' 'found';if @property 'Contents' 'copper2' &lt; 101;moveitem 'found' 'copper1';sysmsg 'Copper' 242;else;moveitem 'found' 'Trash Barrel';sysmsg 'Copper book full, trashing' 242;endif;elseif @property 'small' 'found';moveitem 'found' 'resets';sysmsg 'Reset' '110';else;moveitem 'found' 'Trash Barrel';sysmsg 'Trash';endif;elseif @property 'small' 'found';moveitem 'found' 'resets';sysmsg 'Reset' '110';else;moveitem 'found' 'Trash Barrel';sysmsg 'Trash';endif;endif;pause 750;if @findobject 'found' 'any' 'backpack';sysmsg 'Bod didnt sort, pausing and trying again' 34;pause 750;endif;else if color 'found' == 1155;if @property 'leather' 'found';if @property 'Barbed' 'found';if @property 'exceptional' 'found';if @property '20' 'found';if @property 'bone' 'found';moveitem 'found' 'BRSK1';sysmsg 'BRSK' 168;elseif @property 'studded armor' 'found' or @property 'studded bustier' 'found';moveitem 'found' 'BRSK1';sysmsg 'BRSK' 168;elseif @property 'studded' 'found';moveitem 'found' 'BRSK1';sysmsg 'BRSK' 168;elseif @property 'sandals' 'found' or @property 'shoes' 'found';moveitem 'found' 'HRSK1';sysmsg 'HRSK' 34;elseif @property 'boots' 'found';moveitem 'found' 'HRSK1';sysmsg 'HRSK' 34;else;@moveitem 'found' 'BRSK1';sysmsg 'BRSK' 168;endif;elseif @property '10' 'found' or @property '15' 'found';if not @property 'bone' 'found';if @property 'studded armor' 'found' or @property 'studded bustier' 'found';moveitem 'found' 'BRSK1';sysmsg 'BRSK' 168;elseif @property 'sandals' 'found' or @property 'shoes' 'found';//if not @property '15' 'found';//no point in saving rarer cbds when already needing to cull the others;//moveitem 'found' 'CBD1';//sysmsg 'CBD' 53;//endif;moveitem 'found' 'Trash Barrel';sysmsg 'Trash';elseif @property 'boots' 'found';//if not @property '15' 'found';//no point in saving rarer cbds when already needing to cull the others;//moveitem 'found' 'CBD1';//sysmsg 'CBD' 53;//endif;moveitem 'found' 'Trash Barrel';sysmsg 'Trash';elseif not @property 'studded' 'found';moveitem 'found' 'BRSK1';sysmsg 'BRSK' 168;else;moveitem 'found' 'Trash Barrel';sysmsg 'Trash';endif;else;moveitem 'found' 'Trash Barrel';sysmsg 'Trash';endif;endif;elseif not @property 'exceptional' 'found';//shouldn't have these;endif;elseif @property 'Horned' 'found';if @property 'exceptional' 'found' and not @property 'bone' 'found';if @property '20' 'found';if @property 'sandals' 'found' or @property 'shoes' 'found';//no point in saving rarer cbds when already needing to cull the others;//moveitem 'found' 'CBD1';//sysmsg 'CBD' 53;moveitem 'found' 'Trash Barrel';sysmsg 'Trash';elseif @property 'boots' 'found';//no point in saving rarer cbds when already needing to cull the others;//moveitem 'found' 'CBD1';// sysmsg 'CBD' 53;moveitem 'found' 'Trash Barrel';sysmsg 'Trash';elseif @property 'studded armor' 'found' or @property 'studded bustier' 'found';moveitem 'found' 'BRSK1';sysmsg 'BRSK' 168;elseif not @property 'studded' 'found';moveitem 'found' 'BRSK1';sysmsg 'BRSK' 168;else;moveitem 'found' 'Trash Barrel';sysmsg 'Trash';endif;elseif @property '10' 'found' or @property '15' 'found';if not @property 'sandals' 'found' and not @property 'shoes' 'found';if not @property 'boots' 'found';if @property 'studded armor' 'found' or @property 'studded bustier' 'found';moveitem 'found' 'BRSK1';sysmsg 'BRSK' 168;elseif @property 'studded' 'found';moveitem 'found' 'HRSK1';sysmsg 'HRSK' 34;elseif not @property 'studded' 'found';moveitem 'found' 'BRSK1';sysmsg 'BRSK' 168;else;moveitem 'found' 'Trash Barrel';sysmsg 'Trash';endif;else;moveitem 'found' 'Trash Barrel';sysmsg 'Trash';endif;else;moveitem 'found' 'Trash Barrel';sysmsg 'Trash';endif;endif;elseif not @property 'exceptional' 'found';//shouldn't have these;else;moveitem 'found' 'Trash Barrel';sysmsg 'Trash';endif;elseif @property 'Spined' 'found';if not @property 'sandals' 'found' and not @property 'shoes' 'found';if not @property 'boots' 'found' and not @property 'bone' 'found';if @property 'exceptional' 'found';if @property '20' 'found';if @property 'studded armor' 'found' or @property 'studded bustier' 'found';sysmsg 'BRSK' 168;if @property 'large' 'found' and @property '20' 'found';moveitem 'found' 'lbod20female';elseif @property 'studded armor' 'found' and @property '20' 'found';moveitem 'found' '20studdedarmor';elseif @property 'studded bustier' 'found' and @property '20' 'found';moveitem 'found' '20studdedbustier';endif;elseif @property 'studded' 'found';moveitem 'found' 'HRSK1';sysmsg 'HRSK' 34;elseif not @property 'studded' 'found';sysmsg 'BRSK' 168;if @property 'large' 'found' and @property '20' 'found';moveitem 'found' 'lbod20male';elseif @property 'skirt' 'found' and @property '20' 'found';moveitem 'found' '20skirt';elseif @property 'shorts' 'found' and @property '20' 'found';moveitem 'found' '20shorts';elseif @property 'armor' 'found' and @property '20' 'found';moveitem 'found' '20armor';elseif @property 'leather bustier' 'found' and @property '20' 'found';moveitem 'found' '20leatherbustier';elseif @property 'leggings' 'found' and @property '20' 'found';moveitem 'found' '20leggings';elseif @property 'tunic' 'found' and @property '20' 'found';moveitem 'found' '20tunic';elseif @property 'gloves' 'found' and @property '20' 'found';moveitem 'found' '20gloves';elseif @property 'sleeves' 'found' and @property '20' 'found';moveitem 'found' '20sleeves';elseif @property 'gorget' 'found' and @property '20' 'found';moveitem 'found' '20gorget';elseif @property 'cap' 'found' and @property '20' 'found';moveitem 'found' '20cap';endif;endif;//elseif @property '10' 'found';//if @property 'studded' 'found';//if not @property 'studded armor' 'found' and not @property 'studded bustier' 'found';//no point in saving rarer cbds when already needing to cull the others;// moveitem 'found' 'CBD1';//sysmsg 'CBD';//endif;//endif;else;moveitem 'found' 'Trash Barrel';sysmsg 'Trash';endif;elseif not @property 'exceptional' 'found';//shouldn't have these;endif;else;moveitem 'found' 'Trash Barrel';sysmsg 'Trash';endif;else;moveitem 'found' 'Trash Barrel';sysmsg 'Trash';endif;//plain leather;elseif not @property 'bone' 'found';if @property 'exceptional' 'found';if @property '20' 'found';if @property 'studded armor' 'found' or @property 'studded bustier' 'found';//normally a 120 scroll but can put ex in normal LBOD for cbd;if @property 'large' 'found';if @property 'Contents' '120tailorlarge' &lt; 5;sysmsg '120 Tailor PS';moveitem 'found' '120tailorlarge';else;moveitem 'found' 'Trash Barrel';sysmsg 'Trash';endif;elseif not @property 'large' 'found';sysmsg 'CBD' 53;if @property 'studded armor' 'found';if @property 'Contents' 'cbdstuddedarmor' &lt; CBDamount[0];moveitem 'found' 'cbdstuddedarmor';else;moveitem 'found' 'resets';sysmsg 'CBD Reset';endif;elseif @property 'studded bustier' 'found';if @property 'Contents' 'cbdstuddedbustier' &lt; CBDamount[0];moveitem 'found' 'cbdstuddedbustier';else;moveitem 'found' 'resets';sysmsg 'CBD Reset';endif;endif;endif;elseif @property 'studded' 'found';//no point in saving rarer cbds when already needing to cull the others;// moveitem! 'found' 'CBD1';//sysmsg 'CBD' 53;moveitem! 'found' 'resets';sysmsg 'CBD Reset';else;if @property 'large' 'found';if @property 'Contents' '120tailorlarge' &lt; 5;sysmsg '120 Tailor PS';moveitem 'found' '120tailorlarge';else;moveitem 'found' 'Trash Barrel';sysmsg 'Trash';endif;elseif not @property 'large' 'found';sysmsg 'CBD' 53;if @property 'leggings' 'found';if @property 'Contents' 'cbdleggings' &lt; CBDamount[0];moveitem 'found' 'cbdleggings';else;moveitem 'found' 'resets';sysmsg 'CBD Reset';endif;elseif @property 'tunic' 'found';if @property 'Contents' 'cbdtunic' &lt; CBDamount[0];moveitem 'found' 'cbdtunic';else;moveitem 'found' 'resets';sysmsg 'CBD Reset';endif;elseif @property 'gloves' 'found';if @property 'Contents' 'cbdgloves' &lt; CBDamount[0];moveitem 'found' 'cbdgloves';else;moveitem 'found' 'resets';sysmsg 'CBD Reset';endif;elseif @property 'sleeves' 'found';if @property 'Contents' 'cbdsleeves' &lt; CBDamount[0];moveitem 'found' 'cbdsleeves';else;moveitem 'found' 'resets';sysmsg 'CBD Reset';endif;elseif @property 'gorget' 'found';if @property 'Contents' 'cbdgorget' &lt; CBDamount[0];moveitem 'found' 'cbdgorget';else;moveitem 'found' 'resets';sysmsg 'CBD Reset';endif;elseif @property 'cap' 'found';if @property 'Contents' 'cbdcap' &lt; CBDamount[0];moveitem 'found' 'cbdcap';else;moveitem 'found' 'resets';sysmsg 'CBD Reset';endif;elseif @property 'shorts' 'found';if @property 'Contents' 'cbdshorts' &lt; CBDamount[0];moveitem 'found' 'cbdshorts';else;moveitem 'found' 'resets';sysmsg 'CBD Reset';endif;elseif @property 'skirt' 'found';if @property 'Contents' 'cbdskirt' &lt; CBDamount[0];moveitem 'found' 'cbdskirt';else;moveitem 'found' 'resets';sysmsg 'CBD Reset';endif;elseif @property 'leather bustier' 'found';if @property 'Contents' 'cbdleatherbustier' &lt; CBDamount[0];moveitem 'found' 'cbdleatherbustier';else;moveitem 'found' 'resets';sysmsg 'CBD Reset';endif;elseif @property 'armor' 'found';if @property 'Contents' 'cbdarmor' &lt; CBDamount[0];moveitem 'found' 'cbdarmor';else;moveitem 'found' 'resets';sysmsg 'CBD Reset';endif;endif;endif;endif;elseif @property '10' 'found' or @property '15' 'found';if @property 'studded armor' 'found' or @property 'studded bustier' 'found';sysmsg 'HRSK' 34;if @property 'large' 'found' and @property '10' 'found';moveitem 'found' 'lbod10female';elseif @property 'large' 'found' and @property '15' 'found';moveitem 'found' 'lbod15female';elseif @property 'studded armor' 'found' and @property '10' 'found';moveitem 'found' '10studdedarmor';elseif @property 'studded armor' 'found' and @property '15' 'found';moveitem 'found' '15studdedarmor';elseif @property 'studded bustier' 'found' and @property '10' 'found';moveitem 'found' '10studdedbustier';elseif @property 'studded bustier' 'found' and @property '15' 'found';moveitem 'found' '15studdedbustier';endif;elseif not @property 'studded' 'found';sysmsg 'HRSK' 34;if @property 'large' 'found' and @property '10' 'found';moveitem 'found' 'lbod10male';elseif @property 'large' 'found' and @property '15' 'found';moveitem 'found' 'lbod15male';elseif @property 'skirt' 'found' and @property '10' 'found';moveitem 'found' '10skirt';elseif @property 'shorts' 'found' and @property '10' 'found';moveitem 'found' '10shorts';elseif @property 'armor' 'found' and @property '10' 'found';moveitem 'found' '10armor';elseif @property 'leather bustier' 'found' and @property '10' 'found';moveitem 'found' '10leatherbustier';elseif @property 'leggings' 'found' and @property '10' 'found';moveitem 'found' '10leggings';elseif @property 'tunic' 'found' and @property '10' 'found';moveitem 'found' '10tunic';elseif @property 'gloves' 'found' and @property '10' 'found';moveitem 'found' '10gloves';elseif @property 'sleeves' 'found' and @property '10' 'found';moveitem 'found' '10sleeves';elseif @property 'gorget' 'found' and @property '10' 'found';moveitem 'found' '10gorget';elseif @property 'cap' 'found' and @property '10' 'found';moveitem 'found' '10cap';elseif @property 'skirt' 'found' and @property '15' 'found';moveitem 'found' '15skirt';elseif @property 'shorts' 'found' and @property '15' 'found';moveitem 'found' '15shorts';elseif @property 'armor' 'found' and @property '15' 'found';moveitem 'found' '15armor';elseif @property 'leather bustier' 'found' and @property '15' 'found';moveitem 'found' '15leatherbustier';elseif @property 'leggings' 'found' and @property '15' 'found';moveitem 'found' '15leggings';elseif @property 'tunic' 'found' and @property '15' 'found';moveitem 'found' '15tunic';elseif @property 'gloves' 'found' and @property '15' 'found';moveitem 'found' '15gloves';elseif @property 'sleeves' 'found' and @property '15' 'found';moveitem 'found' '15sleeves';elseif @property 'gorget' 'found' and @property '15' 'found';moveitem 'found' '15gorget';elseif @property 'cap' 'found' and @property '15' 'found';moveitem 'found' '15cap';endif;elseif not @property 'large' 'found';moveitem 'found' 'resets';sysmsg 'Reset';else;moveitem 'found' 'Trash Barrel';sysmsg 'Trash';endif;endif;elseif not @property 'exceptional' 'found';//shouldn't have these;endif;endif;elseif @property 'studded armor' 'found' or @property 'studded bustier' 'found';if @property 'exceptional' 'found';if @property '20' 'found';if @property 'large' 'found';if @property 'Contents' '120tailorlarge' &lt; 5;sysmsg '120 Tailor PS';moveitem 'found' '120tailorlarge';else;moveitem 'found' 'Trash Barrel';sysmsg 'Trash';endif;elseif not @property 'large' 'found';sysmsg 'CBD' 53;if @property 'studded armor' 'found';if @property 'Contents' 'cbdstuddedarmor' &lt; CBDamount[0];moveitem 'found' 'cbdstuddedarmor';else;moveitem 'found' 'resets';sysmsg 'CBD Reset';endif;elseif @property 'studded bustier' 'found';if @property 'Contents' 'cbdstuddedbustier' &lt; CBDamount[0];moveitem 'found' 'cbdstuddedbustier';else;moveitem 'found' 'resets';sysmsg 'CBD Reset';endif;endif;endif;elseif @property '10' 'found' or @property '15' 'found';sysmsg 'HRSK' 34;if @property 'studded armor' 'found' and @property '10' 'found';moveitem 'found' '10studdedarmor';elseif @property 'studded armor' 'found' and @property '15' 'found';moveitem 'found' '15studdedarmor';elseif @property 'studded bustier' 'found' and @property '10' 'found';moveitem 'found' '10studdedbustier';elseif @property 'studded bustier' 'found' and @property '15' 'found';moveitem 'found' '15studdedbustier';endif;endif;elseif not @property 'exceptional' 'found';//shouldn't have these;endif;elseif @property 'shoes' 'found' or @property 'sandals' 'found';if not @property 'large' 'found';moveitem 'found' 'resets';sysmsg 'Reset';else;moveitem 'found' 'Trash Barrel';sysmsg 'Trash';endif;elseif @property 'boots' 'found' and not @property 'thigh' 'found';if not @property 'large' 'found';moveitem 'found' 'resets';sysmsg 'Reset';else;moveitem 'found' 'Trash Barrel';sysmsg 'Trash';endif;//town crier ex 20;elseif @property 'feathered hat' 'found' or @property 'surcoat' 'found';if @property '20' 'found' and @property 'exceptional' 'found';sysmsg 'CBD' 53;if @property 'large' 'found';if @property 'Contents' 'lbodcrier' &lt; CBDclothamount[0];moveitem 'found' 'lbodcrier';else;moveitem 'found' 'Trash Barrel';sysmsg 'Trash';endif;elseif @property 'feathered hat' 'found';if @property 'Contents' 'featheredhat' &lt; CBDclothamount[0];moveitem 'found' 'featheredhat';else;moveitem 'found' 'resets';sysmsg 'CBD Reset';endif;elseif @property 'surcoat' 'found';if @property 'Contents' 'surcoat' &lt; CBDclothamount[0];moveitem 'found' 'surcoat';else;moveitem 'found' 'resets';sysmsg 'CBD Reset';endif;endif;elseif not @property 'large' 'found';moveitem 'found' 'resets';sysmsg 'Reset';else;moveitem 'found' 'Trash Barrel';sysmsg 'Trash';endif;elseif @property 'fancy shirt' 'found' or @property 'short pants' 'found';if @property '20' 'found' and @property 'exceptional' 'found';sysmsg 'CBD' 53;if @property 'fancy shirt' 'found';if @property 'Contents' 'fancyshirt' &lt; CBDclothamount[0];moveitem 'found' 'fancyshirt';else;moveitem 'found' 'resets';sysmsg 'CBD Reset';endif;elseif @property 'short pants' 'found';if @property 'Contents' 'shortpants' &lt; CBDclothamount[0];moveitem 'found' 'shortpants';else;moveitem 'found' 'resets';sysmsg 'CBD Reset';endif;endif;elseif not @property 'large' 'found';moveitem 'found' 'resets';sysmsg 'Reset';else;moveitem 'found' 'Trash Barrel';sysmsg 'Trash';endif;elseif @property 'thigh boots' 'found' and not @property 'bandana' 'found';if @property '20' 'found' and @property 'exceptional' 'found';sysmsg 'CBD' 53;if @property 'Contents' 'thighboots' &lt; CBDclothamount[0];moveitem 'found' 'thighboots';else;moveitem 'found' 'resets';sysmsg 'CBD Reset';endif;elseif not @property 'large' 'found';moveitem 'found' 'resets';sysmsg 'Reset';else;moveitem 'found' 'Trash Barrel';sysmsg 'Trash';endif;elseif not @property 'large' 'found' and not @property 'bone' 'found';moveitem 'found' 'resets';sysmsg 'Reset';else;moveitem 'found' 'Trash Barrel';sysmsg 'Trash';endif;pause 750;if @findobject 'found' 'any' 'backpack';sysmsg 'Bod didnt sort, pausing and trying again' 34;pause 750;endif;endif;sysmsg '-' 64;endwhile;endif;endfor;@playmacro 'AfterSort';</macro>
  149. <macro loop="False" name="TrainTailor" interrupt="True">@setalias 'restock' 0x40c86f89;@setalias 'trash' 0x41fa9781;//fancy shirt;while skill 'Tailoring' &lt; 48;if counttype 0x1766 'any' 'backpack' &lt; 50;movetype 0x1766 'restock' 'backpack' [(0 0 0)] 0 1000;pause 1000;endif;usetype! 0xf9d;waitforgump 0x38920abd 1500;replygump 0x38920abd 8;waitforgump 0x38920abd 1500;replygump 0x38920abd 16;waitforgump 0x38920abd 1500;while counttype 0x1efd 0 'backpack' > 0;usetype! 0xf9f;pause 550;targettype! 0x1efd;endwhile;endwhile;//full apron;while skill 'Tailoring' &lt; 50;if counttype 0x1766 'any' 'backpack' &lt; 50;movetype 0x1766 'restock' 'backpack' [(0 0 0)] 0 1000;pause 1000;endif;usetype! 0xf9d;waitforgump 0x38920abd 1500;replygump 0x38920abd 22;waitforgump 0x38920abd 1500;replygump 0x38920abd 16;waitforgump 0x38920abd 1500;while counttype 0x153d 0 'backpack' > 0;usetype! 0xf9f;pause 550;targettype! 0x153d;endwhile;endwhile;//fur boots;while skill 'Tailoring' &lt; 60;if counttype 0x1766 'any' 'backpack' &lt; 50;movetype 0x1766 'restock' 'backpack' [(0 0 0)] 0 1000;pause 1000;endif;usetype! 0xf9d;waitforgump 0x38920abd 1500;replygump 0x38920abd 29;waitforgump 0x38920abd 1500;replygump 0x38920abd 9;waitforgump 0x38920abd 1500;while counttype 0x2307 0 'backpack' > 0;usetype! 0xf9f;pause 550;targettype! 0x2307;endwhile;endwhile;//kasa;while skill 'Tailoring' &lt; 70;if counttype 0x1766 'any' 'backpack' &lt; 50;movetype 0x1766 'restock' 'backpack' [(0 0 0)] 0 1000;pause 1000;endif;usetype! 0xf9d;waitforgump 0x38920abd 1500;replygump 0x38920abd 1;waitforgump 0x38920abd 1500;replygump 0x38920abd 100;waitforgump 0x38920abd 1500;while counttype 0x2798 0 'backpack' > 0;usetype! 0xf9f;pause 550;targettype! 0x2798;endwhile;endwhile;//ninja tabi;while skill 'Tailoring' &lt; 75;if counttype 0x1766 'any' 'backpack' &lt; 50;movetype 0x1766 'restock' 'backpack' [(0 0 0)] 0 1000;pause 1000;endif;usetype! 0xf9d;waitforgump 0x38920abd 1500;replygump 0x38920abd 29;waitforgump 0x38920abd 1500;replygump 0x38920abd 16;waitforgump 0x38920abd 1500;while counttype 0x2797 0 'backpack' > 0;usetype! 0xf9f;pause 550;targettype! 0x2797;endwhile;endwhile;//oil cloth;while skill 'Tailoring' &lt; 95;if counttype 0x1766 'any' 'backpack' &lt; 50;movetype 0x1766 'restock' 'backpack' [(0 0 0)] 0 1000;pause 1000;endif;usetype! 0xf9d;waitforgump 0x38920abd 1500;replygump 0x38920abd 22;waitforgump 0x38920abd 1500;replygump 0x38920abd 72;waitforgump 0x38920abd 1500;while counttype 0x175d 'any' 'backpack' > 0;usetype! 0xf9f;pause 550;targettype! 0x175d;endwhile;endwhile;//cloth ninja hood;while skill 'Tailoring' &lt; 105;if counttype 0x1766 'any' 'backpack' &lt; 50;movetype 0x1766 'restock' 'backpack' [(0 0 0)] 0 1000;pause 1000;endif;usetype! 0xf9d;waitforgump 0x38920abd 1500;replygump 0x38920abd 1;waitforgump 0x38920abd 1500;replygump 0x38920abd 93;waitforgump 0x38920abd 1500;while counttype 0x278f 'any' 'backpack' > 0;usetype! 0xf9f;pause 550;targettype! 0x278f;endwhile;endwhile;//studded do;while skill 'Tailoring' &lt; 120;if counttype 0x1081 'any' 'backpack' &lt; 50;movetype 0x1081 'restock' 'backpack' [(0 0 0)] 0 300;pause 1000;endif;usetype! 0xf9d;waitforgump 0x38920abd 1500;replygump 0x38920abd 43;waitforgump 0x38920abd 1500;replygump 0x38920abd 44;waitforgump 0x38920abd 1500;while counttype 0x27c7 'any' 'backpack' > 0;usetype! 0xf9f;pause 550;targettype! 0x27c7;endwhile;endwhile;</macro>
  150. <macro loop="False" name="Sort Hammers" interrupt="True">sysmsg 'Target the bag containing hammers' 34;promptalias 'hammerbag';clearignorelist;@setalias 'shadow' 0x414d8c74;@setalias 'copper' 0x414d8c78;@setalias 'bronze' 0x414d8c75;@setalias 'gold' 0x414d8c76;@setalias 'agapite' 0x414d8c77;@setalias 'ASH' 0x42622812;@setalias '30ASH' 0x43c5660a;@setalias '120' 0x43fc1ed3;while @findtype 0x13e3 'any' 'hammerbag' or @findtype 0x13e4 'any' 'hammerbag';if color 'found' == 2406;moveitem 'found' 'shadow';sysmsg 'Shadow' 1;elseif color 'found' == 2413;moveitem 'found' 'copper';sysmsg 'Copper' 142;elseif color 'found' == 2418;moveitem 'found' 'bronze';sysmsg 'Bronze' 248;elseif color 'found' == 2213;moveitem 'found' 'gold';sysmsg 'Gold' 53;elseif color 'found' == 2425;moveitem 'found' 'agapite';sysmsg 'Agapite' 31;elseif color 'found' == 2207;moveitem 'found' 'agapite';sysmsg 'Verite' 68;elseif color 'found' == 2219;moveitem 'found' 'agapite';sysmsg 'Valorite' 3;elseif color 'found' == 1154;if @property '+60' 'found';moveitem 'found' 'agapite';sysmsg '+60 ASH' 88;elseif @property '+30' 'found';moveitem 'found' '30ash';sysmsg '+30 ASH' 88;else;moveitem 'found' 'ASH';sysmsg '+15 ASH' 88;endif;else;ignoreobject 'found';endif;pause 550;endwhile;while @findtype 0x14f0 '1153' 'hammerbag';moveitem 'found' '120';endwhile;clearignorelist;@setalias 'Trash Barrel' 0x4313db26;if @findtype 0x13e3 '2419' 'hammerbag';sysmsg 'Go near the trash can to throw away dull copper' 34;while not @inrange 'Trash Barrel' 2;endwhile;while @findtype 0x13e3 '2419' 'hammerbag';moveitem 'found' 'Trash Barrel';pause 550;endwhile;endif;</macro>
  151. <macro loop="True" name="Luna Gear Drop" interrupt="True">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 0x40d01398;waitforgump 0x554b87f3 15000;replygump 0x554b87f3 71;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;pause 1000;useobject 0x40d01398;waitforgump 0x554b87f3 15000;replygump 0x554b87f3 77;pause 3000;while y &lt; 111;walk 'north';pause 500;endwhile;while y > 117;walk 'north';pause 500;endwhile;while y &lt; 117;walk 'south';pause 500;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 0x40d01398;waitforgump 0x554b87f3 15000;replygump 0x554b87f3 71;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;pause 1000;useobject 0x40d01398;waitforgump 0x554b87f3 15000;replygump 0x554b87f3 77;pause 3000;while y &lt; 111;walk 'north';pause 500;endwhile;while y > 117;walk 'north';pause 500;endwhile;while y &lt; 117;walk 'south';pause 500;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>
  152. <macro loop="False" name="Unpack Copper" interrupt="True">@setalias 'copperlbod' 0x42afa8ab;@setalias 'copperlegs' 0x42afa8af;@setalias 'coppertunic' 0x42afa8ac;@setalias 'coppergloves' 0x42afa8ad;@setalias 'copperarms' 0x42afa8aa;@setalias 'coppergorget' 0x42afa8b0;@setalias 'copperhelm' 0x42afa8ae;@setalias 'copperstorage' 0x42afa8b1;if not hidden 'self';useskill 'hiding';endif;if not @inrange 'copperlbod' 2;sysmsg 'Stand near the copper unpack station' 34;stop;endif;sysmsg 'Target the book in your backpack containing all your copper hammer L&amp;SBods' 34;promptalias 'copperbook';useobject 'copperbook';waitforgump 0x54f555df 15000;replygump 0x54f555df 1;waitforgump 0x968739db 15000;replygump 0x968739db 3;waitforgump 0x968739db 15000;replygump 0x968739db 0;waitforgump 0x54f555df 15000;pause 550;useobject 'copperstorage';pause 750;while @property 'Deeds in Book' 'copperbook' > 0;if @injournal 'world will save';while not @injournal 'world save complete';endwhile;@clearjournal;endif;if not @findtype 0x2258 'any' 'backpack';useobject 'copperbook';waitforgump 0x54f555df 2500;while @property 'Deeds in Book' 'copperbook' > 0 and @property 'Contents' 'backpack' &lt; 123;replygump 0x54f555df 5;waitforgump 0x54f555df 1500;endwhile;endif;if @injournal 'world will save';while not @injournal 'world save complete';endwhile;@clearjournal;endif;pause 550;while @findtype 0x2258 'any' 'backpack';@unsetalias 'valid';if @injournal 'world will save';while not @injournal 'world save complete';endwhile;@clearjournal;endif;if @property 'exceptional' 'found' and @property '20' 'found';if @property 'plate' 'found' and not @property 'valorite' 'found';if not @property 'verite' 'found' and not @property 'agapite' 'found';if not @property 'gold' 'found' and not @property 'bronze ingots' 'found';if not @property 'copper' 'found' and not @property 'shadow' 'found';if @property 'arms' 'found' and @property 'legs' 'found';moveitem 'found' 'copperlbod';@setalias 'valid' 'found';pause 750;elseif @property 'legs' 'found';moveitem 'found' 'copperlegs';@setalias 'valid' 'found';pause 750;elseif @property 'tunic' 'found';moveitem 'found' 'coppertunic';@setalias 'valid' 'found';pause 750;elseif @property 'gloves' 'found';moveitem 'found' 'coppergloves';@setalias 'valid' 'found';pause 750;elseif @property 'arms' 'found';moveitem 'found' 'copperarms';@setalias 'valid' 'found';pause 750;elseif @property 'gorget' 'found';moveitem 'found' 'coppergorget';@setalias 'valid' 'found';pause 750;elseif @property 'helm' 'found';moveitem 'found' 'copperhelm';@setalias 'valid' 'found';pause 750;endif;endif;endif;endif;endif;endif;if @findobject 'found' 'any' 'backpack' and not @findalias 'valid';sysmsg 'Unexpected bod. Fix.' 34;moveitem 'found' 'copperstorage';pause 750;endif;endwhile;endwhile;pause 1000;moveitem 'copperbook' 'copperstorage';if skill 'Blacksmithy' >= 120;pause 1000;@playmacro 'Pull Copper to Craft';endif;</macro>
  153. <macro loop="False" name="Pull Copper to Craft" interrupt="True">//change this number to how many you want to pull;for 14;@setalias 'copperlbod' 0x42afa8ab;@setalias 'copperlegs' 0x42afa8af;@setalias 'coppertunic' 0x42afa8ac;@setalias 'coppergloves' 0x42afa8ad;@setalias 'copperarms' 0x42afa8aa;@setalias 'coppergorget' 0x42afa8b0;@setalias 'copperhelm' 0x42afa8ae;@setalias 'copperstorage' 0x42afa8b1;if not @inrange 'copperlbod' 2;sysmsg 'Stand near the copper unpack station' 34;stop;endif;if not hidden 'self';useskill 'hiding';endif;if @injournal 'world will save';while not @injournal 'world save complete';endwhile;@clearjournal;endif;if @property 'Contents' 'copperlbod' > 0 and @property 'Contents' 'copperlegs' > 0;if @property 'Contents' 'coppertunic' > 0 and @property 'Contents' 'coppergloves' > 0;if @property 'Contents' 'copperarms' > 0 and @property 'Contents' 'coppergorget' > 0;if @property 'Contents' 'copperhelm' > 0;while @property 'Contents' 'copperlbod' > 0 and not counttype 0x2258 1102 'copperlbod' > 0;useobject 'copperlbod';pause 750;endwhile;while @property 'Contents' 'copperlegs' > 0 and not counttype 0x2258 1102 'copperlegs' > 0;useobject 'copperlegs';pause 750;endwhile;while @property 'Contents' 'coppertunic' > 0 and not counttype 0x2258 1102 'coppertunic' > 0;useobject 'coppertunic';pause 750;endwhile;while @property 'Contents' 'coppergloves' > 0 and not counttype 0x2258 1102 'coppergloves' > 0;useobject 'coppergloves';pause 750;endwhile;while @property 'Contents' 'copperarms' > 0 and not counttype 0x2258 1102 'copperarms' > 0;useobject 'copperarms';pause 750;endwhile;while @property 'Contents' 'coppergorget' > 0 and not counttype 0x2258 1102 'coppergorget' > 0;useobject 'coppergorget';pause 750;endwhile;while @property 'Contents' 'copperhelm' > 0 and not counttype 0x2258 1102 'copperhelm' > 0;useobject 'copperhelm';pause 750;endwhile;endif;endif;endif;endif;if @injournal 'world will save';while not @injournal 'world save complete';endwhile;@clearjournal;endif;//;//;//;@unsetalias 'copperhammer';sysmsg '-' 33;if @property 'Contents' 'copperlbod' > 0 and @property 'Contents' 'copperlegs' > 0;if @property 'Contents' 'coppertunic' > 0 and @property 'Contents' 'coppergloves' > 0;if @property 'Contents' 'copperarms' > 0 and @property 'Contents' 'coppergorget' > 0;if @property 'Contents' 'copperhelm' > 0;@setalias 'copperhammer' 'self';sysmsg '20 Iron Plate' 142;endif;endif;endif;endif;if @injournal 'world will save';while not @injournal 'world save complete';endwhile;@clearjournal;endif;if @findalias 'copperhammer';movetype 0x2258 'copperlbod' 'backpack';pause 750;movetype 0x2258 'copperlegs' 'backpack';pause 750;movetype 0x2258 'coppertunic' 'backpack';pause 750;movetype 0x2258 'coppergloves' 'backpack';pause 750;movetype 0x2258 'coppergorget' 'backpack';pause 750;movetype 0x2258 'copperarms' 'backpack';pause 750;movetype 0x2258 'copperhelm' 'backpack';pause 750;else;sysmsg 'No full Copper sets' 34;break;endif;endfor;if counttype 0x2258 1102 'backpack' > 0;//;//walk home code;//x, y of center goza;while not x == 1176 or not y == 2790;if x &lt; 1164 or x > 1185;while not y == 2790;if y &lt; 2790;walk 'south';else;walk 'north';endif;pause 500;endwhile;while not x == 1176;if x > 1176;walk 'west';else;walk 'east';endif;pause 500;endwhile;else;while not x == 1176;if x > 1176;walk 'west';else;walk 'east';endif;pause 500;endwhile;while not y == 2790;if y &lt; 2790;walk 'south';else;walk 'north';endif;pause 500;endwhile;endif;endwhile;//;//;@playmacro 'CraftFill Loose Bods';else;@playmacro 'Pack Copper';endif;</macro>
  154. <macro loop="False" name="Pack Copper" interrupt="True">@setalias 'copperlbod' 0x42afa8ab;@setalias 'copperlegs' 0x42afa8af;@setalias 'coppertunic' 0x42afa8ac;@setalias 'coppergloves' 0x42afa8ad;@setalias 'copperarms' 0x42afa8aa;@setalias 'coppergorget' 0x42afa8b0;@setalias 'copperhelm' 0x42afa8ae;@setalias 'copperstorage' 0x42afa8b1;if not hidden 'self';useskill 'hiding';endif;if not @inrange 'copperlbod' 2;sysmsg 'Stand near the copper unpack station' 34;stop;endif;useobject 'copperstorage';pause 750;if counttype 0x2259 'any' 'backpack' > 0 and @property 'Contents' 'backpack' > 24;sysmsg 'You might not have enough room to pack. Get rid of books in your pack before starting this macro' 34;stop;endif;if findtype 0x2259 'any' 'copperstorage';@setalias 'copperbook' 'found';moveitem 'copperbook' 'backpack';pause 1000;else;sysmsg 'The copper book isnt in the storage bag' 34;stop;endif;if @injournal 'world will save';while not @injournal 'world save complete';endwhile;@clearjournal;endif;while @property 'Contents' 'copperlbod' > 0 and not counttype 0x2258 1102 'copperlbod' > 0;useobject 'copperlbod';pause 750;endwhile;while @property 'Contents' 'copperlegs' > 0 and not counttype 0x2258 1102 'copperlegs' > 0;useobject 'copperlegs';pause 750;endwhile;while @property 'Contents' 'coppertunic' > 0 and not counttype 0x2258 1102 'coppertunic' > 0;useobject 'coppertunic';pause 750;endwhile;while @property 'Contents' 'coppergloves' > 0 and not counttype 0x2258 1102 'coppergloves' > 0;useobject 'coppergloves';pause 750;endwhile;while @property 'Contents' 'copperarms' > 0 and not counttype 0x2258 1102 'copperarms' > 0;useobject 'copperarms';pause 750;endwhile;while @property 'Contents' 'coppergorget' > 0 and not counttype 0x2258 1102 'coppergorget' > 0;useobject 'coppergorget';pause 750;endwhile;while @property 'Contents' 'copperhelm' > 0 and not counttype 0x2258 1102 'copperhelm' > 0;useobject 'copperhelm';pause 750;endwhile;while @findtype 0x2258 1102 'copperlbod';moveitem 'found' 'copperbook';endwhile;while @findtype 0x2258 1102 'copperlegs';moveitem 'found' 'copperbook';endwhile;while @findtype 0x2258 1102 'coppertunic';moveitem 'found' 'copperbook';endwhile;while @findtype 0x2258 1102 'coppergloves';moveitem 'found' 'copperbook';endwhile;while @findtype 0x2258 1102 'copperarms';moveitem 'found' 'copperbook';endwhile;while @findtype 0x2258 1102 'coppergorget';moveitem 'found' 'copperbook';endwhile;while @findtype 0x2258 1102 'copperhelm';moveitem 'found' 'copperbook';endwhile;if @injournal 'world will save';while not @injournal 'world save complete';endwhile;@clearjournal;endif;//;//walk home code;//x, y of center goza;while not x == 1176 or not y == 2790;if x &lt; 1164 or x > 1185;while not y == 2790;if y &lt; 2790;walk 'south';else;walk 'north';endif;pause 500;endwhile;while not x == 1176;if x > 1176;walk 'west';else;walk 'east';endif;pause 500;endwhile;else;while not x == 1176;if x > 1176;walk 'west';else;walk 'east';endif;pause 500;endwhile;while not y == 2790;if y &lt; 2790;walk 'south';else;walk 'north';endif;pause 500;endwhile;endif;endwhile;//;//;if @injournal 'world will save';while not @injournal 'world save complete';endwhile;@clearjournal;endif;@setalias 'copper2' 0x42c77275;moveitem 'copperbook' 'copper2';</macro>
  155. <macro loop="False" name="Pull 15ASH to Craft" interrupt="True">//change this number to how many you want to pull;for 14;@setalias 'dclbod' 0x42d80bca;@setalias 'dcleg' 0x42d80bd8;@setalias 'dctunic' 0x42d80bcf;@setalias 'dcgloves' 0x42d80ba5;@setalias 'dcarms' 0x42d80ba8;@setalias 'dcgorget' 0x42d80baa;@setalias 'dchelm' 0x42d80bab;//;@setalias '10shadowlbod' 0x42d816e1;@setalias '10shadowleg' 0x42d80bd3;@setalias '10shadowtunic' 0x42d816e2;@setalias '10shadowgloves' 0x42d80bcc;@setalias '10shadowarms' 0x42d80bcb;@setalias '10shadowgorget' 0x42d80bd6;@setalias '10shadowhelm' 0x42d95b35;//;@setalias '15shadowlbod' 0x42d80bd4;@setalias '15shadowleg' 0x42d80ba6;@setalias '15shadowtunic' 0x42d80bd1;@setalias '15shadowgloves' 0x42d80bd7;@setalias '15shadowarms' 0x42d80ba9;@setalias '15shadowgorget' 0x42d80bd0;@setalias '15shadowhelm' 0x42d80bce;//;@setalias '15agapitelbod' 0x42e0b3a8;@setalias '15agapiteleg' 0x42e0b3a0;@setalias '15agapitetunic' 0x42e0b3ab;@setalias '15agapitegloves' 0x42e0b3a5;@setalias '15agapitesleeves' 0x42e0b39e;//;@setalias '20copperlbod' 0x42e0b3a9;@setalias '20copperleg' 0x42e0b3a4;@setalias '20coppertunic' 0x42e0b39f;@setalias '20coppercoif' 0x42e0b3a6;//;@setalias '15bronzelbod' 0x42e0b3a2;@setalias '15bronzeleg' 0x42e0b3aa;@setalias '15bronzetunic' 0x42e0b3a1;@setalias '15bronzecoif' 0x42e0b3ae;//;@setalias '10bronzelbod' 0x42e0b3a3;@setalias '10bronzeleg' 0x42e0b3ac;@setalias '10bronzetunic' 0x42e0b3a7;@setalias '10bronzecoif' 0x42e0b3ad;//;@setalias '15ashstorage' 0x42ac299e;if @injournal 'world will save';while not @injournal 'world save complete';endwhile;@clearjournal;endif;if not hidden 'self';useskill 'hiding';endif;if @property 'Contents' 'dclbod' > 0 and @property 'Contents' 'dcleg' > 0;if @property 'Contents' 'dctunic' > 0 and @property 'Contents' 'dcgloves' > 0;if @property 'Contents' 'dcarms' > 0 and @property 'Contents' 'dcgorget' > 0;if @property 'Contents' 'dchelm' > 0;while @property 'Contents' 'dclbod' > 0 and not counttype 0x2258 1102 'dclbod' > 0;useobject 'dclbod';pause 750;endwhile;while @property 'Contents' 'dcleg' > 0 and not counttype 0x2258 1102 'dcleg' > 0;useobject 'dcleg';pause 750;endwhile;while @property 'Contents' 'dctunic' > 0 and not counttype 0x2258 1102 'dctunic' > 0;useobject 'dctunic';pause 750;endwhile;while @property 'Contents' 'dcgloves' > 0 and not counttype 0x2258 1102 'dcgloves' > 0;useobject 'dcgloves';pause 750;endwhile;while @property 'Contents' 'dcarms' > 0 and not counttype 0x2258 1102 'dcarms' > 0;useobject 'dcarms';pause 750;endwhile;while @property 'Contents' 'dcgorget' > 0 and not counttype 0x2258 1102 'dcgorget' > 0;useobject 'dcgorget';pause 750;endwhile;while @property 'Contents' 'dchelm' > 0 and not counttype 0x2258 1102 'dchelm' > 0;useobject 'dchelm';pause 750;endwhile;endif;endif;endif;endif;//;while @injournal 'world will save';while not @injournal 'world save complete';endwhile;@clearjournal;endwhile;if @property 'Contents' '10shadowlbod' > 0 and @property 'Contents' '10shadowleg' > 0;if @property 'Contents' '10shadowtunic' > 0 and @property 'Contents' '10shadowgloves' > 0;if @property 'Contents' '10shadowarms' > 0 and @property 'Contents' '10shadowgorget' > 0;if @property 'Contents' '10shadowhelm' > 0;while @property 'Contents' '10shadowlbod' > 0 and not counttype 0x2258 1102 '10shadowlbod' > 0;useobject '10shadowlbod';pause 750;endwhile;while @property 'Contents' '10shadowleg' > 0 and not counttype 0x2258 1102 '10shadowleg' > 0;useobject '10shadowleg';pause 750;endwhile;while @property 'Contents' '10shadowtunic' > 0 and not counttype 0x2258 1102 '10shadowtunic' > 0;useobject '10shadowtunic';pause 750;endwhile;while @property 'Contents' '10shadowgloves' > 0 and not counttype 0x2258 1102 '10shadowgloves' > 0;useobject '10shadowgloves';pause 750;endwhile;while @property 'Contents' '10shadowarms' > 0 and not counttype 0x2258 1102 '10shadowarms' > 0;useobject '10shadowarms';pause 750;endwhile;while @property 'Contents' '10shadowgorget' > 0 and not counttype 0x2258 1102 '10shadowgorget' > 0;useobject '10shadowgorget';pause 750;endwhile;while @property 'Contents' '10shadowhelm' > 0 and not counttype 0x2258 1102 '10shadowhelm' > 0;useobject '10shadowhelm';pause 750;endwhile;endif;endif;endif;endif;if @property 'Contents' '15shadowlbod' > 0 and @property 'Contents' '15shadowleg' > 0;if @property 'Contents' '15shadowtunic' > 0 and @property 'Contents' '15shadowgloves' > 0;if @property 'Contents' '15shadowarms' > 0 and @property 'Contents' '15shadowgorget' > 0;if @property 'Contents' '15shadowhelm' > 0;while @property 'Contents' '15shadowlbod' > 0 and not counttype 0x2258 1102 '15shadowlbod' > 0;useobject '15shadowlbod';pause 750;endwhile;while @property 'Contents' '15shadowleg' > 0 and not counttype 0x2258 1102 '15shadowleg' > 0;useobject '15shadowleg';pause 750;endwhile;while @property 'Contents' '15shadowtunic' > 0 and not counttype 0x2258 1102 '15shadowtunic' > 0;useobject '15shadowtunic';pause 750;endwhile;while @property 'Contents' '15shadowgloves' > 0 and not counttype 0x2258 1102 '15shadowgloves' > 0;useobject '15shadowgloves';pause 750;endwhile;while @property 'Contents' '15shadowarms' > 0 and not counttype 0x2258 1102 '15shadowarms' > 0;useobject '15shadowarms';pause 750;endwhile;while @property 'Contents' '15shadowgorget' > 0 and not counttype 0x2258 1102 '15shadowgorget' > 0;useobject '15shadowgorget';pause 750;endwhile;while @property 'Contents' '15shadowhelm' > 0 and not counttype 0x2258 1102 '15shadowhelm' > 0;useobject '15shadowhelm';pause 750;endwhile;endif;endif;endif;endif;while @injournal 'world will save';while not @injournal 'world save complete';endwhile;@clearjournal;endwhile;if @property 'Contents' '15agapitelbod' > 0 and @property 'Contents' '15agapiteleg' > 0;if @property 'Contents' '15agapitetunic' > 0 and @property 'Contents' '15agapitegloves' > 0;if @property 'Contents' '15agapitesleeves' > 0;while @property 'Contents' '15agapitelbod' > 0 and not counttype 0x2258 1102 '15agapitelbod' > 0;useobject '15agapitelbod';pause 750;endwhile;while @property 'Contents' '15agapiteleg' > 0 and not counttype 0x2258 1102 '15agapiteleg' > 0;useobject '15agapiteleg';pause 750;endwhile;while @property 'Contents' '15agapitetunic' > 0 and not counttype 0x2258 1102 '15agapitetunic' > 0;useobject '15agapitetunic';pause 750;endwhile;while @property 'Contents' '15agapitegloves' > 0 and not counttype 0x2258 1102 '15agapitegloves' > 0;useobject '15agapitegloves';pause 750;endwhile;while @property 'Contents' '15agapitesleeves' > 0 and not counttype 0x2258 1102 '15agapitesleeves' > 0;useobject '15agapitesleeves';pause 750;endwhile;endif;endif;endif;if @property 'Contents' '20copperlbod' > 0 and @property 'Contents' '20copperleg' > 0;if @property 'Contents' '20coppertunic' > 0 and @property 'Contents' '20coppercoif' > 0;while @property 'Contents' '20copperlbod' > 0 and not counttype 0x2258 1102 '20copperlbod' > 0;useobject '20copperlbod';pause 750;endwhile;while @property 'Contents' '20copperleg' > 0 and not counttype 0x2258 1102 '20copperleg' > 0;useobject '20copperleg';pause 750;endwhile;while @property 'Contents' '20coppertunic' > 0 and not counttype 0x2258 1102 '20coppertunic' > 0;useobject '20coppertunic';pause 750;endwhile;while @property 'Contents' '20coppercoif' > 0 and not counttype 0x2258 1102 '20coppercoif' > 0;useobject '20coppercoif';pause 750;endwhile;endif;endif;//;while @injournal 'world will save';while not @injournal 'world save complete';endwhile;@clearjournal;endwhile;if @property 'Contents' '15bronzelbod' > 0 and @property 'Contents' '15bronzeleg' > 0;if @property 'Contents' '15bronzetunic' > 0 and @property 'Contents' '15bronzecoif' > 0;while @property 'Contents' '15bronzelbod' > 0 and not counttype 0x2258 1102 '15bronzelbod' > 0;useobject '15bronzelbod';pause 750;endwhile;while @property 'Contents' '15bronzeleg' > 0 and not counttype 0x2258 1102 '15bronzeleg' > 0;useobject '15bronzeleg';pause 750;endwhile;while @property 'Contents' '15bronzetunic' > 0 and not counttype 0x2258 1102 '15bronzetunic' > 0;useobject '15bronzetunic';pause 750;endwhile;while @property 'Contents' '15bronzecoif' > 0 and not counttype 0x2258 1102 '15bronzecoif' > 0;useobject '15bronzecoif';pause 750;endwhile;endif;endif;if @property 'Contents' '10bronzelbod' > 0 and @property 'Contents' '10bronzeleg' > 0;if @property 'Contents' '10bronzetunic' > 0 and @property 'Contents' '10bronzecoif' > 0;while @property 'Contents' '10bronzelbod' > 0 and not counttype 0x2258 1102 '10bronzelbod' > 0;useobject '10bronzelbod';pause 750;endwhile;while @property 'Contents' '10bronzeleg' > 0 and not counttype 0x2258 1102 '10bronzeleg' > 0;useobject '10bronzeleg';pause 750;endwhile;while @property 'Contents' '10bronzetunic' > 0 and not counttype 0x2258 1102 '10bronzetunic' > 0;useobject '10bronzetunic';pause 750;endwhile;while @property 'Contents' '10bronzecoif' > 0 and not counttype 0x2258 1102 '10bronzecoif' > 0;useobject '10bronzecoif';pause 750;endwhile;endif;endif;@unsetalias '10bronze';@unsetalias '15bronze';@unsetalias '20copper';@unsetalias '15agapite';@unsetalias 'dc';@unsetalias '10shadow';@unsetalias '15shadow';sysmsg '-' 33;////;if @property 'Contents' 'dclbod' > 0 and @property 'Contents' 'dcleg' > 0;if @property 'Contents' 'dctunic' > 0 and @property 'Contents' 'dcgloves' > 0;if @property 'Contents' 'dcarms' > 0 and @property 'Contents' 'dcgorget' > 0;if @property 'Contents' 'dchelm' > 0;@setalias 'dc' 'self';sysmsg '20 Dull Plate' 648;endif;endif;endif;endif;if @property 'Contents' '10shadowlbod' > 0 and @property 'Contents' '10shadowleg' > 0;if @property 'Contents' '10shadowtunic' > 0 and @property 'Contents' '10shadowgloves' > 0;if @property 'Contents' '10shadowarms' > 0 and @property 'Contents' '10shadowgorget' > 0;if @property 'Contents' '10shadowhelm' > 0;@setalias '10shadow' 'self';sysmsg '10 Shadow Plate' 1000;endif;endif;endif;endif;if @property 'Contents' '15shadowlbod' > 0 and @property 'Contents' '15shadowleg' > 0;if @property 'Contents' '15shadowtunic' > 0 and @property 'Contents' '15shadowgloves' > 0;if @property 'Contents' '15shadowarms' > 0 and @property 'Contents' '15shadowgorget' > 0;if @property 'Contents' '15shadowhelm' > 0;@setalias '15shadow' 'self';sysmsg '15 Shadow Plate' 1000;endif;endif;endif;endif;if @property 'Contents' '15agapitelbod' > 0 and @property 'Contents' '15agapiteleg' > 0;if @property 'Contents' '15agapitetunic' > 0 and @property 'Contents' '15agapitegloves' > 0;if @property 'Contents' '15agapitesleeves' > 0;@setalias '15agapite' 'self';sysmsg '15 Agapite Ringmail' 36;endif;endif;endif;if @property 'Contents' '20copperlbod' > 0 and @property 'Contents' '20copperleg' > 0;if @property 'Contents' '20coppertunic' > 0 and @property 'Contents' '20coppercoif' > 0;@setalias '20copper' 'self';sysmsg '20 Copper Chainmail' 142;endif;endif;if @property 'Contents' '10bronzelbod' > 0 and @property 'Contents' '10bronzeleg' > 0;if @property 'Contents' '10bronzetunic' > 0 and @property 'Contents' '10bronzecoif' > 0;@setalias '10bronze' 'self';sysmsg '10 Bronze Chainmail' 248;endif;endif;if @property 'Contents' '15bronzelbod' > 0 and @property 'Contents' '15bronzeleg' > 0;if @property 'Contents' '15bronzetunic' > 0 and @property 'Contents' '15bronzecoif' > 0;@setalias '15bronze' 'self';sysmsg '15 Bronze Chainmail' 248;endif;endif;if @injournal 'world will save';while not @injournal 'world save complete';endwhile;@clearjournal;endif;if @findalias 'dc';movetype 0x2258 'dclbod' 'backpack';pause 750;movetype 0x2258 'dcleg' 'backpack';pause 750;movetype 0x2258 'dctunic' 'backpack';pause 750;movetype 0x2258 'dcgloves' 'backpack';pause 750;movetype 0x2258 'dcarms' 'backpack';pause 750;movetype 0x2258 'dcgorget' 'backpack';pause 750;movetype 0x2258 'dchelm' 'backpack';pause 750;elseif @findalias '10shadow';movetype 0x2258 '10shadowlbod' 'backpack';pause 750;movetype 0x2258 '10shadowleg' 'backpack';pause 750;movetype 0x2258 '10shadowtunic' 'backpack';pause 750;movetype 0x2258 '10shadowgloves' 'backpack';pause 750;movetype 0x2258 '10shadowarms' 'backpack';pause 750;movetype 0x2258 '10shadowgorget' 'backpack';pause 750;movetype 0x2258 '10shadowhelm' 'backpack';pause 750;elseif @findalias '15shadow';movetype 0x2258 '15shadowlbod' 'backpack';pause 750;movetype 0x2258 '15shadowleg' 'backpack';pause 750;movetype 0x2258 '15shadowtunic' 'backpack';pause 750;movetype 0x2258 '15shadowgloves' 'backpack';pause 750;movetype 0x2258 '15shadowarms' 'backpack';pause 750;movetype 0x2258 '15shadowgorget' 'backpack';pause 750;movetype 0x2258 '15shadowhelm' 'backpack';pause 750;elseif @findalias '10bronze';movetype 0x2258 '10bronzelbod' 'backpack';pause 750;movetype 0x2258 '10bronzeleg' 'backpack';pause 750;movetype 0x2258 '10bronzetunic' 'backpack';pause 750;movetype 0x2258 '10bronzecoif' 'backpack';pause 750;elseif @findalias '15bronze';movetype 0x2258 '15bronzelbod' 'backpack';pause 750;movetype 0x2258 '15bronzeleg' 'backpack';pause 750;movetype 0x2258 '15bronzetunic' 'backpack';pause 750;movetype 0x2258 '15bronzecoif' 'backpack';pause 750;elseif @findalias '20copper';movetype 0x2258 '20copperlbod' 'backpack';pause 750;movetype 0x2258 '20copperleg' 'backpack';pause 750;movetype 0x2258 '20coppertunic' 'backpack';pause 750;movetype 0x2258 '20coppercoif' 'backpack';pause 750;elseif @findalias '15agapite';movetype 0x2258 '15agapitelbod' 'backpack';pause 750;movetype 0x2258 '15agapiteleg' 'backpack';pause 750;movetype 0x2258 '15agapitetunic' 'backpack';pause 750;movetype 0x2258 '15agapitegloves' 'backpack';pause 750;movetype 0x2258 '15agapitesleeves' 'backpack';pause 750;else;sysmsg 'No full 15 ASH sets' 34;break;endif;endfor;if counttype 0x2258 1102 'backpack' > 0;//;//walk home code;//x, y of center goza;while not x == 1176 or not y == 2790;if x &lt; 1164 or x > 1185;while not y == 2790;if y &lt; 2790;walk 'south';else;walk 'north';endif;pause 500;endwhile;while not x == 1176;if x > 1176;walk 'west';else;walk 'east';endif;pause 500;endwhile;else;while not x == 1176;if x > 1176;walk 'west';else;walk 'east';endif;pause 500;endwhile;while not y == 2790;if y &lt; 2790;walk 'south';else;walk 'north';endif;pause 500;endwhile;endif;endwhile;//;//;@playmacro 'CraftFill Loose Bods';else;@playmacro 'Pack 15ASH';endif;</macro>
  156. <macro loop="False" name="Pack 15ASH" interrupt="True">@setalias 'dclbod' 0x42d80bca;@setalias 'dcleg' 0x42d80bd8;@setalias 'dctunic' 0x42d80bcf;@setalias 'dcgloves' 0x42d80ba5;@setalias 'dcarms' 0x42d80ba8;@setalias 'dcgorget' 0x42d80baa;@setalias 'dchelm' 0x42d80bab;//;@setalias '10shadowlbod' 0x42d816e1;@setalias '10shadowleg' 0x42d80bd3;@setalias '10shadowtunic' 0x42d816e2;@setalias '10shadowgloves' 0x42d80bcc;@setalias '10shadowarms' 0x42d80bcb;@setalias '10shadowgorget' 0x42d80bd6;@setalias '10shadowhelm' 0x42d95b35;//;@setalias '15shadowlbod' 0x42d80bd4;@setalias '15shadowleg' 0x42d80ba6;@setalias '15shadowtunic' 0x42d80bd1;@setalias '15shadowgloves' 0x42d80bd7;@setalias '15shadowarms' 0x42d80ba9;@setalias '15shadowgorget' 0x42d80bd0;@setalias '15shadowhelm' 0x42d80bce;//;@setalias '15agapitelbod' 0x42e0b3a8;@setalias '15agapiteleg' 0x42e0b3a0;@setalias '15agapitetunic' 0x42e0b3ab;@setalias '15agapitegloves' 0x42e0b3a5;@setalias '15agapitesleeves' 0x42e0b39e;//;@setalias '20copperlbod' 0x42e0b3a9;@setalias '20copperleg' 0x42e0b3a4;@setalias '20coppertunic' 0x42e0b39f;@setalias '20coppercoif' 0x42e0b3a6;//;@setalias '15bronzelbod' 0x42e0b3a2;@setalias '15bronzeleg' 0x42e0b3aa;@setalias '15bronzetunic' 0x42e0b3a1;@setalias '15bronzecoif' 0x42e0b3ae;//;@setalias '10bronzelbod' 0x42e0b3a3;@setalias '10bronzeleg' 0x42e0b3ac;@setalias '10bronzetunic' 0x42e0b3a7;@setalias '10bronzecoif' 0x42e0b3ad;//;@setalias '15ashstorage' 0x42ac299e;useobject '15ashstorage';pause 750;if @injournal 'world will save';while not @injournal 'world save complete';endwhile;@clearjournal;endif;if not @inrange '15bronzelbod' 2 or not @inrange 'dclbod' 2;sysmsg 'Stand near the +15 ASH unpack station' 34;stop;endif;if counttype 0x2259 'any' 'backpack' > 0 and @property 'Contents' 'backpack' > 24;sysmsg 'You might not have enough room to pack. Get rid of books in your pack before starting this macro' 34;stop;endif;if findtype 0x2259 'any' '15ashstorage';@setalias '15ashbook' 'found';moveitem '15ashbook' 'backpack';pause 1000;else;sysmsg 'The 15 ASH book isnt in the storage bag' 34;stop;endif;if not hidden 'self';useskill 'hiding';endif;while @property 'Contents' 'dclbod' > 0 and not counttype 0x2258 1102 'dclbod' > 0;useobject 'dclbod';pause 750;endwhile;while @property 'Contents' 'dcleg' > 0 and not counttype 0x2258 1102 'dcleg' > 0;useobject 'dcleg';pause 750;endwhile;while @property 'Contents' 'dctunic' > 0 and not counttype 0x2258 1102 'dctunic' > 0;useobject 'dctunic';pause 750;endwhile;while @property 'Contents' 'dcgloves' > 0 and not counttype 0x2258 1102 'dcgloves' > 0;useobject 'dcgloves';pause 750;endwhile;while @property 'Contents' 'dcarms' > 0 and not counttype 0x2258 1102 'dcarms' > 0;useobject 'dcarms';pause 750;endwhile;while @property 'Contents' 'dcgorget' > 0 and not counttype 0x2258 1102 'dcgorget' > 0;useobject 'dcgorget';pause 750;endwhile;while @property 'Contents' 'dchelm' > 0 and not counttype 0x2258 1102 'dchelm' > 0;useobject 'dchelm';pause 750;endwhile;//;while @injournal 'world will save';while not @injournal 'world save complete';endwhile;@clearjournal;endwhile;while @property 'Contents' '10shadowlbod' > 0 and not counttype 0x2258 1102 '10shadowlbod' > 0;useobject '10shadowlbod';pause 750;endwhile;while @property 'Contents' '10shadowleg' > 0 and not counttype 0x2258 1102 '10shadowleg' > 0;useobject '10shadowleg';pause 750;endwhile;while @property 'Contents' '10shadowtunic' > 0 and not counttype 0x2258 1102 '10shadowtunic' > 0;useobject '10shadowtunic';pause 750;endwhile;while @property 'Contents' '10shadowgloves' > 0 and not counttype 0x2258 1102 '10shadowgloves' > 0;useobject '10shadowgloves';pause 750;endwhile;while @property 'Contents' '10shadowarms' > 0 and not counttype 0x2258 1102 '10shadowarms' > 0;useobject '10shadowarms';pause 750;endwhile;while @property 'Contents' '10shadowgorget' > 0 and not counttype 0x2258 1102 '10shadowgorget' > 0;useobject '10shadowgorget';pause 750;endwhile;while @property 'Contents' '10shadowhelm' > 0 and not counttype 0x2258 1102 '10shadowhelm' > 0;useobject '10shadowhelm';pause 750;endwhile;while @property 'Contents' '15shadowlbod' > 0 and not counttype 0x2258 1102 '15shadowlbod' > 0;useobject '15shadowlbod';pause 750;endwhile;while @property 'Contents' '15shadowleg' > 0 and not counttype 0x2258 1102 '15shadowleg' > 0;useobject '15shadowleg';pause 750;endwhile;while @property 'Contents' '15shadowtunic' > 0 and not counttype 0x2258 1102 '15shadowtunic' > 0;useobject '15shadowtunic';pause 750;endwhile;while @property 'Contents' '15shadowgloves' > 0 and not counttype 0x2258 1102 '15shadowgloves' > 0;useobject '15shadowgloves';pause 750;endwhile;while @property 'Contents' '15shadowarms' > 0 and not counttype 0x2258 1102 '15shadowarms' > 0;useobject '15shadowarms';pause 750;endwhile;while @property 'Contents' '15shadowgorget' > 0 and not counttype 0x2258 1102 '15shadowgorget' > 0;useobject '15shadowgorget';pause 750;endwhile;while @property 'Contents' '15shadowhelm' > 0 and not counttype 0x2258 1102 '15shadowhelm' > 0;useobject '15shadowhelm';pause 750;endwhile;while @injournal 'world will save';while not @injournal 'world save complete';endwhile;@clearjournal;endwhile;while @property 'Contents' '15agapitelbod' > 0 and not counttype 0x2258 1102 '15agapitelbod' > 0;useobject '15agapitelbod';pause 750;endwhile;while @property 'Contents' '15agapiteleg' > 0 and not counttype 0x2258 1102 '15agapiteleg' > 0;useobject '15agapiteleg';pause 750;endwhile;while @property 'Contents' '15agapitetunic' > 0 and not counttype 0x2258 1102 '15agapitetunic' > 0;useobject '15agapitetunic';pause 750;endwhile;while @property 'Contents' '15agapitegloves' > 0 and not counttype 0x2258 1102 '15agapitegloves' > 0;useobject '15agapitegloves';pause 750;endwhile;while @property 'Contents' '15agapitesleeves' > 0 and not counttype 0x2258 1102 '15agapitesleeves' > 0;useobject '15agapitesleeves';pause 750;endwhile;while @property 'Contents' '20copperlbod' > 0 and not counttype 0x2258 1102 '20copperlbod' > 0;useobject '20copperlbod';pause 750;endwhile;while @property 'Contents' '20copperleg' > 0 and not counttype 0x2258 1102 '20copperleg' > 0;useobject '20copperleg';pause 750;endwhile;while @property 'Contents' '20coppertunic' > 0 and not counttype 0x2258 1102 '20coppertunic' > 0;useobject '20coppertunic';pause 750;endwhile;while @property 'Contents' '20coppercoif' > 0 and not counttype 0x2258 1102 '20coppercoif' > 0;useobject '20coppercoif';pause 750;endwhile;//;while @injournal 'world will save';while not @injournal 'world save complete';endwhile;@clearjournal;endwhile;while @property 'Contents' '15bronzelbod' > 0 and not counttype 0x2258 1102 '15bronzelbod' > 0;useobject '15bronzelbod';pause 750;endwhile;while @property 'Contents' '15bronzeleg' > 0 and not counttype 0x2258 1102 '15bronzeleg' > 0;useobject '15bronzeleg';pause 750;endwhile;while @property 'Contents' '15bronzetunic' > 0 and not counttype 0x2258 1102 '15bronzetunic' > 0;useobject '15bronzetunic';pause 750;endwhile;while @property 'Contents' '15bronzecoif' > 0 and not counttype 0x2258 1102 '15bronzecoif' > 0;useobject '15bronzecoif';pause 750;endwhile;while @property 'Contents' '10bronzelbod' > 0 and not counttype 0x2258 1102 '10bronzelbod' > 0;useobject '10bronzelbod';pause 750;endwhile;while @property 'Contents' '10bronzeleg' > 0 and not counttype 0x2258 1102 '10bronzeleg' > 0;useobject '10bronzeleg';pause 750;endwhile;while @property 'Contents' '10bronzetunic' > 0 and not counttype 0x2258 1102 '10bronzetunic' > 0;useobject '10bronzetunic';pause 750;endwhile;while @property 'Contents' '10bronzecoif' > 0 and not counttype 0x2258 1102 '10bronzecoif' > 0;useobject '10bronzecoif';pause 750;endwhile;while @findtype 0x2258 1102 'dclbod';moveitem 'found' '15ashbook';endwhile;while @findtype 0x2258 1102 'dctunic';moveitem 'found' '15ashbook';endwhile;while @findtype 0x2258 1102 'dcleg';moveitem 'found' '15ashbook';endwhile;while @findtype 0x2258 1102 'dcgloves';moveitem 'found' '15ashbook';endwhile;while @findtype 0x2258 1102 'dcarms';moveitem 'found' '15ashbook';endwhile;while @findtype 0x2258 1102 'dcgorget';moveitem 'found' '15ashbook';endwhile;while @findtype 0x2258 1102 'dchelm';moveitem 'found' '15ashbook';endwhile;while @findtype 0x2258 1102 '10shadowlbod';moveitem 'found' '15ashbook';endwhile;while @findtype 0x2258 1102 '10shadowleg';moveitem 'found' '15ashbook';endwhile;while @findtype 0x2258 1102 '10shadowtunic';moveitem 'found' '15ashbook';endwhile;while @findtype 0x2258 1102 '10shadowgloves';moveitem 'found' '15ashbook';endwhile;while @findtype 0x2258 1102 '10shadowarms';moveitem 'found' '15ashbook';endwhile;while @findtype 0x2258 1102 '10shadowgorget';moveitem 'found' '15ashbook';endwhile;while @findtype 0x2258 1102 '10shadowhelm';moveitem 'found' '15ashbook';endwhile;while @findtype 0x2258 1102 '15shadowlbod';moveitem 'found' '15ashbook';endwhile;while @findtype 0x2258 1102 '15shadowleg';moveitem 'found' '15ashbook';endwhile;while @findtype 0x2258 1102 '15shadowtunic';moveitem 'found' '15ashbook';endwhile;while @findtype 0x2258 1102 '15shadowgloves';moveitem 'found' '15ashbook';endwhile;while @findtype 0x2258 1102 '15shadowarms';moveitem 'found' '15ashbook';endwhile;while @findtype 0x2258 1102 '15shadowgorget';moveitem 'found' '15ashbook';endwhile;while @findtype 0x2258 1102 '15shadowhelm';moveitem 'found' '15ashbook';endwhile;while @findtype 0x2258 1102 '15agapitelbod';moveitem 'found' '15ashbook';endwhile;while @findtype 0x2258 1102 '15agapiteleg';moveitem 'found' '15ashbook';endwhile;while @findtype 0x2258 1102 '15agapitetunic';moveitem 'found' '15ashbook';endwhile;while @findtype 0x2258 1102 '15agapitegloves';moveitem 'found' '15ashbook';endwhile;while @findtype 0x2258 1102 '15agapitesleeves';moveitem 'found' '15ashbook';endwhile;while @findtype 0x2258 1102 '20copperlbod';moveitem 'found' '15ashbook';endwhile;while @findtype 0x2258 1102 '20copperleg';moveitem 'found' '15ashbook';endwhile;while @findtype 0x2258 1102 '20coppertunic';moveitem 'found' '15ashbook';endwhile;while @findtype 0x2258 1102 '20coppercoif';moveitem 'found' '15ashbook';endwhile;while @findtype 0x2258 1102 '10bronzelbod';moveitem 'found' '15ashbook';endwhile;while @findtype 0x2258 1102 '10bronzeleg';moveitem 'found' '15ashbook';endwhile;while @findtype 0x2258 1102 '10bronzetunic';moveitem 'found' '15ashbook';endwhile;while @findtype 0x2258 1102 '10bronzecoif';moveitem 'found' '15ashbook';endwhile;while @findtype 0x2258 1102 '15bronzelbod';moveitem 'found' '15ashbook';endwhile;while @findtype 0x2258 1102 '15bronzeleg';moveitem 'found' '15ashbook';endwhile;while @findtype 0x2258 1102 '15bronzetunic';moveitem 'found' '15ashbook';endwhile;while @findtype 0x2258 1102 '15bronzecoif';moveitem 'found' '15ashbook';endwhile;if @injournal 'world will save';while not @injournal 'world save complete';endwhile;@clearjournal;endif;//;//walk home code;//x, y of center goza;while not x == 1176 or not y == 2790;if x &lt; 1164 or x > 1185;while not y == 2790;if y &lt; 2790;walk 'south';else;walk 'north';endif;pause 500;endwhile;while not x == 1176;if x > 1176;walk 'west';else;walk 'east';endif;pause 500;endwhile;else;while not x == 1176;if x > 1176;walk 'west';else;walk 'east';endif;pause 500;endwhile;while not y == 2790;if y &lt; 2790;walk 'south';else;walk 'north';endif;pause 500;endwhile;endif;endwhile;//;//;if @injournal 'world will save';while not @injournal 'world save complete';endwhile;@clearjournal;endif;@setalias '+152' 0x42c86fdf;moveitem '15ashbook' '+152';</macro>
  157. <macro loop="False" name="Unpack Bronze" interrupt="True">@setalias 'shadowlbod' 0x42ead1c3;@setalias 'shadowlegs' 0x42ead1be;@setalias 'shadowtunic' 0x42ead1bf;@setalias 'shadowgloves' 0x42eadba8;@setalias 'shadowsleeves' 0x42eadba9;//;@setalias '10copperlbod' 0x42ead1c0;@setalias '10copperlegs' 0x42eadbaa;@setalias '10coppertunic' 0x42ead1cd;@setalias '10coppergloves' 0x42ead1c9;@setalias '10coppersleeves' 0x42ead1bd;//;@setalias '15copperlbod' 0x42ead1c6;@setalias '15copperlegs' 0x42ead1c7;@setalias '15coppertunic' 0x42ead1c2;@setalias '15coppergloves' 0x42ead1c4;@setalias '15coppersleeves' 0x42ead1bc;//;@setalias '10dclbod' 0x42ead1ce;@setalias '10dclegs' 0x42ead1c8;@setalias '10dctunic' 0x42ead1c5;@setalias '10dccoif' 0x42ead1ca;//;@setalias '15dclbod' 0x42ead1cc;@setalias '15dclegs' 0x42ead1cb;@setalias '15dctunic' 0x42ead1c1;@setalias '15dccoif' 0x42ead1cf;//;@setalias 'bronzestorage' 0x42eba9e0;if not hidden 'self';useskill 'hiding';endif;if not @inrange '15dclbod' 2 or not @inrange '10copperlbod' 2;sysmsg 'Stand near the bronze unpack station' 34;stop;endif;sysmsg 'Target the book in your backpack containing all your Bronze hammer L&amp;SBods' 34;promptalias 'bronzebook';useobject 'bronzebook';waitforgump 0x54f555df 15000;replygump 0x54f555df 1;waitforgump 0x968739db 15000;replygump 0x968739db 3;waitforgump 0x968739db 15000;replygump 0x968739db 0;waitforgump 0x54f555df 15000;pause 550;useobject 'bronzestorage';pause 750;while @property 'Deeds in Book' 'bronzebook' > 0;if @injournal 'world will save';while not @injournal 'world save complete';endwhile;@clearjournal;endif;if not @findtype 0x2258 'any' 'backpack';useobject 'bronzebook';waitforgump 0x54f555df 2500;while @property 'Deeds in Book' 'bronzebook' > 0 and @property 'Contents' 'backpack' &lt; 123;replygump 0x54f555df 5;waitforgump 0x54f555df 1500;endwhile;endif;if @injournal 'world will save';while not @injournal 'world save complete';endwhile;@clearjournal;endif;pause 550;while @findtype 0x2258 'any' 'backpack';@unsetalias 'valid';//;if @property 'exceptional' 'found' and @property 'dull copper' 'found';if @property 'chainmail' 'found';if @property '10' 'found';if @property 'coif' 'found' and @property 'tunic' 'found';moveitem 'found' '10dclbod';@setalias 'valid' 'found';pause 750;elseif @property 'coif' 'found';moveitem 'found' '10dccoif';@setalias 'valid' 'found';pause 750;elseif @property 'tunic' 'found';moveitem 'found' '10dctunic';@setalias 'valid' 'found';pause 750;elseif @property 'leggings' 'found';moveitem 'found' '10dclegs';@setalias 'valid' 'found';pause 750;endif;elseif @property '15' 'found';//;if @property 'coif' 'found' and @property 'tunic' 'found';moveitem 'found' '15dclbod';@setalias 'valid' 'found';pause 750;elseif @property 'coif' 'found';moveitem 'found' '15dccoif';@setalias 'valid' 'found';pause 750;elseif @property 'tunic' 'found';moveitem 'found' '15dctunic';@setalias 'valid' 'found';pause 750;elseif @property 'leggings' 'found';moveitem 'found' '15dclegs';@setalias 'valid' 'found';pause 750;endif;endif;endif;endif;if @property 'copper' 'found' and not @property 'dull' 'found';if @property 'exceptional' 'found' and @property 'ringmail' 'found';if @property '10' 'found';if @property 'gloves' 'found' and @property 'tunic' 'found';moveitem 'found' '10copperlbod';@setalias 'valid' 'found';pause 750;elseif @property 'leggings' 'found';moveitem 'found' '10copperlegs';@setalias 'valid' 'found';pause 750;elseif @property 'tunic' 'found';moveitem 'found' '10coppertunic';@setalias 'valid' 'found';pause 750;elseif @property 'gloves' 'found';moveitem 'found' '10coppergloves';@setalias 'valid' 'found';pause 750;elseif @property 'sleeves' 'found';moveitem 'found' '10coppersleeves';@setalias 'valid' 'found';pause 750;endif;elseif @property '15' 'found';if @property 'gloves' 'found' and @property 'tunic' 'found';moveitem 'found' '15copperlbod';@setalias 'valid' 'found';pause 750;elseif @property 'leggings' 'found';moveitem 'found' '15copperlegs';@setalias 'valid' 'found';pause 750;elseif @property 'tunic' 'found';moveitem 'found' '15coppertunic';@setalias 'valid' 'found';pause 750;elseif @property 'gloves' 'found';moveitem 'found' '15coppergloves';@setalias 'valid' 'found';pause 750;elseif @property 'sleeves' 'found';moveitem 'found' '15coppersleeves';@setalias 'valid' 'found';pause 750;endif;endif;endif;endif;if @property 'shadow' 'found' and @property '20' 'found';if @property 'exceptional' 'found' and @property 'ringmail' 'found';if @property 'gloves' 'found' and @property 'tunic' 'found';moveitem 'found' 'shadowlbod';@setalias 'valid' 'found';pause 750;elseif @property 'leggings' 'found';moveitem 'found' 'shadowlegs';@setalias 'valid' 'found';pause 750;elseif @property 'tunic' 'found';moveitem 'found' 'shadowtunic';@setalias 'valid' 'found';pause 750;elseif @property 'gloves' 'found';moveitem 'found' 'shadowgloves';@setalias 'valid' 'found';pause 750;elseif @property 'sleeves' 'found';moveitem 'found' 'shadowsleeves';@setalias 'valid' 'found';pause 750;endif;endif;endif;if @injournal 'world will save';while not @injournal 'world save complete';endwhile;@clearjournal;endif;if @findobject 'found' 'any' 'backpack' and not @findalias 'valid';sysmsg 'Unexpected bod.' 34;moveitem 'found' 'bronzestorage';pause 750;endif;endwhile;endwhile;pause 1000;moveitem 'bronzebook' 'bronzestorage';if skill 'Blacksmithy' >= 120;pause 1000;@playmacro 'Pull Bronze to Craft';endif;</macro>
  158. <macro loop="False" name="Pull Bronze to Craft" interrupt="True">//change this number to how many you want to pull;for 14;@setalias 'shadowlbod' 0x42ead1c3;@setalias 'shadowlegs' 0x42ead1be;@setalias 'shadowtunic' 0x42ead1bf;@setalias 'shadowgloves' 0x42eadba8;@setalias 'shadowsleeves' 0x42eadba9;//;@setalias '10copperlbod' 0x42ead1c0;@setalias '10copperlegs' 0x42eadbaa;@setalias '10coppertunic' 0x42ead1cd;@setalias '10coppergloves' 0x42ead1c9;@setalias '10coppersleeves' 0x42ead1bd;//;@setalias '15copperlbod' 0x42ead1c6;@setalias '15copperlegs' 0x42ead1c7;@setalias '15coppertunic' 0x42ead1c2;@setalias '15coppergloves' 0x42ead1c4;@setalias '15coppersleeves' 0x42ead1bc;//;@setalias '10dclbod' 0x42ead1ce;@setalias '10dclegs' 0x42ead1c8;@setalias '10dctunic' 0x42ead1c5;@setalias '10dccoif' 0x42ead1ca;//;@setalias '15dclbod' 0x42ead1cc;@setalias '15dclegs' 0x42ead1cb;@setalias '15dctunic' 0x42ead1c1;@setalias '15dccoif' 0x42ead1cf;//;@setalias 'bronzestorage' 0x42eba9e0;if not hidden 'self';useskill 'hiding';endif;if not @inrange '15dclbod' 2 or not @inrange '10copperlbod' 2;sysmsg 'Stand near the bronze unpack station' 34;stop;endif;if @injournal 'world will save';while not @injournal 'world save complete';endwhile;@clearjournal;endif;if @property 'Contents' 'shadowlbod' > 0 and @property 'Contents' 'shadowlegs' > 0;if @property 'Contents' 'shadowtunic' > 0 and @property 'Contents' 'shadowgloves' > 0;if @property 'Contents' 'shadowsleeves' > 0;while @property 'Contents' 'shadowlbod' > 0 and not counttype 0x2258 1102 'shadowlbod' > 0;useobject 'shadowlbod';pause 750;endwhile;while @property 'Contents' 'shadowlegs' > 0 and not counttype 0x2258 1102 'shadowlegs' > 0;useobject 'shadowlegs';pause 750;endwhile;while @property 'Contents' 'shadowtunic' > 0 and not counttype 0x2258 1102 'shadowtunic' > 0;useobject 'shadowtunic';pause 750;endwhile;while @property 'Contents' 'shadowgloves' > 0 and not counttype 0x2258 1102 'shadowgloves' > 0;useobject 'shadowgloves';pause 750;endwhile;while @property 'Contents' 'shadowsleeves' > 0 and not counttype 0x2258 1102 'shadowsleeves' > 0;useobject 'shadowsleeves';pause 750;endwhile;endif;endif;endif;if @property 'Contents' '10copperlbod' > 0 and @property 'Contents' '10copperlegs' > 0;if @property 'Contents' '10coppertunic' > 0 and @property 'Contents' '10coppergloves' > 0;if @property 'Contents' '10coppersleeves' > 0;while @property 'Contents' '10copperlbod' > 0 and not counttype 0x2258 1102 '10copperlbod' > 0;useobject '10copperlbod';pause 750;endwhile;while @property 'Contents' '10copperlegs' > 0 and not counttype 0x2258 1102 '10copperlegs' > 0;useobject '10copperlegs';pause 750;endwhile;while @property 'Contents' '10coppertunic' > 0 and not counttype 0x2258 1102 '10coppertunic' > 0;useobject '10coppertunic';pause 750;endwhile;while @property 'Contents' '10coppergloves' > 0 and not counttype 0x2258 1102 '10coppergloves' > 0;useobject '10coppergloves';pause 750;endwhile;while @property 'Contents' '10coppersleeves' > 0 and not counttype 0x2258 1102 '10coppersleeves' > 0;useobject '10coppersleeves';pause 750;endwhile;endif;endif;endif;if @property 'Contents' '15copperlbod' > 0 and @property 'Contents' '15copperlegs' > 0;if @property 'Contents' '15coppertunic' > 0 and @property 'Contents' '15coppergloves' > 0;if @property 'Contents' '15coppersleeves' > 0;while @property 'Contents' '15copperlbod' > 0 and not counttype 0x2258 1102 '15copperlbod' > 0;useobject '15copperlbod';pause 750;endwhile;while @property 'Contents' '15copperlegs' > 0 and not counttype 0x2258 1102 '15copperlegs' > 0;useobject '15copperlegs';pause 750;endwhile;while @property 'Contents' '15coppertunic' > 0 and not counttype 0x2258 1102 '15coppertunic' > 0;useobject '15coppertunic';pause 750;endwhile;while @property 'Contents' '15coppergloves' > 0 and not counttype 0x2258 1102 '15coppergloves' > 0;useobject '15coppergloves';pause 750;endwhile;while @property 'Contents' '15coppersleeves' > 0 and not counttype 0x2258 1102 '15coppersleeves' > 0;useobject '15coppersleeves';pause 750;endwhile;endif;endif;endif;while @injournal 'world will save';while not @injournal 'world save complete';endwhile;@clearjournal;endwhile;if @property 'Contents' '10dclbod' > 0 and @property 'Contents' '10dclegs' > 0;if @property 'Contents' '10dctunic' > 0 and @property 'Contents' '10dccoif' > 0;while @property 'Contents' '10dclbod' > 0 and not counttype 0x2258 1102 '10dclbod' > 0;useobject '10dclbod';pause 750;endwhile;while @property 'Contents' '10dclegs' > 0 and not counttype 0x2258 1102 '10dclegs' > 0;useobject '10dclegs';pause 750;endwhile;while @property 'Contents' '10dctunic' > 0 and not counttype 0x2258 1102 '10dctunic' > 0;useobject '10dctunic';pause 750;endwhile;while @property 'Contents' '10dccoif' > 0 and not counttype 0x2258 1102 '10dccoif' > 0;useobject '10dccoif';pause 750;endwhile;endif;endif;if @property 'Contents' '15dclbod' > 0 and @property 'Contents' '15dclegs' > 0;if @property 'Contents' '15dctunic' > 0 and @property 'Contents' '15dccoif' > 0;while @property 'Contents' '15dclbod' > 0 and not counttype 0x2258 1102 '15dclbod' > 0;useobject '15dclbod';pause 750;endwhile;while @property 'Contents' '15dclegs' > 0 and not counttype 0x2258 1102 '15dclegs' > 0;useobject '15dclegs';pause 750;endwhile;while @property 'Contents' '15dctunic' > 0 and not counttype 0x2258 1102 '15dctunic' > 0;useobject '15dctunic';pause 750;endwhile;while @property 'Contents' '15dccoif' > 0 and not counttype 0x2258 1102 '15dccoif' > 0;useobject '15dccoif';pause 750;endwhile;endif;endif;useobject 'bronzestorage';pause 750;if @injournal 'world will save';while not @injournal 'world save complete';endwhile;@clearjournal;endif;//;//;//;@unsetalias 'shadow';@unsetalias '10copper';@unsetalias '15copper';@unsetalias '10dc';@unsetalias '15dc';sysmsg '-' 33;if @property 'Contents' 'shadowlbod' > 0 and @property 'Contents' 'shadowlegs' > 0;if @property 'Contents' 'shadowtunic' > 0 and @property 'Contents' 'shadowgloves' > 0;if @property 'Contents' 'shadowsleeves' > 0;@setalias 'shadow' 'self';sysmsg '20 Shadow Ringmail' 1000;endif;endif;endif;if @property 'Contents' '10copperlbod' > 0 and @property 'Contents' '10copperlegs' > 0;if @property 'Contents' '10coppertunic' > 0 and @property 'Contents' '10coppergloves' > 0;if @property 'Contents' '10coppersleeves' > 0;@setalias '10copper' 'self';sysmsg '10 Copper Ringmail' 142;endif;endif;endif;if @property 'Contents' '15copperlbod' > 0 and @property 'Contents' '15copperlegs' > 0;if @property 'Contents' '15coppertunic' > 0 and @property 'Contents' '15coppergloves' > 0;if @property 'Contents' '15coppersleeves' > 0;@setalias '15copper' 'self';sysmsg '15 Copper Ringmail' 142;endif;endif;endif;if @property 'Contents' '10dclbod' > 0 and @property 'Contents' '10dclegs' > 0;if @property 'Contents' '10dctunic' > 0 and @property 'Contents' '10dccoif' > 0;@setalias '10dc' 'self';sysmsg '10 Dull Chainmail' 648;endif;endif;if @property 'Contents' '15dclbod' > 0 and @property 'Contents' '15dclegs' > 0;if @property 'Contents' '15dctunic' > 0 and @property 'Contents' '15dccoif' > 0;@setalias '15dc' 'self';sysmsg '15 Dull Chainmail' 648;endif;endif;if @injournal 'world will save';while not @injournal 'world save complete';endwhile;@clearjournal;endif;if @findalias 'shadow';movetype 0x2258 'shadowlbod' 'backpack';pause 750;movetype 0x2258 'shadowlegs' 'backpack';pause 750;movetype 0x2258 'shadowtunic' 'backpack';pause 750;movetype 0x2258 'shadowgloves' 'backpack';pause 750;movetype 0x2258 'shadowsleeves' 'backpack';pause 750;elseif @findalias '10copper';movetype 0x2258 '10copperlbod' 'backpack';pause 750;movetype 0x2258 '10copperlegs' 'backpack';pause 750;movetype 0x2258 '10coppertunic' 'backpack';pause 750;movetype 0x2258 '10coppergloves' 'backpack';pause 750;movetype 0x2258 '10coppersleeves' 'backpack';pause 750;elseif @findalias '15copper';movetype 0x2258 '15copperlbod' 'backpack';pause 750;movetype 0x2258 '15copperlegs' 'backpack';pause 750;movetype 0x2258 '15coppertunic' 'backpack';pause 750;movetype 0x2258 '15coppergloves' 'backpack';pause 750;movetype 0x2258 '15coppersleeves' 'backpack';pause 750;elseif @findalias '10dc';movetype 0x2258 '10dclbod' 'backpack';pause 750;movetype 0x2258 '10dclegs' 'backpack';pause 750;movetype 0x2258 '10dctunic' 'backpack';pause 750;movetype 0x2258 '10dccoif' 'backpack';pause 750;elseif @findalias '15dc';movetype 0x2258 '15dclbod' 'backpack';pause 750;movetype 0x2258 '15dclegs' 'backpack';pause 750;movetype 0x2258 '15dctunic' 'backpack';pause 750;movetype 0x2258 '15dccoif' 'backpack';pause 750;else;sysmsg 'No full Bronze sets' 34;break;endif;endfor;if @injournal 'world will save';while not @injournal 'world save complete';endwhile;@clearjournal;endif;if counttype 0x2258 1102 'backpack' > 0;//;//walk home code;//x, y of center goza;while not x == 1176 or not y == 2790;if x &lt; 1164 or x > 1185;while not y == 2790;if y &lt; 2790;walk 'south';else;walk 'north';endif;pause 500;endwhile;while not x == 1176;if x > 1176;walk 'west';else;walk 'east';endif;pause 500;endwhile;else;while not x == 1176;if x > 1176;walk 'west';else;walk 'east';endif;pause 500;endwhile;while not y == 2790;if y &lt; 2790;walk 'south';else;walk 'north';endif;pause 500;endwhile;endif;endwhile;//;//;@playmacro 'CraftFill Loose Bods';else;@playmacro 'Pack Bronze';endif;</macro>
  159. <macro loop="False" name="Pack Bronze" interrupt="True">@setalias 'shadowlbod' 0x42ead1c3;@setalias 'shadowlegs' 0x42ead1be;@setalias 'shadowtunic' 0x42ead1bf;@setalias 'shadowgloves' 0x42eadba8;@setalias 'shadowsleeves' 0x42eadba9;//;@setalias '10copperlbod' 0x42ead1c0;@setalias '10copperlegs' 0x42eadbaa;@setalias '10coppertunic' 0x42ead1cd;@setalias '10coppergloves' 0x42ead1c9;@setalias '10coppersleeves' 0x42ead1bd;//;@setalias '15copperlbod' 0x42ead1c6;@setalias '15copperlegs' 0x42ead1c7;@setalias '15coppertunic' 0x42ead1c2;@setalias '15coppergloves' 0x42ead1c4;@setalias '15coppersleeves' 0x42ead1bc;//;@setalias '10dclbod' 0x42ead1ce;@setalias '10dclegs' 0x42ead1c8;@setalias '10dctunic' 0x42ead1c5;@setalias '10dccoif' 0x42ead1ca;//;@setalias '15dclbod' 0x42ead1cc;@setalias '15dclegs' 0x42ead1cb;@setalias '15dctunic' 0x42ead1c1;@setalias '15dccoif' 0x42ead1cf;//;@setalias 'bronzestorage' 0x42eba9e0;if not hidden 'self';useskill 'hiding';endif;if not @inrange '15dclbod' 2 or not @inrange '10copperlbod' 2;sysmsg 'Stand near the bronze unpack station' 34;stop;endif;useobject 'bronzestorage';pause 750;if counttype 0x2259 'any' 'backpack' > 0 and @property 'Contents' 'backpack' > 24;sysmsg 'You might not have enough room to pack. Get rid of books in your pack before starting this macro' 34;stop;endif;if findtype 0x2259 'any' 'bronzestorage';@setalias 'bronzebook' 'found';moveitem 'bronzebook' 'backpack';pause 1000;else;sysmsg 'The Bronze book isnt in the storage bag' 34;stop;endif;while @property 'Contents' 'shadowlbod' > 0 and not counttype 0x2258 1102 'shadowlbod' > 0;useobject 'shadowlbod';pause 750;endwhile;while @property 'Contents' 'shadowlegs' > 0 and not counttype 0x2258 1102 'shadowlegs' > 0;useobject 'shadowlegs';pause 750;endwhile;while @property 'Contents' 'shadowtunic' > 0 and not counttype 0x2258 1102 'shadowtunic' > 0;useobject 'shadowtunic';pause 750;endwhile;while @property 'Contents' 'shadowgloves' > 0 and not counttype 0x2258 1102 'shadowgloves' > 0;useobject 'shadowgloves';pause 750;endwhile;while @property 'Contents' 'shadowsleeves' > 0 and not counttype 0x2258 1102 'shadowsleeves' > 0;useobject 'shadowsleeves';pause 750;endwhile;while @property 'Contents' '10copperlbod' > 0 and not counttype 0x2258 1102 '10copperlbod' > 0;useobject '10copperlbod';pause 750;endwhile;while @property 'Contents' '10copperlegs' > 0 and not counttype 0x2258 1102 '10copperlegs' > 0;useobject '10copperlegs';pause 750;endwhile;while @property 'Contents' '10coppertunic' > 0 and not counttype 0x2258 1102 '10coppertunic' > 0;useobject '10coppertunic';pause 750;endwhile;while @property 'Contents' '10coppergloves' > 0 and not counttype 0x2258 1102 '10coppergloves' > 0;useobject '10coppergloves';pause 750;endwhile;while @property 'Contents' '10coppersleeves' > 0 and not counttype 0x2258 1102 '10coppersleeves' > 0;useobject '10coppersleeves';pause 750;endwhile;while @property 'Contents' '15copperlbod' > 0 and not counttype 0x2258 1102 '15copperlbod' > 0;useobject '15copperlbod';pause 750;endwhile;while @property 'Contents' '15copperlegs' > 0 and not counttype 0x2258 1102 '15copperlegs' > 0;useobject '15copperlegs';pause 750;endwhile;while @property 'Contents' '15coppertunic' > 0 and not counttype 0x2258 1102 '15coppertunic' > 0;useobject '15coppertunic';pause 750;endwhile;while @property 'Contents' '15coppergloves' > 0 and not counttype 0x2258 1102 '15coppergloves' > 0;useobject '15coppergloves';pause 750;endwhile;while @property 'Contents' '15coppersleeves' > 0 and not counttype 0x2258 1102 '15coppersleeves' > 0;useobject '15coppersleeves';pause 750;endwhile;while @injournal 'world will save';while not @injournal 'world save complete';endwhile;@clearjournal;endwhile;while @property 'Contents' '10dclbod' > 0 and not counttype 0x2258 1102 '10dclbod' > 0;useobject '10dclbod';pause 750;endwhile;while @property 'Contents' '10dclegs' > 0 and not counttype 0x2258 1102 '10dclegs' > 0;useobject '10dclegs';pause 750;endwhile;while @property 'Contents' '10dctunic' > 0 and not counttype 0x2258 1102 '10dctunic' > 0;useobject '10dctunic';pause 750;endwhile;while @property 'Contents' '10dccoif' > 0 and not counttype 0x2258 1102 '10dccoif' > 0;useobject '10dccoif';pause 750;endwhile;while @property 'Contents' '15dclbod' > 0 and not counttype 0x2258 1102 '15dclbod' > 0;useobject '15dclbod';pause 750;endwhile;while @property 'Contents' '15dclegs' > 0 and not counttype 0x2258 1102 '15dclegs' > 0;useobject '15dclegs';pause 750;endwhile;while @property 'Contents' '15dctunic' > 0 and not counttype 0x2258 1102 '15dctunic' > 0;useobject '15dctunic';pause 750;endwhile;while @property 'Contents' '15dccoif' > 0 and not counttype 0x2258 1102 '15dccoif' > 0;useobject '15dccoif';pause 750;endwhile;useobject 'bronzestorage';pause 750;if @injournal 'world will save';while not @injournal 'world save complete';endwhile;@clearjournal;endif;while @findtype 0x2258 1102 'shadowlbod';moveitem 'found' 'bronzebook';endwhile;while @findtype 0x2258 1102 'shadowlegs';moveitem 'found' 'bronzebook';endwhile;while @findtype 0x2258 1102 'shadowtunic';moveitem 'found' 'bronzebook';endwhile;while @findtype 0x2258 1102 'shadowgloves';moveitem 'found' 'bronzebook';endwhile;while @findtype 0x2258 1102 'shadowsleeves';moveitem 'found' 'bronzebook';endwhile;while @findtype 0x2258 1102 '10copperlbod';moveitem 'found' 'bronzebook';endwhile;while @findtype 0x2258 1102 '10copperlegs';moveitem 'found' 'bronzebook';endwhile;while @findtype 0x2258 1102 '10coppertunic';moveitem 'found' 'bronzebook';endwhile;while @findtype 0x2258 1102 '10coppergloves';moveitem 'found' 'bronzebook';endwhile;while @findtype 0x2258 1102 '10coppersleeves';moveitem 'found' 'bronzebook';endwhile;while @findtype 0x2258 1102 '15copperlbod';moveitem 'found' 'bronzebook';endwhile;while @findtype 0x2258 1102 '15copperlegs';moveitem 'found' 'bronzebook';endwhile;while @findtype 0x2258 1102 '15coppertunic';moveitem 'found' 'bronzebook';endwhile;while @findtype 0x2258 1102 '15coppergloves';moveitem 'found' 'bronzebook';endwhile;while @findtype 0x2258 1102 '15coppersleeves';moveitem 'found' 'bronzebook';endwhile;while @findtype 0x2258 1102 '10dclbod';moveitem 'found' 'bronzebook';endwhile;while @findtype 0x2258 1102 '10dclegs';moveitem 'found' 'bronzebook';endwhile;while @findtype 0x2258 1102 '10dccoif';moveitem 'found' 'bronzebook';endwhile;while @findtype 0x2258 1102 '10dctunic';moveitem 'found' 'bronzebook';endwhile;while @findtype 0x2258 1102 '15dclbod';moveitem 'found' 'bronzebook';endwhile;while @findtype 0x2258 1102 '15dclegs';moveitem 'found' 'bronzebook';endwhile;while @findtype 0x2258 1102 '15dccoif';moveitem 'found' 'bronzebook';endwhile;while @findtype 0x2258 1102 '15dctunic';moveitem 'found' 'bronzebook';endwhile;if @injournal 'world will save';while not @injournal 'world save complete';endwhile;@clearjournal;endif;//;//walk home code;//x, y of center goza;while not x == 1176 or not y == 2790;if x &lt; 1164 or x > 1185;while not y == 2790;if y &lt; 2790;walk 'south';else;walk 'north';endif;pause 500;endwhile;while not x == 1176;if x > 1176;walk 'west';else;walk 'east';endif;pause 500;endwhile;else;while not x == 1176;if x > 1176;walk 'west';else;walk 'east';endif;pause 500;endwhile;while not y == 2790;if y &lt; 2790;walk 'south';else;walk 'north';endif;pause 500;endwhile;endif;endwhile;//;//;if @injournal 'world will save';while not @injournal 'world save complete';endwhile;@clearjournal;endif;@setalias 'bronze2' 0x42ac298e;moveitem 'bronzebook' 'bronze2';</macro>
  160. <macro loop="False" name="Unpack Gold" interrupt="True">@setalias 'copperlbod' 0x432ce0ce;@setalias 'copperlegs' 0x432cfe3e;@setalias 'coppertunic' 0x432cfe44;@setalias 'coppergloves' 0x432ce0c1;@setalias 'copperarms' 0x432cfe37;@setalias 'coppergorget' 0x432ce0cd;@setalias 'copperhelm' 0x432cfe39;//;@setalias '15bronzelbod' 0x432ce0ca;@setalias '15bronzelegs' 0x432ce0c8;@setalias '15bronzetunic' 0x432ce0cb;@setalias '15bronzegloves' 0x432ce0c9;@setalias '15bronzearms' 0x432cfe42;@setalias '15bronzegorget' 0x432ce0c5;@setalias '15bronzehelm' 0x432cfe43;//;@setalias '10bronzelbod' 0x432cfe3f;@setalias '10bronzelegs' 0x432cfe41;@setalias '10bronzetunic' 0x432cfe38;@setalias '10bronzegloves' 0x432cfe3d;@setalias '10bronzearms' 0x432cfe3a;@setalias '10bronzegorget' 0x432ce0d2;@setalias '10bronzehelm' 0x432cfe45;//;@setalias 'goldlbod' 0x432ce0c7;@setalias 'goldlegs' 0x432ce0c2;@setalias 'goldtunic' 0x432ce0c3;@setalias 'goldcoif' 0x432ce0d0;//;@setalias '10agapitelbod' 0x432ce0cc;@setalias '10agapitelegs' 0x432cfe40;@setalias '10agapitetunic' 0x432cfe3c;@setalias '10agapitecoif' 0x432ce0d1;//;@setalias '15agapitelbod' 0x432ce0c6;@setalias '15agapitelegs' 0x432cfe3b;@setalias '15agapitetunic' 0x432ce0cf;@setalias '15agapitecoif' 0x432ce0c4;//;@setalias '10valoritelbod' 0x432668e3;@setalias '10valoriteleg' 0x432668e5;@setalias '10valoritetunic' 0x432668e9;@setalias '10valoritegloves' 0x432668ed;@setalias '10valoritesleeves' 0x432668e2;//;@setalias '15valoritelbod' 0x432668ea;@setalias '15valoriteleg' 0x432668e6;@setalias '15valoritetunic' 0x43331e6b;@setalias '15valoritegloves' 0x432668eb;@setalias '15valoritesleeves' 0x432668e8;//;@setalias '20veritelbod' 0x432668ec;@setalias '20veriteleg' 0x432668e1;@setalias '20veritetunic' 0x432668e4;@setalias '20veritegloves' 0x432668e7;@setalias '20veritesleeves' 0x43331e6c;//;@setalias 'goldstorage' 0x432ce0d3;if not hidden 'self';useskill 'hiding';endif;if not @inrange '15agapitelbod' 2 or not @inrange '10bronzelbod' 2;sysmsg 'Stand near the gold unpack station' 34;stop;endif;sysmsg 'Target the book in your backpack containing all your Gold hammer L&amp;SBods' 34;promptalias 'goldbook';useobject 'goldbook';waitforgump 0x54f555df 15000;replygump 0x54f555df 1;waitforgump 0x968739db 15000;replygump 0x968739db 3;waitforgump 0x968739db 15000;replygump 0x968739db 0;waitforgump 0x54f555df 15000;pause 550;useobject 'goldstorage';pause 750;while @property 'Deeds in Book' 'goldbook' > 0;if @injournal 'world will save';while not @injournal 'world save complete';endwhile;@clearjournal;endif;if not @findtype 0x2258 'any' 'backpack';useobject 'goldbook';waitforgump 0x54f555df 2500;while @property 'Deeds in Book' 'goldbook' > 0 and @property 'Contents' 'backpack' &lt; 123;replygump 0x54f555df 5;waitforgump 0x54f555df 1500;endwhile;endif;if @injournal 'world will save';while not @injournal 'world save complete';endwhile;@clearjournal;endif;pause 550;while @findtype 0x2258 'any' 'backpack';@unsetalias 'valid';//;if @property '20' 'found' and @property 'plate' 'found';if @property 'copper' 'found' and not @property 'dull' 'found';if @property 'exceptional' 'found';if property 'gloves' 'found' and @property 'gorget' 'found';moveitem 'found' 'copperlbod';@setalias 'valid' 'found';pause 750;elseif @property 'legs' 'found';moveitem 'found' 'copperlegs';@setalias 'valid' 'found';pause 750;elseif @property 'tunic' 'found';moveitem 'found' 'coppertunic';@setalias 'valid' 'found';pause 750;elseif @property 'gloves' 'found';moveitem 'found' 'coppergloves';@setalias 'valid' 'found';pause 750;elseif @property 'arms' 'found';moveitem 'found' 'copperarms';@setalias 'valid' 'found';pause 750;elseif @property 'gorget' 'found';moveitem 'found' 'coppergorget';@setalias 'valid' 'found';pause 750;elseif @property 'helm' 'found';moveitem 'found' 'copperhelm';@setalias 'valid' 'found';pause 750;endif;endif;endif;endif;if @property '10' 'found' and @property 'plate' 'found';if @property 'bronze ingots' 'found' and @property 'exceptional' 'found';if property 'gloves' 'found' and @property 'gorget' 'found';moveitem 'found' '10bronzelbod';@setalias 'valid' 'found';pause 750;elseif @property 'legs' 'found';moveitem 'found' '10bronzelegs';@setalias 'valid' 'found';pause 750;elseif @property 'tunic' 'found';moveitem 'found' '10bronzetunic';@setalias 'valid' 'found';pause 750;elseif @property 'gloves' 'found';moveitem 'found' '10bronzegloves';@setalias 'valid' 'found';pause 750;elseif @property 'arms' 'found';moveitem 'found' '10bronzearms';@setalias 'valid' 'found';pause 750;elseif @property 'gorget' 'found';moveitem 'found' '10bronzegorget';@setalias 'valid' 'found';pause 750;elseif @property 'helm' 'found';moveitem 'found' '10bronzehelm';@setalias 'valid' 'found';pause 750;endif;endif;endif;if @property '15' 'found' and @property 'plate' 'found';if @property 'bronze ingots' 'found' and @property 'exceptional' 'found';if property 'gloves' 'found' and @property 'gorget' 'found';moveitem 'found' '15bronzelbod';@setalias 'valid' 'found';pause 750;elseif @property 'legs' 'found';moveitem 'found' '15bronzelegs';@setalias 'valid' 'found';pause 750;elseif @property 'tunic' 'found';moveitem 'found' '15bronzetunic';@setalias 'valid' 'found';pause 750;elseif @property 'gloves' 'found';moveitem 'found' '15bronzegloves';@setalias 'valid' 'found';pause 750;elseif @property 'arms' 'found';moveitem 'found' '15bronzearms';@setalias 'valid' 'found';pause 750;elseif @property 'gorget' 'found';moveitem 'found' '15bronzegorget';@setalias 'valid' 'found';pause 750;elseif @property 'helm' 'found';moveitem 'found' '15bronzehelm';@setalias 'valid' 'found';pause 750;endif;endif;endif;if @property '10' 'found' and @property 'chainmail' 'found';if @property 'exceptional' 'found' and @property 'agapite' 'found';if @property 'coif' 'found' and @property 'leggings' 'found';moveitem 'found' '10agapitelbod';@setalias 'valid' 'found';pause 750;elseif @property 'leggings' 'found';moveitem 'found' '10agapitelegs';@setalias 'valid' 'found';pause 750;elseif @property 'tunic' 'found';moveitem 'found' '10agapitetunic';@setalias 'valid' 'found';pause 750;elseif @property 'coif' 'found';moveitem 'found' '10agapitecoif';@setalias 'valid' 'found';pause 750;elseif;endif;endif;endif;if @property '15' 'found' and @property 'chainmail' 'found';if @property 'exceptional' 'found' and @property 'agapite' 'found';if @property 'coif' 'found' and @property 'leggings' 'found';moveitem 'found' '15agapitelbod';@setalias 'valid' 'found';pause 750;elseif @property 'leggings' 'found';moveitem 'found' '15agapitelegs';@setalias 'valid' 'found';pause 750;elseif @property 'tunic' 'found';moveitem 'found' '15agapitetunic';@setalias 'valid' 'found';pause 750;elseif @property 'coif' 'found';moveitem 'found' '15agapitecoif';@setalias 'valid' 'found';pause 750;elseif;endif;endif;endif;if @property '20' 'found' and @property 'chainmail' 'found';if @property 'exceptional' 'found' and @property 'gold' 'found';if @property 'coif' 'found' and @property 'leggings' 'found';moveitem 'found' 'goldlbod';@setalias 'valid' 'found';pause 750;elseif @property 'leggings' 'found';moveitem 'found' 'goldlegs';@setalias 'valid' 'found';pause 750;elseif @property 'tunic' 'found';moveitem 'found' 'goldtunic';@setalias 'valid' 'found';pause 750;elseif @property 'coif' 'found';moveitem 'found' 'goldcoif';@setalias 'valid' 'found';pause 750;elseif;endif;endif;endif;if @property 'verite' 'found' and @property 'exceptional' 'found';if @property 'ringmail' 'found' and @property '20' 'found';if @property 'gloves' 'found' and @property 'tunic' 'found';moveitem 'found' '20veritelbod';@setalias 'valid' 'found';pause 750;elseif @property 'leggings' 'found';moveitem 'found' '20veriteleg';@setalias 'valid' 'found';pause 750;elseif @property 'tunic' 'found';moveitem 'found' '20veritetunic';@setalias 'valid' 'found';pause 750;elseif @property 'gloves' 'found';moveitem 'found' '20veritegloves';@setalias 'valid' 'found';pause 750;elseif @property 'sleeves' 'found';moveitem 'found' '20veritesleeves';@setalias 'valid' 'found';pause 750;endif;endif;endif;if @property 'valorite' 'found' and @property 'exceptional' 'found';if @property 'ringmail' 'found' and @property '10' 'found';if @property 'gloves' 'found' and @property 'tunic' 'found';moveitem 'found' '10valoritelbod';@setalias 'valid' 'found';pause 750;elseif @property 'leggings' 'found';moveitem 'found' '10valoriteleg';@setalias 'valid' 'found';pause 750;elseif @property 'tunic' 'found';moveitem 'found' '10valoritetunic';@setalias 'valid' 'found';pause 750;elseif @property 'gloves' 'found';moveitem 'found' '10valoritegloves';@setalias 'valid' 'found';pause 750;elseif @property 'sleeves' 'found';moveitem 'found' '10valoritesleeves';@setalias 'valid' 'found';pause 750;endif;endif;endif;if @property 'valorite' 'found' and @property 'exceptional' 'found';if @property 'ringmail' 'found' and @property '15' 'found';if @property 'gloves' 'found' and @property 'tunic' 'found';moveitem 'found' '15valoritelbod';@setalias 'valid' 'found';pause 750;elseif @property 'leggings' 'found';moveitem 'found' '15valoriteleg';@setalias 'valid' 'found';pause 750;elseif @property 'tunic' 'found';moveitem 'found' '15valoritetunic';@setalias 'valid' 'found';pause 750;elseif @property 'gloves' 'found';moveitem 'found' '15valoritegloves';@setalias 'valid' 'found';pause 750;elseif @property 'sleeves' 'found';moveitem 'found' '15valoritesleeves';@setalias 'valid' 'found';pause 750;endif;endif;endif;if @injournal 'world will save';while not @injournal 'world save complete';endwhile;@clearjournal;endif;if @findobject 'found' 'any' 'backpack' and not @findalias 'valid';sysmsg 'Unexpected bod.' 34;moveitem 'found' 'goldstorage';pause 750;endif;endwhile;endwhile;pause 1000;moveitem 'goldbook' 'goldstorage';if skill 'Blacksmithy' >= 120;pause 1000;@playmacro 'Pull Gold to Craft';endif;</macro>
  161. <macro loop="False" name="Pull Gold to Craft" interrupt="True">//change this number to how many you want to pull;for 14;@setalias 'copperlbod' 0x432ce0ce;@setalias 'copperlegs' 0x432cfe3e;@setalias 'coppertunic' 0x432cfe44;@setalias 'coppergloves' 0x432ce0c1;@setalias 'copperarms' 0x432cfe37;@setalias 'coppergorget' 0x432ce0cd;@setalias 'copperhelm' 0x432cfe39;//;@setalias '15bronzelbod' 0x432ce0ca;@setalias '15bronzelegs' 0x432ce0c8;@setalias '15bronzetunic' 0x432ce0cb;@setalias '15bronzegloves' 0x432ce0c9;@setalias '15bronzearms' 0x432cfe42;@setalias '15bronzegorget' 0x432ce0c5;@setalias '15bronzehelm' 0x432cfe43;//;@setalias '10bronzelbod' 0x432cfe3f;@setalias '10bronzelegs' 0x432cfe41;@setalias '10bronzetunic' 0x432cfe38;@setalias '10bronzegloves' 0x432cfe3d;@setalias '10bronzearms' 0x432cfe3a;@setalias '10bronzegorget' 0x432ce0d2;@setalias '10bronzehelm' 0x432cfe45;//;@setalias 'goldlbod' 0x432ce0c7;@setalias 'goldlegs' 0x432ce0c2;@setalias 'goldtunic' 0x432ce0c3;@setalias 'goldcoif' 0x432ce0d0;//;@setalias '10agapitelbod' 0x432ce0cc;@setalias '10agapitelegs' 0x432cfe40;@setalias '10agapitetunic' 0x432cfe3c;@setalias '10agapitecoif' 0x432ce0d1;//;@setalias '15agapitelbod' 0x432ce0c6;@setalias '15agapitelegs' 0x432cfe3b;@setalias '15agapitetunic' 0x432ce0cf;@setalias '15agapitecoif' 0x432ce0c4;//;@setalias '10valoritelbod' 0x432668e3;@setalias '10valoriteleg' 0x432668e5;@setalias '10valoritetunic' 0x432668e9;@setalias '10valoritegloves' 0x432668ed;@setalias '10valoritesleeves' 0x432668e2;//;@setalias '15valoritelbod' 0x432668ea;@setalias '15valoriteleg' 0x432668e6;@setalias '15valoritetunic' 0x43331e6b;@setalias '15valoritegloves' 0x432668eb;@setalias '15valoritesleeves' 0x432668e8;//;@setalias '20veritelbod' 0x432668ec;@setalias '20veriteleg' 0x432668e1;@setalias '20veritetunic' 0x432668e4;@setalias '20veritegloves' 0x432668e7;@setalias '20veritesleeves' 0x43331e6c;//;@setalias 'goldstorage' 0x432ce0d3;if not hidden 'self';useskill 'hiding';endif;if not @inrange '15agapitelbod' 2 or not @inrange '10bronzelbod' 2;sysmsg 'Stand near the Gold unpack station' 34;stop;endif;if @injournal 'world will save';while not @injournal 'world save complete';endwhile;@clearjournal;endif;if @property 'Contents' 'copperlbod' > 0 and @property 'Contents' 'copperlegs' > 0;if @property 'Contents' 'coppertunic' > 0 and @property 'Contents' 'coppergloves' > 0;if @property 'Contents' 'copperarms' > 0 and @property 'Contents' 'coppergorget' > 0;if @property 'Contents' 'copperhelm' > 0;while @property 'Contents' 'copperlbod' > 0 and not counttype 0x2258 1102 'copperlbod' > 0;useobject 'copperlbod';pause 750;endwhile;while @property 'Contents' 'copperlegs' > 0 and not counttype 0x2258 1102 'copperlegs' > 0;useobject 'copperlegs';pause 750;endwhile;while @property 'Contents' 'coppertunic' > 0 and not counttype 0x2258 1102 'coppertunic' > 0;useobject 'coppertunic';pause 750;endwhile;while @property 'Contents' 'coppergloves' > 0 and not counttype 0x2258 1102 'coppergloves' > 0;useobject 'coppergloves';pause 750;endwhile;while @property 'Contents' 'copperarms' > 0 and not counttype 0x2258 1102 'copperarms' > 0;useobject 'copperarms';pause 750;endwhile;while @property 'Contents' 'coppergorget' > 0 and not counttype 0x2258 1102 'coppergorget' > 0;useobject 'coppergorget';pause 750;endwhile;while @property 'Contents' 'copperhelm' > 0 and not counttype 0x2258 1102 'copperhelm' > 0;useobject 'copperhelm';pause 750;endwhile;endif;endif;endif;endif;while @injournal 'world will save';while not @injournal 'world save complete';endwhile;@clearjournal;endwhile;if @property 'Contents' '15bronzelbod' > 0 and @property 'Contents' '15bronzelegs' > 0;if @property 'Contents' '15bronzetunic' > 0 and @property 'Contents' '15bronzegloves' > 0;if @property 'Contents' '15bronzearms' > 0 and @property 'Contents' '15bronzegorget' > 0;if @property 'Contents' '15bronzehelm' > 0;while @property 'Contents' '15bronzelbod' > 0 and not counttype 0x2258 1102 '15bronzelbod' > 0;useobject '15bronzelbod';pause 750;endwhile;while @property 'Contents' '15bronzelegs' > 0 and not counttype 0x2258 1102 '15bronzelegs' > 0;useobject '15bronzelegs';pause 750;endwhile;while @property 'Contents' '15bronzetunic' > 0 and not counttype 0x2258 1102 '15bronzetunic' > 0;useobject '15bronzetunic';pause 750;endwhile;while @property 'Contents' '15bronzegloves' > 0 and not counttype 0x2258 1102 '15bronzegloves' > 0;useobject '15bronzegloves';pause 750;endwhile;while @property 'Contents' '15bronzearms' > 0 and not counttype 0x2258 1102 '15bronzearms' > 0;useobject '15bronzearms';pause 750;endwhile;while @property 'Contents' '15bronzegorget' > 0 and not counttype 0x2258 1102 '15bronzegorget' > 0;useobject '15bronzegorget';pause 750;endwhile;while @property 'Contents' '15bronzehelm' > 0 and not counttype 0x2258 1102 '15bronzehelm' > 0;useobject '15bronzehelm';pause 750;endwhile;endif;endif;endif;endif;if @property 'Contents' '10bronzelbod' > 0 and @property 'Contents' '10bronzelegs' > 0;if @property 'Contents' '10bronzetunic' > 0 and @property 'Contents' '10bronzegloves' > 0;if @property 'Contents' '10bronzearms' > 0 and @property 'Contents' '10bronzegorget' > 0;if @property 'Contents' '10bronzehelm' > 0;while @property 'Contents' '10bronzelbod' > 0 and not counttype 0x2258 1102 '10bronzelbod' > 0;useobject '10bronzelbod';pause 750;endwhile;while @property 'Contents' '10bronzelegs' > 0 and not counttype 0x2258 1102 '10bronzelegs' > 0;useobject '10bronzelegs';pause 750;endwhile;while @property 'Contents' '10bronzetunic' > 0 and not counttype 0x2258 1102 '10bronzetunic' > 0;useobject '10bronzetunic';pause 750;endwhile;while @property 'Contents' '10bronzegloves' > 0 and not counttype 0x2258 1102 '10bronzegloves' > 0;useobject '10bronzegloves';pause 750;endwhile;while @property 'Contents' '10bronzearms' > 0 and not counttype 0x2258 1102 '10bronzearms' > 0;useobject '10bronzearms';pause 750;endwhile;while @property 'Contents' '10bronzegorget' > 0 and not counttype 0x2258 1102 '10bronzegorget' > 0;useobject '10bronzegorget';pause 750;endwhile;while @property 'Contents' '10bronzehelm' > 0 and not counttype 0x2258 1102 '10bronzehelm' > 0;useobject '10bronzehelm';pause 750;endwhile;endif;endif;endif;endif;if @property 'Contents' 'goldlbod' > 0 and @property 'Contents' 'goldlegs' > 0;if @property 'Contents' 'goldtunic' > 0 and @property 'Contents' 'goldcoif' > 0;while @property 'Contents' 'goldlbod' > 0 and not counttype 0x2258 1102 'goldlbod' > 0;useobject 'goldlbod';pause 750;endwhile;while @property 'Contents' 'goldlegs' > 0 and not counttype 0x2258 1102 'goldlegs' > 0;useobject 'goldlegs';pause 750;endwhile;while @property 'Contents' 'goldtunic' > 0 and not counttype 0x2258 1102 'goldtunic' > 0;useobject 'goldtunic';pause 750;endwhile;while @property 'Contents' 'goldcoif' > 0 and not counttype 0x2258 1102 'goldcoif' > 0;useobject 'goldcoif';pause 750;endwhile;endif;endif;while @injournal 'world will save';while not @injournal 'world save complete';endwhile;@clearjournal;endwhile;if @property 'Contents' '10agapitelbod' > 0 and @property 'Contents' '10agapitelegs' > 0;if @property 'Contents' '10agapitetunic' > 0 and @property 'Contents' '10agapitecoif' > 0;while @property 'Contents' '10agapitelbod' > 0 and not counttype 0x2258 1102 '10agapitelbod' > 0;useobject '10agapitelbod';pause 750;endwhile;while @property 'Contents' '10agapitelegs' > 0 and not counttype 0x2258 1102 '10agapitelegs' > 0;useobject '10agapitelegs';pause 750;endwhile;while @property 'Contents' '10agapitetunic' > 0 and not counttype 0x2258 1102 '10agapitetunic' > 0;useobject '10agapitetunic';pause 750;endwhile;while @property 'Contents' '10agapitecoif' > 0 and not counttype 0x2258 1102 '10agapitecoif' > 0;useobject '10agapitecoif';pause 750;endwhile;endif;endif;if @property 'Contents' '15agapitelbod' > 0 and @property 'Contents' '15agapitelegs' > 0;if @property 'Contents' '15agapitetunic' > 0 and @property 'Contents' '15agapitecoif' > 0;while @property 'Contents' '15agapitelbod' > 0 and not counttype 0x2258 1102 '15agapitelbod' > 0;useobject '15agapitelbod';pause 750;endwhile;while @property 'Contents' '15agapitelegs' > 0 and not counttype 0x2258 1102 '15agapitelegs' > 0;useobject '15agapitelegs';pause 750;endwhile;while @property 'Contents' '15agapitetunic' > 0 and not counttype 0x2258 1102 '15agapitetunic' > 0;useobject '15agapitetunic';pause 750;endwhile;while @property 'Contents' '15agapitecoif' > 0 and not counttype 0x2258 1102 '15agapitecoif' > 0;useobject '15agapitecoif';pause 750;endwhile;endif;endif;while @injournal 'world will save';while not @injournal 'world save complete';endwhile;@clearjournal;endwhile;if @property 'Contents' '10valoritelbod' > 0 and @property 'Contents' '10valoriteleg' > 0;if @property 'Contents' '10valoritetunic' > 0 and @property 'Contents' '10valoritegloves' > 0;if @property 'Contents' '10valoritesleeves' > 0;while @property 'Contents' '10valoritelbod' > 0 and not counttype 0x2258 1102 '10valoritelbod' > 0;useobject '10valoritelbod';pause 750;endwhile;while @property 'Contents' '10valoriteleg' > 0 and not counttype 0x2258 1102 '10valoriteleg' > 0;useobject '10valoriteleg';pause 750;endwhile;while @property 'Contents' '10valoritetunic' > 0 and not counttype 0x2258 1102 '10valoritetunic' > 0;useobject '10valoritetunic';pause 750;endwhile;while @property 'Contents' '10valoritegloves' > 0 and not counttype 0x2258 1102 '10valoritegloves' > 0;useobject '10valoritegloves';pause 750;endwhile;while @property 'Contents' '10valoritesleeves' > 0 and not counttype 0x2258 1102 '10valoritesleeves' > 0;useobject '10valoritesleeves';pause 750;endwhile;endif;endif;endif;if @property 'Contents' '15valoritelbod' > 0 and @property 'Contents' '15valoriteleg' > 0;if @property 'Contents' '15valoritetunic' > 0 and @property 'Contents' '15valoritegloves' > 0;if @property 'Contents' '15valoritesleeves' > 0;while @property 'Contents' '15valoritelbod' > 0 and not counttype 0x2258 1102 '15valoritelbod' > 0;useobject '15valoritelbod';pause 750;endwhile;while @property 'Contents' '15valoriteleg' > 0 and not counttype 0x2258 1102 '15valoriteleg' > 0;useobject '15valoriteleg';pause 750;endwhile;while @property 'Contents' '15valoritetunic' > 0 and not counttype 0x2258 1102 '15valoritetunic' > 0;useobject '15valoritetunic';pause 750;endwhile;while @property 'Contents' '15valoritegloves' > 0 and not counttype 0x2258 1102 '15valoritegloves' > 0;useobject '15valoritegloves';pause 750;endwhile;while @property 'Contents' '15valoritesleeves' > 0 and not counttype 0x2258 1102 '15valoritesleeves' > 0;useobject '15valoritesleeves';pause 750;endwhile;endif;endif;endif;while @injournal 'world will save';while not @injournal 'world save complete';endwhile;@clearjournal;endwhile;if @property 'Contents' '20veritelbod' > 0 and @property 'Contents' '20veriteleg' > 0;if @property 'Contents' '20veritetunic' > 0 and @property 'Contents' '20veritegloves' > 0;if @property 'Contents' '20veritesleeves' > 0;while @property 'Contents' '20veritelbod' > 0 and not counttype 0x2258 1102 '20veritelbod' > 0;useobject '20veritelbod';pause 750;endwhile;while @property 'Contents' '20veriteleg' > 0 and not counttype 0x2258 1102 '20veriteleg' > 0;useobject '20veriteleg';pause 750;endwhile;while @property 'Contents' '20veritetunic' > 0 and not counttype 0x2258 1102 '20veritetunic' > 0;useobject '20veritetunic';pause 750;endwhile;while @property 'Contents' '20veritegloves' > 0 and not counttype 0x2258 1102 '20veritegloves' > 0;useobject '20veritegloves';pause 750;endwhile;while @property 'Contents' '20veritesleeves' > 0 and not counttype 0x2258 1102 '20veritesleeves' > 0;useobject '20veritesleeves';pause 750;endwhile;endif;endif;endif;useobject 'goldstorage';pause 750;if @injournal 'world will save';while not @injournal 'world save complete';endwhile;@clearjournal;endif;//;//;//;@unsetalias 'copper';@unsetalias '15bronze';@unsetalias '10bronze';@unsetalias 'gold';@unsetalias '10agapite';@unsetalias '15agapite';@unsetalias '10valorite';@unsetalias '15valorite';@unsetalias '20verite';sysmsg '-' 33;if @property 'Contents' 'copperlbod' > 0 and @property 'Contents' 'copperlegs' > 0;if @property 'Contents' 'coppertunic' > 0 and @property 'Contents' 'coppergloves' > 0;if @property 'Contents' 'copperarms' > 0 and @property 'Contents' 'coppergorget' > 0;if @property 'Contents' 'copperhelm' > 0;@setalias 'copper' 'self';sysmsg '20 Copper Plate' 142;endif;endif;endif;endif;if @property 'Contents' '10bronzelbod' > 0 and @property 'Contents' '10bronzelegs' > 0;if @property 'Contents' '10bronzetunic' > 0 and @property 'Contents' '10bronzegloves' > 0;if @property 'Contents' '10bronzearms' > 0 and @property 'Contents' '10bronzegorget' > 0;if @property 'Contents' '10bronzehelm' > 0;@setalias '10bronze' 'self';sysmsg '10 Bronze Plate' 248;endif;endif;endif;endif;if @property 'Contents' '15bronzelbod' > 0 and @property 'Contents' '15bronzelegs' > 0;if @property 'Contents' '15bronzetunic' > 0 and @property 'Contents' '15bronzegloves' > 0;if @property 'Contents' '15bronzearms' > 0 and @property 'Contents' '15bronzegorget' > 0;if @property 'Contents' '15bronzehelm' > 0;@setalias '15bronze' 'self';sysmsg '15 Bronze Plate' 248;endif;endif;endif;endif;if @property 'Contents' 'goldlbod' > 0 and @property 'Contents' 'goldlegs' > 0;if @property 'Contents' 'goldtunic' > 0 and @property 'Contents' 'goldcoif' > 0;@setalias 'gold' 'self';sysmsg '20 Gold Chainmail' 53;endif;endif;if @property 'Contents' '10agapitelbod' > 0 and @property 'Contents' '10agapitelegs' > 0;if @property 'Contents' '10agapitetunic' > 0 and @property 'Contents' '10agapitecoif' > 0;@setalias '10agapite' 'self';sysmsg '10 Agapite Chainmail' 36;endif;endif;if @property 'Contents' '15agapitelbod' > 0 and @property 'Contents' '15agapitelegs' > 0;if @property 'Contents' '15agapitetunic' > 0 and @property 'Contents' '15agapitecoif' > 0;@setalias '15agapite' 'self';sysmsg '15 Agapite Chainmail' 36;endif;endif;if @property 'Contents' '10valoritelbod' > 0 and @property 'Contents' '10valoriteleg' > 0;if @property 'Contents' '10valoritetunic' > 0 and @property 'Contents' '10valoritegloves' > 0;if @property 'Contents' '10valoritesleeves' > 0;@setalias '10valorite' 'self';sysmsg '10 Valorite Ringmail' 98;endif;endif;endif;if @property 'Contents' '15valoritelbod' > 0 and @property 'Contents' '15valoriteleg' > 0;if @property 'Contents' '15valoritetunic' > 0 and @property 'Contents' '15valoritegloves' > 0;if @property 'Contents' '15valoritesleeves' > 0;@setalias '15valorite' 'self';sysmsg '15 Valorite Ringmail' 98;endif;endif;endif;if @property 'Contents' '20veritelbod' > 0 and @property 'Contents' '20veriteleg' > 0;if @property 'Contents' '20veritetunic' > 0 and @property 'Contents' '20veritegloves' > 0;if @property 'Contents' '20veritesleeves' > 0;@setalias '20verite' 'self';sysmsg '20 Verite Ringmail' 68;endif;endif;endif;if @injournal 'world will save';while not @injournal 'world save complete';endwhile;@clearjournal;endif;if @findalias 'copper';movetype 0x2258 'copperlbod' 'backpack';pause 750;movetype 0x2258 'copperlegs' 'backpack';pause 750;movetype 0x2258 'coppertunic' 'backpack';pause 750;movetype 0x2258 'coppergloves' 'backpack';pause 750;movetype 0x2258 'copperarms' 'backpack';pause 750;movetype 0x2258 'coppergorget' 'backpack';pause 750;movetype 0x2258 'copperhelm' 'backpack';pause 750;elseif @findalias '10bronze';movetype 0x2258 '10bronzelbod' 'backpack';pause 750;movetype 0x2258 '10bronzelegs' 'backpack';pause 750;movetype 0x2258 '10bronzetunic' 'backpack';pause 750;movetype 0x2258 '10bronzegloves' 'backpack';pause 750;movetype 0x2258 '10bronzearms' 'backpack';pause 750;movetype 0x2258 '10bronzegorget' 'backpack';pause 750;movetype 0x2258 '10bronzehelm' 'backpack';pause 750;elseif @findalias '15bronze';movetype 0x2258 '15bronzelbod' 'backpack';pause 750;movetype 0x2258 '15bronzelegs' 'backpack';pause 750;movetype 0x2258 '15bronzetunic' 'backpack';pause 750;movetype 0x2258 '15bronzegloves' 'backpack';pause 750;movetype 0x2258 '15bronzearms' 'backpack';pause 750;movetype 0x2258 '15bronzegorget' 'backpack';pause 750;movetype 0x2258 '15bronzehelm' 'backpack';pause 750;elseif @findalias 'gold';movetype 0x2258 'goldlbod' 'backpack';pause 750;movetype 0x2258 'goldlegs' 'backpack';pause 750;movetype 0x2258 'goldtunic' 'backpack';pause 750;movetype 0x2258 'goldcoif' 'backpack';pause 750;elseif @findalias '10agapite';movetype 0x2258 '10agapitelbod' 'backpack';pause 750;movetype 0x2258 '10agapitelegs' 'backpack';pause 750;movetype 0x2258 '10agapitetunic' 'backpack';pause 750;movetype 0x2258 '10agapitecoif' 'backpack';pause 750;elseif @findalias '15agapite';movetype 0x2258 '15agapitelbod' 'backpack';pause 750;movetype 0x2258 '15agapitelegs' 'backpack';pause 750;movetype 0x2258 '15agapitetunic' 'backpack';pause 750;movetype 0x2258 '15agapitecoif' 'backpack';pause 750;elseif @findalias '10valorite';movetype 0x2258 '10valoritelbod' 'backpack';pause 750;movetype 0x2258 '10valoriteleg' 'backpack';pause 750;movetype 0x2258 '10valoritetunic' 'backpack';pause 750;movetype 0x2258 '10valoritegloves' 'backpack';pause 750;movetype 0x2258 '10valoritesleeves' 'backpack';pause 750;elseif @findalias '15valorite';movetype 0x2258 '15valoritelbod' 'backpack';pause 750;movetype 0x2258 '15valoriteleg' 'backpack';pause 750;movetype 0x2258 '15valoritetunic' 'backpack';pause 750;movetype 0x2258 '15valoritegloves' 'backpack';pause 750;movetype 0x2258 '15valoritesleeves' 'backpack';pause 750;elseif @findalias '20verite';movetype 0x2258 '20veritelbod' 'backpack';pause 750;movetype 0x2258 '20veriteleg' 'backpack';pause 750;movetype 0x2258 '20veritetunic' 'backpack';pause 750;movetype 0x2258 '20veritegloves' 'backpack';pause 750;movetype 0x2258 '20veritesleeves' 'backpack';pause 750;else;sysmsg 'No full Gold sets' 34;break;endif;endfor;if counttype 0x2258 1102 'backpack' > 0;//;//walk home code;//x, y of center goza;while not x == 1176 or not y == 2790;if x &lt; 1164 or x > 1185;while not y == 2790;if y &lt; 2790;walk 'south';else;walk 'north';endif;pause 500;endwhile;while not x == 1176;if x > 1176;walk 'west';else;walk 'east';endif;pause 500;endwhile;else;while not x == 1176;if x > 1176;walk 'west';else;walk 'east';endif;pause 500;endwhile;while not y == 2790;if y &lt; 2790;walk 'south';else;walk 'north';endif;pause 500;endwhile;endif;endwhile;//;//;@playmacro 'CraftFill Loose Bods';else;@playmacro 'Pack Gold';endif;</macro>
  162. <macro loop="False" name="Pack Gold" interrupt="True">@setalias 'copperlbod' 0x432ce0ce;@setalias 'copperlegs' 0x432cfe3e;@setalias 'coppertunic' 0x432cfe44;@setalias 'coppergloves' 0x432ce0c1;@setalias 'copperarms' 0x432cfe37;@setalias 'coppergorget' 0x432ce0cd;@setalias 'copperhelm' 0x432cfe39;//;@setalias '15bronzelbod' 0x432ce0ca;@setalias '15bronzelegs' 0x432ce0c8;@setalias '15bronzetunic' 0x432ce0cb;@setalias '15bronzegloves' 0x432ce0c9;@setalias '15bronzearms' 0x432cfe42;@setalias '15bronzegorget' 0x432ce0c5;@setalias '15bronzehelm' 0x432cfe43;//;@setalias '10bronzelbod' 0x432cfe3f;@setalias '10bronzelegs' 0x432cfe41;@setalias '10bronzetunic' 0x432cfe38;@setalias '10bronzegloves' 0x432cfe3d;@setalias '10bronzearms' 0x432cfe3a;@setalias '10bronzegorget' 0x432ce0d2;@setalias '10bronzehelm' 0x432cfe45;//;@setalias 'goldlbod' 0x432ce0c7;@setalias 'goldlegs' 0x432ce0c2;@setalias 'goldtunic' 0x432ce0c3;@setalias 'goldcoif' 0x432ce0d0;//;@setalias '10agapitelbod' 0x432ce0cc;@setalias '10agapitelegs' 0x432cfe40;@setalias '10agapitetunic' 0x432cfe3c;@setalias '10agapitecoif' 0x432ce0d1;//;@setalias '15agapitelbod' 0x432ce0c6;@setalias '15agapitelegs' 0x432cfe3b;@setalias '15agapitetunic' 0x432ce0cf;@setalias '15agapitecoif' 0x432ce0c4;//;@setalias '10valoritelbod' 0x432668e3;@setalias '10valoriteleg' 0x432668e5;@setalias '10valoritetunic' 0x432668e9;@setalias '10valoritegloves' 0x432668ed;@setalias '10valoritesleeves' 0x432668e2;//;@setalias '15valoritelbod' 0x432668ea;@setalias '15valoriteleg' 0x432668e6;@setalias '15valoritetunic' 0x43331e6b;@setalias '15valoritegloves' 0x432668eb;@setalias '15valoritesleeves' 0x432668e8;//;@setalias '20veritelbod' 0x432668ec;@setalias '20veriteleg' 0x432668e1;@setalias '20veritetunic' 0x432668e4;@setalias '20veritegloves' 0x432668e7;@setalias '20veritesleeves' 0x43331e6c;//;@setalias 'verite' 0x43331e6c;@setalias 'valorite' 0x43331e6b;@setalias 'goldstorage' 0x432ce0d3;if not hidden 'self';useskill 'hiding';endif;if not @inrange '15agapitelbod' 2 or not @inrange '10bronzelbod' 2;sysmsg 'Stand near the Gold unpack station' 34;stop;endif;useobject 'goldstorage';pause 750;if counttype 0x2259 'any' 'backpack' > 0 and @property 'Contents' 'backpack' > 24;sysmsg 'You might not have enough room to pack. Get rid of books in your pack before starting this macro' 34;stop;endif;if findtype 0x2259 'any' 'goldstorage';@setalias 'goldbook' 'found';moveitem 'goldbook' 'backpack';pause 1000;else;sysmsg 'The Gold book isnt in the storage bag' 34;stop;endif;if @injournal 'world will save';while not @injournal 'world save complete';endwhile;@clearjournal;endif;while @property 'Contents' 'copperlbod' > 0 and not counttype 0x2258 1102 'copperlbod' > 0;useobject 'copperlbod';pause 750;endwhile;while @property 'Contents' 'copperlegs' > 0 and not counttype 0x2258 1102 'copperlegs' > 0;useobject 'copperlegs';pause 750;endwhile;while @property 'Contents' 'coppertunic' > 0 and not counttype 0x2258 1102 'coppertunic' > 0;useobject 'coppertunic';pause 750;endwhile;while @property 'Contents' 'coppergloves' > 0 and not counttype 0x2258 1102 'coppergloves' > 0;useobject 'coppergloves';pause 750;endwhile;while @property 'Contents' 'copperarms' > 0 and not counttype 0x2258 1102 'copperarms' > 0;useobject 'copperarms';pause 750;endwhile;while @property 'Contents' 'coppergorget' > 0 and not counttype 0x2258 1102 'coppergorget' > 0;useobject 'coppergorget';pause 750;endwhile;while @property 'Contents' 'copperhelm' > 0 and not counttype 0x2258 1102 'copperhelm' > 0;useobject 'copperhelm';pause 750;endwhile;while @injournal 'world will save';while not @injournal 'world save complete';endwhile;@clearjournal;endwhile;while @property 'Contents' '15bronzelbod' > 0 and not counttype 0x2258 1102 '15bronzelbod' > 0;useobject '15bronzelbod';pause 750;endwhile;while @property 'Contents' '15bronzelegs' > 0 and not counttype 0x2258 1102 '15bronzelegs' > 0;useobject '15bronzelegs';pause 750;endwhile;while @property 'Contents' '15bronzetunic' > 0 and not counttype 0x2258 1102 '15bronzetunic' > 0;useobject '15bronzetunic';pause 750;endwhile;while @property 'Contents' '15bronzegloves' > 0 and not counttype 0x2258 1102 '15bronzegloves' > 0;useobject '15bronzegloves';pause 750;endwhile;while @property 'Contents' '15bronzearms' > 0 and not counttype 0x2258 1102 '15bronzearms' > 0;useobject '15bronzearms';pause 750;endwhile;while @property 'Contents' '15bronzegorget' > 0 and not counttype 0x2258 1102 '15bronzegorget' > 0;useobject '15bronzegorget';pause 750;endwhile;while @property 'Contents' '15bronzehelm' > 0 and not counttype 0x2258 1102 '15bronzehelm' > 0;useobject '15bronzehelm';pause 750;endwhile;while @property 'Contents' '10bronzelbod' > 0 and not counttype 0x2258 1102 '10bronzelbod' > 0;useobject '10bronzelbod';pause 750;endwhile;while @property 'Contents' '10bronzelegs' > 0 and not counttype 0x2258 1102 '10bronzelegs' > 0;useobject '10bronzelegs';pause 750;endwhile;while @property 'Contents' '10bronzetunic' > 0 and not counttype 0x2258 1102 '10bronzetunic' > 0;useobject '10bronzetunic';pause 750;endwhile;while @property 'Contents' '10bronzegloves' > 0 and not counttype 0x2258 1102 '10bronzegloves' > 0;useobject '10bronzegloves';pause 750;endwhile;while @property 'Contents' '10bronzearms' > 0 and not counttype 0x2258 1102 '10bronzearms' > 0;useobject '10bronzearms';pause 750;endwhile;while @property 'Contents' '10bronzegorget' > 0 and not counttype 0x2258 1102 '10bronzegorget' > 0;useobject '10bronzegorget';pause 750;endwhile;while @property 'Contents' '10bronzehelm' > 0 and not counttype 0x2258 1102 '10bronzehelm' > 0;useobject '10bronzehelm';pause 750;endwhile;while @property 'Contents' 'goldlbod' > 0 and not counttype 0x2258 1102 'goldlbod' > 0;useobject 'goldlbod';pause 750;endwhile;while @property 'Contents' 'goldlegs' > 0 and not counttype 0x2258 1102 'goldlegs' > 0;useobject 'goldlegs';pause 750;endwhile;while @property 'Contents' 'goldtunic' > 0 and not counttype 0x2258 1102 'goldtunic' > 0;useobject 'goldtunic';pause 750;endwhile;while @property 'Contents' 'goldcoif' > 0 and not counttype 0x2258 1102 'goldcoif' > 0;useobject 'goldcoif';pause 750;endwhile;while @injournal 'world will save';while not @injournal 'world save complete';endwhile;@clearjournal;endwhile;while @property 'Contents' '10agapitelbod' > 0 and not counttype 0x2258 1102 '10agapitelbod' > 0;useobject '10agapitelbod';pause 750;endwhile;while @property 'Contents' '10agapitelegs' > 0 and not counttype 0x2258 1102 '10agapitelegs' > 0;useobject '10agapitelegs';pause 750;endwhile;while @property 'Contents' '10agapitetunic' > 0 and not counttype 0x2258 1102 '10agapitetunic' > 0;useobject '10agapitetunic';pause 750;endwhile;while @property 'Contents' '10agapitecoif' > 0 and not counttype 0x2258 1102 '10agapitecoif' > 0;useobject '10agapitecoif';pause 750;endwhile;while @property 'Contents' '15agapitelbod' > 0 and not counttype 0x2258 1102 '15agapitelbod' > 0;useobject '15agapitelbod';pause 750;endwhile;while @property 'Contents' '15agapitelegs' > 0 and not counttype 0x2258 1102 '15agapitelegs' > 0;useobject '15agapitelegs';pause 750;endwhile;while @property 'Contents' '15agapitetunic' > 0 and not counttype 0x2258 1102 '15agapitetunic' > 0;useobject '15agapitetunic';pause 750;endwhile;while @property 'Contents' '15agapitecoif' > 0 and not counttype 0x2258 1102 '15agapitecoif' > 0;useobject '15agapitecoif';pause 750;endwhile;while @injournal 'world will save';while not @injournal 'world save complete';endwhile;@clearjournal;endwhile;while @property 'Contents' '10valoritelbod' > 0 and not counttype 0x2258 1102 '10valoritelbod' > 0;useobject '10valoritelbod';pause 750;endwhile;while @property 'Contents' '10valoriteleg' > 0 and not counttype 0x2258 1102 '10valoriteleg' > 0;useobject '10valoriteleg';pause 750;endwhile;while @property 'Contents' '10valoritetunic' > 0 and not counttype 0x2258 1102 '10valoritetunic' > 0;useobject '10valoritetunic';pause 750;endwhile;while @property 'Contents' '10valoritegloves' > 0 and not counttype 0x2258 1102 '10valoritegloves' > 0;useobject '10valoritegloves';pause 750;endwhile;while @property 'Contents' '10valoritesleeves' > 0 and not counttype 0x2258 1102 '10valoritesleeves' > 0;useobject '10valoritesleeves';pause 750;endwhile;while @property 'Contents' '15valoritelbod' > 0 and not counttype 0x2258 1102 '15valoritelbod' > 0;useobject '15valoritelbod';pause 750;endwhile;while @property 'Contents' '15valoriteleg' > 0 and not counttype 0x2258 1102 '15valoriteleg' > 0;useobject '15valoriteleg';pause 750;endwhile;while @property 'Contents' '15valoritetunic' > 0 and not counttype 0x2258 1102 '15valoritetunic' > 0;useobject '15valoritetunic';pause 750;endwhile;while @property 'Contents' '15valoritegloves' > 0 and not counttype 0x2258 1102 '15valoritegloves' > 0;useobject '15valoritegloves';pause 750;endwhile;while @property 'Contents' '15valoritesleeves' > 0 and not counttype 0x2258 1102 '15valoritesleeves' > 0;useobject '15valoritesleeves';pause 750;endwhile;while @injournal 'world will save';while not @injournal 'world save complete';endwhile;@clearjournal;endwhile;while @property 'Contents' '20veritelbod' > 0 and not counttype 0x2258 1102 '20veritelbod' > 0;useobject '20veritelbod';pause 750;endwhile;while @property 'Contents' '20veriteleg' > 0 and not counttype 0x2258 1102 '20veriteleg' > 0;useobject '20veriteleg';pause 750;endwhile;while @property 'Contents' '20veritetunic' > 0 and not counttype 0x2258 1102 '20veritetunic' > 0;useobject '20veritetunic';pause 750;endwhile;while @property 'Contents' '20veritegloves' > 0 and not counttype 0x2258 1102 '20veritegloves' > 0;useobject '20veritegloves';pause 750;endwhile;while @property 'Contents' '20veritesleeves' > 0 and not counttype 0x2258 1102 '20veritesleeves' > 0;useobject '20veritesleeves';pause 750;endwhile;useobject 'goldstorage';pause 750;if @injournal 'world will save';while not @injournal 'world save complete';endwhile;@clearjournal;endif;while @findtype 0x2258 1102 'copperlbod';moveitem 'found' 'goldbook';endwhile;while @findtype 0x2258 1102 'copperlegs';moveitem 'found' 'goldbook';endwhile;while @findtype 0x2258 1102 'coppertunic';moveitem 'found' 'goldbook';endwhile;while @findtype 0x2258 1102 'coppergloves';moveitem 'found' 'goldbook';endwhile;while @findtype 0x2258 1102 'copperarms';moveitem 'found' 'goldbook';endwhile;while @findtype 0x2258 1102 'coppergorget';moveitem 'found' 'goldbook';endwhile;while @findtype 0x2258 1102 'copperhelm';moveitem 'found' 'goldbook';endwhile;while @findtype 0x2258 1102 '10bronzelbod';moveitem 'found' 'goldbook';endwhile;while @findtype 0x2258 1102 '10bronzelegs';moveitem 'found' 'goldbook';endwhile;while @findtype 0x2258 1102 '10bronzetunic';moveitem 'found' 'goldbook';endwhile;while @findtype 0x2258 1102 '10bronzegloves';moveitem 'found' 'goldbook';endwhile;while @findtype 0x2258 1102 '10bronzearms';moveitem 'found' 'goldbook';endwhile;while @findtype 0x2258 1102 '10bronzegorget';moveitem 'found' 'goldbook';endwhile;while @findtype 0x2258 1102 '10bronzehelm';moveitem 'found' 'goldbook';endwhile;while @findtype 0x2258 1102 '15bronzelbod';moveitem 'found' 'goldbook';endwhile;while @findtype 0x2258 1102 '15bronzelegs';moveitem 'found' 'goldbook';endwhile;while @findtype 0x2258 1102 '15bronzetunic';moveitem 'found' 'goldbook';endwhile;while @findtype 0x2258 1102 '15bronzegloves';moveitem 'found' 'goldbook';endwhile;while @findtype 0x2258 1102 '15bronzearms';moveitem 'found' 'goldbook';endwhile;while @findtype 0x2258 1102 '15bronzegorget';moveitem 'found' 'goldbook';endwhile;while @findtype 0x2258 1102 '15bronzehelm';moveitem 'found' 'goldbook';endwhile;while @findtype 0x2258 1102 'goldlbod';moveitem 'found' 'goldbook';endwhile;while @findtype 0x2258 1102 'goldlegs';moveitem 'found' 'goldbook';endwhile;while @findtype 0x2258 1102 'goldtunic';moveitem 'found' 'goldbook';endwhile;while @findtype 0x2258 1102 'goldcoif';moveitem 'found' 'goldbook';endwhile;while @findtype 0x2258 1102 '10agapitelbod';moveitem 'found' 'goldbook';endwhile;while @findtype 0x2258 1102 '10agapitelegs';moveitem 'found' 'goldbook';endwhile;while @findtype 0x2258 1102 '10agapitetunic';moveitem 'found' 'goldbook';endwhile;while @findtype 0x2258 1102 '10agapitecoif';moveitem 'found' 'goldbook';endwhile;while @findtype 0x2258 1102 '15agapitelbod';moveitem 'found' 'goldbook';endwhile;while @findtype 0x2258 1102 '15agapitelegs';moveitem 'found' 'goldbook';endwhile;while @findtype 0x2258 1102 '15agapitetunic';moveitem 'found' 'goldbook';endwhile;while @findtype 0x2258 1102 '15agapitecoif';moveitem 'found' 'goldbook';endwhile;while @findtype 0x2258 1102 '10valoritelbod';moveitem 'found' 'goldbook';endwhile;while @findtype 0x2258 1102 '10valoriteleg';moveitem 'found' 'goldbook';endwhile;while @findtype 0x2258 1102 '10valoritetunic';moveitem 'found' 'goldbook';endwhile;while @findtype 0x2258 1102 '10valoritegloves';moveitem 'found' 'goldbook';endwhile;while @findtype 0x2258 1102 '10valoritesleeves';moveitem 'found' 'goldbook';endwhile;while @findtype 0x2258 1102 '15valoritelbod';moveitem 'found' 'goldbook';endwhile;while @findtype 0x2258 1102 '15valoriteleg';moveitem 'found' 'goldbook';endwhile;while @findtype 0x2258 1102 '15valoritetunic';moveitem 'found' 'goldbook';endwhile;while @findtype 0x2258 1102 '15valoritegloves';moveitem 'found' 'goldbook';endwhile;while @findtype 0x2258 1102 '15valoritesleeves';moveitem 'found' 'goldbook';endwhile;while @findtype 0x2258 1102 '20veritelbod';moveitem 'found' 'goldbook';endwhile;while @findtype 0x2258 1102 '20veriteleg';moveitem 'found' 'goldbook';endwhile;while @findtype 0x2258 1102 '20veritetunic';moveitem 'found' 'goldbook';endwhile;while @findtype 0x2258 1102 '20veritegloves';moveitem 'found' 'goldbook';endwhile;while @findtype 0x2258 1102 '20veritesleeves';moveitem 'found' 'goldbook';endwhile;if @injournal 'world will save';while not @injournal 'world save complete';endwhile;@clearjournal;endif;//;//walk home code;//x, y of center goza;while not x == 1176 or not y == 2790;if x &lt; 1164 or x > 1185;while not y == 2790;if y &lt; 2790;walk 'south';else;walk 'north';endif;pause 500;endwhile;while not x == 1176;if x > 1176;walk 'west';else;walk 'east';endif;pause 500;endwhile;else;while not x == 1176;if x > 1176;walk 'west';else;walk 'east';endif;pause 500;endwhile;while not y == 2790;if y &lt; 2790;walk 'south';else;walk 'north';endif;pause 500;endwhile;endif;endwhile;//;//;if @injournal 'world will save';while not @injournal 'world save complete';endwhile;@clearjournal;endif;@setalias 'gold2' 0x42ac2995;moveitem 'goldbook' 'gold2';</macro>
  163. <macro loop="False" name="Unpack 120" interrupt="True">@setalias 'bronzelbod' 0x4011470b;@setalias 'bronzelegs' 0x401129b5;@setalias 'bronzetunic' 0x401129bc;@setalias 'bronzecoif' 0x401129ba;//;@setalias 'shadowlbod' 0x40114708;@setalias 'shadowlegs' 0x401129c3;@setalias 'shadowtunic' 0x40114706;@setalias 'shadowgloves' 0x401129b4;@setalias 'shadowarms' 0x40114711;@setalias 'shadowgorget' 0x401129b7;@setalias 'shadowhelm' 0x401129be;//;@setalias '10goldlbod' 0x40114704;@setalias '10goldlegs' 0x401129b2;@setalias '10goldtunic' 0x401129c0;@setalias '10goldcoif' 0x401129bf;//;@setalias '15goldlbod' 0x401129b6;@setalias '15goldlegs' 0x401129b3;@setalias '15goldtunic' 0x401129c2;@setalias '15goldcoif' 0x401129c6;//;@setalias '10copperlbod' 0x4011470f;@setalias '10copperlegs' 0x40114716;@setalias '10coppertunic' 0x401129bb;@setalias '10coppergloves' 0x40114705;@setalias '10copperarms' 0x401129c1;@setalias '10coppergorget' 0x4011470c;@setalias '10copperhelm' 0x401129b8;//;@setalias '15copperlbod' 0x40114713;@setalias '15copperlegs' 0x40114710;@setalias '15coppertunic' 0x401129b1;@setalias '15coppergloves' 0x4011470d;@setalias '15copperarms' 0x40114715;@setalias '15coppergorget' 0x401129c4;@setalias '15copperhelm' 0x401129b9;//;@setalias '120storage' 0x401129c7;if not hidden 'self';useskill 'hiding';endif;if not @inrange '15copperlbod' 2 or not @inrange '10goldlbod' 2;sysmsg 'Stand near the 120 unpack station' 34;stop;endif;sysmsg 'Target the book in your backpack containing all your 120 PS L&amp;SBods' 34;promptalias '120book';useobject '120book';waitforgump 0x54f555df 15000;replygump 0x54f555df 1;waitforgump 0x968739db 15000;replygump 0x968739db 3;waitforgump 0x968739db 15000;replygump 0x968739db 0;waitforgump 0x54f555df 15000;pause 550;useobject '120storage';pause 750;while @property 'Deeds in Book' '120book' > 0;if not @findtype 0x2258 'any' 'backpack';useobject '120book';waitforgump 0x54f555df 2500;while @property 'Deeds in Book' '120book' > 0 and @property 'Contents' 'backpack' &lt; 123;replygump 0x54f555df 5;waitforgump 0x54f555df 1500;endwhile;endif;if @injournal 'world will save';while not @injournal 'world save complete';endwhile;@clearjournal;endif;pause 550;while @findtype 0x2258 'any' 'backpack';@unsetalias 'valid';//;if @property 'exceptional' 'found' and @property 'shadow' 'found';if @property 'plate' 'found';if @property '20' 'found';if @property 'arms' 'found' and @property 'legs' 'found';moveitem 'found' 'shadowlbod';@setalias 'valid' 'found';pause 750;elseif @property 'legs' 'found';moveitem 'found' 'shadowlegs';@setalias 'valid' 'found';pause 750;elseif @property 'tunic' 'found';moveitem 'found' 'shadowtunic';@setalias 'valid' 'found';pause 750;elseif @property 'gloves' 'found';moveitem 'found' 'shadowgloves';@setalias 'valid' 'found';pause 750;elseif @property 'arms' 'found';moveitem 'found' 'shadowarms';@setalias 'valid' 'found';pause 750;elseif @property 'gorget' 'found';moveitem 'found' 'shadowgorget';@setalias 'valid' 'found';pause 750;elseif @property 'helm' 'found';moveitem 'found' 'shadowhelm';@setalias 'valid' 'found';pause 750;endif;endif;endif;endif;if @property 'exceptional' 'found' and @property 'plate' 'found';if @property 'copper' 'found' and not @property 'dull' 'found';if @property '10' 'found';if @property 'arms' 'found' and @property 'legs' 'found';moveitem 'found' '10copperlbod';@setalias 'valid' 'found';pause 750;elseif @property 'legs' 'found';moveitem 'found' '10copperlegs';@setalias 'valid' 'found';pause 750;elseif @property 'tunic' 'found';moveitem 'found' '10coppertunic';@setalias 'valid' 'found';pause 750;elseif @property 'gloves' 'found';moveitem 'found' '10coppergloves';@setalias 'valid' 'found';pause 750;elseif @property 'arms' 'found';moveitem 'found' '10copperarms';@setalias 'valid' 'found';pause 750;elseif @property 'gorget' 'found';moveitem 'found' '10coppergorget';@setalias 'valid' 'found';pause 750;elseif @property 'helm' 'found';moveitem 'found' '10copperhelm';@setalias 'valid' 'found';pause 750;endif;endif;endif;endif;if @property 'exceptional' 'found' and @property 'plate' 'found';if @property 'copper' 'found' and not @property 'dull' 'found';if @property '15' 'found';if @property 'arms' 'found' and @property 'legs' 'found';moveitem 'found' '15copperlbod';@setalias 'valid' 'found';pause 750;elseif @property 'legs' 'found';moveitem 'found' '15copperlegs';@setalias 'valid' 'found';pause 750;elseif @property 'tunic' 'found';moveitem 'found' '15coppertunic';@setalias 'valid' 'found';pause 750;elseif @property 'gloves' 'found';moveitem 'found' '15coppergloves';@setalias 'valid' 'found';pause 750;elseif @property 'arms' 'found';moveitem 'found' '15copperarms';@setalias 'valid' 'found';pause 750;elseif @property 'gorget' 'found';moveitem 'found' '15coppergorget';@setalias 'valid' 'found';pause 750;elseif @property 'helm' 'found';moveitem 'found' '15copperhelm';@setalias 'valid' 'found';pause 750;endif;endif;endif;endif;if @property 'exceptional' 'found' and @property 'chainmail' 'found';if @property 'bronze' 'found' and @property '20' 'found';if @property 'coif' 'found' and @property 'tunic' 'found';moveitem 'found' 'bronzelbod';@setalias 'valid' 'found';pause 750;elseif @property 'leggings' 'found';moveitem 'found' 'bronzelegs';@setalias 'valid' 'found';pause 750;elseif @property 'tunic' 'found';moveitem 'found' 'bronzetunic';@setalias 'valid' 'found';pause 750;elseif @property 'coif' 'found';moveitem 'found' 'bronzecoif';@setalias 'valid' 'found';pause 750;endif;endif;endif;if @property 'exceptional' 'found' and @property 'chainmail' 'found';if @property 'gold' 'found' and @property '10' 'found';if @property 'coif' 'found' and @property 'tunic' 'found';moveitem 'found' '10goldlbod';@setalias 'valid' 'found';pause 750;elseif @property 'leggings' 'found';moveitem 'found' '10goldlegs';@setalias 'valid' 'found';pause 750;elseif @property 'tunic' 'found';moveitem 'found' '10goldtunic';@setalias 'valid' 'found';pause 750;elseif @property 'coif' 'found';moveitem 'found' '10goldcoif';@setalias 'valid' 'found';pause 750;endif;endif;endif;if @property 'exceptional' 'found' and @property 'chainmail' 'found';if @property 'gold' 'found' and @property '15' 'found';if @property 'coif' 'found' and @property 'tunic' 'found';moveitem 'found' '15goldlbod';@setalias 'valid' 'found';pause 750;elseif @property 'leggings' 'found';moveitem 'found' '15goldlegs';@setalias 'valid' 'found';pause 750;elseif @property 'tunic' 'found';moveitem 'found' '15goldtunic';@setalias 'valid' 'found';pause 750;elseif @property 'coif' 'found';moveitem 'found' '15goldcoif';@setalias 'valid' 'found';pause 750;endif;endif;endif;if @injournal 'world will save';while not @injournal 'world save complete';endwhile;@clearjournal;endif;if @findobject 'found' 'any' 'backpack' and not @findalias 'valid';sysmsg 'Unexpected bod.' 34;moveitem 'found' '120storage';pause 750;endif;endwhile;endwhile;pause 1000;moveitem '120book' '120storage';if skill 'Blacksmithy' >= 120;pause 1000;@playmacro 'Pull 120 to Craft';endif;</macro>
  164. <macro loop="False" name="Pull 120 to Craft" interrupt="True">//change this number to how many you want to pull;for 14;@setalias 'bronzelbod' 0x4011470b;@setalias 'bronzelegs' 0x401129b5;@setalias 'bronzetunic' 0x401129bc;@setalias 'bronzecoif' 0x401129ba;//;@setalias 'shadowlbod' 0x40114708;@setalias 'shadowlegs' 0x401129c3;@setalias 'shadowtunic' 0x40114706;@setalias 'shadowgloves' 0x401129b4;@setalias 'shadowarms' 0x40114711;@setalias 'shadowgorget' 0x401129b7;@setalias 'shadowhelm' 0x401129be;//;@setalias '10goldlbod' 0x40114704;@setalias '10goldlegs' 0x401129b2;@setalias '10goldtunic' 0x401129c0;@setalias '10goldcoif' 0x401129bf;//;@setalias '15goldlbod' 0x401129b6;@setalias '15goldlegs' 0x401129b3;@setalias '15goldtunic' 0x401129c2;@setalias '15goldcoif' 0x401129c6;//;@setalias '10copperlbod' 0x4011470f;@setalias '10copperlegs' 0x40114716;@setalias '10coppertunic' 0x401129bb;@setalias '10coppergloves' 0x40114705;@setalias '10copperarms' 0x401129c1;@setalias '10coppergorget' 0x4011470c;@setalias '10copperhelm' 0x401129b8;//;@setalias '15copperlbod' 0x40114713;@setalias '15copperlegs' 0x40114710;@setalias '15coppertunic' 0x401129b1;@setalias '15coppergloves' 0x4011470d;@setalias '15copperarms' 0x40114715;@setalias '15coppergorget' 0x401129c4;@setalias '15copperhelm' 0x401129b9;//;@setalias '120storage' 0x401129c7;if not hidden 'self';useskill 'hiding';endif;if not @inrange '15copperlbod' 2 or not @inrange '10goldlbod' 2;sysmsg 'Stand near the 120 unpack station' 34;stop;endif;if @injournal 'world will save';while not @injournal 'world save complete';endwhile;@clearjournal;endif;if @property 'Contents' 'bronzelbod' > 0 and @property 'Contents' 'bronzelegs' > 0;if @property 'Contents' 'bronzetunic' > 0 and @property 'Contents' 'bronzecoif' > 0;while @property 'Contents' 'bronzelbod' > 0 and not counttype 0x2258 1102 'bronzelbod' > 0;useobject 'bronzelbod';pause 750;endwhile;while @property 'Contents' 'bronzelegs' > 0 and not counttype 0x2258 1102 'bronzelegs' > 0;useobject 'bronzelegs';pause 750;endwhile;while @property 'Contents' 'bronzetunic' > 0 and not counttype 0x2258 1102 'bronzetunic' > 0;useobject 'bronzetunic';pause 750;endwhile;while @property 'Contents' 'bronzecoif' > 0 and not counttype 0x2258 1102 'bronzecoif' > 0;useobject 'bronzecoif';pause 750;endwhile;endif;endif;if @property 'Contents' 'shadowlbod' > 0 and @property 'Contents' 'shadowlegs' > 0;if @property 'Contents' 'shadowtunic' > 0 and @property 'Contents' 'shadowgloves' > 0;if @property 'Contents' 'shadowarms' > 0 and @property 'Contents' 'shadowgorget' > 0;if @property 'Contents' 'shadowhelm' > 0;while @property 'Contents' 'shadowlbod' > 0 and not counttype 0x2258 1102 'shadowlbod' > 0;useobject 'shadowlbod';pause 750;endwhile;while @property 'Contents' 'shadowlegs' > 0 and not counttype 0x2258 1102 'shadowlegs' > 0;useobject 'shadowlegs';pause 750;endwhile;while @property 'Contents' 'shadowtunic' > 0 and not counttype 0x2258 1102 'shadowtunic' > 0;useobject 'shadowtunic';pause 750;endwhile;while @property 'Contents' 'shadowgloves' > 0 and not counttype 0x2258 1102 'shadowgloves' > 0;useobject 'shadowgloves';pause 750;endwhile;while @property 'Contents' 'shadowarms' > 0 and not counttype 0x2258 1102 'shadowarms' > 0;useobject 'shadowarms';pause 750;endwhile;while @property 'Contents' 'shadowgorget' > 0 and not counttype 0x2258 1102 'shadowgorget' > 0;useobject 'shadowgorget';pause 750;endwhile;while @property 'Contents' 'shadowhelm' > 0 and not counttype 0x2258 1102 'shadowhelm' > 0;useobject 'shadowhelm';pause 750;endwhile;endif;endif;endif;endif;while @injournal 'world will save';while not @injournal 'world save complete';endwhile;@clearjournal;endwhile;if @property 'Contents' '10goldlbod' > 0 and @property 'Contents' '10goldlegs' > 0;if @property 'Contents' '10goldtunic' > 0 and @property 'Contents' '10goldcoif' > 0;while @property 'Contents' '10goldlbod' > 0 and not counttype 0x2258 1102 '10goldlbod' > 0;useobject '10goldlbod';pause 750;endwhile;while @property 'Contents' '10goldlegs' > 0 and not counttype 0x2258 1102 '10goldlegs' > 0;useobject '10goldlegs';pause 750;endwhile;while @property 'Contents' '10goldtunic' > 0 and not counttype 0x2258 1102 '10goldtunic' > 0;useobject '10goldtunic';pause 750;endwhile;while @property 'Contents' '10goldcoif' > 0 and not counttype 0x2258 1102 '10goldcoif' > 0;useobject '10goldcoif';pause 750;endwhile;endif;endif;if @property 'Contents' '15goldlbod' > 0 and @property 'Contents' '15goldlegs' > 0;if @property 'Contents' '10goldtunic' > 0 and @property 'Contents' '15goldcoif' > 0;while @property 'Contents' '15goldlbod' > 0 and not counttype 0x2258 1102 '15goldlbod' > 0;useobject '15goldlbod';pause 750;endwhile;while @property 'Contents' '15goldlegs' > 0 and not counttype 0x2258 1102 '15goldlegs' > 0;useobject '15goldlegs';pause 750;endwhile;while @property 'Contents' '15goldtunic' > 0 and not counttype 0x2258 1102 '15goldtunic' > 0;useobject '15goldtunic';pause 750;endwhile;while @property 'Contents' '15goldcoif' > 0 and not counttype 0x2258 1102 '15goldcoif' > 0;useobject '15goldcoif';pause 750;endwhile;endif;endif;if @property 'Contents' '10copperlbod' > 0 and @property 'Contents' '10copperlegs' > 0;if @property 'Contents' '10coppertunic' > 0 and @property 'Contents' '10coppergloves' > 0;if @property 'Contents' '10copperarms' > 0 and @property 'Contents' '10coppergorget' > 0;if @property 'Contents' '10copperhelm' > 0;while @property 'Contents' '10copperlbod' > 0 and not counttype 0x2258 1102 '10copperlbod' > 0;useobject '10copperlbod';pause 750;endwhile;while @property 'Contents' '10copperlegs' > 0 and not counttype 0x2258 1102 '10copperlegs' > 0;useobject '10copperlegs';pause 750;endwhile;while @property 'Contents' '10coppertunic' > 0 and not counttype 0x2258 1102 '10coppertunic' > 0;useobject '10coppertunic';pause 750;endwhile;while @property 'Contents' '10coppergloves' > 0 and not counttype 0x2258 1102 '10coppergloves' > 0;useobject '10coppergloves';pause 750;endwhile;while @property 'Contents' '10copperarms' > 0 and not counttype 0x2258 1102 '10copperarms' > 0;useobject '10copperarms';pause 750;endwhile;while @property 'Contents' '10coppergorget' > 0 and not counttype 0x2258 1102 '10coppergorget' > 0;useobject '10coppergorget';pause 750;endwhile;while @property 'Contents' '10copperhelm' > 0 and not counttype 0x2258 1102 '10copperhelm' > 0;useobject '10copperhelm';pause 750;endwhile;endif;endif;endif;endif;while @injournal 'world will save';while not @injournal 'world save complete';endwhile;@clearjournal;endwhile;if @property 'Contents' '15copperlbod' > 0 and @property 'Contents' '15copperlegs' > 0;if @property 'Contents' '15coppertunic' > 0 and @property 'Contents' '15coppergloves' > 0;if @property 'Contents' '15copperarms' > 0 and @property 'Contents' '15coppergorget' > 0;if @property 'Contents' '15copperhelm' > 0;while @property 'Contents' '15copperlbod' > 0 and not counttype 0x2258 1102 '15copperlbod' > 0;useobject '15copperlbod';pause 750;endwhile;while @property 'Contents' '15copperlegs' > 0 and not counttype 0x2258 1102 '15copperlegs' > 0;useobject '15copperlegs';pause 750;endwhile;while @property 'Contents' '15coppertunic' > 0 and not counttype 0x2258 1102 '15coppertunic' > 0;useobject '15coppertunic';pause 750;endwhile;while @property 'Contents' '15coppergloves' > 0 and not counttype 0x2258 1102 '15coppergloves' > 0;useobject '15coppergloves';pause 750;endwhile;while @property 'Contents' '15copperarms' > 0 and not counttype 0x2258 1102 '15copperarms' > 0;useobject '15copperarms';pause 750;endwhile;while @property 'Contents' '15coppergorget' > 0 and not counttype 0x2258 1102 '15coppergorget' > 0;useobject '15coppergorget';pause 750;endwhile;while @property 'Contents' '15copperhelm' > 0 and not counttype 0x2258 1102 '15copperhelm' > 0;useobject '15copperhelm';pause 750;endwhile;endif;endif;endif;endif;useobject '120storage';pause 750;if @injournal 'world will save';while not @injournal 'world save complete';endwhile;@clearjournal;endif;//;//;//;@unsetalias 'shadow';@unsetalias '10copper';@unsetalias '15copper';@unsetalias 'bronze';@unsetalias '10gold';@unsetalias '15gold';sysmsg '-' 33;if @property 'Contents' 'shadowlbod' > 0 and @property 'Contents' 'shadowlegs' > 0;if @property 'Contents' 'shadowtunic' > 0 and @property 'Contents' 'shadowgloves' > 0;if @property 'Contents' 'shadowarms' > 0 and @property 'Contents' 'shadowgorget' > 0;if @property 'Contents' 'shadowhelm' > 0;@setalias 'shadow' 'self';sysmsg '20 Shadow Plate' 1000;endif;endif;endif;endif;if @property 'Contents' '10copperlbod' > 0 and @property 'Contents' '10copperlegs' > 0;if @property 'Contents' '10coppertunic' > 0 and @property 'Contents' '10coppergloves' > 0;if @property 'Contents' '10copperarms' > 0 and @property 'Contents' '10coppergorget' > 0;if @property 'Contents' '10copperhelm' > 0;@setalias '10copper' 'self';sysmsg '10 Copper Plate' 142;endif;endif;endif;endif;if @property 'Contents' '15copperlbod' > 0 and @property 'Contents' '15copperlegs' > 0;if @property 'Contents' '15coppertunic' > 0 and @property 'Contents' '15coppergloves' > 0;if @property 'Contents' '15copperarms' > 0 and @property 'Contents' '15coppergorget' > 0;if @property 'Contents' '15copperhelm' > 0;@setalias '15copper' 'self';sysmsg '15 Copper Plate' 142;endif;endif;endif;endif;if @property 'Contents' 'bronzelbod' > 0 and @property 'Contents' 'bronzelegs' > 0;if @property 'Contents' 'bronzetunic' > 0 and @property 'Contents' 'bronzecoif' > 0;@setalias 'bronze' 'self';sysmsg '20 Bronze Chainmail' 248;endif;endif;if @property 'Contents' '10goldlbod' > 0 and @property 'Contents' '10goldlegs' > 0;if @property 'Contents' '10goldtunic' > 0 and @property 'Contents' '10goldcoif' > 0;@setalias '10gold' 'self';sysmsg '10 Gold Chainmail' 53;endif;endif;if @property 'Contents' '15goldlbod' > 0 and @property 'Contents' '15goldlegs' > 0;if @property 'Contents' '10goldtunic' > 0 and @property 'Contents' '15goldcoif' > 0;@setalias '15gold' 'self';sysmsg '15 Gold Chainmail' 53;endif;endif;if @injournal 'world will save';while not @injournal 'world save complete';endwhile;@clearjournal;endif;if @findalias 'shadow';movetype 0x2258 'shadowlbod' 'backpack';pause 750;movetype 0x2258 'shadowlegs' 'backpack';pause 750;movetype 0x2258 'shadowtunic' 'backpack';pause 750;movetype 0x2258 'shadowgloves' 'backpack';pause 750;movetype 0x2258 'shadowarms' 'backpack';pause 750;movetype 0x2258 'shadowgorget' 'backpack';pause 750;movetype 0x2258 'shadowhelm' 'backpack';pause 750;elseif @findalias '10copper';movetype 0x2258 '10copperlbod' 'backpack';pause 750;movetype 0x2258 '10copperlegs' 'backpack';pause 750;movetype 0x2258 '10coppertunic' 'backpack';pause 750;movetype 0x2258 '10coppergloves' 'backpack';pause 750;movetype 0x2258 '10copperarms' 'backpack';pause 750;movetype 0x2258 '10coppergorget' 'backpack';pause 750;movetype 0x2258 '10copperhelm' 'backpack';pause 750;elseif @findalias '15copper';movetype 0x2258 '15copperlbod' 'backpack';pause 750;movetype 0x2258 '15copperlegs' 'backpack';pause 750;movetype 0x2258 '15coppertunic' 'backpack';pause 750;movetype 0x2258 '15coppergloves' 'backpack';pause 750;movetype 0x2258 '15copperarms' 'backpack';pause 750;movetype 0x2258 '15coppergorget' 'backpack';pause 750;movetype 0x2258 '15copperhelm' 'backpack';pause 750;elseif @findalias 'bronze';movetype 0x2258 'bronzelbod' 'backpack';pause 750;movetype 0x2258 'bronzelegs' 'backpack';pause 750;movetype 0x2258 'bronzetunic' 'backpack';pause 750;movetype 0x2258 'bronzecoif' 'backpack';pause 750;elseif @findalias '10gold';movetype 0x2258 '10goldlbod' 'backpack';pause 750;movetype 0x2258 '10goldlegs' 'backpack';pause 750;movetype 0x2258 '10goldtunic' 'backpack';pause 750;movetype 0x2258 '10goldcoif' 'backpack';pause 750;elseif @findalias '15gold';movetype 0x2258 '15goldlbod' 'backpack';pause 750;movetype 0x2258 '15goldlegs' 'backpack';pause 750;movetype 0x2258 '15goldtunic' 'backpack';pause 750;movetype 0x2258 '15goldcoif' 'backpack';pause 750;else;sysmsg 'No full 120 PS sets' 34;break;endif;endfor;if counttype 0x2258 1102 'backpack' > 0;//;//walk home code;//x, y of center goza;while not x == 1176 or not y == 2790;if x &lt; 1164 or x > 1185;while not y == 2790;if y &lt; 2790;walk 'south';else;walk 'north';endif;pause 500;endwhile;while not x == 1176;if x > 1176;walk 'west';else;walk 'east';endif;pause 500;endwhile;else;while not x == 1176;if x > 1176;walk 'west';else;walk 'east';endif;pause 500;endwhile;while not y == 2790;if y &lt; 2790;walk 'south';else;walk 'north';endif;pause 500;endwhile;endif;endwhile;//;//;@playmacro 'CraftFill Loose Bods';else;@playmacro 'Pack 120';endif;</macro>
  165. <macro loop="False" name="Pack 120" interrupt="True">@setalias 'bronzelbod' 0x4011470b;@setalias 'bronzelegs' 0x401129b5;@setalias 'bronzetunic' 0x401129bc;@setalias 'bronzecoif' 0x401129ba;//;@setalias 'shadowlbod' 0x40114708;@setalias 'shadowlegs' 0x401129c3;@setalias 'shadowtunic' 0x40114706;@setalias 'shadowgloves' 0x401129b4;@setalias 'shadowarms' 0x40114711;@setalias 'shadowgorget' 0x401129b7;@setalias 'shadowhelm' 0x401129be;//;@setalias '10goldlbod' 0x40114704;@setalias '10goldlegs' 0x401129b2;@setalias '10goldtunic' 0x401129c0;@setalias '10goldcoif' 0x401129bf;@setalias '15goldlbod' 0x401129b6;@setalias '15goldlegs' 0x401129b3;@setalias '15goldtunic' 0x401129c2;@setalias '15goldcoif' 0x401129c6;//;@setalias '10copperlbod' 0x4011470f;@setalias '10copperlegs' 0x40114716;@setalias '10coppertunic' 0x401129bb;@setalias '10coppergloves' 0x40114705;@setalias '10copperarms' 0x401129c1;@setalias '10coppergorget' 0x4011470c;@setalias '10copperhelm' 0x401129b8;//;@setalias '15copperlbod' 0x40114713;@setalias '15copperlegs' 0x40114710;@setalias '15coppertunic' 0x401129b1;@setalias '15coppergloves' 0x4011470d;@setalias '15copperarms' 0x40114715;@setalias '15coppergorget' 0x401129c4;@setalias '15copperhelm' 0x401129b9;//;@setalias '120storage' 0x401129c7;if not hidden 'self';useskill 'hiding';endif;if not @inrange '15copperlbod' 2 or not @inrange '10goldlbod' 2;sysmsg 'Stand near the 120 unpack station' 34;stop;endif;if @injournal 'world will save';while not @injournal 'world save complete';endwhile;@clearjournal;endif;useobject '120storage';pause 750;if @injournal 'world will save';while not @injournal 'world save complete';endwhile;@clearjournal;endif;if counttype 0x2259 'any' 'backpack' > 0 and @property 'Contents' 'backpack' > 24;sysmsg 'You might not have enough room to pack. Get rid of books in your pack before starting this macro' 34;stop;endif;if findtype 0x2259 'any' '120storage';@setalias '120book' 'found';moveitem '120book' 'backpack';pause 1000;else;sysmsg 'The 120 PS book isnt in the storage bag' 34;stop;endif;while @property 'Contents' 'bronzelbod' > 0 and not counttype 0x2258 1102 'bronzelbod' > 0;useobject 'bronzelbod';pause 750;endwhile;while @property 'Contents' 'bronzelegs' > 0 and not counttype 0x2258 1102 'bronzelegs' > 0;useobject 'bronzelegs';pause 750;endwhile;while @property 'Contents' 'bronzetunic' > 0 and not counttype 0x2258 1102 'bronzetunic' > 0;useobject 'bronzetunic';pause 750;endwhile;while @property 'Contents' 'bronzecoif' > 0 and not counttype 0x2258 1102 'bronzecoif' > 0;useobject 'bronzecoif';pause 750;endwhile;while @property 'Contents' 'shadowlbod' > 0 and not counttype 0x2258 1102 'shadowlbod' > 0;useobject 'shadowlbod';pause 750;endwhile;while @property 'Contents' 'shadowlegs' > 0 and not counttype 0x2258 1102 'shadowlegs' > 0;useobject 'shadowlegs';pause 750;endwhile;while @property 'Contents' 'shadowtunic' > 0 and not counttype 0x2258 1102 'shadowtunic' > 0;useobject 'shadowtunic';pause 750;endwhile;while @property 'Contents' 'shadowgloves' > 0 and not counttype 0x2258 1102 'shadowgloves' > 0;useobject 'shadowgloves';pause 750;endwhile;while @property 'Contents' 'shadowarms' > 0 and not counttype 0x2258 1102 'shadowarms' > 0;useobject 'shadowarms';pause 750;endwhile;while @property 'Contents' 'shadowgorget' > 0 and not counttype 0x2258 1102 'shadowgorget' > 0;useobject 'shadowgorget';pause 750;endwhile;while @property 'Contents' 'shadowhelm' > 0 and not counttype 0x2258 1102 'shadowhelm' > 0;useobject 'shadowhelm';pause 750;endwhile;while @injournal 'world will save';while not @injournal 'world save complete';endwhile;@clearjournal;endwhile;while @property 'Contents' '10goldlbod' > 0 and not counttype 0x2258 1102 '10goldlbod' > 0;useobject '10goldlbod';pause 750;endwhile;while @property 'Contents' '10goldlegs' > 0 and not counttype 0x2258 1102 '10goldlegs' > 0;useobject '10goldlegs';pause 750;endwhile;while @property 'Contents' '10goldtunic' > 0 and not counttype 0x2258 1102 '10goldtunic' > 0;useobject '10goldtunic';pause 750;endwhile;while @property 'Contents' '10goldcoif' > 0 and not counttype 0x2258 1102 '10goldcoif' > 0;useobject '10goldcoif';pause 750;endwhile;while @property 'Contents' '15goldlbod' > 0 and not counttype 0x2258 1102 '15goldlbod' > 0;useobject '15goldlbod';pause 750;endwhile;while @property 'Contents' '15goldlegs' > 0 and not counttype 0x2258 1102 '15goldlegs' > 0;useobject '15goldlegs';pause 750;endwhile;while @property 'Contents' '15goldtunic' > 0 and not counttype 0x2258 1102 '15goldtunic' > 0;useobject '15goldtunic';pause 750;endwhile;while @property 'Contents' '15goldcoif' > 0 and not counttype 0x2258 1102 '15goldcoif' > 0;useobject '15goldcoif';pause 750;endwhile;while @property 'Contents' '10copperlbod' > 0 and not counttype 0x2258 1102 '10copperlbod' > 0;useobject '10copperlbod';pause 750;endwhile;while @property 'Contents' '10copperlegs' > 0 and not counttype 0x2258 1102 '10copperlegs' > 0;useobject '10copperlegs';pause 750;endwhile;while @property 'Contents' '10coppertunic' > 0 and not counttype 0x2258 1102 '10coppertunic' > 0;useobject '10coppertunic';pause 750;endwhile;while @property 'Contents' '10coppergloves' > 0 and not counttype 0x2258 1102 '10coppergloves' > 0;useobject '10coppergloves';pause 750;endwhile;while @property 'Contents' '10copperarms' > 0 and not counttype 0x2258 1102 '10copperarms' > 0;useobject '10copperarms';pause 750;endwhile;while @property 'Contents' '10coppergorget' > 0 and not counttype 0x2258 1102 '10coppergorget' > 0;useobject '10coppergorget';pause 750;endwhile;while @property 'Contents' '10copperhelm' > 0 and not counttype 0x2258 1102 '10copperhelm' > 0;useobject '10copperhelm';pause 750;endwhile;while @injournal 'world will save';while not @injournal 'world save complete';endwhile;@clearjournal;endwhile;while @property 'Contents' '15copperlbod' > 0 and not counttype 0x2258 1102 '15copperlbod' > 0;useobject '15copperlbod';pause 750;endwhile;while @property 'Contents' '15copperlegs' > 0 and not counttype 0x2258 1102 '15copperlegs' > 0;useobject '15copperlegs';pause 750;endwhile;while @property 'Contents' '15coppertunic' > 0 and not counttype 0x2258 1102 '15coppertunic' > 0;useobject '15coppertunic';pause 750;endwhile;while @property 'Contents' '15coppergloves' > 0 and not counttype 0x2258 1102 '15coppergloves' > 0;useobject '15coppergloves';pause 750;endwhile;while @property 'Contents' '15copperarms' > 0 and not counttype 0x2258 1102 '15copperarms' > 0;useobject '15copperarms';pause 750;endwhile;while @property 'Contents' '15coppergorget' > 0 and not counttype 0x2258 1102 '15coppergorget' > 0;useobject '15coppergorget';pause 750;endwhile;while @property 'Contents' '15copperhelm' > 0 and not counttype 0x2258 1102 '15copperhelm' > 0;useobject '15copperhelm';pause 750;endwhile;while @property 'Contents' 'bronzelbod' > 0 and not counttype 0x2258 1102 'bronzelbod' > 0;useobject 'bronzelbod';pause 750;endwhile;while @property 'Contents' 'bronzelegs' > 0 and not counttype 0x2258 1102 'bronzelegs' > 0;useobject 'bronzelegs';pause 750;endwhile;while @property 'Contents' 'bronzetunic' > 0 and not counttype 0x2258 1102 'bronzetunic' > 0;useobject 'bronzetunic';pause 750;endwhile;while @property 'Contents' 'bronzecoif' > 0 and not counttype 0x2258 1102 'bronzecoif' > 0;useobject 'bronzecoif';pause 750;endwhile;while @property 'Contents' 'shadowlbod' > 0 and not counttype 0x2258 1102 'shadowlbod' > 0;useobject 'shadowlbod';pause 750;endwhile;while @property 'Contents' 'shadowlegs' > 0 and not counttype 0x2258 1102 'shadowlegs' > 0;useobject 'shadowlegs';pause 750;endwhile;while @property 'Contents' 'shadowtunic' > 0 and not counttype 0x2258 1102 'shadowtunic' > 0;useobject 'shadowtunic';pause 750;endwhile;while @property 'Contents' 'shadowgloves' > 0 and not counttype 0x2258 1102 'shadowgloves' > 0;useobject 'shadowgloves';pause 750;endwhile;while @property 'Contents' 'shadowarms' > 0 and not counttype 0x2258 1102 'shadowarms' > 0;useobject 'shadowarms';pause 750;endwhile;while @property 'Contents' 'shadowgorget' > 0 and not counttype 0x2258 1102 'shadowgorget' > 0;useobject 'shadowgorget';pause 750;endwhile;while @property 'Contents' 'shadowhelm' > 0 and not counttype 0x2258 1102 'shadowhelm' > 0;useobject 'shadowhelm';pause 750;endwhile;while @injournal 'world will save';while not @injournal 'world save complete';endwhile;@clearjournal;endwhile;while @property 'Contents' '10goldlbod' > 0 and not counttype 0x2258 1102 '10goldlbod' > 0;useobject '10goldlbod';pause 750;endwhile;while @property 'Contents' '10goldlegs' > 0 and not counttype 0x2258 1102 '10goldlegs' > 0;useobject '10goldlegs';pause 750;endwhile;while @property 'Contents' '10goldtunic' > 0 and not counttype 0x2258 1102 '10goldtunic' > 0;useobject '10goldtunic';pause 750;endwhile;while @property 'Contents' '10goldcoif' > 0 and not counttype 0x2258 1102 '10goldcoif' > 0;useobject '10goldcoif';pause 750;endwhile;while @property 'Contents' '15goldlbod' > 0 and not counttype 0x2258 1102 '15goldlbod' > 0;useobject '15goldlbod';pause 750;endwhile;while @property 'Contents' '15goldlegs' > 0 and not counttype 0x2258 1102 '15goldlegs' > 0;useobject '15goldlegs';pause 750;endwhile;while @property 'Contents' '15goldtunic' > 0 and not counttype 0x2258 1102 '15goldtunic' > 0;useobject '15goldtunic';pause 750;endwhile;while @property 'Contents' '15goldcoif' > 0 and not counttype 0x2258 1102 '15goldcoif' > 0;useobject '15goldcoif';pause 750;endwhile;while @property 'Contents' '10copperlbod' > 0 and not counttype 0x2258 1102 '10copperlbod' > 0;useobject '10copperlbod';pause 750;endwhile;while @property 'Contents' '10copperlegs' > 0 and not counttype 0x2258 1102 '10copperlegs' > 0;useobject '10copperlegs';pause 750;endwhile;while @property 'Contents' '10coppertunic' > 0 and not counttype 0x2258 1102 '10coppertunic' > 0;useobject '10coppertunic';pause 750;endwhile;while @property 'Contents' '10coppergloves' > 0 and not counttype 0x2258 1102 '10coppergloves' > 0;useobject '10coppergloves';pause 750;endwhile;while @property 'Contents' '10copperarms' > 0 and not counttype 0x2258 1102 '10copperarms' > 0;useobject '10copperarms';pause 750;endwhile;while @property 'Contents' '10coppergorget' > 0 and not counttype 0x2258 1102 '10coppergorget' > 0;useobject '10coppergorget';pause 750;endwhile;while @property 'Contents' '10copperhelm' > 0 and not counttype 0x2258 1102 '10copperhelm' > 0;useobject '10copperhelm';pause 750;endwhile;while @injournal 'world will save';while not @injournal 'world save complete';endwhile;@clearjournal;endwhile;while @property 'Contents' '15copperlbod' > 0 and not counttype 0x2258 1102 '15copperlbod' > 0;useobject '15copperlbod';pause 750;endwhile;while @property 'Contents' '15copperlegs' > 0 and not counttype 0x2258 1102 '15copperlegs' > 0;useobject '15copperlegs';pause 750;endwhile;while @property 'Contents' '15coppertunic' > 0 and not counttype 0x2258 1102 '15coppertunic' > 0;useobject '15coppertunic';pause 750;endwhile;while @property 'Contents' '15coppergloves' > 0 and not counttype 0x2258 1102 '15coppergloves' > 0;useobject '15coppergloves';pause 750;endwhile;while @property 'Contents' '15copperarms' > 0 and not counttype 0x2258 1102 '15copperarms' > 0;useobject '15copperarms';pause 750;endwhile;while @property 'Contents' '15coppergorget' > 0 and not counttype 0x2258 1102 '15coppergorget' > 0;useobject '15coppergorget';pause 750;endwhile;while @property 'Contents' '15copperhelm' > 0 and not counttype 0x2258 1102 '15copperhelm' > 0;useobject '15copperhelm';pause 750;endwhile;while @findtype 0x2258 1102 'bronzelbod';moveitem 'found' '120book';endwhile;while @findtype 0x2258 1102 'bronzelegs';moveitem 'found' '120book';endwhile;while @findtype 0x2258 1102 'bronzetunic';moveitem 'found' '120book';endwhile;while @findtype 0x2258 1102 'bronzecoif';moveitem 'found' '120book';endwhile;while @findtype 0x2258 1102 '10goldlbod';moveitem 'found' '120book';endwhile;while @findtype 0x2258 1102 '10goldlegs';moveitem 'found' '120book';endwhile;while @findtype 0x2258 1102 '10goldtunic';moveitem 'found' '120book';endwhile;while @findtype 0x2258 1102 '10goldcoif';moveitem 'found' '120book';endwhile;while @findtype 0x2258 1102 '15goldlbod';moveitem 'found' '120book';endwhile;while @findtype 0x2258 1102 '15goldlegs';moveitem 'found' '120book';endwhile;while @findtype 0x2258 1102 '15goldtunic';moveitem 'found' '120book';endwhile;while @findtype 0x2258 1102 '15goldcoif';moveitem 'found' '120book';endwhile;while @findtype 0x2258 1102 'shadowlbod';moveitem 'found' '120book';endwhile;while @findtype 0x2258 1102 'shadowlegs';moveitem 'found' '120book';endwhile;while @findtype 0x2258 1102 'shadowtunic';moveitem 'found' '120book';endwhile;while @findtype 0x2258 1102 'shadowgloves';moveitem 'found' '120book';endwhile;while @findtype 0x2258 1102 'shadowarms';moveitem 'found' '120book';endwhile;while @findtype 0x2258 1102 'shadowgorget';moveitem 'found' '120book';endwhile;while @findtype 0x2258 1102 'shadowhelm';moveitem 'found' '120book';endwhile;while @findtype 0x2258 1102 '10copperlbod';moveitem 'found' '120book';endwhile;while @findtype 0x2258 1102 '10copperlegs';moveitem 'found' '120book';endwhile;while @findtype 0x2258 1102 '10coppertunic';moveitem 'found' '120book';endwhile;while @findtype 0x2258 1102 '10coppergloves';moveitem 'found' '120book';endwhile;while @findtype 0x2258 1102 '10copperarms';moveitem 'found' '120book';endwhile;while @findtype 0x2258 1102 '10coppergorget';moveitem 'found' '120book';endwhile;while @findtype 0x2258 1102 '10copperhelm';moveitem 'found' '120book';endwhile;while @findtype 0x2258 1102 '15copperlbod';moveitem 'found' '120book';endwhile;while @findtype 0x2258 1102 '15copperlegs';moveitem 'found' '120book';endwhile;while @findtype 0x2258 1102 '15coppertunic';moveitem 'found' '120book';endwhile;while @findtype 0x2258 1102 '15coppergloves';moveitem 'found' '120book';endwhile;while @findtype 0x2258 1102 '15copperarms';moveitem 'found' '120book';endwhile;while @findtype 0x2258 1102 '15coppergorget';moveitem 'found' '120book';endwhile;while @findtype 0x2258 1102 '15copperhelm';moveitem 'found' '120book';endwhile;if @injournal 'world will save';while not @injournal 'world save complete';endwhile;@clearjournal;endif;//;//walk home code;//x, y of center goza;while not x == 1176 or not y == 2790;if x &lt; 1164 or x > 1185;while not y == 2790;if y &lt; 2790;walk 'south';else;walk 'north';endif;pause 500;endwhile;while not x == 1176;if x > 1176;walk 'west';else;walk 'east';endif;pause 500;endwhile;else;while not x == 1176;if x > 1176;walk 'west';else;walk 'east';endif;pause 500;endwhile;while not y == 2790;if y &lt; 2790;walk 'south';else;walk 'north';endif;pause 500;endwhile;endif;endwhile;//;//;if @injournal 'world will save';while not @injournal 'world save complete';endwhile;@clearjournal;endif;@setalias '120' 0x42c86fe4;moveitem '120book' '120';</macro>
  166. <macro loop="False" name="Craft Last Runic" interrupt="True">@unsetalias 'all5';@setalias 'restock' 0x4078edba;useobject 'restock';pause 550;//set your talismans;if not listexists 'Talismans';@createlist 'Talismans';@pushlist 'Talismans' 0x2f58;@pushlist 'Talismans' 0x2f59;@pushlist 'Talismans' 0x2f5a;@pushlist 'Talismans' 0x2f5b;endif;//forget tally if they are registering off another char;if not @findobject 'tailortally' 'any' 'backpack' and not @findobject 'smithtally' 'any' 'backpack';unsetalias 'smithtally';unsetalias 'tailortally';@unsetalias 'warning';endif;//auto set talismans;if not @findalias 'tailortally';clearignorelist;if not @findalias 'warning';if @findlayer 'self' 9;pause 550;@moveitem 'found' 'backpack';pause 550;endif;for 0 to 'Talismans';while @findtype Talismans[] 0 'backpack';waitforproperties 'found' 5000;if @property 'Blacksmithing Bonus' 'found' > 0;@setalias 'smithtally' 'found';elseif @property 'Tailoring Bonus' 'found' > 0;@setalias 'tailortally' 'found';endif;ignoreobject 'found';endwhile;endfor;if not @findalias 'tailortally';sysmsg 'You should get a Tailor bonus talisman. Clear active objects after' 34;endif;@setalias 'warning' 'self';endif;endif;//equip talisman;if @findobject 'tailortally' 'any' 'backpack';if @findlayer 'self' 9;pause 550;@moveitem 'found' 'backpack';pause 550;endif;if findobject 'tailortally' 'any' 'backpack';pause 550;equipitem 'tailortally' 9;pause 550;endif;endif;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;if serial 'self' == 0x68607;sysmsg 'Unload 3 mod' 34;while counttype 0x1081 '2117' '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;useobject 0x40d01398;waitforgump 0x554b87f3 15000;replygump 0x554b87f3 71;pause 2000;endwhile;@playmacro 'Luna Gear Drop';stop;endif;endif;while @findtype 0xf9d '2129' 'backpack' or @findtype 0xf9d '2117' 'backpack';if counttype 0x1081 '2117' 'backpack' &lt; 25;if counttype 0x1081 '2117' 'restock' > 200;movetype 0x1081 'restock' 'backpack' (0 0 0) '2117' 200;pause 1000;else;sysmsg 'Out of leather!' 33;stop;endif;endif;useobject 'found';waitforgump 0x38920abd 2500;replygump 0x38920abd 21;waitforgump 0x38920abd 2500;if counttype 0x1081 '2117' 'backpack' &lt; 25;if counttype 0x1081 '2117' 'restock' > 200;movetype 0x1081 'restock' 'backpack' (0 0 0) '2117' 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;endif;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 'Done' 34;endif;</macro>
  167. <macro loop="False" name="Unpack HRSK" interrupt="True">@setalias '10hornedlbod' 0x41b73eb0;@setalias '10hornedlegs' 0x41b73eb1;@setalias '10hornedtunic' 0x41b73eb8;@setalias '10hornedgloves' 0x41b74b0a;@setalias '10hornedsleeves' 0x41b73eab;@setalias '10hornedgorget' 0x41b73ebb;//;@setalias '15hornedlbod' 0x41b74b0c;@setalias '15hornedlegs' 0x41b73eb5;@setalias '15hornedtunic' 0x41b73eba;@setalias '15hornedgloves' 0x41b73eae;@setalias '15hornedsleeves' 0x41b73ea9;@setalias '15hornedgorget' 0x41b73eac;//;@setalias '20spinedlbod' 0x41b74b09;@setalias '20spinedlegs' 0x41b73eb3;@setalias '20spinedtunic' 0x41b73ebc;@setalias '20spinedgloves' 0x41b73eb6;@setalias '20spinedsleeves' 0x41b73eaa;@setalias '20spinedgorget' 0x41b73ead;//;@setalias 'barbedlbod' 0x41b73eb2;@setalias 'barbedsandals' 0x41b73eb4;@setalias 'barbedshoes' 0x41b73eb7;@setalias 'barbedthigh' 0x41b74b08;@setalias 'barbedboots' 0x41b73eaf;@setalias 'hrskstorage' 0x41b9559a;if not hidden 'self';useskill 'hiding';endif;if not @inrange 'barbedlbod' 2 or not @inrange '20spinedlbod' 2;sysmsg 'Stand near the HRSK unpack station' 34;stop;endif;sysmsg 'Target the book in your backpack containing all your HRSK L&amp;SBods' 34;promptalias 'hrskbook';useobject 'hrskbook';waitforgump 0x54f555df 15000;replygump 0x54f555df 1;waitforgump 0x968739db 15000;replygump 0x968739db 3;waitforgump 0x968739db 15000;replygump 0x968739db 0;waitforgump 0x54f555df 15000;pause 550;useobject 'hrskstorage';pause 750;while @property 'Deeds in Book' 'hrskbook' > 0;if @injournal 'world will save';while not @injournal 'world save complete';endwhile;@clearjournal;endif;if not @findtype 0x2258 'any' 'backpack';useobject 'hrskbook';waitforgump 0x54f555df 2500;while @property 'Deeds in Book' 'hrskbook' > 0 and @property 'Contents' 'backpack' &lt; 123;replygump 0x54f555df 5;waitforgump 0x54f555df 1500;endwhile;endif;if @injournal 'world will save';while not @injournal 'world save complete';endwhile;@clearjournal;endif;pause 550;while @findtype 0x2258 'any' 'backpack';@unsetalias 'valid';//;if @property 'exceptional' 'found' and @property 'horned' 'found';if @property '10' 'found' and @property 'studded' 'found';if @property 'gorget' 'found' and @property 'gloves' 'found';moveitem 'found' '10hornedlbod';@setalias 'valid' 'found';pause 750;elseif @property 'leggings' 'found';moveitem 'found' '10hornedlegs';@setalias 'valid' 'found';pause 750;elseif @property 'tunic' 'found';moveitem 'found' '10hornedtunic';@setalias 'valid' 'found';pause 750;elseif @property 'gloves' 'found';moveitem 'found' '10hornedgloves';@setalias 'valid' 'found';pause 750;elseif @property 'sleeves' 'found';moveitem 'found' '10hornedsleeves';@setalias 'valid' 'found';pause 750;elseif @property 'gorget' 'found';moveitem 'found' '10hornedgorget';@setalias 'valid' 'found';pause 750;endif;endif;endif;if @property 'exceptional' 'found' and @property 'horned' 'found';if @property '15' 'found' and @property 'studded' 'found';if @property 'gorget' 'found' and @property 'gloves' 'found';moveitem 'found' '15hornedlbod';@setalias 'valid' 'found';pause 750;elseif @property 'leggings' 'found';moveitem 'found' '15hornedlegs';@setalias 'valid' 'found';pause 750;elseif @property 'tunic' 'found';moveitem 'found' '15hornedtunic';@setalias 'valid' 'found';pause 750;elseif @property 'gloves' 'found';moveitem 'found' '15hornedgloves';@setalias 'valid' 'found';pause 750;elseif @property 'sleeves' 'found';moveitem 'found' '15hornedsleeves';@setalias 'valid' 'found';pause 750;elseif @property 'gorget' 'found';moveitem 'found' '15hornedgorget';@setalias 'valid' 'found';pause 750;endif;endif;endif;if @property 'exceptional' 'found' and @property 'spined' 'found';if @property '20' 'found' and @property 'studded' 'found';if @property 'gorget' 'found' and @property 'gloves' 'found';moveitem 'found' '20spinedlbod';@setalias 'valid' 'found';pause 750;elseif @property 'leggings' 'found';moveitem 'found' '20spinedlegs';@setalias 'valid' 'found';pause 750;elseif @property 'tunic' 'found';moveitem 'found' '20spinedtunic';@setalias 'valid' 'found';pause 750;elseif @property 'gloves' 'found';moveitem 'found' '20spinedgloves';@setalias 'valid' 'found';pause 750;elseif @property 'sleeves' 'found';moveitem 'found' '20spinedsleeves';@setalias 'valid' 'found';pause 750;elseif @property 'gorget' 'found';moveitem 'found' '20spinedgorget';@setalias 'valid' 'found';pause 750;endif;endif;endif;if @property 'exceptional' 'found' and @property 'barbed' 'found';if @property '20' 'found';if @property 'sandals' 'found' and @property 'shoes' 'found';moveitem 'found' 'barbedlbod';@setalias 'valid' 'found';pause 750;elseif @property 'sandals' 'found';moveitem 'found' 'barbedsandals';@setalias 'valid' 'found';pause 750;elseif @property 'shoes' 'found';moveitem 'found' 'barbedshoes';@setalias 'valid' 'found';pause 750;elseif @property 'thigh' 'found';moveitem 'found' 'barbedthigh';@setalias 'valid' 'found';pause 750;elseif @property 'boots' 'found';moveitem 'found' 'barbedboots';@setalias 'valid' 'found';pause 750;endif;endif;endif;if @injournal 'world will save';while not @injournal 'world save complete';endwhile;@clearjournal;endif;if @findobject 'found' 'any' 'backpack' and not @findalias 'valid';sysmsg 'Unexpected bod.' 34;moveitem 'found' 'hrskstorage';pause 750;endif;endwhile;endwhile;pause 1000;moveitem 'hrskbook' 'hrskstorage';if skill 'Tailoring' == 120;pause 1000;@playmacro 'Pull HRSK Unpacked';endif;</macro>
  168. <macro loop="False" name="Pull HRSK Unpacked" interrupt="True">//change this number to how many you want to pull;for 14;@setalias '10hornedlbod' 0x41b73eb0;@setalias '10hornedlegs' 0x41b73eb1;@setalias '10hornedtunic' 0x41b73eb8;@setalias '10hornedgloves' 0x41b74b0a;@setalias '10hornedsleeves' 0x41b73eab;@setalias '10hornedgorget' 0x41b73ebb;//;@setalias '15hornedlbod' 0x41b74b0c;@setalias '15hornedlegs' 0x41b73eb5;@setalias '15hornedtunic' 0x41b73eba;@setalias '15hornedgloves' 0x41b73eae;@setalias '15hornedsleeves' 0x41b73ea9;@setalias '15hornedgorget' 0x41b73eac;//;@setalias '20spinedlbod' 0x41b74b09;@setalias '20spinedlegs' 0x41b73eb3;@setalias '20spinedtunic' 0x41b73ebc;@setalias '20spinedgloves' 0x41b73eb6;@setalias '20spinedsleeves' 0x41b73eaa;@setalias '20spinedgorget' 0x41b73ead;//;@setalias 'barbedlbod' 0x41b73eb2;@setalias 'barbedsandals' 0x41b73eb4;@setalias 'barbedshoes' 0x41b73eb7;@setalias 'barbedthigh' 0x41b74b08;@setalias 'barbedboots' 0x41b73eaf;@setalias 'hrskstorage' 0x41b9559a;if not hidden 'self';useskill 'hiding';endif;if not @inrange 'barbedlbod' 2 or not @inrange '15hornedlbod' 2;sysmsg 'Stand near the HRSK unpack station' 34;stop;endif;if @injournal 'world will save';while not @injournal 'world save complete';endwhile;@clearjournal;endif;if @property 'Contents' '10hornedlbod' > 0 and @property 'Contents' '10hornedlegs' > 0;if @property 'Contents' '10hornedtunic' > 0 and @property 'Contents' '10hornedgloves' > 0;if @property 'Contents' '10hornedsleeves' > 0 and @property 'Contents' '10hornedgorget' > 0;while @property 'Contents' '10hornedlbod' > 0 and not counttype 0x2258 1155 '10hornedlbod' > 0;useobject '10hornedlbod';pause 750;endwhile;while @property 'Contents' '10hornedlegs' > 0 and not counttype 0x2258 1155 '10hornedlegs' > 0;useobject '10hornedlegs';pause 750;endwhile;while @property 'Contents' '10hornedtunic' > 0 and not counttype 0x2258 1155 '10hornedtunic' > 0;useobject '10hornedtunic';pause 750;endwhile;while @property 'Contents' '10hornedgloves' > 0 and not counttype 0x2258 1155 '10hornedgloves' > 0;useobject '10hornedgloves';pause 750;endwhile;while @property 'Contents' '10hornedsleeves' > 0 and not counttype 0x2258 1155 '10hornedsleeves' > 0;useobject '10hornedsleeves';pause 750;endwhile;while @property 'Contents' '10hornedgorget' > 0 and not counttype 0x2258 1155 '10hornedgorget' > 0;useobject '10hornedgorget';pause 750;endwhile;endif;endif;endif;if @property 'Contents' '15hornedlbod' > 0 and @property 'Contents' '15hornedlegs' > 0;if @property 'Contents' '15hornedtunic' > 0 and @property 'Contents' '15hornedgloves' > 0;if @property 'Contents' '15hornedsleeves' > 0 and @property 'Contents' '15hornedgorget' > 0;while @property 'Contents' '10gloves' > 0 and not counttype 0x2258 1155 '15hornedlbod' > 0;useobject '15hornedlbod';pause 750;endwhile;while @property 'Contents' '15hornedlegs' > 0 and not counttype 0x2258 1155 '15hornedlegs' > 0;useobject '15hornedlegs';pause 750;endwhile;while @property 'Contents' '15hornedtunic' > 0 and not counttype 0x2258 1155 '15hornedtunic' > 0;useobject '15hornedtunic';pause 750;endwhile;while @property 'Contents' '15hornedgloves' > 0 and not counttype 0x2258 1155 '15hornedgloves' > 0;useobject '15hornedgloves';pause 750;endwhile;while @property 'Contents' '15hornedsleeves' > 0 and not counttype 0x2258 1155 '15hornedsleeves' > 0;useobject '15hornedsleeves';pause 750;endwhile;while @property 'Contents' '15hornedgorget' > 0 and not counttype 0x2258 1155 '15hornedgorget' > 0;useobject '15hornedgorget';pause 750;endwhile;while @injournal 'world will save';while not @injournal 'world save complete';endwhile;@clearjournal;endwhile;endif;endif;endif;if @property 'Contents' '20spinedlbod' > 0 and @property 'Contents' '20spinedlegs' > 0;if @property 'Contents' '20spinedtunic' > 0 and @property 'Contents' '20spinedgloves' > 0;if @property 'Contents' '20spinedsleeves' > 0 and @property 'Contents' '20spinedgorget' > 0;while @property 'Contents' '20spinedlbod' > 0 and not counttype 0x2258 1155 '20spinedlbod' > 0;useobject '20spinedlbod';pause 750;endwhile;while @property 'Contents' '20spinedlegs' > 0 and not counttype 0x2258 1155 '20spinedlegs' > 0;useobject '20spinedlegs';pause 750;endwhile;while @property 'Contents' '20spinedtunic' > 0 and not counttype 0x2258 1155 '20spinedtunic' > 0;useobject '20spinedtunic';pause 750;endwhile;while @property 'Contents' '20spinedgloves' > 0 and not counttype 0x2258 1155 '20spinedgloves' > 0;useobject '20spinedgloves';pause 750;endwhile;while @property 'Contents' '20spinedsleeves' > 0 and not counttype 0x2258 1155 '20spinedsleeves' > 0;useobject '20spinedsleeves';pause 750;endwhile;while @property 'Contents' '20spinedgorget' > 0 and not counttype 0x2258 1155 '20spinedgorget' > 0;useobject '20spinedgorget';pause 750;endwhile;endif;endif;endif;if @property 'Contents' 'barbedlbod' > 0 and @property 'Contents' 'barbedsandals' > 0;if @property 'Contents' 'barbedshoes' > 0 and @property 'Contents' 'barbedthigh' > 0;if @property 'Contents' 'barbedboots' > 0;while @property 'Contents' 'barbedlbod' > 0 and not counttype 0x2258 1155 'barbedlbod' > 0;useobject 'barbedlbod';pause 750;endwhile;while @property 'Contents' 'barbedsandals' > 0 and not counttype 0x2258 1155 'barbedsandals' > 0;useobject 'barbedsandals';pause 750;endwhile;while @property 'Contents' 'barbedshoes' > 0 and not counttype 0x2258 1155 'barbedshoes' > 0;useobject 'barbedshoes';pause 750;endwhile;while @property 'Contents' 'barbedthigh' > 0 and not counttype 0x2258 1155 'barbedthigh' > 0;useobject 'barbedthigh';pause 750;endwhile;while @property 'Contents' 'barbedboots' > 0 and not counttype 0x2258 1155 'barbedboots' > 0;useobject 'barbedboots';pause 750;endwhile;endif;endif;endif;useobject 'hrskstorage';pause 750;if @injournal 'world will save';while not @injournal 'world save complete';endwhile;@clearjournal;endif;//;//;//;@unsetalias '10horned';@unsetalias '15horned';@unsetalias '20spined';@unsetalias 'barbed';sysmsg '-' 33;if @property 'Contents' '20spinedlbod' > 0 and @property 'Contents' '20spinedlegs' > 0;if @property 'Contents' '20spinedtunic' > 0 and @property 'Contents' '20spinedgloves' > 0;if @property 'Contents' '20spinedsleeves' > 0 and @property 'Contents' '20spinedgorget' > 0;@setalias '20spined' 'self';sysmsg '20 Spined Studded' 87;endif;endif;endif;if @property 'Contents' 'barbedlbod' > 0 and @property 'Contents' 'barbedsandals' > 0;if @property 'Contents' 'barbedshoes' > 0 and @property 'Contents' 'barbedthigh' > 0;if @property 'Contents' 'barbedboots' > 0;@setalias 'barbed' 'self';sysmsg 'Barbed Footwear' 173;endif;endif;endif;if @property 'Contents' '10hornedlbod' > 0 and @property 'Contents' '10hornedlegs' > 0;if @property 'Contents' '10hornedtunic' > 0 and @property 'Contents' '10hornedgloves' > 0;if @property 'Contents' '10hornedsleeves' > 0 and @property 'Contents' '10hornedgorget' > 0;@setalias '10horned' 'self';sysmsg '10 Horned Studded' 33;endif;endif;endif;if @property 'Contents' '15hornedlbod' > 0 and @property 'Contents' '15hornedlegs' > 0;if @property 'Contents' '15hornedtunic' > 0 and @property 'Contents' '15hornedgloves' > 0;if @property 'Contents'
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!