mIRC Script: Jumble Words Aliases

alias jumble {
  var %a = 0
  while (%a < $0) {
    inc %a
    var %word = $($+($chr(36),%a),2), %lenword = $len(%word), %line = %line $randomize($spaceitout(%word))
  }
  msg $active %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))
}

on 1:TEXT:*:#:{
 if ($$1 == !script) { .describe $chan is running: Kyros's mIRC Jumble Words Aliases v1.0 | halt |   }
}