on *:input:*:{ 
  if (/* !iswm $1) || ($ctrlenter) { 
    if $regex($window($active).type,/^(channel)$/) {
      var %^ = 1, %' 
      while %^ <= $0 { 
        %' = %' $iif($remove($gettok($1-,%^,32),!,:,;,$chr(44)) ison #,$+(,$gettok($1-,%^,32),),$gettok($1-,%^,32)) 
        inc %^ 
      } 
      msg # 06 $+ $regsubex(%',/(?<=^|\s)(.)/, $+ $upper(\1) $+ )
      halt 
    }
    if $regex($window($active).type,/^(query)$/) {
      var %^ = 1, %' 
      while %^ <= $0 { 
        %' = %' $iif($remove($gettok($1-,%^,32),!,:,;,$chr(44)) == $active,$+(,$gettok($1-,%^,32),),$gettok($1-,%^,32)) 
        inc %^ 
      } 
      msg $active 06 $+ $regsubex(%',/(?<=^|\s)(.)/, $+ $upper(\1) $+ )
      halt 
    }
  }
}