How to ensure tattoos are worn in the correct place

For builders to discuss and ask building questions.
Post Reply
User avatar
Harroghty
Staff
Staff
Posts: 9489
Joined: Tue Jul 27, 2004 5:38 pm

How to ensure tattoos are worn in the correct place

Post by Harroghty » Sun Jun 12, 2016 4:01 am

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
~
|
"A man may die yet still endure if his work enters the greater work, for time is carried upon a current of forgotten deeds, and events of great moment are but the culmination of a single carefully placed thought." - Chime of Eons

User avatar
Myn
Sword Apprentice
Sword Apprentice
Posts: 92
Joined: Mon Aug 04, 2003 3:23 pm
Location: Zhentil Keep
Contact:

Re: How to ensure tattoos are worn in the correct place

Post by Myn » Sun Jun 12, 2016 12:09 pm

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

User avatar
Harroghty
Staff
Staff
Posts: 9489
Joined: Tue Jul 27, 2004 5:38 pm

Re: How to ensure tattoos are worn in the correct place

Post by Harroghty » Sun Jun 12, 2016 9:37 pm

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.
"A man may die yet still endure if his work enters the greater work, for time is carried upon a current of forgotten deeds, and events of great moment are but the culmination of a single carefully placed thought." - Chime of Eons

User avatar
Jarngron
Sword Journeyman
Sword Journeyman
Posts: 130
Joined: Tue Mar 29, 2016 2:21 am
Contact:

Re: How to ensure tattoos are worn in the correct place

Post by Jarngron » Wed Aug 24, 2016 10:35 am

I am very impressed, this is just another reason I'm starting to love intercept programs. Thank you!
Cattle die
kinsmen die
all men are mortal.
Words of praise
will never perish
nor a noble name.

- Hávamál

Post Reply