egghelp/eggheads community

Help with Clones.. Tcl

2020-06-10T09:55:10-04:00

if the bans are manually removed it hangs and wont set the bans again if clones rejoin

and on the timed unban perhaps its an idea to use pushmode to have it remove in stacked order rather then 1 by 1

and the duplicate bans seems to be solved now

Statistics: Posted by simo — Wed Jun 10, 2020 9:55 am

Help with Clones.. Tcl

2020-06-10T08:12:49-04:00

hey there SpiKe^^
i tested your last posted tcl and it only sets the bans and kicks the first time i used it and after i cleared bans and rejoined same clones it didnt seem to trigger anymore

Statistics: Posted by simo — Wed Jun 10, 2020 8:12 am

DeClone v0.4

2020-06-09T17:51:03-04:00

Here is another try at the clone kicker script.

simo: please test this and report back.

Code:

## DeClone v0.4 ### 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 (* = allchannels)set clone_chans "#SuKooN" # Set ban time (in seconds) set clone_bantime 120 # Exempt +o users from this script ??#  0 = No, do not exempt users with +o#  1 = Yes, exempt users with +o#  2 = Yes, also exempt users with +vset clone_exemptops 1# Set exempt users by standard "nick!user@host" mask ??# If you do not have any mask to exempt: set clone_exemptmask {}set clone_exemptmask {*!*@DALnet*!*@*.users.quakenet.org*!*@*.irccloud.com}###########  End Settings  ###########proc join_clone {nk uh hand chan} {  global clone_msg clone_max clone_chans clone_exemptops declones if {$clone_chans ne "*" && [lsearch -nocase $clone_chans $chan] == -1} { return } if {[isbotnick $nk] || ![botisop $chan] || [matchattr $hand bm|m $chan]} { return } if {[llength $::clone_exemptmask]} {   foreach mask $::clone_exemptmask {     if {[string match -nocase $mask $nk!$uh]} {  return  }   } } set host [string tolower [lindex [split $uh @] 1]] set chan [string tolower $chan] if {[info exists declones($chan,$host)]} {   set nowls $declones($chan,$host) } else {  set nowls ""  } set new "" foreach user [chanlist $chan] {    if {[string equal -nocase [lindex [split [getchanhost $user $chan] @] 1] $host]} {      set hn [nick2hand $user $chan]     if {$clone_exemptops>0 && ([isop $user $chan] || [matchattr $hn o|o $chan])} {       return     }     if {$clone_exemptops>1 && ([isvoice $user $chan] || [matchattr $hn v|v $chan])} {       return     }     if {[lsearch -nocase $nowls $user] == -1} {  lappend new $user  }   } }  if {([llength $nowls]+[llength $new]) >= $clone_max} {   if {![llength $nowls]} {     putquick "MODE $chan +b *!*@$host"      utimer $::clone_bantime [list unban_clone $chan $host]    }   if {[llength $new]} {     qkick $chan [join $new ","] $clone_msg     set declones($chan,$host) [concat $nowls $new]   } } } proc unban_clone {chan host} { if {[lsearch -exact [join [chanbans $chan]] "*!*@$host"] > -1} {   putserv "MODE $chan -b *!*@$host" } catch {unset declones($chan,$host)}} bind join - * join_clone putlog "DeClone v0.4 Loaded."

You will also need to load this kick queuing script from an earlier thread.
http://forum.egghelp.org/viewtopic.php?t=20782

Code:

##########################################################  ##  qkick ver 0.2 by SpiKe^^ - 25 May 2020  ##  A possible alternative for the Eggdrop tcl command: ##  ##          putkick   [reason]  ##  ##  New tcl command:                                    ##  ##          qkick   [reason]    ##  ##########################################################  proc qkick {ch {nk ""} {wy ""}} {  global qkick    set qmax 10    set qsec 1    set qwhy "Go away."    if {![validchan $ch]} { return 1 }    set ch [string tolower $ch]    set nkls [split $nk ","]    if {[info exists qkick($ch)] && [llength $qkick($ch)]} {      set nkls [concat $qkick($ch) $nkls]    }    if {$wy ne ""} {      set qwhy $wy      set qkick(why$ch) $wy    } elseif {[info exists qkick(why$ch)]} {      set qwhy $qkick(why$ch)    }    if {$nk eq "" || [llength $nkls]>=$qmax} {      while {[llength $nkls]} {        if {[llength $nkls]<$qmax && $nk ne ""} { break }        if {[llength $nkls]>$qmax} {          set kick [join [lreplace $nkls $qmax end] ","]          set nkls [lrange $nkls $qmax end]        } else {          set kick [join $nkls ","]          set nkls [list]        }        putserv "KICK $ch $kick :$qwhy"      }    }    if {![info exists qkick($ch)]} {      set qkick($ch) $nkls      utimer $qsec [list qkick $ch]    } elseif {$nk eq ""} {      unset qkick($ch)      catch {unset qkick(why$ch)}    } else {      set qkick($ch) $nkls    }    return 0  }  putlog "qkick ver 0.2 loaded."

Statistics: Posted by SpiKe^^ — Tue Jun 09, 2020 5:51 pm

Help with Clones.. Tcl

2020-05-27T12:06:49-04:00

very nice work again SpiKe^^ i tested it on my testnet and added a

privmsg $chan + *!*$host

and found it kept setting bans on already banned clone hosts is there a way to have it set once per clone host ?

also it pushes out the stacked kicks fine at the start but then it starts gettin much slower

tested with this:

Code:

## DeClone v0.3 ### Set the next line as the kick msg you want to sayset clone_msg "10Clones Are Not Allowed 120 Sec Ban ...!!!"# 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 in (* = allchannels)set clone_chans "#SuKooN"# Set ban time (in seconds)set clone_bantime 120# Exempt +o users from this script ??#  0 = No, do not exempt users with +o#  1 = Yes, exempt users with +o#  2 = Yes, also exempt users with +vset clone_exemptops 1# Set exempt users by standard "nick!user@host" mask ??# If you do not have any mask to exempt: set clone_exemptmask {}set clone_exemptmask {*!*@DALnet*!*@*.users.quakenet.org*!*@*.irccloud.com}###########  End Settings  ###########proc join_clone {nick uhost hand chan} { global clone_msg clone_max clone_chans clone_exemptops if {$clone_chans ne "*" && [lsearch -nocase $clone_chans $chan] == -1} { return } if {[isbotnick $nick] || ![botisop $chan] || [matchattr $hand bm|m $chan]} { return } if {[llength $::clone_exemptmask]} {   foreach mask $::clone_exemptmask {     if {[string match -nocase $mask $nick!$uhost]} {  return  }   } } set host [lindex [split $uhost @] 1] set clonelist "" foreach user [chanlist $chan] {   if {[string equal -nocase [lindex [split [getchanhost $user $chan] @] 1] $host]} {     set hn [nick2hand $user $chan]     if {$clone_exemptops>0 && ([isop $user $chan] || [matchattr $hn o|o $chan])} {       return     }     if {$clone_exemptops>1 && ([isvoice $user $chan] || [matchattr $hn v|v $chan])} {       return     }     lappend clonelist $user   } } if {[set count [llength $clonelist]] >= $clone_max} {   set max 6   putserv "privmsg $chan +b *!*@$host"   putquick "MODE $chan +b *!*@$host"   while {$count > 0} {           ;# Thanks caesar #     if {$count > $max} {       set users [join [lrange $clonelist 0 [expr {$max - 1}]] ","]       set clonelist [lrange $clonelist $max end]       incr count -$max     } else {       set users [join $clonelist ","]       set count 0     }     putquick "KICK $chan $users :$clone_msg"   }   utimer $::clone_bantime [list putserv "MODE $chan -b *!*@$host"] }}bind join - * join_clone

Statistics: Posted by simo — Wed May 27, 2020 9:53 am

Thanks .. All Scripter .. Special Thanks to SpiKe^^

2018-01-19T05:22:06-04:00

Code:

## DeClone v0.3 ## # Set the next line as the kick msg you want to say set clone_msg "10Clones Are Not Allowed 120 Sec Ban ...!!!" # 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 (* = allchannels) set clone_chans "#SuKooN" # Set ban time (in seconds) set clone_bantime 120 # Exempt +o users from this script ?? #  0 = No, do not exempt users with +o #  1 = Yes, exempt users with +o #  2 = Yes, also exempt users with +v set clone_exemptops 1 # Set exempt users by standard "nick!user@host" mask ?? # If you do not have any mask to exempt: set clone_exemptmask {} set clone_exemptmask { *!*@DALnet *!*@*.users.quakenet.org *!*@*.irccloud.com } ###########  End Settings  ########### proc join_clone {nick uhost hand chan} {  global clone_msg clone_max clone_chans clone_exemptops  if {$clone_chans ne "*" && [lsearch -nocase $clone_chans $chan] == -1} { return }  if {[isbotnick $nick] || ![botisop $chan] || [matchattr $hand bm|m $chan]} { return }  if {[llength $::clone_exemptmask]} {    foreach mask $::clone_exemptmask {      if {[string match -nocase $mask $nick!$uhost]} {  return  }    }  }  set host [lindex [split $uhost @] 1]  set clonelist ""  foreach user [chanlist $chan] {    if {[string equal -nocase [lindex [split [getchanhost $user $chan] @] 1] $host]} {      set hn [nick2hand $user $chan]      if {$clone_exemptops>0 && ([isop $user $chan] || [matchattr $hn o|o $chan])} {        return      }      if {$clone_exemptops>1 && ([isvoice $user $chan] || [matchattr $hn v|v $chan])} {        return      }      lappend clonelist $user    }  }  if {[set count [llength $clonelist]] >= $clone_max} {    set max 6    putquick "MODE $chan +b *!*@$host"    while {$count > 0} {           ;# Thanks caesar #      if {$count > $max} {        set users [join [lrange $clonelist 0 [expr {$max - 1}]] ","]        set clonelist [lrange $clonelist $max end]        incr count -$max      } else {        set users [join $clonelist ","]        set count 0      }      putquick "KICK $chan $users :$clone_msg"    }    utimer $::clone_bantime [list putserv "MODE $chan -b *!*@$host"]  } } bind join - * join_clone putlog "DeClone v0.3 Loaded."

----------------------------------------------------------------------------------
Tested in all format excellent work .. here are few result to show ..

[21:37] * MaSt3r sets mode: +b *!*@103.255.6.80
[21:37] * meri_bhn was kicked by MaSt3r (10Clones Are Not Allowed 120 Sec Ban ...!!!)
[21:37] * bhn_k_doud was kicked by MaSt3r (10Clones Are Not Allowed 120 Sec Ban ...!!!)
[21:37] * any_real_amil was kicked by MaSt3r (10Clones Are Not Allowed 120 Sec Ban ...!!!)
-------------------------------------------------------------------------------------
[14:00] * Joins: cRaZy` (~R-P@119.157.179.86)
[14:00] * F|irT sets mode: +v cRaZy`
- Clones from 119.157.179.86
- 1. cRaZy` (~R-P)
- 2. R-K (~R-P)
- 3. R-P (~R-P)
Not Kicking voice user match with clones... as i wanted .. good
----------------------------------------------------------------------------
[14:05] * Parts: +cRaZy` (~R-P@119.157.179.86)
[14:05] * Joins: cRaZy` (~R-P@119.157.179.86)
[14:05] * MaSt3r sets mode: +b *!*@119.157.179.86
[14:05] * R-K was kicked by MaSt3r (Clones Are Not Allowed 120 Sec Ban ...!!!)
[14:05] * R-P was kicked by MaSt3r (Clones Are Not Allowed 120 Sec Ban ...!!!)
[14:05] * cRaZy` was kicked by MaSt3r (Clones Are Not Allowed 120 Sec Ban ...!!!)
-------------------------------------------------------------------------------------
- Clones from id-234240.tooting.irccloud.com
- 1. boy19 (uid234240)
- 2. f-30 (uid234240)
- 3. Mard1 (uid234240)
---------------------------------------------------------------------------------
Protecting Some host i add like Cloud .. not reading clones on cloud host ..
-------------------------------------------------------------------------------------

i am running this srcipt on Dalnet .. No issue ... Thank Goes To SpiKe^^ to Helping it to make it write..

F|irT...!

Statistics: Posted by F|irT — Fri Jan 19, 2018 5:22 am

Help with Clones.. Tcl

2018-01-17T12:30:14-04:00

Here is hopefully the final working copy...

Code:

## DeClone v0.3 ### 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 2 # Set the next line as the channels you want to run in (* = allchannels)set clone_chans "#SuKooN" # Set ban time (in seconds) set clone_bantime 120 # Exempt +o users from this script ??#  0 = No, do not exempt users with +o#  1 = Yes, exempt users with +o#  2 = Yes, also exempt users with +vset clone_exemptops 1# Set exempt users by standard "nick!user@host" mask ??# If you do not have any mask to exempt: set clone_exemptmask {}set clone_exemptmask {*!*@DALnet*!*@*.users.quakenet.org*!*@*.irccloud.com}###########  End Settings  ###########proc join_clone {nick uhost hand chan} {  global clone_msg clone_max clone_chans clone_exemptops if {$clone_chans ne "*" && [lsearch -nocase $clone_chans $chan] == -1} { return } if {[isbotnick $nick] || ![botisop $chan] || [matchattr $hand bm|m $chan]} { return } if {[llength $::clone_exemptmask]} {   foreach mask $::clone_exemptmask {     if {[string match -nocase $mask $nick!$uhost]} {  return  }   } } set host [lindex [split $uhost @] 1]  set clonelist "" foreach user [chanlist $chan] {    if {[string equal -nocase [lindex [split [getchanhost $user $chan] @] 1] $host]} {      set hn [nick2hand $user $chan]     if {$clone_exemptops>0 && ([isop $user $chan] || [matchattr $hn o|o $chan])} {       return     }     if {$clone_exemptops>1 && ([isvoice $user $chan] || [matchattr $hn v|v $chan])} {       return     }     lappend clonelist $user    } }  if {[set count [llength $clonelist]] >= $clone_max} {    set max 6    putquick "MODE $chan +b *!*@$host"    while {$count > 0} {           ;# Thanks caesar #     if {$count > $max} {        set users [join [lrange $clonelist 0 [expr {$max - 1}]] ","]        set clonelist [lrange $clonelist $max end]        incr count -$max      } else {        set users [join $clonelist ","]        set count 0      }      putquick "KICK $chan $users :$clone_msg"    }    utimer $::clone_bantime [list putserv "MODE $chan -b *!*@$host"]  } } bind join - * join_clone putlog "DeClone v0.3 Loaded."

Statistics: Posted by SpiKe^^ — Wed Jan 17, 2018 12:30 pm

Help with Clones.. Tcl

2018-01-16T14:26:02-04:00

Try this, report back.

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 2 # Set the next line as the channels you want to run in (* = allchannels)set clone_chans "#SuKooN" # Set ban time (in seconds) set clone_bantime 120 # Exempt +o users from this script ??#  0 = No, do not exempt users with +o#  1 = Yes, exempt users with +o#  2 = Yes, also exempt users with +vset clone_exemptops 1# Set exempt users by standard "nick!user@host" mask ??set clone_exemptmask {*!*@DALnet*!*@*.users.quakenet.org*!*@*.irccloud.com}###########  End Settings  ###########proc join_clone {nick uhost hand chan} {  global clone_msg clone_max clone_chans clone_exemptops if {$clone_chans ne "*" && [lsearch -nocase $clone_chans $chan] == -1} { return } if {[isbotnick $nick] || ![botisop $chan] || [matchattr $hand bm|m $chan]} { return } if {$clone_exemptops>0 && [matchattr $hand o|o $chan]} {  return  } if {$clone_exemptops>1 && [matchattr $hand v|v $chan]} {  return  } if {[llength $::clone_exemptmask]} {   foreach mask $::clone_exemptmask {     if {[string match -nocase $mask $nick!$uhost]} {  return  }   } } set host [lindex [split $uhost @] 1]  set clonelist "" foreach user [chanlist $chan] {    if {[string equal -nocase [lindex [split [getchanhost $user $chan] @] 1] $host]} {      if {$clone_exemptops>0 && [isop $user $chan]} {  return  }     if {$clone_exemptops>1 && [isvoice $user $chan]} {  return  }     lappend clonelist $user    } }  if {[set count [llength $clonelist]] >= $clone_max} {    set max 6    putquick "MODE $chan +b *!*@$host"    while {$count > 0} {   ;# Thanks caesar #     if {$count > $max} {        set users [join [lrange $clonelist 0 [expr {$max - 1}]] ","]        set clonelist [lrange $clonelist $max end]        incr count -$max      } else {        set users [join $clonelist ","]        set count 0      }      putquick "KICK $chan $users :$clone_msg"    }    utimer $::clone_bantime [list putserv "MODE $chan -b *!*@$host"]  } } bind join - * join_clone

Statistics: Posted by SpiKe^^ — Tue Jan 16, 2018 2:26 pm

Help with Clones.. Tcl

2018-01-15T23:48:22-04:00

caesar:

I didn't write the script, and just fixed the one issue F|irT asked to have fixed...

There is nothing wrong with this tcl .. need ban time option bot auto remove the ban the timer i set ..

All are valid fixes for this script though.

Statistics: Posted by SpiKe^^ — Mon Jan 15, 2018 11:48 pm

More to come.. ?

2018-01-15T22:32:17-04:00

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 2  # Set the next line as the channels you want to run in  set clone_chans "#SuKooN"  # Set ban time (in seconds)  set clone_bantime 120  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"     }     utimer $::clone_bantime [list putserv "MODE $chan -b *!*@$host"]    }   }  }  bind join - * join_clone

i did not try caesar yet ... will try that soon ..

working fine the timer is on .. no issue .. but there is a problem i saw like to share .. it's baning cloud ip .. as well as ops match the clones cloud .. here are some result fot u ..

[07:07] * Joins: Jutt (uid187859@ealing.irccloud.com)
[07:07] * ChanServ sets mode: +o Jutt
[07:07] * MaSt3r sets mode: +b *!*@ealing.irccloud.com
[07:07] * Charsi-Larka was kicked by MaSt3r (Clones Are Not Allowed 120 Sec Ban ...!!!)
[07:07] * Jutt was kicked by MaSt3r (Clones Are Not Allowed 120 Sec Ban ...!!!)

if it is possibel to make some some ip protect option . or to protect not to kick ops/voice user .. it will be fair enuff for me ..

Thanks .. hoping for the reply soon ..

F|irT

Statistics: Posted by F|irT — Mon Jan 15, 2018 10:32 pm

Help with Clones.. Tcl

2018-01-15T02:07:36-04:00

Questions:

1. Why do you use -exact and turn the two string into lower case and not go with -nocase directly that basically dose the same thing?

2. ($nick != $botnick) really? Who are you and what have you done to SpiKe?

3. Why didn't check if bot is channel operator (botisop) before doing any checks and punishments?

I would change this section:

Code:

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

with:

Code:

foreach user [chanlist $chan] {if {[string equal -nocase [lindex [split [getchanhost $user $chan] @] 1] $host]} {lappend kickList $user}}if {[info exists kickList]} { set max 6set count [llength $kickList]if {$count >= $clone_max} {putquick "MODE $chan +b *!*@$host"while {$count > 0} {if {$count > $max} {set users [join [lrange $kickList 0 [expr {$max - 1}]] ","]set kickList [lrange $kickList $max end]incr count -$max} else {set users [join $kickList ","]set count 0}putquick "KICK $chan $users $clone_msg"}}}}

that will try to kick up to $max per line.

For example with the code as is right now if you have 3 people that needs to be kicked then the bot will send 3 kick lines to the server. But, with the change I mentioned above the bot will kick all 3 with just a single line sent to the server (in theory should be faster).

Statistics: Posted by caesar — Mon Jan 15, 2018 2:07 am

Help with Clones.. Tcl

2018-01-14T13:59:51-04:00

This seems like the easiest way to expire those bans.

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 2  # Set the next line as the channels you want to run in  set clone_chans "#SuKooN"  # Set ban time (in seconds) set clone_bantime 120 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"     }     utimer $::clone_bantime [list putserv "MODE $chan -b *!*@$host"]   }   }  }  bind join - * join_clone

Statistics: Posted by SpiKe^^ — Sun Jan 14, 2018 1:59 pm

Help with Clones.. Tcl

2018-01-14T09:14:32-04:00

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 2 # Set the next line as the channels you want to run in set clone_chans "#SuKooN" 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

------------------------------------------------------------------------------------
There is nothing wrong with this tcl .. need ban time option bot auto remove the ban the timer i set ..

If any one can help me for it . thanks to them ..

F|irT

Statistics: Posted by F|irT — Sun Jan 14, 2018 9:14 am