on :TEXT:!jumble :#:{
var %a = 1
while (%a < $0) {
inc %a
var %word = $($+($chr(36),%a),2), %line = %line $randomize($spaceitout(%word))
}
msg $chan %line
}
alias -l spaceitout {
var %a = 0
while (%a < $len($1)) {
inc %a
var %word = %word $mid($1,%a,1)
}
return %word
}
alias -l randomize {
var %b = 0
var %fnl = $gettok($1,1,32) $gettok($1,$numtok($1,32),32), %mid = $deltok($deltok($1,$numtok($1,32),32),1,32), %lawl = $deltok($deltok($1,$numtok($1,32),32),1,32)
while (%b < $numtok(%lawl,32)) {
inc %b
var %rand = $r(1,$numtok(%mid,32)), %tok = $gettok(%mid,%rand,32), %line = %line $+ %tok, %mid = $deltok(%mid,%rand,32)
}
return $iif($len($1) < 3,$1,$gettok(%fnl,1,32) $+ %line $+ $gettok(%fnl,2,32))
}