Something

alias rtext {
  var %tok = 1
  var %tok2 = 1
  var %rawr
  while ($gettok($1-,%tok,32) != $null) {
    if ($mid($gettok($1-,%tok,32),%tok2,1) == $chr(32)) {
      inc %tok
    }
    else {
      %rawr = %rawr $+ $chr(3) $+ $rand(00,15) $+ $mid($gettok($1-,%tok,32),%tok2,1)
      inc %tok
      inc %tok2
    }
  }
  return %rawr
}