Unnamed

on *:join:#: {
  if ($address($nick,2) == $address($me,2)) halt
  if ($read(allowedhost.txt,w,$address($nick,2))) halt
  if ($ial($address($nick,2),0) > 1) { 
    var %x = 1
    while (%x <= $ial($address($nick,2),0)) {
      var %clones = $iif(%clones,%clones &) $ial($address($nick,2),%x).nick
      inc %x
    }
    Msg $chan [Clones Detected] %clones @ $site
  }
}