Code:

bind pub o|o !clonescan pub:clonescanproc 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

Code:

<Tosser> !clonescan<ChanServHub> CloneScan: There are 104 real users on #roffl (2 Clones found).<ChanServHub> CloneScan: The clones are: Host: scorpio@Justinn.users.quakenet.org Users: Rayne and `Finalize Host: scorpio@Justinn.users.quakenet.org Users: `Finalize and Rayne

Code:

<ChanServHub> CloneScan: The clones are: Host: scorpio@Justinn.users.quakenet.org Users: Rayne and `Finalize Host: scorpio@Justinn.users.quakenet.org Users: `Finalize and Rayne

Code:

<ChanServHub> CloneScan: The clones are: Host: scorpio@Justinn.users.quakenet.org Users: Rayne and `Finalize