Clones Tcl

Yoda · Post by **Yoda** » Thu Oct 24, 2002 3:55 am

I need a very simple clone tcl that only detect clones and infos a writed list of nicks about that, like: [nick] is here with these other nick too: .....

or: these nick comes from the same ip:.........

I saw here some clones scipts but dont works and i dont know why

thanks for help
Yoda

Thor · Post by **Thor** » Sat Oct 26, 2002 12:36 pm

if this can help u

set userhost "*!*[string range $host [string first @ $host] e]"
set clonelist ""
set clonenb 0

foreach user [chanlist $chan] {
set clonehost [getchanhost $user $chan]
if {[string match [strlwr $userhost] [strlwr "$user![getchanhost $user $chan]"]] && (![isvoice $user $chan] || ![isop $user $chan])} {
incr clonenb
lappend clonelist $user
}
}

Yoda · Post by **Yoda** » Sun Oct 27, 2002 11:07 am

thanks, but what exatly this script will do?

Yoda

Thor · Post by **Thor** » Sun Oct 27, 2002 3:08 pm

for example u can use it with a bind join

the scripts makes a list of clone (clonelist) and gives the number of clone found (clonenb)

For example, if clonenb == 3, there is 3 clones found in the chan and u can do a foreach clone $clonelist in order to ban them

Yoda · Post by **Yoda** » Sun Oct 27, 2002 3:26 pm

I'm not so expert to prepare a script ready to use, could you help me?

Yoda

Thor · Post by **Thor** » Sun Oct 27, 2002 4:54 pm

Code: Select all


bind join - * AntiClone
proc AntiClone {nick host hand chan} {

set userhost "*!*[string range $host [string first @ $host] e]"
 set clonelist ""
 set clonenb 0

 foreach user [chanlist $chan] {
 	set clonehost [getchanhost $user $chan]
      if {[string match [strlwr $userhost] [strlwr "$user![getchanhost $user $chan]"]} {
 		incr clonenb
 		lappend clonelist $user
	}
 }

if {$clonenb >= 2} {
    puthelp "privmsg $chan :clone detected : [join $clonelist ", "]"
}

}

test this

Yoda · Post by **Yoda** » Sun Oct 27, 2002 5:13 pm

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

Thor · Post by **Thor** » Sun Oct 27, 2002 6:39 pm

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

Thor · Post by **Thor** » Mon Oct 28, 2002 9:56 am

make some tests like this

Code: Select all


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 ", "]" 
} 

}

Yoda · Post by **Yoda** » Mon Oct 28, 2002 11:15 am

sorry but, no way, nothing happen.
Yoda

ppslim · Post by **ppslim** » Mon Oct 28, 2002 11:59 am

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?

Yoda · Post by **Yoda** » Mon Oct 28, 2002 12:03 pm

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

ppslim · Post by **ppslim** » Mon Oct 28, 2002 12:11 pm

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

Thor · Post by **Thor** » Mon Oct 28, 2002 1:21 pm

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

Yoda · Post by **Yoda** » Mon Oct 28, 2002 1:32 pm

Code: Select all

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

and I did .console +d