Ein Clonescanner für MIRC
alias clonescan {
if ((!$1) && ($active ischan)) { tokenize 32 $active }
echo -t $1 Scanne $1 nach Clones.
hmake clonescan $nick($1,0)
var %i = 1 | while (%i <= $nick($1,0)) {
var %clonescan.address = $address($nick($1,%i),2)
var %clonescan.num = $ialchan(%clonescan.address,$1,0)
if (!$hget(clonescan,%clonescan.address)) {
if (%clonescan.num > 1) {
hinc clonescan total $calc(%clonescan.num -1) | hadd clonescan status 1
var %j = 1
while (%j <= %clonescan.num) {
var %clonescan.clones = %clonescan.clones -- $ialchan(%clonescan.address,$1,%j).nick
inc %j
}
echo -t $1 [[ $+ %clonescan.num $+ x %clonescan.address $+ ]] %clonescan.clones | un
set %clonescan.clones
}
hadd clonescan %clonescan.address 1
}
inc %i
}
if (!$hget(clonescan,status)) { echo -t $1 Keine Clones im Channel $1 gefunden. }
else {
echo -t $1 Vorgang abgeschlossen. $round($calc(($hget(clonescan,total) / $nick($1,0))*10
0),1) $+ % der User im Channel sind Clones.
}
hfree clonescan
}