On 1:input:*:{
  if  ($left($1,1) != /) || ($active != Status Window)  {
    if ($target == $chan) {
      if $1 isnum  { msg $target $+($+($+($chr(3),14),$chr(263)),$chr(3)) $1 $regsubex($2-,/(\S+)/gi,$iif(\1 ison #,$+($chr(2),\1,$chr(2)),$+($+($chr(3),14),$+($upper($left(\1,1)),$chr(3)),$mid(\1,2-)))) | halt }
      else {
        msg $target $+($+($+($chr(3),14),$chr(263)),$chr(3)) $regsubex($1-,/(\S+)/gi,$iif(\1 ison #,$+($chr(2),\1,$chr(2)),$+($+($+($+($chr(3),14),$+($upper($left(\1,1)),$chr(3),$chr(2))),$chr(2)),$mid(\1,2-)))) 
        halt
      }
    } 
    else {
      if $1 isnum  { msg $target $+($+($+($chr(3),14),$chr(263)),$chr(3)) $1 $regsubex($2-,/(\S+)/gi,$iif(\1 isin $target,$+($chr(2),\1,$chr(2)),$+($+($chr(3),14),$+($upper($left(\1,1)),$chr(3)),$mid(\1,2-)))) | halt }
      else {
        msg $target $+($+($+($chr(3),14),$chr(263)),$chr(3)) $regsubex($1-,/(\S+)/gi,$iif(\1 isin $target,$+($chr(2),\1,$chr(2)),$+($+($+($+($chr(3),14),$+($upper($left(\1,1)),$chr(3),$chr(2))),$chr(2)),$mid(\1,2-)))) 
        halt
      }
    }
  }
}