How to ensure tattoos are worn in the correct place

[Harroghty]

The automatic wearing of tattoos after being returned to life can be a nuisance sometimes because the tattoo is worn in the first wear location listed, not necessarily the desired one. To remedy this, I have added this prog to tattoos acquired in Dawngleam; the other wear locations are removed the first time it is worn, thus ensuring that it will always be worn in only the desired spot.

Code: Select all

#113737
tattoo~
{70}a tattoo~
{70}A tattoo is lying here.~
~
ITEM_TYPE_ARMOR
FLAG_PERMANENT|FLAG_NOREMOVE|FLAG_RESIZE
CAN_WEAR_TAKE|CAN_WEAR_HEAD|CAN_WEAR_FACE|CAN_WEAR_ARMS|CAN_WEAR_HANDS|CAN_WEAR_NECK|CAN_WEAR_FEET|CAN_WEAR_WRIST|CAN_WEAR_LEGS|CAN_WEAR_BODY
QUALITY_HIGH MATERIAL_FLESH COND_PERFECT SIZE_MEDIUM
0 BODY_HUMANOID LAYER_UNDER ARMOR_TYPE_CLOTH 0 0
>intercept_prog wear~
if stringprefix($2) == head
  mposet on $n i113737 wear face
  mposet on $n i113737 wear arms
  mposet on $n i113737 wear hands
  mposet on $n i113737 wear neck
  mposet on $n i113737 wear feet
  mposet on $n i113737 wear wrist
  mposet on $n i113737 wear legs
  mposet on $n i113737 wear body
  mpunintercept
else
  if stringprefix($2) == face
    mposet on $n i113737 wear head
    mposet on $n i113737 wear arms
    mposet on $n i113737 wear hands
    mposet on $n i113737 wear neck
    mposet on $n i113737 wear feet
    mposet on $n i113737 wear wrist
    mposet on $n i113737 wear legs
    mposet on $n i113737 wear body
    mpunintercept
  else
    if stringprefix($2) == arms
      mposet on $n i113737 wear head
      mposet on $n i113737 wear face
      mposet on $n i113737 wear hands
      mposet on $n i113737 wear neck
      mposet on $n i113737 wear feet
      mposet on $n i113737 wear wrist
      mposet on $n i113737 wear legs
      mposet on $n i113737 wear body
      mpunintercept
    else
      if stringprefix($2) == hands
        mposet on $n i113737 wear head
        mposet on $n i113737 wear face
        mposet on $n i113737 wear arms
        mposet on $n i113737 wear neck
        mposet on $n i113737 wear feet
        mposet on $n i113737 wear wrist
        mposet on $n i113737 wear legs
        mposet on $n i113737 wear body
        mpunintercept
      else
        if stringprefix($2) == neck
          mposet on $n i113737 wear head
          mposet on $n i113737 wear face
          mposet on $n i113737 wear arms
          mposet on $n i113737 wear hands
          mposet on $n i113737 wear feet
          mposet on $n i113737 wear wrist
          mposet on $n i113737 wear legs
          mposet on $n i113737 wear body
          mpunintercept
        else
          if stringprefix($2) == feet
            mposet on $n i113737 wear head
            mposet on $n i113737 wear face
            mposet on $n i113737 wear arms
            mposet on $n i113737 wear hands
            mposet on $n i113737 wear neck
            mposet on $n i113737 wear wrist
            mposet on $n i113737 wear legs
            mposet on $n i113737 wear body
            mpunintercept
          else
            if stringprefix($2) == wrist
              mposet on $n i113737 wear head
              mposet on $n i113737 wear face
              mposet on $n i113737 wear arms
              mposet on $n i113737 wear hands
              mposet on $n i113737 wear neck
              mposet on $n i113737 wear feet
              mposet on $n i113737 wear legs
              mposet on $n i113737 wear body
              mpunintercept
            else
              if stringprefix($2) == legs
                mposet on $n i113737 wear head
                mposet on $n i113737 wear face
                mposet on $n i113737 wear arms
                mposet on $n i113737 wear hands
                mposet on $n i113737 wear neck
                mposet on $n i113737 wear feet
                mposet on $n i113737 wear wrist
                mposet on $n i113737 wear body
                mpunintercept
              else
                if stringprefix($2) == body
                  mposet on $n i113737 wear head
                  mposet on $n i113737 wear face
                  mposet on $n i113737 wear arms
                  mposet on $n i113737 wear hands
                  mposet on $n i113737 wear neck
                  mposet on $n i113737 wear feet
                  mposet on $n i113737 wear wrist
                  mposet on $n i113737 wear legs
                  mpunintercept
                else
                  mpunintercept
                endif
              endif
            endif
          endif
        endif
      endif
    endif
  endif
endif
~
|

[Myn]

Would it be possible to do this with supp items that do the same?

[Harroghty]

Sure, I will make adjustments based upon how this change works out. I am just posting it here so that builders can see the example though.

[Jarngron]

I am very impressed, this is just another reason I'm starting to love intercept programs. Thank you!