alias clones_scan {
  echo -at %color1 Scanning For Clones On # $+ , Please Wait... %color2
  var %x = 1,%hn = $+(cs.,#),%c = 0
  while ($nick(#,%x)) {
    hadd -m %hn $address($v1,2) $hget(%hn,$address($v1,2)) $v1
    inc %x
  }
  %x = 1
  while ($hget(%hn,%x).item) {
    if ($numtok($hget(%hn,$v1),32) > 1) { echo -at %color1 $v1 Clones Detected At: $hget(%hn,%x).item Nicks: $hget(%hn,$hget(%hn,%x).item) %color2 | inc %c }
    inc %x
  }
  if (!%c) echo -at %color1 Scan Completed. No Clones Were Found. %color2
  else echo -at %color1 Scan Completed. 4 %c Clone Hosts Were Found. %color2
  hfree %hn
}