UOS: BOD Identification Script

Share your guides, how-tos, FAQs, and so forth. This is not for support -- post questions in General Discussion.
Post Reply
Vampire337
Posts: 47
Location: Cincinnati, Ohio

UOS: BOD Identification Script

Post by Vampire337 »

Hello all. Here is a script I've written because I can't be bothered to look up bulk order rewards. If you like it, enjoy. If you don't like it, I made it for myself and you're not my target demographic.

When I newly returned to Demise, I found myself gathering trash BODs at banks because I can't stop hoarding, and because I wondered if maybe some of what people were throwing out was good for me as a noob getting restarted in the game. You can most certainly look at the properties of any BOD and go to a site like Tower of Roses or UOForum to see a list of rewards to compare your BOD to. But I would much rather ask the BOD itself what it will give me if I decide to fill it out. For those who like the manual method, here's some helpful links (each site has tailoring counterparts to their smithing rewards tables):

https://www.uoforum.com/wiki/index.php/ ... OD_Rewards
http://tor.bplaced.net/bods-srw.htm
http://tor.bplaced.net/bods-lrw.htm

This should be pretty cut-and-dry: You create a macro in UOSteam, paste in this code, run the macro, target a bulk order deed, and your character tells you some info about it. I've added arbitrary coloring to the messages; orange message are things that you probably won't have much use for (105 power scrolls, dull copper hammers), green messages are stuff you probably want to keep (copper and above runics, 120 power scrolls, colored anvils). Since most SBODs are used as reset BODs if they're not a part of an LBOD, these are blue, with the exception of tailoring bone SBODs, which it seems no one ever fills because bone isn't a widely gathered commodity on Demise. If you disagree with my prioritization, (maybe you don't want any more polar bear rugs, or maybe you've found a market for 115 tailoring power scrolls), you can simply find the row corresponding to your reward and change the color code: 71 is green; 36 is red, 91 is blue. These are colors I found readable in the journal as well. A little search-and-replace in any good text editor (such as Notepad++) will allow you to change the color codes en masse if you don't like them.
bone_sbod.jpg
bone_sbod.jpg (41.85 KiB) Viewed 4969 times
bear_rug_lbod.jpg
bear_rug_lbod.jpg (52.78 KiB) Viewed 4969 times

Code: Select all

// BOD Identification Macro
// © 2020 - Lee Crawford (Vampire337)
//
promptalias 'BOD'
if @property 'Small Bulk Order' 'BOD' and color 'BOD' == '1102'
  if @property 'Dull Copper' 'BOD' and not @property 'Exceptional' 'BOD'
    if @property 'Amount' 'BOD' == 10
      headmsg '10 Norm DullCop SBOD = Garg Pix/Prospec/+3 Gloves' 91
    elseif @property 'Amount' 'BOD' == 15
      headmsg '15 Norm DullCop SBOD = Garg Pix/Prospec/+3 Gloves' 91
    elseif @property 'Amount' 'BOD' == 20
      headmsg '20 Norm DullCop SBOD = Garg Pix/Prospec/+3 Gloves' 91
    endif
  elseif @property 'Shadow' 'BOD' and not @property 'Exceptional' 'BOD'
    if @property 'Amount' 'BOD' == 10
      headmsg '10 Norm Shadow SBOD = Garg Pix/Prospec/+3 Gloves' 91
    elseif @property 'Amount' 'BOD' == 15
      headmsg '15 Norm Shadow SBOD = Garg Pix/Prospec/+3 Gloves' 91
    elseif @property 'Amount' 'BOD' == 20
      headmsg '20 Norm Shadow SBOD = Garg Pix/Prospec/+3 Gloves' 91
    endif
  elseif @property 'Copper' 'BOD' and not @property 'Exceptional' 'BOD'
    if @property 'Amount' 'BOD' == 10
      headmsg '10 Norm Copper SBOD = Garg Pix/Prospec/+3 Gloves' 91
    elseif @property 'Amount' 'BOD' == 15
      headmsg '15 Norm Copper SBOD = Garg Pix/Prospec/+3 Gloves' 91
    elseif @property 'Amount' 'BOD' == 20
      headmsg '20 Norm Copper SBOD = Garg Pix/Prospec/+3 Gloves' 91
    endif
  elseif @property 'Bronze' 'BOD' and not @property 'Exceptional' 'BOD'
    if @property 'Amount' 'BOD' == 10
      headmsg '10 Norm Bronze SBOD = Garg Pix/Prospec/+3 Gloves' 91
    elseif @property 'Amount' 'BOD' == 15
      headmsg '15 Norm Bronze SBOD = Garg Pix/Prospec/+3 Gloves' 91
    elseif @property 'Amount' 'BOD' == 20
      headmsg '20 Norm Bronze SBOD = Garg Pix/Prospec/PoF' 91
    endif
  elseif @property 'Gold' 'BOD' and not @property 'Exceptional' 'BOD'
    if @property 'Amount' 'BOD' == 10
      headmsg '10 Norm Gold SBOD = Garg Pix/Prospec/PoF' 91
    elseif @property 'Amount' 'BOD' == 15
      headmsg '15 Norm Gold SBOD = Garg Pix/Prospec/PoF' 91
    elseif @property 'Amount' 'BOD' == 20
      headmsg '20 Norm Gold SBOD = PoF/+5 Gloves' 91
    endif
  elseif @property 'Agapite' 'BOD' and not @property 'Exceptional' 'BOD'
    if @property 'Amount' 'BOD' == 10
      headmsg '10 Norm Agapite SBOD = PoF/+5 Gloves' 91
    elseif @property 'Amount' 'BOD' == 15
      headmsg '15 Norm Agapite SBOD = PoF/+5 Gloves' 91
    elseif @property 'Amount' 'BOD' == 20
      headmsg '20 Norm Agapite SBOD = DC Hammer' 91
    endif
  elseif @property 'Verite' 'BOD' and not @property 'Exceptional' 'BOD'
    if @property 'Amount' 'BOD' == 10
      headmsg '10 Norm Verite SBOD = DC Hammer' 91
    elseif @property 'Amount' 'BOD' == 15
      headmsg '15 Norm Verite SBOD = DC Hammer' 91
    elseif @property 'Amount' 'BOD' == 20
      headmsg '20 Norm Verite SBOD = DC/Shadow Hammer' 91
    endif
  elseif @property 'Valorite' 'BOD' and not @property 'Exceptional' 'BOD'
    if @property 'Amount' 'BOD' == 10
      headmsg '10 Norm Valorite SBOD = DC/Shadow Hammer' 91
    elseif @property 'Amount' 'BOD' == 15
      headmsg '15 Norm Valorite SBOD = DC/Shadow Hammer' 91
    elseif @property 'Amount' 'BOD' == 20
      headmsg '20 Norm Valorite SBOD = Shadow Hammer' 91
    endif
  elseif not @property 'Exceptional' 'BOD'
    if @property 'Amount' 'BOD' == 10
      headmsg '10 Norm Iron SBOD = Sturdy Pix/Shovel' 91
    elseif @property 'Amount' 'BOD' == 15
      headmsg '15 Norm Iron SBOD = Sturdy Pix/Shovel' 91
    elseif @property 'Amount' 'BOD' == 20
      headmsg '20 Norm Iron SBOD = Sturdy Pix/Shovel/+3 Gloves' 91
    endif
  elseif @property 'Dull Copper' 'BOD' and @property 'Exceptional' 'BOD'
    if @property 'Amount' 'BOD' == 10
      headmsg '10 Excep DullCop SBOD = Garg Pix/Prospec/PoF' 91
    elseif @property 'Amount' 'BOD' == 15
      headmsg '15 Excep DullCop SBOD = Garg Pix/Prospec/PoF' 91
    elseif @property 'Amount' 'BOD' == 20
      headmsg '20 Excep DullCop SBOD = PoF/+5 Gloves' 91
    endif
  elseif @property 'Shadow' 'BOD' and @property 'Exceptional' 'BOD'
    if @property 'Amount' 'BOD' == 10
      headmsg '10 Excep Shadow SBOD = PoF/+5 Gloves' 91
    elseif @property 'Amount' 'BOD' == 15
      headmsg '15 Excep Shadow SBOD = PoF/+5 Gloves' 91
    elseif @property 'Amount' 'BOD' == 20
      headmsg '20 Excep Shadow SBOD = DC Hammer' 91
    endif
  elseif @property 'Copper' 'BOD' and @property 'Exceptional' 'BOD'
    if @property 'Amount' 'BOD' == 10
      headmsg '10 Excep Copper SBOD = DC Hammer' 91
    elseif @property 'Amount' 'BOD' == 15
      headmsg '15 Excep Copper SBOD = DC Hammer' 91
    elseif @property 'Amount' 'BOD' == 20
      headmsg '20 Excep Copper SBOD = DC/Shadow Hammer' 91
    endif
  elseif @property 'Bronze' 'BOD' and @property 'Exceptional' 'BOD'
    if @property 'Amount' 'BOD' == 10
      headmsg '10 Excep Bronze SBOD = DC/Shadow Hammer' 91
    elseif @property 'Amount' 'BOD' == 15
      headmsg '15 Excep Bronze SBOD = DC/Shadow Hammer' 91
    elseif @property 'Amount' 'BOD' == 20
      headmsg '20 Excep Bronze SBOD = Shadow Hammer' 91
    endif
  elseif @property 'Gold' 'BOD' and @property 'Exceptional' 'BOD'
    if @property 'Amount' 'BOD' == 10
      headmsg '10 Excep Gold SBOD = Shadow Hammer' 91
    elseif @property 'Amount' 'BOD' == 15
      headmsg '15 Excep Gold SBOD = 105PS/Shadow Hammer/Anvil' 91
    elseif @property 'Amount' 'BOD' == 20
      headmsg '20 Excep Gold SBOD = Copper Hammer' 91
    endif
  elseif @property 'Agapite' 'BOD' and @property 'Exceptional' 'BOD'
    if @property 'Amount' 'BOD' == 10
      headmsg '10 Excep Agapite SBOD = Copper Hammer' 91
    elseif @property 'Amount' 'BOD' == 15
      headmsg '15 Excep Agapite SBOD = 110PS/Copper Hammer/Anvil' 91
    elseif @property 'Amount' 'BOD' == 20
      headmsg '20 Excep Agapite SBOD = Bronze Hammer' 91
    endif
  elseif @property 'Verite' 'BOD' and @property 'Exceptional' 'BOD'
    if @property 'Amount' 'BOD' == 10
      headmsg '10 Excep Verite SBOD = Bronze Hammer' 91
    elseif @property 'Amount' 'BOD' == 15
      headmsg '15 Excep Verite SBOD = Bronze Hammer' 91
    elseif @property 'Amount' 'BOD' == 20
      headmsg '20 Excep Verite SBOD = +10 Ancient Hammer' 91
    endif
  elseif @property 'Valorite' 'BOD' and @property 'Exceptional' 'BOD'
    if @property 'Amount' 'BOD' == 10
      headmsg '10 Excep Valorite SBOD = +10 Ancient Hammer' 91
    elseif @property 'Amount' 'BOD' == 15
      headmsg '15 Excep Valorite SBOD = +10 Ancient Hammer' 91
    elseif @property 'Amount' 'BOD' == 20
      headmsg '20 Excep Valorite SBOD = 115 Power Scroll' 91
    endif
  elseif @property 'Exceptional' 'BOD'
    if @property 'Amount' 'BOD' == 10
      headmsg '10 Excep Iron SBOD = Garg Pix/Prospec/+3 Gloves' 91
    elseif @property 'Amount' 'BOD' == 15
      headmsg '15 Excep Iron SBOD = Garg Pix/Prospec/+3 Gloves' 91
    elseif @property 'Amount' 'BOD' == 20
      headmsg '20 Excep Iron SBOD = Garg Pix/Prospec/+3 Gloves' 91
    endif
  else
    headmsg 'Unhandled Blacksmith SBOD!' 33
  endif
elseif @property 'Small Bulk Order' 'BOD' and color 'BOD' == '1155'
  if @property 'Spined' 'BOD' and not @property 'Exceptional' 'BOD'
    if @property 'Amount' 'BOD' == 10 and not @property 'Bone' 'BOD'
      headmsg '10 Norm Spined SBOD = Tier 2 Cloth' 91
    elseif @property 'Amount' 'BOD' == 10 and @property 'Bone' 'BOD'
      headmsg '10 Norm Spined Bone SBOD = Tier 2 Cloth' 36
    elseif @property 'Amount' 'BOD' == 15 and not @property 'Bone' 'BOD'
      headmsg '15 Norm Spined SBOD = Tier 2 Cloth' 91
    elseif @property 'Amount' 'BOD' == 15 and @property 'Bone' 'BOD'
      headmsg '15 Norm Spined Bone SBOD = Tier 2 Cloth' 36
    elseif @property 'Amount' 'BOD' == 20 and not @property 'Bone' 'BOD'
      headmsg '20 Norm Spined SBOD = Tier 3 Cloth' 91
    elseif @property 'Amount' 'BOD' == 20 and @property 'Bone' 'BOD'
      headmsg '20 Norm Spined Bone SBOD = Tier 3 Cloth' 36
    endif
  elseif @property 'Horned' 'BOD' and not @property 'Exceptional' 'BOD'
    if @property 'Amount' 'BOD' == 10 and not @property 'Bone' 'BOD'
      headmsg '10 Norm Horned SBOD = Tier 3 Cloth' 91
    elseif @property 'Amount' 'BOD' == 10 and @property 'Bone' 'BOD'
      headmsg '10 Norm Horned Bone SBOD = Tier 3 Cloth' 36
    elseif @property 'Amount' 'BOD' == 15 and not @property 'Bone' 'BOD'
      headmsg '15 Norm Horned SBOD = Tier 3 Cloth' 91
    elseif @property 'Amount' 'BOD' == 15 and @property 'Bone' 'BOD'
      headmsg '15 Norm Horned Bone SBOD = Tier 3 Cloth' 36
    elseif @property 'Amount' 'BOD' == 20 and not @property 'Bone' 'BOD'
      headmsg '20 Norm Horned SBOD = Tier 4 Cloth/Sandals' 91
    elseif @property 'Amount' 'BOD' == 20 and @property 'Bone' 'BOD'
      headmsg '20 Norm Horned Bone SBOD = Tier 4 Cloth/Sandals' 36
    endif
  elseif @property 'Barbed' 'BOD' and not @property 'Exceptional' 'BOD'
    if @property 'Amount' 'BOD' == 10 and not @property 'Bone' 'BOD'
      headmsg '10 Norm Barbed SBOD = Tier 4 Cloth/Sandals' 91
    elseif @property 'Amount' 'BOD' == 10 and @property 'Bone' 'BOD'
      headmsg '10 Norm Barbed Bone SBOD = Tier 4 Cloth/Sandals' 36
    elseif @property 'Amount' 'BOD' == 15 and not @property 'Bone' 'BOD'
      headmsg '15 Norm Barbed SBOD = Tier 4 Cloth/Sandals' 91
    elseif @property 'Amount' 'BOD' == 15 and @property 'Bone' 'BOD'
      headmsg '15 Norm Barbed Bone SBOD = Tier 4 Cloth/Sandals' 36
    elseif @property 'Amount' 'BOD' == 20 and not @property 'Bone' 'BOD'
      headmsg '20 Norm Barbed SBOD = Tier 5 Cloth/Sandals' 91
    elseif @property 'Amount' 'BOD' == 20 and @property 'Bone' 'BOD'
      headmsg '20 Norm Barbed Bone SBOD = Tier 5 Cloth/Sandals' 36
    endif
  elseif not @property 'Exceptional' 'BOD'
    if @property 'Amount' 'BOD' == 10 and not @property 'Bone' 'BOD'
      headmsg '10 Norm Cloth/Leather SBOD = Tier 4 Cloth/Sandals' 91
    elseif @property 'Amount' 'BOD' == 10 and @property 'Bone' 'BOD'
      headmsg '10 Norm Bone SBOD = Tier 4 Cloth/Sandals' 36
    elseif @property 'Amount' 'BOD' == 15 and not @property 'Bone' 'BOD'
      headmsg '15 Norm Cloth/Leather SBOD = Tier 4 Cloth/Sandals' 91
    elseif @property 'Amount' 'BOD' == 15 and @property 'Bone' 'BOD'
      headmsg '15 Norm Bone SBOD = Tier 4 Cloth/Sandals' 36
    elseif @property 'Amount' 'BOD' == 20 and not @property 'Bone' 'BOD'
      headmsg '20 Norm Cloth/Leather SBOD = Tier 5 Cloth/Sandals' 91
    elseif @property 'Amount' 'BOD' == 20 and @property 'Bone' 'BOD'
      headmsg '20 Norm Bone SBOD = Tier 5 Cloth/Sandals' 36
    endif
  elseif @property 'Spined' 'BOD' and @property 'Exceptional' 'BOD'
    if @property 'Amount' 'BOD' == 10 and not @property 'Bone' 'BOD'
      headmsg '10 Excep Spined SBOD = Tier 5 Cloth/Sandals' 91
    elseif @property 'Amount' 'BOD' == 10 and @property 'Bone' 'BOD'
      headmsg '10 Excep Spined Bone SBOD = Tier 5 Cloth/Sandals' 36
    elseif @property 'Amount' 'BOD' == 15 and not @property 'Bone' 'BOD'
      headmsg '15 Excep Spined SBOD = Tier 5 Cloth/Sandals' 91
    elseif @property 'Amount' 'BOD' == 15 and @property 'Bone' 'BOD'
      headmsg '15 Excep Spined Bone SBOD = Tier 5 Cloth/Sandals' 36
    elseif @property 'Amount' 'BOD' == 20 and not @property 'Bone' 'BOD'
      headmsg '20 Excep Spined SBOD = Tier 5 Cloth/Sandals' 91
    elseif @property 'Amount' 'BOD' == 20 and @property 'Bone' 'BOD'
      headmsg '20 Excep Spined Bone SBOD = Tier 5 Cloth/Sandals' 36
    endif
  elseif @property 'Horned' 'BOD' and @property 'Exceptional' 'BOD'
    if @property 'Amount' 'BOD' == 10 and not @property 'Bone' 'BOD'
      headmsg '10 Excep Horned SBOD = Tier 5 Cloth/Sandals' 91
    elseif @property 'Amount' 'BOD' == 10 and @property 'Bone' 'BOD'
      headmsg '10 Excep Horned Bone SBOD = Tier 5 Cloth/Sandals' 36
    elseif @property 'Amount' 'BOD' == 15 and not @property 'Bone' 'BOD'
      headmsg '15 Excep Horned SBOD = Tier 5 Cloth/Sandals' 91
    elseif @property 'Amount' 'BOD' == 15 not @property 'Bone' 'BOD'
      headmsg '15 Excep Horned Bone SBOD = Tier 5 Cloth/Sandals' 36
    elseif @property 'Amount' 'BOD' == 20 and not @property 'Bone' 'BOD'
      headmsg '20 Excep Horned SBOD = Tier 5 Cloth/Sandals' 91
    elseif @property 'Amount' 'BOD' == 20 not @property 'Bone' 'BOD'
      headmsg '20 Excep Horned Bone SBOD = Tier 5 Cloth/Sandals' 36
    endif
  elseif @property 'Barbed' 'BOD' and @property 'Exceptional' 'BOD'
    if @property 'Amount' 'BOD' == 10 and not @property 'Bone' 'BOD'
      headmsg '10 Excep Barbed SBOD = Tier 5 Cloth/Sandals' 91
    elseif @property 'Amount' 'BOD' == 10 and @property 'Bone' 'BOD'
      headmsg '10 Excep Barbed Bone SBOD = Tier 5 Cloth/Sandals' 36
    elseif @property 'Amount' 'BOD' == 15 and not @property 'Bone' 'BOD'
      headmsg '15 Excep Barbed SBOD = Tier 5 Cloth/Sandals' 91
    elseif @property 'Amount' 'BOD' == 15 and @property 'Bone' 'BOD'
      headmsg '15 Excep Barbed Bone SBOD = Tier 5 Cloth/Sandals' 36
    elseif @property 'Amount' 'BOD' == 20 and not @property 'Bone' 'BOD'
      headmsg '20 Excep Barbed SBOD = Stretched Hide' 91
    elseif @property 'Amount' 'BOD' == 20 and @property 'Bone' 'BOD'
      headmsg '20 Excep Barbed Bone SBOD = Stretched Hide' 36
    endif
  elseif @property 'Exceptional' 'BOD'
    if @property 'Amount' 'BOD' == 10 and not @property 'Bone' 'BOD'
      headmsg '10 Excep Cloth/Leather SBOD = Tier 3 Cloth' 91
    elseif @property 'Amount' 'BOD' == 10 and @property 'Bone' 'BOD'
      headmsg '10 Excep Bone SBOD = Tier 3 Cloth' 36
    elseif @property 'Amount' 'BOD' == 15 and not @property 'Bone' 'BOD'
      headmsg '15 Excep Cloth/Leather SBOD = Tier 4 Cloth/Sandals' 91
    elseif @property 'Amount' 'BOD' == 15 and @property 'Bone' 'BOD'
      headmsg '15 Excep Bone SBOD = Tier 4 Cloth/Sandals' 36
    elseif @property 'Amount' 'BOD' == 20 and not @property 'Bone' 'BOD'
      headmsg '20 Excep Cloth/Leather SBOD = Tier 4 Cloth/Sandals' 91
    elseif @property 'Amount' 'BOD' == 20 and @property 'Bone' 'BOD'
      headmsg '20 Excep Bone SBOD = Tier 4 Cloth/Sandals' 36
    endif
  else
    headmsg 'Unhandled Tailoring SBOD!' 33
  endif
elseif @property 'Large Bulk Order' 'BOD' and color 'BOD' == '1102'
  if @property 'Ringmail' 'BOD' and @property 'Exceptional' 'BOD'
    if @property 'Dull Copper' 'BOD'
      if @property 'Amount' 'BOD' == 10
        headmsg '10 Excep DC Ringmail = Shadow Runic' 36
      elseif @property 'Amount' 'BOD' == 15
        headmsg '15 Excep DC Ringmail = 105PS/Shadow Runic/Anvil' 71
      elseif @property 'Amount' 'BOD' == 20
        headmsg '20 Excep DC Ringmail = Copper Runic Hammer' 71
      endif
    elseif @property 'Shadow' 'BOD'
      if @property 'Amount' 'BOD' == 10
        headmsg '10 Excep Shadow Ringmail = Copper Runic Hammer' 71
      elseif @property 'Amount' 'BOD' == 15
        headmsg '15 Excep Shadow Ringmail = 110PS/Copper Runic/Anvil' 71
      elseif @property 'Amount' 'BOD' == 20
        headmsg '20 Excep Shadow Ringmail = Bronze Runic Hammer' 71
      endif
    elseif @property 'Copper' 'BOD'
      if @property 'Amount' 'BOD' == 10
        headmsg '10 Excep Copper Ringmail = Bronze Runic Hammer' 71
      elseif @property 'Amount' 'BOD' == 15
        headmsg '15 Excep Copper Ringmail = Bronze Runic Hammer' 71
      elseif @property 'Amount' 'BOD' == 20
        headmsg '20 Excep Copper Ringmail = +10 Ancient Hammer' 71
      endif
    elseif @property 'Bronze' 'BOD'
      if @property 'Amount' 'BOD' == 10
        headmsg '10 Excep Bronze Ringmail = +10 Ancient Hammer' 71
      elseif @property 'Amount' 'BOD' == 15
        headmsg '15 Excep Bronze Ringmail = +10 Ancient Hammer' 71
      elseif @property 'Amount' 'BOD' == 20
        headmsg '20 Excep Bronze Ringmail = 115 Power Scroll' 36
      endif
    elseif @property 'Gold' 'BOD'
      if @property 'Amount' 'BOD' == 10
        headmsg '10 Excep Gold Ringmail = 115 Power Scroll' 36
      elseif @property 'Amount' 'BOD' == 15
        headmsg '15 Excep Gold Ringmail = 115 Power Scroll' 36
      elseif @property 'Amount' 'BOD' == 20
        headmsg '20 Excep Gold Ringmail = +15 Ancient Hammer' 71
      endif
    elseif @property 'Agapite' 'BOD'
      if @property 'Amount' 'BOD' == 10
        headmsg '10 Excep Agapite Ringmail = +10 Ancient Hammer' 71
      elseif @property 'Amount' 'BOD' == 15
        headmsg '15 Excep Agapite Ringmail = +10 Ancient Hammer' 71
      elseif @property 'Amount' 'BOD' == 20
        headmsg '20 Excep Agapite Ringmail = 120 Power Scroll' 71
      endif
    elseif @property 'Verite' 'BOD'
      if @property 'Amount' 'BOD' == 10
        headmsg '10 Excep Verite Ringmail = 120 Power Scroll' 71
      elseif @property 'Amount' 'BOD' == 15
        headmsg '15 Excep Verite Ringmail = 120 Power Scroll' 71
      elseif @property 'Amount' 'BOD' == 20
        headmsg '20 Excep Verite Ringmail = Gold Runic Hammer' 71
      endif
    elseif @property 'Valorite' 'BOD'
      if @property 'Amount' 'BOD' == 10
        headmsg '10 Excep Valorite Ringmail = Gold Runic Hammer' 71
      elseif @property 'Amount' 'BOD' == 15
        headmsg '15 Excep Valorite Ringmail = Gold Runic Hammer' 71
      elseif @property 'Amount' 'BOD' == 20
        headmsg '20 Excep Valorite Ringmail = +30 Ancient Hammer' 71
      endif
    else
      if @property 'Amount' 'BOD' == 10
        headmsg '10 Excep Iron Ringmail = Garg Pix/Prospector/PoF' 36
      elseif @property 'Amount' 'BOD' == 15
        headmsg '15 Excep Iron Ringmail = Garg Pix/Prospector/PoF' 36
      elseif @property 'Amount' 'BOD' == 20
        headmsg '20 Excep Iron Ringmail = PoF/+5 Gloves' 71
      endif
    endif
  elseif @property 'Ringmail' 'BOD' and not @property 'Exceptional' 'BOD'
    if @property 'Dull Copper' 'BOD'
      if @property 'Amount' 'BOD' == 10
        headmsg '10 Norm DC Ringmail = Garg Pix/Prospector/PoF' 71
      elseif @property 'Amount' 'BOD' == 15
        headmsg '15 Norm DC Ringmail = Garg Pix/Prospector/PoF' 71
      elseif @property 'Amount' 'BOD' == 20
        headmsg '20 Norm DC Ringmail = PoF/+5 Gloves' 71
      endif
    elseif @property 'Shadow' 'BOD'
      if @property 'Amount' 'BOD' == 10
        headmsg '10 Norm Shadow Ringmail = PoF/+5 Gloves' 71
      elseif @property 'Amount' 'BOD' == 15
        headmsg '15 Norm Shadow Ringmail = PoF/+5 Gloves' 71
      elseif @property 'Amount' 'BOD' == 20
        headmsg '20 Norm Shadow Ringmail = DC Hammer' 36
      endif
    elseif @property 'Copper' 'BOD'
      if @property 'Amount' 'BOD' == 10
        headmsg '10 Norm Copper Ringmail = DC Hammer' 36
      elseif @property 'Amount' 'BOD' == 15
        headmsg '15 Norm Copper Ringmail = DC Hammer' 36
      elseif @property 'Amount' 'BOD' == 20
        headmsg '20 Norm Copper Ringmail = Shadow Hammer' 36
      endif
    elseif @property 'Bronze' 'BOD'
      if @property 'Amount' 'BOD' == 10
        headmsg '10 Norm Bronze Ringmail = DC/Shadow Hammer' 36
      elseif @property 'Amount' 'BOD' == 15
        headmsg '15 Norm Bronze Ringmail = DC/Shadow Hammer' 36
      elseif @property 'Amount' 'BOD' == 20
        headmsg '20 Norm Bronze Ringmail = Shadow Hammer' 36
      endif
    elseif @property 'Gold' 'BOD'
      if @property 'Amount' 'BOD' == 10
        headmsg '10 Norm Gold Ringmail = Shadow Hammer' 36
      elseif @property 'Amount' 'BOD' == 15
        headmsg '15 Norm Gold Ringmail = 105PS/Shadow Hammer/Anvil' 71
      elseif @property 'Amount' 'BOD' == 20
        headmsg '20 Norm Gold Ringmail = Copper Hammer' 71
      endif
    elseif @property 'Agapite' 'BOD'
      if @property 'Amount' 'BOD' == 10
        headmsg '10 Norm Agapite Ringmail = Copper Hammer' 71
      elseif @property 'Amount' 'BOD' == 15
        headmsg '15 Norm Agapite Ringmail = 110PS/Copper Hammer/Anvil' 71
      elseif @property 'Amount' 'BOD' == 20
        headmsg '20 Norm Agapite Ringmail = Bronze Hammer' 71
      endif
    elseif @property 'Verite' 'BOD'
      if @property 'Amount' 'BOD' == 10
        headmsg '10 Norm Verite Ringmail = Bronze Hammer' 71
      elseif @property 'Amount' 'BOD' == 15
        headmsg '15 Norm Verite Ringmail = Bronze Hammer' 71
      elseif @property 'Amount' 'BOD' == 20
        headmsg '20 Norm Verite Ringmail = +10 Ancient Hammer' 71
      endif
    elseif @property 'Valorite' 'BOD'
      if @property 'Amount' 'BOD' == 10
        headmsg '10 Norm Valorite Ringmail = +10 Ancient Hammer' 71
      elseif @property 'Amount' 'BOD' == 15
        headmsg '15 Norm Valorite Ringmail = +10 Ancient Hammer' 71
      elseif @property 'Amount' 'BOD' == 20
        headmsg '20 Norm Valorite Ringmail = 115 Power Scroll' 36
      endif
    else
      if @property 'Amount' 'BOD' == 10
        headmsg '10 Norm Iron Ringmail = Garg Pix/Prospec/+3 Gloves' 36
      elseif @property 'Amount' 'BOD' == 15
        headmsg '15 Norm Iron Ringmail = Garg Pix/Prospec/+3 Gloves' 36
      elseif @property 'Amount' 'BOD' == 20
        headmsg '20 Norm Iron Ringmail = Garg Pix/Prospec/+3 Gloves' 36
      endif
    endif
  elseif @property 'Chainmail' 'BOD' and @property 'Exceptional' 'BOD'
    if @property 'Dull Copper' 'BOD'
      if @property 'Amount' 'BOD' == 10
        headmsg '10 Dull Coppper Chainmail Exc Suits = Bronze Hammer' 71
      elseif @property 'Amount' 'BOD' == 15
        headmsg '15 DC Chainmail Exc Suits = Bronze Hammer' 71
      elseif @property 'Amount' 'BOD' == 20
        headmsg '20 DC Chainmail Exc Suits = +10 Ancient Hammer' 71
      endif
    elseif @property 'Shadow' 'BOD'
      if @property 'Amount' 'BOD' == 10
        headmsg '10 Shadow Chainmail Exc Suits = +10 Ancient Hammer' 71
      elseif @property 'Amount' 'BOD' == 15
        headmsg '15 Shadow Chainmail Exc Suits = +10 Ancient Hammer' 71
      elseif @property 'Amount' 'BOD' == 20
        headmsg '20 Shadow Chainmail Exc Suits = 115 Power Scroll' 36
      endif
    elseif @property 'Copper' 'BOD'
      if @property 'Amount' 'BOD' == 10
        headmsg '10 Copper Chainmail Exc Suits = 115 Power Scroll' 36
      elseif @property 'Amount' 'BOD' == 15
        headmsg '15 Copper Chainmail Exc Suits = 115 Power Scroll' 36
      elseif @property 'Amount' 'BOD' == 20
        headmsg '20 Copper Chainmail Exc Suits = +15 Ancient Hammer' 71
      endif
    elseif @property 'Bronze' 'BOD'
      if @property 'Amount' 'BOD' == 10
        headmsg '10 Bronze Chainmail Exc Suits = +15 Ancient Hammer' 71
      elseif @property 'Amount' 'BOD' == 15
        headmsg '15 Bronze Chainmail Exc Suits = +15 Ancient Hammer' 71
      elseif @property 'Amount' 'BOD' == 20
        headmsg '20 Bronze Chainmail Exc Suits = 120 Power Scroll' 71
      endif
    elseif @property 'Gold' 'BOD'
      if @property 'Amount' 'BOD' == 10
        headmsg '10 Gold Chainmail Exc Suits = 120 Power Scroll' 71
      elseif @property 'Amount' 'BOD' == 15
        headmsg '15 Gold Chainmail Exc Suits = 120 Power Scroll' 71
      elseif @property 'Amount' 'BOD' == 20
        headmsg '20 Gold Chainmail Exc Suits = Gold Hammer' 71
      endif
    elseif @property 'Agapite' 'BOD'
      if @property 'Amount' 'BOD' == 10
        headmsg '10 Agapite Chainmail Exc Suits = Gold Hammer' 71
      elseif @property 'Amount' 'BOD' == 15
        headmsg '15 Agapite Chainmail Exc Suits = Gold Hammer' 71
      elseif @property 'Amount' 'BOD' == 20
        headmsg '20 Agapite Chainmail Exc Suits = +30 Ancient Hammer' 71
      endif
    elseif @property 'Verite' 'BOD'
      if @property 'Amount' 'BOD' == 10
        headmsg '10 Verite Chainmail Exc Suits = +30 Ancient Hammer' 71
      elseif @property 'Amount' 'BOD' == 15
        headmsg '15 Verite Chainmail Exc Suits = +30 Ancient Hammer' 71
      elseif @property 'Amount' 'BOD' == 20
        headmsg '20 Verite Chainmail Exc Suits = Agapite Hammer' 71
      endif
    elseif @property 'Valorite' 'BOD'
      if @property 'Amount' 'BOD' == 10
        headmsg '10 Valorite Chainmail Exc Suits = Agapite Hammer' 71
      elseif @property 'Amount' 'BOD' == 15
        headmsg '15 Valorite Chainmail Exc Suits = Agapite Hammer' 71
      elseif @property 'Amount' 'BOD' == 20
        headmsg '20 Valorite Chainmail Exc Suits = +60 Ancient Hammer' 71
      endif
    else
      if @property 'Amount' 'BOD' == 10
        headmsg '10 Exc Chainmail Suits = DC Hammer' 36
      elseif @property 'Amount' 'BOD' == 15
        headmsg '15 Exc Chainmail Suits = DC Hammer' 36
      elseif @property 'Amount' 'BOD' == 20
        headmsg '20 Exc Chainmail Suits = DC/Shadow Hammer' 36
      endif
    endif
  elseif @property 'Chainmail' 'BOD' and not @property 'Exceptional' 'BOD'
    if @property 'Dull Copper' 'BOD'
      if @property 'Amount' 'BOD' == 10
        headmsg '10 Norm DC Chainmail = DC Hammer' 36
      elseif @property 'Amount' 'BOD' == 15
        headmsg '15 Norm DC Chainmail = DC Hammer' 36
      elseif @property 'Amount' 'BOD' == 20
        headmsg '20 Norm DC Chainmail = DC/Shadow Hammer' 36
      endif
    elseif @property 'Shadow' 'BOD'
      if @property 'Amount' 'BOD' == 10
        headmsg '10 Norm Shadow Chainmail = DC/Shadow Hammer' 36
      elseif @property 'Amount' 'BOD' == 15
        headmsg '15 Norm Shadow Chainmail = DC/Shadow Hammer' 36
      elseif @property 'Amount' 'BOD' == 20
        headmsg '20 Norm Shadow Chainmail = Shadow Hammer' 36
      endif
    elseif @property 'Copper' 'BOD'
      if @property 'Amount' 'BOD' == 10
        headmsg '10 Norm Copper Chainmail = Shadow Hammer' 36
      elseif @property 'Amount' 'BOD' == 15
        headmsg '15 Norm Copper Chainmail = 110PS/Shadow Hammer/Anvil' 71
      elseif @property 'Amount' 'BOD' == 20
        headmsg '20 Norm Copper Chainmail = Bronze Hammer' 71
      endif
    elseif @property 'Bronze' 'BOD'
      if @property 'Amount' 'BOD' == 10
        headmsg '10 Norm Bronze Chainmail = Bronze Hammer' 71
      elseif @property 'Amount' 'BOD' == 15
        headmsg '15 Norm Bronze Chainmail = 110PS/Bronze Hammer/Anvil' 71
      elseif @property 'Amount' 'BOD' == 20
        headmsg '20 Norm Bronze Chainmail = Bronze Hammer' 71
      endif
    elseif @property 'Gold' 'BOD'
      if @property 'Amount' 'BOD' == 10
        headmsg '10 Norm Gold Chainmail = Bronze Hammer' 71
      elseif @property 'Amount' 'BOD' == 15
        headmsg '15 Norm Gold Chainmail = Bronze Hammer' 71
      elseif @property 'Amount' 'BOD' == 20
        headmsg '20 Norm Gold Chainmail = +10 Ancient Hammer' 71
      endif
    elseif @property 'Agapite' 'BOD'
      if @property 'Amount' 'BOD' == 10
        headmsg '10 Norm Agapite Chainmail = +10 Ancient Hammer' 71
      elseif @property 'Amount' 'BOD' == 15
        headmsg '15 Norm Agapite Chainmail = +10 Ancient Hammer' 71
      elseif @property 'Amount' 'BOD' == 20
        headmsg '20 Norm Agapite Chainmail = 115 Power Scroll' 36
      endif
    elseif @property 'Verite' 'BOD'
      if @property 'Amount' 'BOD' == 10
        headmsg '10 Norm Verite Chainmail = 115 Power Scroll' 36
      elseif @property 'Amount' 'BOD' == 15
        headmsg '15 Norm Verite Chainmail = 115 Power Scroll' 36
      elseif @property 'Amount' 'BOD' == 20
        headmsg '20 Norm Verite Chainmail = +15 Ancient Hammer'
      endif
    elseif @property 'Valorite' 'BOD'
      if @property 'Amount' 'BOD' == 10
        headmsg '10 Norm Valorite Chainmail = +15 Ancient Hammer'
      elseif @property 'Amount' 'BOD' == 15
        headmsg '15 Norm Valorite Chainmail = +15 Ancient Hammer'
      elseif @property 'Amount' 'BOD' == 20
        headmsg '20 Norm Valorite Chainmail = 120 Power Scroll' 71
      endif
    else
      if @property 'Amount' 'BOD' == 10
        headmsg '10 Norm Iron Chainmail = Garg Pix/Prospec/+3 Gloves' 36
      elseif @property 'Amount' 'BOD' == 15
        headmsg '15 Norm Iron Chainmail = Garg Pix/Prospec/+3 Gloves' 36
      elseif @property 'Amount' 'BOD' == 20
        headmsg '20 Norm Iron Chainmail = Garg Pix/Prospec/+3 Gloves' 36
      endif
    endif
  elseif @property 'Platemail' 'BOD' and @property 'Exceptional' 'BOD'
    if @property 'Dull Copper' 'BOD'
      if @property 'Amount' 'BOD' == 10
        headmsg '10 Excep DC Platemail = 115 Power Scroll' 36
      elseif @property 'Amount' 'BOD' == 15
        headmsg '15 Excep DC Platemail = 115 Power Scroll' 36
      elseif @property 'Amount' 'BOD' == 20
        headmsg '20 Excep DC Platemail = +15 Ancient Hammer' 71
      endif
    elseif @property 'Shadow' 'BOD'
      if @property 'Amount' 'BOD' == 10
        headmsg '10 Excep Shadow Ringmail = +15 Ancient Hammer' 71
      elseif @property 'Amount' 'BOD' == 15
        headmsg '15 Excep Shadow Ringmail = +15 Ancient Hammer' 71
      elseif @property 'Amount' 'BOD' == 20
        headmsg '20 Excep Shadow Ringmail = 120 Power Scroll' 71
      endif
    elseif @property 'Copper' 'BOD'
      if @property 'Amount' 'BOD' == 10
        headmsg '10 Excep Copper Ringmail = 120 Power Scroll' 71
      elseif @property 'Amount' 'BOD' == 15
        headmsg '15 Excep Copper Ringmail = 120 Power Scroll' 71
      elseif @property 'Amount' 'BOD' == 20
        headmsg '20 Excep Copper Ringmail = Gold Hammer' 71
      endif
    elseif @property 'Bronze' 'BOD'
      if @property 'Amount' 'BOD' == 10
        headmsg '10 Excep Bronze Ringmail = Gold Hammer' 71
      elseif @property 'Amount' 'BOD' == 15
        headmsg '15 Excep Bronze Ringmail = Gold Hammer' 71
      elseif @property 'Amount' 'BOD' == 20
        headmsg '20 Excep Bronze Ringmail = +30 Ancient Hammer' 71
      endif
    elseif @property 'Gold' 'BOD'
      if @property 'Amount' 'BOD' == 10
        headmsg '10 Excep Gold Ringmail = +30 Ancient Hammer' 71
      elseif @property 'Amount' 'BOD' == 15
        headmsg '15 Excep Gold Ringmail = +30 Ancient Hammer' 71
      elseif @property 'Amount' 'BOD' == 20
        headmsg '20 Excep Gold Ringmail = Agapite Hammer' 71
      endif
    elseif @property 'Agapite' 'BOD'
      if @property 'Amount' 'BOD' == 10
        headmsg '10 Excep Agapite Ringmail = Agapite Hammer' 71
      elseif @property 'Amount' 'BOD' == 15
        headmsg '15 Excep Agapite Ringmail = Agapite Hammer' 71
      elseif @property 'Amount' 'BOD' == 20
        headmsg '20 Excep Agapite Ringmail = +60 Ancient Hammer' 71
      endif
    elseif @property 'Verite' 'BOD'
      if @property 'Amount' 'BOD' == 10
        headmsg '10 Excep Verite Ringmail = +60 Ancient Hammer' 71
      elseif @property 'Amount' 'BOD' == 15
        headmsg '15 Excep Verite Ringmail = +60 Ancient Hammer' 71
      elseif @property 'Amount' 'BOD' == 20
        headmsg '20 Excep Verite Ringmail = Verite Hammer' 71
      endif
    elseif @property 'Valorite' 'BOD'
      if @property 'Amount' 'BOD' == 10
        headmsg '10 Excep Valorite Ringmail = Verite Hammer' 71
      elseif @property 'Amount' 'BOD' == 15
        headmsg '15 Excep Valorite Ringmail = Verite Hammer' 71
      elseif @property 'Amount' 'BOD' == 20
        headmsg '20 Excep Valorite Ringmail = Valorite Hammer' 71
      endif
    else
      if @property 'Amount' 'BOD' == 10
        headmsg '10 Excep Iron Platemail = Shadow Hammer' 36
      elseif @property 'Amount' 'BOD' == 15
        headmsg '15 Excep Iron Platemail = 105PS/Shadow Hammer/Anvil' 71
      elseif @property 'Amount' 'BOD' == 20
        headmsg '20 Excep Iron Platemail = Copper Hammer' 71
      endif
    endif
  elseif @property 'Platemail' 'BOD' and not @property 'Exceptional' 'BOD'
    if @property 'Dull Copper' 'BOD'
      if @property 'Amount' 'BOD' == 10
        headmsg '10 Norm DC Platemail = Shadow Hammer' 36
      elseif @property 'Amount' 'BOD' == 15
        headmsg '15 Norm DC Platemail 105PS/Shadow Hammer/Anvil' 71
      elseif @property 'Amount' 'BOD' == 20
        headmsg '20 Norm DC Platemail = Copper Hammer' 36
      endif
    elseif @property 'Shadow' 'BOD'
      if @property 'Amount' 'BOD' == 10
        headmsg '10 Norm Shadow Platemail = Copper Hammer' 36
      elseif @property 'Amount' 'BOD' == 15
        headmsg '15 Norm Shadow Platemail = 110PS/Copper Hammer/Anvil' 36
      elseif @property 'Amount' 'BOD' == 20
        headmsg '20 Norm Shadow Platemail = Bronze Hammer' 71
      endif
    elseif @property 'Copper' 'BOD'
      if @property 'Amount' 'BOD' == 10
        headmsg '10 Norm Copper Platemail = Bronze Hammer' 71
      elseif @property 'Amount' 'BOD' == 15
        headmsg '15 Norm Copper Platemail = Bronze Hammer' 71
      elseif @property 'Amount' 'BOD' == 20
        headmsg '20 Norm Copper Platemail = +10 Ancient Hammer' 71
      endif
    elseif @property 'Bronze' 'BOD'
      if @property 'Amount' 'BOD' == 10
        headmsg '10 Norm Bronze Platemail = +10 Ancient Hammer' 71
      elseif @property 'Amount' 'BOD' == 15
        headmsg '15 Norm Bronze Platemail = +10 Ancient Hammer' 71
      elseif @property 'Amount' 'BOD' == 20
        headmsg '20 Norm Bronze Platemail = 115 Power Scroll' 36
      endif
    elseif @property 'Gold' 'BOD'
      if @property 'Amount' 'BOD' == 10
        headmsg '10 Gold Platemail Norm Suits = 115 Power Scroll' 36
      elseif @property 'Amount' 'BOD' == 15
        headmsg '15 Gold Platemail Norm Suits = 115 Power Scroll' 36
      elseif @property 'Amount' 'BOD' == 20
        headmsg '20 Gold Platemail Norm Suits = +15 Ancient Hammer' 71
      endif
    elseif @property 'Agapite' 'BOD'
      if @property 'Amount' 'BOD' == 10
        headmsg '10 Norm Agapite Platemail = +15 Ancient Hammer' 71
      elseif @property 'Amount' 'BOD' == 15
        headmsg '15 Norm Agapite Platemail = +15 Ancient Hammer' 71
      elseif @property 'Amount' 'BOD' == 20
        headmsg '20 Norm Agapite Platemail = 120 Power Scroll' 71
      endif
    elseif @property 'Verite' 'BOD'
      if @property 'Amount' 'BOD' == 10
        headmsg '10 Norm Verite Platemail = 120 Power Scroll' 71
      elseif @property 'Amount' 'BOD' == 15
        headmsg '15 Norm Verite Platemail = 120 Power Scroll' 71
      elseif @property 'Amount' 'BOD' == 20
        headmsg '20 Norm Verite Platemail = Gold Hammer' 71
      endif
    elseif @property 'Valorite' 'BOD'
      if @property 'Amount' 'BOD' == 10
        headmsg '10 Norm Valorite Platemail = Gold Hammer' 71
      elseif @property 'Amount' 'BOD' == 15
        headmsg '15 Norm Valorite Platemail = Gold Hammer' 71
      elseif @property 'Amount' 'BOD' == 20
        headmsg '20 Norm Valorite Platemail = +30 Ancient Hammer'
      endif
    else
      if @property 'Amount' 'BOD' == 10
        headmsg '10 Norm Iron Platemail = Garg Pix/Prospector/PoF' 71
      elseif @property 'Amount' 'BOD' == 15
        headmsg '15 Norm Iron Platemail = Garg Pix/Prospector/PoF' 71
      elseif @property 'Amount' 'BOD' == 20
        headmsg '20 Norm Iron Platemail = PoF/+5 Gloves' 71
      endif
    endif
  else
    @removelist 'Item Counter'
    @createlist 'Item Counter'
    if @property 'Axe' 'BOD'
      @pushlist 'Item Counter' 1
    endif
    if @property 'Battle Axe' 'BOD'
      @pushlist 'Item Counter' 1
    endif
    if @property 'Bardiche' 'BOD'
      @pushlist 'Item Counter' 1
    endif
    if @property 'Broadsword' 'BOD'
      @pushlist 'Item Counter' 1
    endif
    if @property 'Cutlas' 'BOD'
      @pushlist 'Item Counter' 1
    endif
    if @property 'Dagger' 'BOD'
      @pushlist 'Item Counter' 1
    endif
    if @property 'Double Axe' 'BOD'
      @pushlist 'Item Counter' 1
    endif
    if @property "Executioner's Axe" "found"
      @pushlist 'Item Counter' 1
    endif
    if @property 'Halberd' 'BOD'
      @pushlist 'Item Counter' 1
    endif
    if @property 'Hammer Pick' 'BOD'
      @pushlist 'Item Counter' 1
    endif
    if @property 'Katana' 'BOD'
      @pushlist 'Item Counter' 1
    endif
    if @property 'Kryss' 'BOD'
      @pushlist 'Item Counter' 1
    endif
    if @property 'Large Battle Axe' 'BOD'
      @pushlist 'Item Counter' 1
    endif
    if @property 'Longsword' 'BOD'
      @pushlist 'Item Counter' 1
    endif
    if @property 'Mace' 'BOD' and not @property 'War Mace' 'BOD'
      @pushlist 'Item Counter' 1
    endif
    if @property 'Maul' 'BOD'
      @pushlist 'Item Counter' 1
    endif
    if @property 'Scimitar' 'BOD'
      @pushlist 'Item Counter' 1
    endif
    if @property 'Short Spear' 'BOD'
      @pushlist 'Item Counter' 1
    endif
    if @property 'Spear' 'BOD'
      @pushlist 'Item Counter' 1
    endif
    if @property 'Two Handed Axe' 'BOD'
      @pushlist 'Item Counter' 1
    endif
    if @property 'Viking Sword' 'BOD'
      @pushlist 'Item Counter' 1
    endif
    if @property 'War Axe' 'BOD'
      @pushlist 'Item Counter' 1
    endif
    if @property 'War Hammer' 'BOD'
      @pushlist 'Item Counter' 1
    endif
    if @property 'War Fork' 'BOD'
      @pushlist 'Item Counter' 1
    endif
    if @property 'War Mace' 'BOD'
      @pushlist 'Item Counter' 1
    endif
    if list 'Item Counter' == 2
      if @property 'Exceptional' 'BOD'
        if @property 'Amount' 'BOD' == 10
          headmsg '10Ct 2Pt Exc Weapon Sets = Garg Pix/Prospector/PoF' 71
        elseif @property 'Amount' 'BOD' == 15
          headmsg '15Ct 2Pt Exc Weapon Sets = Garg Pix/Prospector/PoF' 71
        elseif @property 'Amount' 'BOD' == 20
          headmsg '20Ct 2Pt Exc Weapon Sets = PoF/+5 Gloves' 71
        endif
      else
        if @property 'Amount' 'BOD' == 10
          headmsg '10Ct 2Pt Norm Weapons = Garg Pix/Propect/+3 Gloves' 36
        elseif @property 'Amount' 'BOD' == 15
          headmsg '15Ct 2Pt Norm Weapons = Garg Pix/Propect/+3 Gloves' 36
        elseif @property 'Amount' 'BOD' == 20
          headmsg '20Ct 2Pt Norm Weapons = Garg Pix/Propect/+3 Gloves' 36
        endif
      endif
    elseif list 'Item Counter' == 5
      if @property 'Exceptional' 'BOD'
        if @property 'Amount' 'BOD' == 10
          headmsg '10Ct 5Pt Exc Weapon Sets = DC Hammer' 36
        elseif @property 'Amount' 'BOD' == 15
          headmsg '15Ct 5Pt Exc Weapon Sets = DC Hammer' 36
        elseif @property 'Amount' 'BOD' == 20
          headmsg '20Ct 5Pt Exc Weapon Sets = DC/Shadow Hammer' 36
        endif
      else
        if @property 'Amount' 'BOD' == 10
          headmsg '10Ct 5Pt Norm Weapons = Garg Pix/Propect/+3 Gloves' 36
        elseif @property 'Amount' 'BOD' == 15
          headmsg '15Ct 5Pt Norm Weapons = Garg Pix/Propect/+3 Gloves' 36
        elseif @property 'Amount' 'BOD' == 20
          headmsg '20Ct 5Pt Norm Weapons = Garg Pix/Propect/+3 Gloves' 36
        endif
      endif
    elseif list 'Item Counter' == 6
      if @property 'Exceptional' 'BOD'
        if @property 'Amount' 'BOD' == 10
          headmsg '10Ct 6Pt Exc Weapon Sets = DC/Shadow Hammer' 36
        elseif @property 'Amount' 'BOD' == 15
          headmsg '15Ct 6Pt Exc Weapon Sets = DC/Shadow Hammer' 36
        elseif @property 'Amount' 'BOD' == 20
          headmsg '20Ct 6Pt Exc Weapon Sets = Shadow Hammer' 36
        endif
      else
        if @property 'Amount' 'BOD' == 10
          headmsg '10Ct 6Pt Norm Weapons = Garg Pix/Propect/+3 Gloves' 36
        elseif @property 'Amount' 'BOD' == 15
          headmsg '15Ct 6Pt Norm Weapons = Garg Pix/Propect/+3 Gloves' 36
        elseif @property 'Amount' 'BOD' == 20
          headmsg '20Ct 6Pt Norm Weapons = Garg Pix/Prospector/PoF' 36
        endif
      endif
    endif
  else
    headmsg 'Unhandled Blacksmith LBOD!' 33
  endif
elseif @property 'Large Bulk Order' 'BOD' and color 'BOD' == '1155'
  @removelist 'Item Counter'
  @createlist 'Item Counter'
  if @property "Bandana" 'BOD' and @property "Shirt" 'BOD'
    if @property "Skirt" 'BOD' and @property "Thigh Boots" 'BOD'
      @pushlist 'Item Counter' 1
      @pushlist 'Item Counter' 1
      @pushlist 'Item Counter' 1
      @pushlist 'Item Counter' 1
    endif
  endif
  if @property "Bone Helmet" 'BOD' and @property "Bone Gloves" 'BOD'
    if @property "Bone Arms" 'BOD' and @property "Bone Leggings" 'BOD'
      if @property "Bone Armor" 'BOD'
        @pushlist 'Item Counter' 1
        @pushlist 'Item Counter' 1
        @pushlist 'Item Counter' 1
        @pushlist 'Item Counter' 1
        @pushlist 'Item Counter' 1
      endif
    endif
  endif
  if @property "Bonnet" 'BOD' and @property "Half Apron" 'BOD'
    if @property "Fancy Dress" 'BOD' and @property "Sandals" 'BOD'
      @pushlist 'Item Counter' 1
      @pushlist 'Item Counter' 1
      @pushlist 'Item Counter' 1
      @pushlist 'Item Counter' 1
    endif
  endif
  if @property "Feathered Hat" 'BOD' and @property "Surcoat" 'BOD'
    if @property "Fancy Shirt" 'BOD' and @property "Short Pants" 'BOD'
      if @property "Thigh Boots" 'BOD'
        @pushlist 'Item Counter' 1
        @pushlist 'Item Counter' 1
        @pushlist 'Item Counter' 1
        @pushlist 'Item Counter' 1
        @pushlist 'Item Counter' 1
      endif
    endif
  endif
  if @property "Floppy Hat" 'BOD' and @property "Full Apron" 'BOD'
    if @property "Plain Dress" 'BOD' and @property "Sandals" 'BOD'
      @pushlist 'Item Counter' 1
      @pushlist 'Item Counter' 1
      @pushlist 'Item Counter' 1
      @pushlist 'Item Counter' 1
    endif
  endif
  if @property "Jester Hat" 'BOD' and @property "Jester Suit" 'BOD'
    if @property "Cloak" 'BOD' and @property "Shoes" 'BOD'
      @pushlist 'Item Counter' 1
      @pushlist 'Item Counter' 1
      @pushlist 'Item Counter' 1
      @pushlist 'Item Counter' 1
    endif
  endif
  if @property "Leather Gorget" 'BOD' and @property "Leather Cap" 'BOD'
    if @property "Leather Gloves" 'BOD' and @property "Sleeves" 'BOD'
      if @property "Leather Leggings" 'BOD' and @property "Tunic" 'BOD'
        @pushlist 'Item Counter' 1
        @pushlist 'Item Counter' 1
        @pushlist 'Item Counter' 1
        @pushlist 'Item Counter' 1
        @pushlist 'Item Counter' 1
        @pushlist 'Item Counter' 1
      endif
    endif
  endif
  if @property "Leather Skirt" 'BOD' and @property "Bustier" 'BOD'
    if @property "Shorts" 'BOD' and @property "Female Leather" 'BOD'
      if @property "Studded Armor" 'BOD' and @property "Bustier" 'BOD'
        @pushlist 'Item Counter' 1
        @pushlist 'Item Counter' 1
        @pushlist 'Item Counter' 1
        @pushlist 'Item Counter' 1
        @pushlist 'Item Counter' 1
        @pushlist 'Item Counter' 1
      endif
    endif
  endif
  if @property "Sandals" 'BOD' and @property "Shoes" 'BOD'
    if @property "Boots" 'BOD' and @property "Thigh Boots" 'BOD'
      @pushlist 'Item Counter' 1
      @pushlist 'Item Counter' 1
      @pushlist 'Item Counter' 1
      @pushlist 'Item Counter' 1
    endif
  endif
  if @property "Skullcap" 'BOD' and @property "Doublet" 'BOD'
    if @property "Kilt" 'BOD' and @property "Shoes" 'BOD'
      @pushlist 'Item Counter' 1
      @pushlist 'Item Counter' 1
      @pushlist 'Item Counter' 1
      @pushlist 'Item Counter' 1
    endif
  endif
  if @property "Straw Hat" 'BOD' and @property "Tunic" 'BOD'
    if @property "Long Pants" 'BOD' and @property "Boots" 'BOD'
      @pushlist 'Item Counter' 1
      @pushlist 'Item Counter' 1
      @pushlist 'Item Counter' 1
      @pushlist 'Item Counter' 1
    endif
  endif
  if @property "Studded Gorget" 'BOD' and @property "Gloves" 'BOD'
    if @property "Studded Sleeves" 'BOD' and @property "Leggings" 'BOD'
      if @property "Studded Tunic" 'BOD'
        @pushlist 'Item Counter' 1
        @pushlist 'Item Counter' 1
        @pushlist 'Item Counter' 1
        @pushlist 'Item Counter' 1
        @pushlist 'Item Counter' 1
      endif
    endif
  endif
  if @property "Tricorne Hat" 'BOD' and @property "Cap" 'BOD'
    if @property "Wide-Brim Hat" 'BOD' and @property "Tall Straw" 'BOD'
      @pushlist 'Item Counter' 1
      @pushlist 'Item Counter' 1
      @pushlist 'Item Counter' 1
      @pushlist 'Item Counter' 1
    endif
  endif
  if @property "Wizard's Hat" 'BOD' and @property "Body Sash" 'BOD'
    if @property "Robe" 'BOD' and @property "Boots" 'BOD'
      @pushlist 'Item Counter' 1
      @pushlist 'Item Counter' 1
      @pushlist 'Item Counter' 1
      @pushlist 'Item Counter' 1
    endif
  endif
  if list 'Item Counter' == 4
    if @property 'Barbed' 'BOD'
      if @property 'Exceptional' 'BOD'
        if @property 'Amount' 'BOD' == 10
          headmsg '10Ct 4Pt Exc Barbed = Clothing Bless Deed' 71
        elseif @property 'Amount' 'BOD' == 15
          headmsg '15Ct 4Pt Exc Barbed = 115 Power Scroll' 36
        elseif @property 'Amount' 'BOD' == 20
          headmsg '20Ct 4Pt Exc Barbed = Horned RSK' 71
        endif
      else
        if @property 'Amount' 'BOD' == 10
          headmsg '10Ct 4Pt Norm Barbed = Polar Bear Rug' 71
        elseif @property 'Amount' 'BOD' == 15
          headmsg '15Ct 4Pt Norm Barbed = Polar Bear Rug' 71
        elseif @property 'Amount' 'BOD' == 20
          headmsg '20Ct 4Pt Norm Barbed = 110 Power Scroll' 36
        endif
      endif
    elseif @property 'Horned' 'BOD'
      if @property 'Exceptional' 'BOD'
        if @property 'Amount' 'BOD' == 10
          headmsg '10Ct 4Pt Exc Horned = 110 Power Scroll' 36
        elseif @property 'Amount' 'BOD' == 15
          headmsg '15Ct 4Pt Exc Horned = 110 Power Scroll' 36
        elseif @property 'Amount' 'BOD' == 20
          headmsg '20Ct 4Pt Exc Horned = Clothing Bless Deed' 71
        endif
      else
        if @property 'Amount' 'BOD' == 10
          headmsg '10Ct 4Pt Norm Horned = 110PS/Tapestry' 71
        elseif @property 'Amount' 'BOD' == 15
          headmsg '15Ct 4Pt Norm Horned = 105PS/Tapestry' 71
        elseif @property 'Amount' 'BOD' == 20
          headmsg '20Ct 4Pt Norm Horned = Polar Bear Rug' 71
        endif
      endif
    elseif @property 'Spined' 'BOD'
      if @property 'Exceptional' 'BOD'
        if @property 'Amount' 'BOD' == 10
          headmsg '10Ct 4Pt Exc Spined = Polar Bear Rug' 71
        elseif @property 'Amount' 'BOD' == 15
          headmsg '15Ct 4Pt Exc Spined = Polar Bear Rug' 71
        elseif @property 'Amount' 'BOD' == 20
          headmsg '20Ct 4Pt Exc Spined = 110PS/Tapestry' 71
        endif
      else
        if @property 'Amount' 'BOD' == 10
          headmsg '10Ct 4Pt Norm Spined = Spined RSK' 71
        elseif @property 'Amount' 'BOD' == 15
          headmsg '15Ct 4Pt Norm Spined = Spined RSK' 71
        elseif @property 'Amount' 'BOD' == 20
          headmsg '20Ct 4Pt Norm Spined = 105PS/Tapestry' 71
        endif
      endif
    else
      if @property 'Bone' 'BOD'
        headmsg '4Pt Bone LBOD' 36
      elseif @property 'Exceptional' 'BOD'
        if @property 'Amount' 'BOD' == 10
          headmsg '10Ct 4Pt Exc Clothing = 105PS/Tapestry' 71
        elseif @property 'Amount' 'BOD' == 15
          headmsg '15Ct 4Pt Exc Clothing = 105PS/Tapestry' 71
        elseif @property 'Amount' 'BOD' == 20
          headmsg '20Ct 4Pt Exc Clothing = Polar Bear Rug' 71
        endif
      else
        if @property 'Amount' 'BOD' == 10
          headmsg '10Ct 4Pt Norm Clothing = Stretched Hide' 71
        elseif @property 'Amount' 'BOD' == 15
          headmsg '15Ct 4Pt Norm Clothing = Stretched Hide' 71
        elseif @property 'Amount' 'BOD' == 20
          headmsg '20Ct 4Pt Norm Clothing = Spined RSK' 71
        endif
      endif
    endif
  elseif list 'Item Counter' == 5
    if @property 'Barbed' 'BOD'
      if @property 'Exceptional' 'BOD'
        if @property 'Amount' 'BOD' == 10
          headmsg '10Ct 5Pt Exc Barbed = 120 Power Scroll' 71
        elseif @property 'Amount' 'BOD' == 15
          headmsg '15Ct 5Pt Exc Barbed = 120 Power Scroll' 71
        elseif @property 'Amount' 'BOD' == 20
          headmsg '20Ct 5Pt Exc Barbed = Barbed RSK' 71
        endif
      else
        if @property 'Amount' 'BOD' == 10
          headmsg '10Ct 5Pt Norm Barbed = Clothing Bless Deed' 71
        elseif @property 'Amount' 'BOD' == 15
          headmsg '15Ct 5Pt Norm Barbed = 115 Power Scroll' 36
        elseif @property 'Amount' 'BOD' == 20
          headmsg '20Ct 5Pt Norm Barbed = Horned RSK' 71
        endif
      endif
    elseif @property 'Horned' 'BOD'
      if @property 'Exceptional' 'BOD'
        if @property 'Amount' 'BOD' == 10
          headmsg '10Ct 5Pt Exc Horned = Horned RSK' 71
        elseif @property 'Amount' 'BOD' == 15
          headmsg '15Ct 5Pt Exc Horned = Horned RSK' 71
        elseif @property 'Amount' 'BOD' == 20
          headmsg '20Ct 5Pt Exc Horned = 120 Power Scroll' 71
        endif
      else
        if @property 'Amount' 'BOD' == 10
          headmsg '10Ct 5Pt Norm Horned = 110 Power Scroll' 36
        elseif @property 'Amount' 'BOD' == 15
          headmsg '15Ct 5Pt Norm Horned = 110 Power Scroll' 36
        elseif @property 'Amount' 'BOD' == 20
          headmsg '20Ct 5Pt Norm Horned = Clothing Bless Deed' 71
        endif
      endif
    elseif @property 'Spined' 'BOD'
      if @property 'Exceptional' 'BOD'
        if @property 'Amount' 'BOD' == 10
          headmsg '10Ct 5Pt Exc Spined = Clothing Bless Deed' 71
        elseif @property 'Amount' 'BOD' == 15
          headmsg '15Ct 5Pt Exc Spined = 115 Power Scroll' 36
        elseif @property 'Amount' 'BOD' == 20
          headmsg '20Ct 5Pt Exc Spined = Horned RSK' 71
        endif
      else
        if @property 'Amount' 'BOD' == 10
          headmsg '10Ct 5Pt Norm Spined = Polar Bear Rug' 71
        elseif @property 'Amount' 'BOD' == 15
          headmsg '15Ct 5Pt Norm Spined = Polar Bear Rug' 71
        elseif @property 'Amount' 'BOD' == 20
          headmsg '20Ct 5Pt Norm Spined = 110 Power Scroll' 36
        endif
      endif
    else
      if @property 'Bone' 'BOD'
        headmsg '5Pt Bone LBOD' 36
      elseif @property 'Exceptional' 'BOD'
        if @property 'Amount' 'BOD' == 10
          headmsg '10Ct 5Pt Exc Clothing = 110 Power Scroll' 36
        elseif @property 'Amount' 'BOD' == 15
          headmsg '15Ct 5Pt Exc Clothing = 110 Power Scroll' 36
        elseif @property 'Amount' 'BOD' == 20
          headmsg '20Ct 5Pt Exc Clothing = Clothing Bless Deed' 71
        endif
      else
        if @property 'Amount' 'BOD' == 10
          headmsg '10Ct 5Pt Norm Clothing = 110PS/Tapestry' 71
        elseif @property 'Amount' 'BOD' == 15
          headmsg '15Ct 5Pt Norm Clothing = 110PS/Tapestry' 71
        elseif @property 'Amount' 'BOD' == 20
          headmsg '20Ct 5Pt Norm Clothing = Polar Bear Rug' 71
        endif
      endif
    endif
  elseif list 'Item Counter' == 6
    if @property 'Barbed' 'BOD'
      if @property 'Exceptional' 'BOD'
        if @property 'Amount' 'BOD' == 10
          headmsg '10Ct 6Pt Exc Barbed = Barbed RSK' 71
        elseif @property 'Amount' 'BOD' == 15
          headmsg '15Ct 6Pt Exc Barbed = Barbed RSK' 71
        elseif @property 'Amount' 'BOD' == 20
          headmsg '20Ct 6Pt Exc Barbed = Barbed RSK' 71
        endif
      else
        if @property 'Amount' 'BOD' == 10
          headmsg '10Ct 6Pt Norm Barbed = 120 Power Scroll' 71
        elseif @property 'Amount' 'BOD' == 15
          headmsg '15Ct 6Pt Norm Barbed = 120 Power Scroll' 71
        elseif @property 'Amount' 'BOD' == 20
          headmsg '20Ct 6Pt Norm Barbed = Barbed RSK' 71
        endif
      endif
    elseif @property 'Horned' 'BOD'
      if @property 'Exceptional' 'BOD'
        if @property 'Amount' 'BOD' == 10
          headmsg '10Ct 6Pt Exc Horned = Barbed RSK' 71
        elseif @property 'Amount' 'BOD' == 15
          headmsg '15Ct 6Pt Exc Horned = Barbed RSK' 71
        elseif @property 'Amount' 'BOD' == 20
          headmsg '20Ct 6Pt Exc Horned = Barbed RSK' 71
        endif
      else
        if @property 'Amount' 'BOD' == 10
          headmsg '10Ct 6Pt Norm Horned = 120 Power Scroll' 71
        elseif @property 'Amount' 'BOD' == 15
          headmsg '15Ct 6Pt Norm Horned = 120 Power Scroll' 71
        elseif @property 'Amount' 'BOD' == 20
          headmsg '20Ct 6Pt Norm Horned = Horned RSK' 71
        endif
      endif
    elseif @property 'Spined' 'BOD'
      if @property 'Exceptional' 'BOD'
        if @property 'Amount' 'BOD' == 10
          headmsg '10Ct 6Pt Exc Spined = 120 Power Scroll' 71
        elseif @property 'Amount' 'BOD' == 15
          headmsg '15Ct 6Pt Exc Spined = 120 Power Scroll' 71
        elseif @property 'Amount' 'BOD' == 20
          headmsg '20Ct 6Pt Exc Spined = Barbed RSK' 71
        endif
      else
        if @property 'Amount' 'BOD' == 10
          headmsg '10Ct 6Pt Norm Spined = Clothing Bless Deed' 71
        elseif @property 'Amount' 'BOD' == 15
          headmsg '15Ct 6Pt Norm Spined = 115 Power Scroll' 36
        elseif @property 'Amount' 'BOD' == 20
          headmsg '20Ct 6Pt Norm Spined = Horned RSK' 71
        endif
      endif
    else
      if @property 'Bone' 'BOD'
        headmsg '5Pt Bone LBOD' 36
      elseif @property 'Exceptional' 'BOD'
        if @property 'Amount' 'BOD' == 10
          headmsg '10Ct 6Pt Exc Clothing = 110 Power Scroll' 36
        elseif @property 'Amount' 'BOD' == 15
          headmsg '15Ct 6Pt Exc Clothing = 110 Power Scroll' 36
        elseif @property 'Amount' 'BOD' == 20
          headmsg '20Ct 6Pt Exc Clothing = Clothing Bless Deed' 71
        endif
      else
        if @property 'Amount' 'BOD' == 10
          headmsg '10Ct 6Pt Norm Clothing = Horned RSK' 71
        elseif @property 'Amount' 'BOD' == 15
          headmsg '15Ct 6Pt Norm Clothing = Horned RSK' 71
        elseif @property 'Amount' 'BOD' == 20
          headmsg '20Ct 6Pt Norm Clothing = 120 Power Scroll' 71
        endif
      endif
    else
      headmsg 'Unhandled Tailor LBOD!' 33
    endif
  else
    headmsg 'Failed to count. Expecting 4, 5 or 6 items.' 33
  endif
endif
@unsetalias 'BOD'
@removelist 'Item Counter'
Post Reply