mIRC Homepage
Posted By: Gremel Help with script - 30/01/05 02:40 AM
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:

Code:
 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
} 
Posted By: DaveC Re: Help with script - 30/01/05 03:08 AM
Quote:
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:

Code:
 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.
Posted By: Gremel Re: Help with script - 30/01/05 03:14 AM
But when I do
/dandaman something in here

Nothing shows up, does it only work using //say ?
Posted By: FiberOPtics Re: Help with script - 30/01/05 03:16 AM
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.
Posted By: Gremel Re: Help with script - 30/01/05 03:27 AM
thanks
© mIRC Discussion Forums