on *:input:*:{ 
  if $left($1,1) != / { 
    if $window($active).type == channel { msg $active $regsubex($1-,/(\S+)/gi,$iif(\1 ison #,$+(<04,\1,,>),$+($upper($left(\1,1)),$mid(\1,2-)))) } 
    elseif $window($active).type == query { msg $active $regsubex($1-,/(\S+)/gi,$iif(\1 == $active,$+(<04,\1,,>),$+($upper($left(\1,1)),$mid(\1,2-)))) }
    halt
  }
}