check clones on join and show clones nicks

on *:join:#:{ 
  if ($nick != $me) { 
    unset %clons.nick
    if ($ialchan($mask($fulladdress,2),#,0) > 1) {
      set %i $ialchan($mask($fulladdress,2),#,0)
      while (%i) {
        if (%clons.nick != $null) { set %clons.nick %clons.nick , $ialchan($mask($fulladdress,2),#,%i).nick }
        else { set %clons.nick $ialchan($mask($fulladdress,2),#,%i).nick }
        dec %i
      }
      echo $color(join) # [4x $+ $color(join) $+ ] Detected $ialchan($mask($fulladdress,2),#,0) clones from ip $mask($fulladdress,2) ::: %clons.nick
    }
  }
}