How to ensure tattoos are worn in the correct place
How to ensure tattoos are worn in the correct place
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
Re: How to ensure tattoos are worn in the correct place
Would it be possible to do this with supp items that do the same?
Re: How to ensure tattoos are worn in the correct place
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
Re: How to ensure tattoos are worn in the correct place
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
kinsmen die
all men are mortal.
Words of praise
will never perish
nor a noble name.
- Hávamál