egghelp/eggheads community

Clones Tcl

2002-10-28T14:44:13-04:00

now it works, but he detected only the bot as clone and dont give channel message but only a message in party line

I did tests join channel with many nicks but nothing happened.

Statistics: Posted by Yoda — Mon Oct 28, 2002 2:44 pm

Clones Tcl

2002-10-28T14:29:55-04:00

I have found the problem.

Code:

if {[string match [strlwr $userhost] [strlwr "$user![getchanhost $user $chan]"]} {

should be

Code:

if {[string match [strlwr $userhost] [strlwr "$user![getchanhost $user $chan]"]]} {

Last ] was missing.

Statistics: Posted by ppslim — Mon Oct 28, 2002 2:29 pm

Clones Tcl

2002-10-28T14:18:22-04:00

www.chatitalia.net

enter in chat, I'm Mauro

Statistics: Posted by Yoda — Mon Oct 28, 2002 2:18 pm

Clones Tcl

2002-10-28T14:09:05-04:00

i will come !

Statistics: Posted by Guest — Mon Oct 28, 2002 2:09 pm

Clones Tcl

2002-10-28T14:05:04-04:00

what's your network ? #chan ?

Statistics: Posted by Guest — Mon Oct 28, 2002 2:05 pm

Clones Tcl

2002-10-28T13:40:31-04:00

PS: I use alltools.tcl

Statistics: Posted by Yoda — Mon Oct 28, 2002 1:40 pm

Clones Tcl

2002-10-28T13:32:27-04:00

Code:

 .binds join [17:28] tcl: builtin dcc call: *dcc:binds Yoda 10 join Command bindings:   TYPE FLGS     COMMAND              HITS BINDING (TCL)   join -|-      #one *               0 cs:join   join -|-      #two *              0 cs:join   join -|-      *                       2 AntiClone

and I did .console +d

Statistics: Posted by Yoda — Mon Oct 28, 2002 1:32 pm

Clones Tcl

2002-10-28T13:21:24-04:00

Hmm .. i just see something.
Do u use alltools.tcl ???
All my scripts needs it

Moreover, don't forget to do a .console +d in pl

Statistics: Posted by Guest — Mon Oct 28, 2002 1:21 pm

Clones Tcl

2002-10-28T12:11:22-04:00

Out of intrest, type ".binds join" int he partyline, and paste the output.

Statistics: Posted by ppslim — Mon Oct 28, 2002 12:11 pm

Clones Tcl

2002-10-28T12:03:48-04:00

save it as clone.tcl and ad it in .conf then .rehash and see

Statistics: Posted by Yoda — Mon Oct 28, 2002 12:03 pm

Clones Tcl

2002-10-28T11:59:29-04:00

What are you doign witht he script, apart from readin it ont he forum. IE, what do you do with to load it into your bot?

Statistics: Posted by ppslim — Mon Oct 28, 2002 11:59 am

Clones Tcl

2002-10-28T11:15:44-04:00

sorry but, no way, nothing happen.
Yoda

Statistics: Posted by Yoda — Mon Oct 28, 2002 11:15 am

Clones Tcl

2002-10-28T09:56:19-04:00

make some tests like this

Code:

bind join - * AntiClone proc AntiClone {nick host hand chan} { set userhost "*!*[string range $host [string first @ $host] e]" set clonelist "" set clonenb 0 putlog "AntiClone : $nick $host $hand $chan, userhost created : $userhost"foreach user [chanlist $chan] {    set clonehost [getchanhost $user $chan]       if {[string match [strlwr $userhost] [strlwr "$user![getchanhost $user $chan]"]} {       incr clonenb       lappend clonelist $user    } } putlog "$clonenb found : [join $clonelist ", "]" if {$clonenb >= 2} {     puthelp "privmsg $chan :clone detected : [join $clonelist ", "]" } }

Statistics: Posted by Guest — Mon Oct 28, 2002 9:56 am

Clones Tcl

2002-10-27T18:39:43-04:00

but it's workink. I used a script like this

Statistics: Posted by Guest — Sun Oct 27, 2002 6:39 pm

Clones Tcl

2002-10-27T17:13:03-04:00

tested.
no errors but absolutely nothing happened and no privmsg to channel, or nick.

Statistics: Posted by Yoda — Sun Oct 27, 2002 5:13 pm