egghelp/eggheads community

Detecting identical nicks within time frame

2021-11-30T15:30:49-04:00

That explains it very well thanks SpiKe^^

Statistics: Posted by simo — Tue Nov 30, 2021 3:30 pm

Detecting identical nicks within time frame

2021-11-29T01:39:15-04:00

simo: This script separates out the custom queue part of the clonednicks.tcl
Look this over and see if it helps explain the custom queue any...

Code:

#### pushkick.tcl ver 0.1 by SpiKe^^ (27Nov2021) #########     ???  New Eggdrop Tcl Command  ???     ###### I believe that Eggdrop should have a new tcl command called pushkick.# It should operate much like the existing pushmode command.# Use this pushkick command as you would use pushmode, but for kicks.# pushkick  # pushkick   [reason]# pushkick   [reason]# Description:# Sends out a kick nick or nick,nick,... command# (ex: pushkick #lame goober "go away") through a custom queuing system.# All kicks will be combined into one line as much as possible.proc pushkick {chan nicks {reason ""} } {  # start the custom queue timer if it isn't running #  if {![info exists ::pushkickq($chan)]} {    after 800 [list dopushkicks $chan]  ;# <= set queue timing (in ms) <= #  }  # add the provided nick(s) to the queue variable #  lappend ::pushkickq($chan) $nicks $reason}proc dopushkicks {chan} {  if {![info exists ::pushkickq($chan)]} { return }  if {![botisop $chan]} { unset ::pushkickq($chan) ; return }  set max 4       ;# <= set maximum number of kicks per command <= #  set defreason ""  ;# <= set default kick reason ("" for none) <= #  # prepare a list of nicks to kick and save the last command's reason #  foreach {nicks reason} $::pushkickq($chan) {    foreach {nk} [split $nicks ","] {      lappend knicks $nk    }  }  if {$reason eq ""} { set reason $defreason }  # chunk up the queued nicks as much as possible...#  while {[set len [llength $knicks]] > 0} {    if {$len > $max} {      set nicks [join [lrange $knicks 0 [expr {$max - 1}]] ","]      set knicks [lrange $knicks $max end]    } else {      set nicks [join $knicks ","]      set knicks ""    }    # ...and send each chunk of nicks to the server #    if {$reason eq ""} { putquick "KICK $chan $nicks"    } else { putquick "KICK $chan $nicks :$reason" }  }  # delete the custom queue variable #  unset ::pushkickq($chan)}

Statistics: Posted by SpiKe^^ — Mon Nov 29, 2021 1:39 am

Detecting identical nicks within time frame

2021-11-26T16:26:36-04:00

i studied the code and couldnt really figure what u used spike^^
i seen u used time but couldnt figure why and how and what u checked with it
would you care to elaborate on the various functions in the code spike^^

thanks

Statistics: Posted by simo — Fri Nov 26, 2021 4:26 pm

Detecting identical nicks within time frame

2021-11-26T05:50:30-04:00

I would like to thank CrazyCat as well much appreciated

Statistics: Posted by simo — Fri Nov 26, 2021 5:50 am

Detecting identical nicks within time frame

2021-11-25T15:38:02-04:00

excellent loaded your latest posted code and it works flawlessly
thanks SpiKe^^ much apreciated

Statistics: Posted by simo — Thu Nov 25, 2021 3:38 pm

clonednicks.tcl ver 0.2 by SpiKe^^

2021-11-25T15:04:17-04:00

Updeted script with mode +R lock and partial nick ban?

Code:

#### clonednicks.tcl ver 0.2 by SpiKe^^ (25Nov2021) ####bind join - * join:clonednicksproc join:clonednicks {nick uhost hand chan} {  global cnicks cnickq  if {[isbotnick $nick] || ([string length $nick] < 6)} { return 0 }  if {[matchattr $hand f|f $chan]} { return 0 }  set chan [string tolower $chan]  set key [string tolower [string range $nick 0 4]]  set now [clock milliseconds]  if {[info exists cnicks(${key},$chan)]} {    ## just expire any old entries ##    set old [expr {$now - (3 * 1000)}]    set newls [list]    foreach joined $cnicks(${key},$chan) {      if {[lindex [split $joined ","] 1] > $old} { lappend newls $joined }    }    if {![llength $newls]} {  unset cnicks(${key},$chan)    } else {  set cnicks(${key},$chan) $newls  }  }  if {![info exists cnicks(${key},$chan)]} {    set cnicks(${key},$chan) [list "0,${now},${nick}!$uhost"]    return 0  }  if {![info exists cnickq($chan)]} {    after 1000 [list dobans:clonednicks $chan]    dobans:lockchan $chan $key  }  if {[string match "0,*" [set first [lindex $cnicks(${key},$chan) 0]]]} {    set cnicks(${key},$chan) [list "1,[string range $first 2 end]"]    lappend cnickq($chan) [lindex [split $first ","] 2]  }  lappend cnicks(${key},$chan) "1,${now},${nick}!$uhost"  lappend cnickq($chan) "${nick}!$uhost"  return 0}proc dobans:clonednicks {chan} {  global cnickq  if {![info exists cnickq($chan)]} { return 0 }  if {![llength $cnickq($chan)] || ![botisop $chan]} {    unset cnickq($chan)  ;  return 0  }  set bmasks [list]  ;  set knicks [list]  foreach nkuhost $cnickq($chan) {    lassign [split $nkuhost "!@"] n u h    lappend knicks $n    lappend bmasks *!*@$h  }  set max 10  while {[set len [llength $bmasks]] > 0} {    if {$len > $max} {      set mode [string repeat "b" $max]      set masks [join [lrange $bmasks 0 [expr {$max - 1}]]]      set bmasks [lrange $bmasks $max end]    } else {      set mode [string repeat "b" $len]      set masks [join $bmasks]      set bmasks ""    }    putquick "MODE $chan +$mode $masks"  }  set max 4  while {[set len [llength $knicks]] > 0} {    if {$len > $max} {      set nicks [join [lrange $knicks 0 [expr {$max - 1}]] ","]      set knicks [lrange $knicks $max end]    } else {      set nicks [join $knicks ","]      set knicks ""    }    putserv "KICK $chan $nicks :!!! Indentical nicks !!!"  }  unset cnickq($chan)  ;  return 0}bind cron - {*/10 * * * *} cleanup:clonednicksproc cleanup:clonednicks {mn hr da mo wd} {  global cnicks  set old [expr {[clock milliseconds] - (3 * 1000)}]  foreach {key val} [array get cnicks] {    set newls [list]    foreach joined $val {      if {[lindex [split $joined ","] 1] > $old} { lappend newls $joined }    }    if {![llength $newls]} {  unset cnicks($key)    } else {  set cnicks($key) $newls  }  }}proc dobans:lockchan {chan key} {  global cnick_flooded  if {![info exists cnick_flooded($chan)]} {    set cnick_flooded($chan) 1    putquick "MODE $chan +Rb ${key}*!*@*"    utimer 10 [list putquick "MODE $chan -R"]    utimer 10 [list unset -nocomplain ::cnick_flooded($chan)]  }}putlog "clonednicks.tcl ver 0.2 by SpiKe^^ Loaded."

Statistics: Posted by SpiKe^^ — Thu Nov 25, 2021 3:04 pm

Detecting identical nicks within time frame

2021-11-25T12:52:03-04:00

Code:

#### clonednicks.tcl ver 0.1 by SpiKe^^ (24Nov2021) ####bind join - * join:clonednicksproc join:clonednicks {nick uhost hand chan} {global cnicks cnickqif {[isbotnick $nick] || ([string length $nick] < 6)} { return 0 }if {[matchattr $hand f|f $chan]} { return 0 }set chan [string tolower $chan]set key [string tolower [string range $nick 0 4]]set now [clock milliseconds]if {[info exists cnicks(${key},$chan)]} {## just expire any old entries ##set old [expr {$now - (3 * 1000)}]set newls [list]foreach joined $cnicks(${key},$chan) {if {[lindex [split $joined ","] 1] > $old} { lappend newls $joined }}if {![llength $newls]} {  unset cnicks(${key},$chan)} else {  set cnicks(${key},$chan) $newls  }}if {![info exists cnicks(${key},$chan)]} {set cnicks(${key},$chan) [list "0,${now},${nick}!$uhost"]return 0}if {![info exists cnickq($chan)]} {lock:chanz $chanafter 500 [list dobans:clonednicks $chan]}if {[string match "0,*" [set first [lindex $cnicks(${key},$chan) 0]]]} {set cnicks(${key},$chan) [list "1,[string range $first 2 end]"]lappend cnickq($chan) [lindex [split $first ","] 2]}lappend cnicks(${key},$chan) "1,${now},${nick}!$uhost"lappend cnickq($chan) "${nick}!$uhost"return 0}proc dobans:clonednicks {chan} {global cnickqif {![info exists cnickq($chan)]} { return 0 }if {![llength $cnickq($chan)] || ![botisop $chan]} {unset cnickq($chan)  ;  return 0}set bmasks [list]  ;  set knicks [list]foreach nkuhost $cnickq($chan) {lassign [split $nkuhost "!@"] n u hlappend knicks $nlappend bmasks *!*@$h}set max 12while {[set len [llength $bmasks]] > 0} {if {$len > $max} {set mode [string repeat "b" $max]set masks [join [lrange $bmasks 0 [expr {$max - 1}]]]set bmasks [lrange $bmasks $max end]} else {set mode [string repeat "b" $len]set masks [join $bmasks]set bmasks ""}putserv "mode $chan +$mode $masks"}set max 20while {[set len [llength $knicks]] > 0} {if {$len > $max} {set nicks [join [lrange $knicks 0 [expr {$max - 1}]] ","]set knicks [lrange $knicks $max end]} else {set nicks [join $knicks ","]set knicks ""}putquick "kick $chan $nicks :!!! Indentical nicks !!!"}unset cnickq($chan)  ;  return 0}bind cron - {* * * * *} cleanup:clonednicksproc cleanup:clonednicks {mn hr da mo wd} {global cnicksset old [expr {[clock milliseconds] - (3 * 1000)}]foreach {key val} [array get cnicks] {set newls [list]foreach joined $val {if {[lindex [split $joined ","] 1] > $old} { lappend newls $joined }}if {![llength $newls]} {  unset cnicks($key)} else {  set cnicks($key) $newls  }}}proc lock:chanz {chan} {global botnick chan_floodedif {![info exists chan_flooded($chan)]} {set chan_flooded($chan) 1putquick "MODE $chan +Rb $::key*!*@*"utimer 5 [list putquick MODE $chan -R]utimer 5 [list unset -nocomplain chan_flooded($chan)]}}putlog "clonednicks.tcl ver 0.1 by SpiKe^^ Loaded."

i tried to utilize

set key [string tolower [string range $nick 0 4]]

not sure i did it proper tho as it doesnt set ban on that as well

Statistics: Posted by simo — Thu Nov 25, 2021 12:52 pm

Detecting identical nicks within time frame

2021-11-25T12:03:36-04:00

i tried adding the part that sets ban on the identical part SpiKe^^ not sure why it failed it sets the +R tho

http://paste.tclhelp.net/?id=6qr1

added it on line 34

oh i forgot i already took it out from this paste

the putquick "MODE $chan +R"

it was

putquick "MODE $chan +Rb $::key*!*@* "

Statistics: Posted by simo — Thu Nov 25, 2021 12:03 pm

Detecting identical nicks within time frame

2021-11-25T11:39:14-04:00

i also took this opportunity to cleanup my config as i had files all over the place files i hardly used and that cleaned the issues i had

thanks SpiKe^^ much apreciated

Statistics: Posted by simo — Thu Nov 25, 2021 11:39 am

Detecting identical nicks within time frame

2021-11-25T11:41:44-04:00

tested again with only the identical tcl loaded as u suggested on IRC and it worked excactly as expected and reacts instant and gets all identical nicks
very nice indeed thanks SpiKe^^ much apreciated

Statistics: Posted by simo — Thu Nov 25, 2021 11:30 am

Detecting identical nicks within time frame

2021-11-25T10:36:44-04:00

According to the above quote the whole deal was done in under 2/10ths of a second...

Show the channel logs when it doesn't.

Statistics: Posted by SpiKe^^ — Thu Nov 25, 2021 10:36 am

Detecting identical nicks within time frame

2021-11-25T10:18:28-04:00

anyway to have it react instant non opered as well ?

Statistics: Posted by simo — Thu Nov 25, 2021 10:18 am

Detecting identical nicks within time frame

2021-11-25T10:21:13-04:00

if its opered it works as expected but for using as non opered it would take 10 seconds and longer for it to react tho and it somewhat freezes and is non responsive

15:13:15 Join: clonedyuuppqaqv [ident: Mibbit] *!*@Cloacked-so0.bww.957.408.IP
15:13:15 Join: clonedzt [ident: Mibbit] *!*@Cloacked-yt3.urd.878.658.IP
15:13:15 Join: clonedgx [ident: Mibbit] *!*@Cloacked-721.395.971.995.IP
15:13:15 Join: clonedop [ident: Mibbit] *!*@Cloacked-7au.fcq.288.663.IP
15:13:15 Join: clonedyy [ident: Mibbit] *!*@Cloacked-j4e.jve.633.765.IP
15:13:15 Join: clonedjxltq [ident: Mibbit] *!*@Cloacked-2ep.625.174.499.IP
15:13:15 Join: clonedminfhm [ident: Mibbit] *!*@Cloacked-959.t5y.346.423.IP
15:13:15 Join: clonedeuqlei [ident: Mibbit] *!*@Cloacked-rm0.kyf.428.744.IP
15:13:15 Join: clonedrqyoiliw [ident: Mibbit] *!*@Cloacked-5zp.n83.075.093.IP

15:13:33 @Hawk Sets Mode on #test to: +bbbbbbbbb *!*@Cloacked-so0.bww.957.408.IP *!*@Cloacked-yt3.urd.878.658.IP *!*@Cloacked-721.395.971.995.IP *!*@Cloacked-7au.fcq.288.663.IP *!*@Cloacked-j4e.jve.633.765.IP *!*@Cloacked-2ep.625.174.499.IP *!*@Cloacked-959.t5y.346.423.IP *!*@Cloacked-rm0.kyf.428.744.IP *!*@Cloacked-5zp.n83.075.093.IP

15:13:33 clonedyuuppqaqv Kicked from #test By @Hawk ( !!! Indentical nicks !!! )
15:13:33 clonedzt Kicked from #test By @Hawk ( !!! Indentical nicks !!! )
15:13:34 clonedgx Kicked from #test By @Hawk ( !!! Indentical nicks !!! )
15:13:34 clonedop Kicked from #test By @Hawk ( !!! Indentical nicks !!! )
15:13:34 clonedyy Kicked from #test By @Hawk ( !!! Indentical nicks !!! )
15:13:34 clonedjxltq Kicked from #test By @Hawk ( !!! Indentical nicks !!! )
15:13:34 clonedminfhm Kicked from #test By @Hawk ( !!! Indentical nicks !!! )
15:13:34 clonedeuqlei Kicked from #test By @Hawk ( !!! Indentical nicks !!! )
15:13:34 clonedrqyoiliw Kicked from #test By @Hawk ( !!! Indentical nicks !!! )

Statistics: Posted by simo — Thu Nov 25, 2021 10:10 am

Detecting identical nicks within time frame

2021-11-25T09:40:53-04:00

OK, sounds like that code is fine.
Thanks

Statistics: Posted by SpiKe^^ — Thu Nov 25, 2021 9:40 am

Detecting identical nicks within time frame

2021-11-25T02:46:59-04:00

Thanks for not bothering to tell me about the variable name issue.

What's the difference between if opered and not?
Are you changing the putquck to putnow?
Explain what you are doing to make it speed up and slow down.
That wouldn't be anything the script could change there?
Try speeding up the queue after or maybe even slowing it some (it is one second now = 1000ms)

Oh yea sorry was doing some testing was gonna tell ya about the var
No i kept it as is except i opered it altho it shouldn't make a difference just like your anti mass join tcl is decently fast opered and non opered

Statistics: Posted by simo — Thu Nov 25, 2021 2:46 am