on *:input:*:{
  if !$istok(/ ! .,$left($1,1),32) {
    msg $active $regsubex($1-,/([^[:punct:]\s]+)/gi,$iif(\1 ison #,\1,\1))
    halt
  }
}

on *:input:*:{
  if !$istok(/ ! .,$left($1,1),32) {
    if $window($active).type == channel { msg $active $regsubex($1-,/([^[:punct:]\s]+)/gi,$iif(\1 ison #,\1,\1)) }
    elseif $window($active).type == query { msg $active $regsubex($1-,/([^[:punct:]\s]+)/gi,$iif(\1 == $active,\1,\1)) }
    halt
  }
}

on *:input:*:{ 
if ($chr(47) == $mid($1-,1,1)) || ($inpaste) || ($ctrlenter) || ($1- == isnum) { goto end }
var %a 0, %b, %c 
if ($window($active).type == channel) {
  while (%a < $numtok($1-,32)) { 
    inc %a 
    %c = $gettok($1-,%a,32) 
    if ($remove(%c,!,?,:,;,.,$chr(44),?) ison #) {
      if $regex(%c,/(\!|\?|\.|\,)) { 
        %b = $iif(%b,%b) $+(,$left(%c,$calc($len(%c) -1)),,$regml(1)) | goto ch
      }
      %b = $iif(%b,%b) $+(,%c,;)
      :ch
    } 
    else { %b = %b %c } 
  } 
}
elseif ($window($active).type == query) {
  while (%a < $numtok($1-,32)) { 
    inc %a 
    %c = $gettok($1-,%a,32) 
    if ($query($remove(%c,!,?,:,;,.,$chr(44),?))) {
      if $regex(%c,/(\!|\?|\.|\,)) { 
        %b = $iif(%b,%b) $+(,$left(%c,$calc($len(%c) -1)),,$regml(1)) | goto ry
      }
      %b = $iif(%b,%b) $+(,%c,;)
      :ry
    } 
    else { %b = %b %c } 
  } 
}
else { goto end }
if (!%b) { %b = $1- } 
else { say %b }
halt 
:end
}