I realize many people may have ancient deeds ( deeds that make whatever you target indestructable, prior that the target is armor, shield, weapon, or a bow ).

[ITEMDEF i_deed_ancient]
DEFNAME=i_deed_ancient
ID=i_deed
NAME=ancient deed

ON=@CLICK
MESSAGE=<NAME>
RETURN 1

on=@create
color=0
attr=00400 //blessed, cannot lose on death

ON=@DCLICK
var.sua_color colors_white
src.sysmessageua Target the item in which to become ancient.
TARGET
ON=@TARGON_ITEM
IF (<SRC.TARG.CONT.CONT.UID> !=<SRC.UID> )
var.sua_color colors_white
SRC.SYSMESSAGEua The item must be in your pack.
ELSEIF (<SRC.TARG.MORE1L> == 32767)
var.sua_color colors_white
src.sysmessageua That item is already ancient.
ELSEIF (<SRC.TARG.TYPE> == t_armor) || (<SRC.TARG.TYPE> == t_shield) || (<SRC.TARG.TYPE> == t_clothing) || (<SRC.TARG.TYPE> == t_weapon_mace_smith) || (<SRC.TARG.TYPE> == t_weapon_mace_sharp) || (<SRC.TARG.TYPE> == t_weapon_sword) || (<SRC.TARG.TYPE> == t_weapon_fence) || (<SRC.TARG.TYPE> == t_weapon_bow)
SRC.TARG.hitpoints = 32767
src.targ.more1l = 32767 //if you didn't know, MORE1L is the maximum hitpoints an item has
SRC.TARG.NAME =<SRC.TARG.NAME> (ancient)
REMOVE
ELSE
var.sua_color colors_white
SRC.SYSMESSAGEua You cannot make that ancient.
RETURN 1
ENDIF