Clone Detector

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 
      /inc %i 
    } 
    /return Clones: %cloneline 
  } 
  else { 
    /return User not found 
  } 
} 

alias /clone { 
  /echo 12 -a $clonedetector($$1, $iif($2, $2, 50)) 
} 

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