&com`fun.delete %ve=switch(0,elock(%xc/delete,%#),Permission denied.,setr(0,ufun(com`fun.find-channel-number,%0,%#,0)),No such channel.,Channel deleted.[null(setq(1,member(get(%xc/channels`numbers),%q0,|))[wipe(%xc/channels`%q0)][lock(%xc/chan-%q0,)][attrib_set(%xc/channels`names,ldelete(get(%xc/channels`names),%q1,|))][attrib_set(%xc/channels`numbers,ldelete(get(%xc/channels`numbers),%q1,|))])])

+TMCS/ADDPACKAGE com=+Com/1.4/A +com (chat) system to replace the built-in PennMUSH @chat system/\[+COM\]%b