|
Joined: Mar 2004
Posts: 96
Babel fish
|
OP
Babel fish
Joined: Mar 2004
Posts: 96 |
I have this script on mIRC, that I used to use, but now can't figure out how it used to work, or if somethign was changed in mIRC making it not work anymore. COuld yous help me? Script is: alias dandaman {
tokenize 32 $1-
var %c, %i 0, %n $0, %s, %t, %leetness 3
while (%i < %n) {
inc %i
%t = $ [ $+ [ %i ] ]
%c = 0
if ($rand(1,%leetness) == 1) { %t = $replace(%t,a,4,e,3,i,1,t,7,o,0) | inc %c }
if ($rand(1,%leetness) == 1) { if ($len(%t) > 3) { %t = $+(%t,eh) | inc %c | if (%c > 1) goto enough } }
if ($rand(1,%leetness) == 1) { %t = $replace(%t,d,|},l,|_,n,|\|,w,\/\/,y,`/) | inc %c | if (%c > 1) goto enough }
if ($rand(1,%leetness) == 1) { %t = $+($upper($left(%t,1)),$right(%t,-1)) | inc %c | if (%c > 1) goto enough }
if ($rand(1,%leetness) == 1) { %t = $upper(%t) | inc %c }
:enough
%s = %s %t
}
if ($rand(1,%leetness) == 1) { %s = $+(%s,!!!) }
return %s
}
|
|
|
|
Joined: Sep 2003
Posts: 4,230
Hoopy frood
|
Hoopy frood
Joined: Sep 2003
Posts: 4,230 |
I have this script on mIRC, that I used to use, but now can't figure out how it used to work, or if somethign was changed in mIRC making it not work anymore. COuld yous help me? Script is: alias dandaman {
tokenize 32 $1-
var %c, %i 0, %n $0, %s, %t, %leetness 3
while (%i < %n) {
inc %i
%t = $ [ $+ [ %i ] ]
%c = 0
if ($rand(1,%leetness) == 1) { %t = $replace(%t,a,4,e,3,i,1,t,7,o,0) | inc %c }
if ($rand(1,%leetness) == 1) { if ($len(%t) > 3) { %t = $+(%t,eh) | inc %c | if (%c > 1) goto enough } }
if ($rand(1,%leetness) == 1) { %t = $replace(%t,d,|},l,|_,n,|\|,w,\/\/,y,`/) | inc %c | if (%c > 1) goto enough }
if ($rand(1,%leetness) == 1) { %t = $+($upper($left(%t,1)),$right(%t,-1)) | inc %c | if (%c > 1) goto enough }
if ($rand(1,%leetness) == 1) { %t = $upper(%t) | inc %c }
:enough
%s = %s %t
}
if ($rand(1,%leetness) == 1) { %s = $+(%s,!!!) }
return %s
} //say $dandaman(abcdefghijklmnopqustuvwxyz abcdefghijklmnopqustuvwxyz) might come back with 4bcd3fgh1jklmn0pqrs7uvwxyzeh ABC|}EFGHIJK|_M|\|OPQRSTUV\/\/X`/Z!!! each word passed well be effected zero, one or two times by some type of text conversion. It just puts them silly 1'/V\ 50 4|_337 text into your text.
|
|
|
|
Joined: Mar 2004
Posts: 96
Babel fish
|
OP
Babel fish
Joined: Mar 2004
Posts: 96 |
But when I do /dandaman something in here
Nothing shows up, does it only work using //say ?
|
|
|
|
Joined: Feb 2004
Posts: 2,019
Hoopy frood
|
Hoopy frood
Joined: Feb 2004
Posts: 2,019 |
In that last part of the code where it says: return %s
change that to: $iif($isid,return,say) %s
Now you'll be able to use it as an identifier and as a command.
Gone.
|
|
|
|
Joined: Mar 2004
Posts: 96
Babel fish
|
OP
Babel fish
Joined: Mar 2004
Posts: 96 |
|
|
|
|
|