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

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