Clone scan

[ultralord]

Hello does anyone have any clone scan tcl.. i want to clone scan when someone join in specific channel and then i want to send message in other channel like that :


BOT: «« Koukouvaouvaou is a clone! - The nicks ( Koukouvaouvaou salAa ) are the same person! - Mask/host: *!~koukouvao@ppp079166115072.dsl.hol.gr »»

etc..

[r0t3n]

Code: Select all

set clonescan(channel) "#mychannel"
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 [string tolower $clonescan(channel)] [string tolower $chan]] == -1} { return }
    set list ""
    foreach user [chanlist $chan] {
        if {$user != "" && [string equal -nocase [expr {$clonescan(strip) == 1 ? "[string map {~ ""} $uhost]" : "$uhost"}] [expr {$clonescan(strip) == 1 ? "[string map {~ ""} [getchanhost $user $chan]]" : "[getchanhost $user $chan]"}]} {
            if {[lsearch -exact [string tolower $list] [string tolower $user]] == -1} {
                lappend list "$user"
            }
        }
    }
    if {[llength $list] > 0} {
        putserv "PRIVMSG $clonescan(relaychan) :«« $nick is a clone! - The nicks ( [join $list " "] ) are the same person! - Mask/Host: [expr {$clonescan(strip) == 1 ? "[string map {~ ""} $uhost]" : "$uhost"}] »»"
    }
}

Not tested!

[ultralord]

thnx man i am gonna test it in a while..

[ultralord]

Error:


[17:22] can't read "list": no such variable
while executing
"llength $list"
(file "scripts/clone.tcl" line 1)
(file "eggdrop.conf" line 1)

when i make start

[r0t3n]

I edited the script above, give it a try, it should work.

[ultralord]

same error

Code: Select all

[19:34:41] <BOTNICK> [11:34] Tcl error in file 'eggdrop.conf':
[19:34:41] <BOTNICK> [11:34] can't read "list": no such variable
[19:34:41] <BOTNICK>     while executing
[19:34:41] <BOTNICK> "llength $list"
[19:34:41] <BOTNICK>     (file "scripts/clone.tcl" line 1)
[19:34:41] <BOTNICK>     (file "gatherbot.txt" line 1)
[19:34:41] <BOTNICK> [11:34] * CONFIG FILE NOT LOADED (NOT FOUND, OR ERROR)
-

[r0t3n]

I added a extra } in one of the expr's by mistake, the edited version should work now...

[ultralord]

this error :/

Code: Select all

[13:46] Tcl error [onjoin:clonescan]: missing close-bracket

[ultralord]

anyone? :/

[DragnLord]

check this script (click here)

[ultralord]

Thnx but i dont like it.. i need previus script but doesnt working i have this error..

[ultralord]

anyone?

[metroid]

That's because Tosser _still_ doesn't get how TCL works.

Code: Select all

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 »»"
        }
    }
}

[ultralord]

i have this error..

[20:20] Tcl error [onjoin:clonescan]: can't read "strip": no such variable

:/

[r0t3n]

change all

Code: Select all

$clonescan($strip)

to

Code: Select all

$clonescan(strip)