another clone scanner

bind pub o|o !clonescan pub:clonescan

proc pub:clonescan {nick host hand chan arg} {
  set channel $chan
  set count 0
  set clones_who {}
  foreach user [chanlist $chan] {
    foreach person [chanlist $chan] {
      if {[string equal -nocase [getchanhost $user $chan] [getchanhost $person $chan]] && ![string equal $user $person]} {
        incr count
        lappend clones_who Host: [getchanhost $user $chan] Users: $user and $person
      }
    }
  }
  set clones $count
  set users [expr [llength [chanlist $chan]] - $clones]
  putserv "PRIVMSG $chan :CloneScan: There are $users real users on $channel \($clones Clones found\)."
  putserv "PRIVMSG $chan :CloneScan: The clones are: $clones_who"
}

proc clonescan:version {} {
  putlog "Clonescan v: 0.1 BETA by Tosser^^TCL"
}
clonescan:version