on *:input:*:if (!$inpaste && !$ctrlenter && !$regex($1,/^\//)) { msg $active $nc($1-) | haltdef }

alias nc return $replace($+(12,$regsubex($regsubex($1-,/([.,;,!,+,?,=,:,',^,%,&,/,(,),_,~,`,<,>,"])/g,$+(4,\t,12)),/([A-Z])/g,$+(12,\t,12)),),$chan,$+(,$chan,))