# Clone Scanner found on a script site that died a long time ago
# I do not recall the name of the author. credits goes to him
#################################################################

alias clones {
  if ($me ison $1) || (!$1) {
    var %c $iif($1,$1,$chan)
    echo -ag $chr(160) $+ 3໑ 14Clones
    var %x 1,%t $ticks,%to 0,%hosts
    while (%x <= $nick(%c,0)) {
      var %host $address($nick(%c,%x),2)
      if ($ialchan(%host,%c,0) > 1) && (!$istok(%hosts,%host,32)) {
        var %regTh = $left($regsubex($str(~,$ialchan(%host,%c,0)),/(.)/g,15 $+ $replace($ialchan(%host,%c,\n).pnick,@,4@15,%,9%15,+,12+15) $+ $chr(44) $+ $chr(32)),-2)
        echo -ag 3໑ $+ $str($chr(160),$calc( 50 - $len($strip(%regTh)) )) 15 $+ %regTh 4(14* $+ $remove($replace(%host,@,4@14),*!*) $+ 4)
        var %hosts %hosts %host
        inc %to
      }
      inc %x
    }
    echo -ag $chr(160) $+ 3໑ 14Clones4:15 %to $iif(%to == 1,14match,14matches) found. 4(15 $+ %c $+ 4)
  }
  elseif (#* iswm $1) {
    echo -ag 5• 14Clones5:15 Not currently on channel14 $1
  }
  else {
    var %x 1, %to 0
    while (%x <= $chan(0)) {
      var %chan $chan(%x), %y 1
      while (%y <= $nick(%chan,0)) {
        var %addr $address($nick(%chan,%y),5),%nick $gettok(%addr,1,33)
        if ($1 iswm %addr) && (!$istok(%nlist,%nick,32)) {
          echo -ag 5• $str($chr(160),$calc( 42 - $len(%nick) - $len($gettok($gettok(%addr,2,33),1,64)) )) $+ 14 $+ %nick 15[14 $+ $replace($gettok(%addr,2,33),@,5@14,.,5.14) $+ 15]15 $regsubex($str(~,$comchan(%nick,0)),/./g,$iif(%nick isop $comchan(%nick,\n),4@,$iif(%nick ishop $comchan(%nick,\n),8%,$iif(%nick isvoice $comchan(%nick,\n),12+))) $+ 15 $+ $comchan(%nick,\n) $chr(32))
          var %nlist %nlist %nick
          inc %to
        }
        inc %y
      }
      inc %x
    }
    echo -ag $chr(160) $+ 5• 14Clones5:15 %to $iif(%to == 1,14match,14matches) found. 15[14 $+ $1 $+ 15]

  }
}
menu channel { 
  -  
  $iif($server,Clone Scanner):clones
} 
-