mIRC Home    About    Download    Register    News    Help

Print Thread
#109473 30/01/05 02:40 AM
Joined: Mar 2004
Posts: 96
G
Gremel Offline OP
Babel fish
OP Offline
Babel fish
G
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:

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
} 

#109474 30/01/05 03:08 AM
Joined: Sep 2003
Posts: 4,230
D
Hoopy frood
Offline
Hoopy frood
D
Joined: Sep 2003
Posts: 4,230
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.

#109475 30/01/05 03:14 AM
Joined: Mar 2004
Posts: 96
G
Gremel Offline OP
Babel fish
OP Offline
Babel fish
G
Joined: Mar 2004
Posts: 96
But when I do
/dandaman something in here

Nothing shows up, does it only work using //say ?

#109476 30/01/05 03:16 AM
Joined: Feb 2004
Posts: 2,019
Hoopy frood
Offline
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.
#109477 30/01/05 03:27 AM
Joined: Mar 2004
Posts: 96
G
Gremel Offline OP
Babel fish
OP Offline
Babel fish
G
Joined: Mar 2004
Posts: 96
thanks


Link Copied to Clipboard