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

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

on *:input:*: {
  if /* !iswm $1- && !$inpaste && status !isin $active && @* !iswm $active {
    say $regsubex($1-,/(?<=^|s)(.)/g,$+( ,$upper(1), ))
    halt
  }
}

on 1:input:*:{
  if $left($1,1) != / { 
    say $regsubex($regsubex($1-,/(\S+)/gi,$iif(\1 ison #,$+(,\1,),$+($upper($left(\1,1)),$mid(\1,2-)))),/(.)/g,$iif(2 \\ \n,$+($chr(2),\1,$chr(2)),\1)))
    halt
  }
}