[ WearSub; if (ObjectIsUntouchable(noun)) return; if (noun hasnt clothing) return L__M(##Wear,1,noun); if (parent(noun)~=player) return L__M(##Wear,2,noun); if (noun has worn) return L__M(##Wear,3,noun); give noun worn; if (AfterRoutines()==1) rtrue; if (keep_silent==1) rtrue; L__M(##Wear,4,noun); ];