Advertisement
kyroskoh

mIRC Script: Jumble Words Aliases

Nov 1st, 2011
158
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.91 KB | None | 0 0
  1. alias jumble {
  2. var %a = 0
  3. while (%a < $0) {
  4. inc %a
  5. var %word = $($+($chr(36),%a),2), %lenword = $len(%word), %line = %line $randomize($spaceitout(%word))
  6. }
  7. msg $active %line
  8. }
  9.  
  10. alias -l spaceitout {
  11. var %a = 0
  12. while (%a < $len($1)) {
  13. inc %a
  14. var %word = %word $mid($1,%a,1)
  15. }
  16. return %word
  17. }
  18.  
  19. alias -l randomize {
  20. var %b = 0
  21. 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)
  22. while (%b < $numtok(%lawl,32)) {
  23. inc %b
  24. var %rand = $r(1,$numtok(%mid,32)), %tok = $gettok(%mid,%rand,32), %line = %line $+ %tok, %mid = $deltok(%mid,%rand,32)
  25. }
  26. return $iif($len($1) < 3,$1,$gettok(%fnl,1,32) $+ %line $+ $gettok(%fnl,2,32))
  27. }
  28.  
  29. on 1:TEXT:*:#:{
  30. if ($$1 == !script) { .describe $chan is running: Kyros's mIRC Jumble Words Aliases v1.0 | halt | }
  31. }
  32.  
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement