Clonescanner

Hier ein kleiner Codeschnipsel für Mirc Clone Scannt

Script:

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  }