Miscellany

on ^*:JOIN:#:{
  if ($nick != $me) {
    if ($ial($wildsite, 0) > 1) {
      /echo 03 -t $chan * Joins: $nick ( $+ $address $+ )    4* 4| 12 $clonedetector($nick, 10) 4*
      /haltdef
    }
  }
}

alias -l /clonedetector {
  if ($ial($address($$1, 2), 0) > 0) {
    /var %i 1
    /var %cloneline
    while ((%i <= $ial($address($$1, 2), 0)) && (%i <= $$2)) {
      /set %cloneline %cloneline $ial($address($$1, 2), %i).nick 4|12 
      /inc %i
    }
    /return 7Clones: 4|12 %cloneline
  }
  else {
    /return User not found
  }
}