07-11-2011, 01:09 PM
- This addon will let you see all the clones from the users in a specify channel.
Example
Quote:
- ----------------- #20_something Clones Scan ----------------
- Clones from E9EA8C.4376EB.DBD858.502B3B
- 1. Alberto (irc)
- 2. Bigbanana (irc)
- Clones from 6C196A.18A1A8.D3A2C7.967CAB
- 1. BaDBoY- (CSOHBET)
- 2. C-E-M (asdT)
- Clones from ABABA2.89A482.2A31DC.0993E9
- 1. Bonaparte_ist (Java)
- 2. istanbul_man (Java)
- Finished scanning for clones, 6 clones from 3 hosts found
-------------------- End Of Scan --------------------
How to load the addon on your mIRC script (choose either 1 or 2)
- 1- Go on Tools on the MenuBar - Script Editor - Remote - File - New then copy the code down and paste it there then press Ok.
2- Download the Clone Scanner.mrc down, Put it on the mirc folder and go on Tools on the MenuBar - Script Editor --- > Remote - File - Load and then choose the place of the Clone Scanner.mrc and then press Open then Ok.
Code
Code:
alias clonescan {
var %d = linesep $iif($active == Status Window,-s,$active)
if ((!$chan) && (!$1)) {
%d | echo -ca ctcp * Error: specify a channel to scan for clones! | %d
return
}
if (($1) && ($1 !ischan)) {
%d | echo -ca ctcp * Error: you are not on the channel you specified | %d
return
}
set %do_clonescan $iif($1,$1,$chan)
set %ds_clonescan $iif($active == Status Window,status,$active)
who %do_clonescan
}
alias -l clonescan2 {
var %i = 1,%a
var %tc = 0,%th = 0
var %chan = $1
linesep %chan
clonescan.echo -c ctcp %ds_clonescan 1-----------------4 %chan Clones Scan1 ----------------
while (%i <= $nick(%chan,0)) {
if ($ialchan($address($nick(%chan,%i),2),%chan,0) > 1) {
if ($istok(%a,$remove($address($nick(%chan,%i),2),*!*@),32)) {
inc %i
continue
}
inc %th
%a = $addtok(%a,$remove($address($nick(%chan,%i),2),*!*@),32)
var %b = 1
clonescan.echo -c info %ds_clonescan 1- Clones from4 $remove($address($nick(%chan,%i),2),*!*@) $+
while (%b <= $ialchan($address($nick(%chan,%i),2),%chan,0)) {
clonescan.echo -c info %ds_clonescan 1-1 %b $+ . $ialchan($address($nick(%chan,%i),2),%chan,%b).nick ( $+ $ialchan($address($nick(%chan,%i),2),%chan,%b).user $+ )
inc %b
inc %tc
}
}
inc %i
}
if (%tc > 0) dec %tc
clonescan.echo -c ctcp %ds_clonescan 1-4 Finished scanning for clones, %tc clone $+ $iif(%tc != 1,s) from %th host $+ $iif(%th != 1,s) found
echo -a -------------------- 4End Of Scan1 --------------------
unset %ds_clonescan
}
alias -l clonescan.echo {
if ($3 == status) echo $1 $+ s $2 $4-
else echo $1-
}
raw 315:*: {
if (%do_clonescan == $2) {
unset %do_clonescan
clonescan2 $2
halt
}
}
raw 352:*: if (%do_clonescan) haltHow to use:
- Just type /clonescan #channel and wait few seconds and then you will get all the clones on the channel.
You don't have to win every argument. Agree to disagree.


