Forums Feature Suggestions Spell Check

alias mixit {
  var %input = $strip($1-), %nr = 1
  if (%input) {
    while ($gettok(%input,%nr,32)) {
      var %tok = $v1
      if ($len(%tok) > 3) { 
        var %mid = $left($mid(%tok,2),-1), %done, %new
        while ($numtok(%done,32) < $len(%mid)) {
          var %char = $rand(1,$len(%mid))
          if (!$istok(%done,%char,32)) { var %done = %done %char, %new = $+(%new,$mid(%mid,%char,1)) } 
        }
        var %tok = $+($left(%tok,1),%new,$right(%tok,1))
      }
      var %out = %out %tok
      inc %nr
    }
    if ($isid) { return %out }
    elseif ($me ison $active) { msg $v2 %out }
  }
}