Clonescanner

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 
}