Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 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 | }
- }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement