[ DisrobeSub; if (ObjectIsUntouchable(noun)) return; if (noun hasnt worn) return L__M(##Disrobe,1,noun); give noun ~worn; if (AfterRoutines()==1) rtrue; if (keep_silent==1) rtrue; L__M(##Disrobe,2,noun); ];