egghelp/eggheads community

text character counter issue with nick like [somenick]

2022-03-05T21:12:44-04:00

thanks spike^ ive tested it and so far seems to work as expected i will minitor it some more in an active channel and get back to ya hopefully

thanks again.

Statistics: Posted by simo — Sat Mar 05, 2022 9:12 pm

Try this.

2022-03-05T18:25:58-04:00

Try this code,
.restart the bot to clear global vars

Code:

set bflood(maxlength) 200set bflood(unsettime) 4bind pubm - * pubm:bytefloodproc pubm:byteflood {nick host hand chan text} {global bfloodif {[string match -nocase #help $chan]} { return 0 }set chan [string tolower $chan]set text [string map [list \017 ""] [stripcodes abcgru $text]]set length [string length [regsub -all {\ } $text ""]]if {[info exists bflood($chan:$nick)]} {  incr length $bflood($chan:$nick)  }if {($length >= $bflood(maxlength))} {set bmask [maskhost "$nick!$host" 2]after [expr {5*1000*1}] [list pushmode2 $chan -b m:$bmask]pushmode $chan +b m:$bmaskputnow "NOTICE $nick Mass Text Detected"unset -nocomplain bflood($chan:$nick)return 0}if {![info exists bflood($chan:$nick)]} {utimer $bflood(unsettime) [list unset -nocomplain bflood($chan:$nick)]}set bflood($chan:$nick) $lengthreturn 0}

Statistics: Posted by SpiKe^^ — Sat Mar 05, 2022 6:25 pm

text character counter issue with nick like [somenick]

2022-03-05T09:35:32-04:00

im struggling to find a solution for this small tcl counting text characters
till reaching threshold for some reason if nick is like [somenick] it reaches threshold with few characters not even reached the set bflood(maxlength) 200 threshold

im not sure how to fix this issue

Code:

set bflood(maxlength) 200set bflood(unsettime) 4bind pubm - * pubm:bytefloodproc pubm:byteflood {nick host hand chan text} {global bfloodif {[string match -nocase #help $chan]} { return 0 }set chan [string tolower $chan]set text [string map [list \017 ""] [stripcodes abcgru $text]]set text [split $text]set length [string length [regsub -all {\ } $text ""]]if {[info exists bflood($chan:$nick)]} {  incr length $bflood($chan:$nick)  }if {($length >= $bflood(maxlength))} {set bmask [maskhost "$nick!$host" 2]after [expr {5*1000*1}] [list pushmode2 $chan -b m:$bmask]pushmode $chan +b m:$bmaskputnow "NOTICE $nick Mass Text Detected"array unset bflood $chan:$nickreturn 0}if {![info exists bflood($chan:$nick)]} {utimer $bflood(unsettime) [list array unset bflood $chan:$nick]}set bflood($chan:$nick) $lengthreturn 0}

Statistics: Posted by simo — Sat Mar 05, 2022 9:35 am