mjau

alias scramb {
  var %nnm  = $1
  var %outp = ""
  var %llet = 0
  while ($len(%nnm) > 0) {
    %llet = $rand(1,$len(%nnm))
    %outp = %outp $+ $mid(%nnm, %llet, 1)
    %nnm = $left(%nnm, $calc(%llet - 1)) $+ $right(%nnm, $calc($len(%nnm) - %llet))
  }
  return %outp 
}

alias funnyword {
  if ( $len($1) > 3 ) {
    return $left($1,1) $+ $scramb( $mid($1, 2, $calc( $len($1) - 2 )) ) $+ $right($1,1) 
  }
  else {
    return $1
  }
}

alias -l chkrev {
  if ( $mouse.key & 4 ) {
    return $regsubex($1-, /([А-я\w]+)/g, $funnyword(\t))
  }
  else {
    return $1-
  }
}

on *:input:*:{
    msg $active $chkrev($1-) | haltdef
}