clone scan edited by Metroid

set clonescan(channel) [list #mychannel1 #mychannel2 #mychannel3]; # put the channel name(s) here in lowercase.
set clonescan(relaychan) "#staff"
set clonescan(strip) 0; # set this to 1 to strip ~ from idents


bind join - * onjoin:clonescan

proc onjoin:clonescan {nick uhost hand chan} {
    global clonescan
    if {[lsearch -exact $clonescan(channel) [string tolower $chan]]} {
   
        if {$clonescan(strip)} {
            set uhost [string trimleft $uhost "~"]
        }
        set list [list]
       
        foreach user [chanlist $chan] {
       
            if {$clonescan(strip)} {
                set host [string trimleft [getchanhost $user $chan] "~"];
            } else {
                set host [getchanhost $user $chan];
            }
           
            if {[string equal -nocase $uhost $host]} {
                lappend list $user;
            }
        }
        if {[llength $list] > 1} {
            putserv "PRIVMSG $clonescan(relaychan) :«« $nick is a clone! - The nicks ( [join $list ", "] ) are the same person! - Mask/Host: $uhost »»"
        }
    }
}