egghelp/eggheads community

Clone Protection Script

2005-04-22T02:01:20-04:00

Yes! It worked, and it’s very fast too. Thank you.

Statistics: Posted by Nucleus — Fri Apr 22, 2005 2:01 am

Clone Protection Script

2005-04-21T18:19:36-04:00

Try this:

Code:

# Set the next line as the kick msg you want to say set clone_msg "Clones" # Set the next line as the number of clones to scan for set clone_max 3 # Set the next line as the channels you want to run in set clone_chans "#MyChan" proc join_clone {nick uhost hand chan} {  global clone_msg clone_max clone_chans botnick  if {(([lsearch -exact [string tolower $clone_chans] [string tolower $chan]] != -1) || ($clone_chans == "*")) && (![matchattr $hand m|m $chan]) && (![matchattr $hand b]) && ($nick != $botnick)} {   set host [lindex [split $uhost @] 1]   set count 0   foreach i [chanlist $chan] {    if {[string equal -nocase [lindex [split [getchanhost $i $chan] @] 1] $host]} {    incr count    lappend cnicks "$i"   }   }   if {$count >= $clone_max} {    putquick "MODE $chan +b *!*@$host"   foreach cnick $cnicks {    putquick "KICK $chan $cnick :$clone_msg"   }  }  } } bind join - * join_clone

This should do the job, but if the bot is a clone then it'll kick itself too

Statistics: Posted by Sir_Fz — Thu Apr 21, 2005 6:19 pm

Clone Protection Script

2005-04-21T11:04:41-04:00

This is the script after the modifications. Still reacts the same way though. Puts the ban, then kicks itself.

Code:

#Set the next line as the kick msg you want to say set clone_msg "Clones" #Set the next line as the number of clones to scan for set clone_max 3 #Set the next line as the channels you want to run in set clone_chans "#MyChan" proc join_clone {nick uhost hand chan} {  global clone_msg clone_max clone_chans botnick  if {([lsearch -exact [string tolower $clone_chans] [string tolower $chan]] != -1) || ($clone_chans == "*") && ![matchattr $hand m|m $chan] && ![matchattr $hand b] && ![isbotnick $nick] && [botisop $chan]} {   set host [lindex [split $uhost @] 1]; set count 0   foreach i [chanlist $chan] {    if {[string equal -nocase $host [lindex [split [getchanhost $i $chan] @] 1]]} {    incr count    }   }   if {$count >= $clone_max} {   putquick "MODE $chan +b *!*@[lindex [split $uhost @] 1]" -next   foreach clone [chanlist $chan] {    if {[string equal -nocase [lindex [split $uhost @] 1] [lindex [split [getchanhost $i $chan] @] 1]]} {     putquick "KICK $chan $clone :$clone_msg" -next     }    }  }  } }putlog "=====>> Clone Protection Loaded"

Statistics: Posted by Nucleus — Thu Apr 21, 2005 11:04 am

Clone Protection Script

2005-04-21T10:52:01-04:00

It should be this:

Code:

 putquick "MODE $chan +b *!*@[lindex [split $uhost @] 1]" -next

Code:

 foreach clone [chanlist $chan] {  if {[string equal -nocase [lindex [split $uhost @] 1] [lindex [split [getchanhost $i $chan] @] 1]]} {   putquick "KICK $chan $clone :$clone_msg" -next   }  }

Statistics: Posted by awyeah — Thu Apr 21, 2005 10:52 am

Clone Protection Script

2005-04-21T10:39:22-04:00

For some reason, when the third clone joins the channel, the bot bans the clone's host, and then kicks itself from the channel....

[17:36:07] * Joins: clone33 (~geek@host.com)
[17:36:07] * eggdropt sets mode: +b *!*@geek@host.com
[17:36:07] * eggdropt was kicked by eggdropt (Clones)
[17:36:15] * Joins: eggdropt (~GreekGod@egghost.com)

kinda funny though

Statistics: Posted by Nucleus — Thu Apr 21, 2005 10:39 am

Clone Protection Script

2005-04-21T10:21:30-04:00

Code has been modified, give it a go. By now you should know how to modify the code, for tweaks. I also fixed up your code a bit.

Code:

#Set the next line as the kick msg you want to sayset clone_msg "Clones"#Set the next line as the number of clones to scan forset clone_max 3#Set the next line as the channels you want to run inset clone_chans "#MyChan"proc join_clone {nick uhost hand chan} { global clone_msg clone_max clone_chans botnick if {([lsearch -exact [string tolower $clone_chans] [string tolower $chan]] != -1) || ($clone_chans == "*") && ![matchattr $hand m|m $chan] && ![matchattr $hand b] && ![isbotnick $nick] && [botisop $chan]} {  set host [lindex [split $uhost @] 1]; set count 0  foreach i [chanlist $chan] {   if {[string equal -nocase $host [lindex [split [getchanhost $i $chan] @] 1]]} {    incr count   }  }  if {$count >= $clone_max} {  putquick "MODE $chan +b *!*@$host" -next  foreach clone [chanlist $chan] {   if {[string equal -nocase $host [lindex [split [getchanhost $i $chan] @] 1]]} {    putquick "KICK $chan $clone :$clone_msg" -next    }   }  } }}

Although we can run only 1 loop, remove the second one, in the first one lappend nicks to a list, if not greater unset list, if greater go ahead and kick everyone in the list no need to scan the chanlist again for users matching the mask.

Statistics: Posted by awyeah — Thu Apr 21, 2005 10:21 am

Clone Protection Script

2005-04-21T10:07:18-04:00

Or, which would be much better and faster, is to add the nicks into an array on join then kick them when max clones is reached.

umm...how do i do that?

Statistics: Posted by Nucleus — Thu Apr 21, 2005 10:07 am

Clone Protection Script

2005-04-21T08:56:40-04:00

you can add this to filter kick

Code:

foreach clone [chanlist $chan] {  if {[string match -nocase [maskhost $nick!$uhost] [maskhost [getchanhost $clone $chan]]]} {  puthelp "KICK $chan $clone :$clone_msg" }}

Or, which would be much better and faster, is to add the nicks into an array on join then kick them when max clones is reached.

Statistics: Posted by Sir_Fz — Thu Apr 21, 2005 8:56 am

Clone Protection Script

2005-04-21T08:15:08-04:00

Well, it allows me to remove the ban, but now, after placing the ban, it only kicks the last clone to enter the channel. Not all of them.

Statistics: Posted by Nucleus — Thu Apr 21, 2005 8:15 am

Clone Protection Script

2005-04-21T07:30:18-04:00

Code:

putquick "MODE $chan +b [maskhost $nick!$uhost]"

Statistics: Posted by avilon — Thu Apr 21, 2005 7:30 am

Clone Protection Script

2005-04-21T03:01:41-04:00

Ok, this is a good clone protection script, i tested it, and as soon as the third clone joins the channel, it puts a ban, and kicks all three of them.

Code:

# Set the next line as the kick msg you want to sayset clone_msg "Clones"# Set the next line as the number of clones to scan forset clone_max 3# Set the next line as the channels you want to run inset clone_chans "#MyChan"proc join_clone {nick uhost hand chan} { global clone_msg clone_max clone_chans botnick if {(([lsearch -exact [string tolower $clone_chans] [string tolower $chan]] != -1) || ($clone_chans == "*")) && (![matchattr $hand m|m $chan]) && (![matchattr $hand b]) && ($nick != $botnick)} {  set host [lindex [split $uhost @] 1]  set count 0  foreach i [chanlist $chan] {   if {[lindex [split [getchanhost $i $chan] @] 1] == $host} { incr count }  }  if {$count >= $clone_max} {   newchanban $chan [maskhost [getchanhost $nick $chan]] $botnick $clone_msg 10min   putserv "KICK $chan $nick :$clone_msg"  } }}bind join - * join_cloneputlog "=====>> Clone Protection Loaded"

The problem is that it puts the ban in the bot's internal banlist instead of a channel ban. Now, have in mind that i dont know tcl scripting, but, my first guess, would be to replace this line:

Code:

newchanban $chan [maskhost [getchanhost $nick $chan]] $botnick $clone_msg 10min

With this?

Code:

putquick "MODE $chan +b $clone_msg"

Thanks for your help

Statistics: Posted by Nucleus — Thu Apr 21, 2005 3:01 am