By RussellReal on Jan 12, 2007acdicrnog to aolt of raheecerrss as it turns out we can aclualty read text lkie tihs and so I fiegrud hcek let me mkae an ailas that wlil MKAE me tlak like tihs lol
^^ thats basically what it does, that actually says:
according to alot of researchers as it turns out we can actually read text like this and so I figured heck let me make an alias that will MAKE me talk like this lol
9\10 you read that before you actually read the real text, someone brought the idea to me and showed me an example, the concept of this snippet is it grabs text and keeps the first character and the last character and mixes up the inside, I used tokenize in this but it can be done with $mid and thats actually what I should have used, but besides that go to the channel you would like to message, and type /tlt
it messages $active so you HAVE to be on the channel you want to message ;) other than that I really think this is a cool alias and should be enjoyed ;)
alias tlt {
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 :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))
}
it doesn\'t scramble 2 and 3 letter words, because the concept of this script is to only scramble letters inside the first and last letter for example: omfg it will \'attempt\' to scramble up \"mf\" however, \"mf\" doesn\'t have very many different combinations so sometimes the 4 letter word stays the same, however \"street\" it will attempt to scramble \"tree\" and there is 4 letters there so there \'should\' be 16 combinations so its less likely to still be \"street\" after the script scrambles the word. for example: \"street\" would/might return \"sretee\" because the first letter: s and the last letter: e remain first and last letters, so a 3 letter word will not change because say \"one\" the \"n\" is the only letter inside the word so it doesn\'t attempt to scramble this word because even if it did it wouldn\'t change, and \"it\" is ONLY the first and last letters there arn\'t any in between so it skips 2 letter words also, it works the way it was intended to work, but thanks for the comments and the scores guys appreciate it :)
You could still shorten this. Check Sigh_\'s post in this thread (http://www.hawkee.com/phpBB2/viewtopic.php?t=4843) on how to scramble a word. :)
