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) {
    if !$regex($active,/(#kanal1|#kanal2|#kanal3)/i) {
      while (%a < $numtok($1-,32)) {
        inc %a
        %c = $gettok($1-,%a,32)
        if ($remove(%c,!,?,:,;,.,',$chr(44),") ison #) {
          if $regex(%c,/(\!|\?|\:|\;|\.|\'|\,|\")) {
            var %. $regml(1)
            %b = $iif(%b,%b) $iif($regex(%.,/(\'|\")),$+(%.,4,$right($left(%c,$calc($len(%c) -1)),-1),,%.),$+(4,$left(%c,$calc($len(%c) -1)),,%.)) | goto ch
          }
          %b = $iif(%b,%b) $+(4,%c,)
        }
        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,/(\!|\?|\:|\;|\.|\'|\,|\")) {
          var %. $regml(1)
          %b = $iif(%b,%b) $iif($regex(%.,/(\'|\")),$+(%.,4,$right($left(%c,$calc($len(%c) -1)),-1),,%.),$+(4,$left(%c,$calc($len(%c) -1)),,%.)) | goto ry
        }
        %b = $iif(%b,%b) $+(,%c,)
      }
      else { %b = %b %c }
    }
  }
  else { goto end }
  if (!%b) { %b = $1- }
  else { say %b }
  halt
}