Forums Scripts & Popups Clone detect and announce?

 
on @!*:join:#: {
  var %host_to_search_for = $address($nick,2)
  var %number_from_that_host = $ialchan(%host_to_search_for,$chan,0)
  if (%number_from_that_host > 1) {
    ;we have clones!
    ;first set up our vars and loop
    var %count = 0
    unset %clones
    :loop
    inc %count
    ;loop through every nick, adding the nicks to %clones
    var %clones = %clones $ialchan(%host_to_search_for,$chan,%count).nick
    if (%count < %number_from_that_host) { goto loop }
    msg $chan (Clones) %count clones from $address($nick,2) %clones
  }
}
 

On @*:Join:#: {
  if ($ial == $false) { 
    .ial on
  }
  if ($chan($chan).ial == $false) { 
    who $chan
  }
  var %x = $ialchan($address($nick,2),$chan,0), %clones
  if ($ialchan($address($nick,2),$chan,%x) >= 2) {
    while (%x) {
      var %clones = $addtok(%clones,$ialchan($address($nick,2),$chan,%x).nick,32) 
      dec %x
    }
    echo $chan $numtok(%clones,32) matches found: %clones
  }
}

on @!*:join:#: {
  var %host_to_search_for = $address($nick,2)
  var %number_from_that_host = $ialchan(%host_to_search_for,$chan,0)
  if (%number_from_that_host > 1) {
    ;we have clones!
    ;first set up our vars and loop
    var %count = 0
    unset %clones
    :loop
    inc %count
    ;loop through every nick, adding the nicks to %clones
    var %clones = %clones $ialchan(%host_to_search_for,$chan,%count).nick
    if (%count < %number_from_that_host) { goto loop }
    echo -a 0,02 $time 0,012 ECHO:5 (clones) %count clones from IP3 $address
($nick,2) 5-3 %clones
  }
}