egghelp/eggheads community

Re: anti repeatitive characters freezing bot

2023-07-16T18:22:57-04:00

I added something else that was missing.-------------

Code:

bind pubm - * XantiX:repeatchars:textbind ctcp - ACTION repeatcharsctcpproc repeatcharsctcp {nick uhost hand chan keyword arg} {  XantiX:repeatchars:text $nick $uhost $hand $chan $arg}proc XantiX:repeatchars:text {nick uhost hand chan text} { if {[isbotnick $nick] || [isop $nick $chan] || [ishalfop $nick $chan] || [matchattr [nick2hand $nick] "o|o" $chan]} { return 0 }   set text [regsub -all -- {\s{2,}} [stripcodes bcruag [string trim $text]] { }]    set bmask m:[maskhost $nick!$uhost 2] if {[regexp -nocase {(.)\s*(?:\1\s*){20,}} $text] || [regexp -nocase {(..)\s*(?:\1\s*){20,}} $text]} {   if {![ischanban "$bmask" $chan]} { if {[isvoice $nick $chan]} { pushmode $chan -v $nick }  putquick "MODE $chan +b $bmask" putquick "KICK $chan $nick :you have exceeded the character limits allowed."      }   }}

Statistics: Posted by Arnold_X-P — Sun Jul 16, 2023 6:22 pm

Re: anti repeatitive characters freezing bot

2023-07-16T18:13:54-04:00

try this, tweak a few things but it works

Code:

bind pubm - * XantiX:repeatchars:textbind ctcp - ACTION repeatcharsctcpproc repeatcharsctcp {nick uhost hand chan keyword arg} {  XantiX:repeatchars:text $nick $uhost $hand $chan $arg}proc XantiX:repeatchars:text {nick uhost hand chan text} { if {[isbotnick $nick] || [isop $nick $chan] || [ishalfop $nick $chan] || [matchattr [nick2hand $nick] "o|o" $chan]} { return 0 }   set text [regsub -all -- {\s{2,}} [stripcodes bcruag [string trim $text]] { }]    set bmask m:[maskhost $nick!$uhost 2] if {[regexp -nocase {(.)\s*(?:\1\s*){10,}} $text] || [regexp -nocase {(..)\s*(?:\1\s*){20,}} $text]} {   if {![ischanban "$bmask" $chan]} { if {[isvoice $nick $chan]} { pushmode $chan -v $nick }       pushmode $chan +b $bmask      }   }}

Statistics: Posted by Arnold_X-P — Sun Jul 16, 2023 6:13 pm

anti repeatitive characters freezing bot

2023-07-05T09:47:15-04:00

greetz gentz i have a question about this tcl that detects repeated characters exceeding 20 like :

hhhhhhhhhhhhhhhhhhhh

h a h a h h a h a h h a h a h h a h a h

hahahhahahhahahhahah

haahaahaahaahaahaahaahaahaahaahaahaa

and so on

Code:

bind pubm - * XantiX:repeatchars:textproc XantiX:repeatchars:text {nick uhost hand chan text} {         if {[isbotnick $nick] || [isop $nick $chan] || [ishalfop $nick $chan] || [matchattr [nick2hand $nick] "o|o" $chan]} { return 0 }       set text [regsub -all -- {\s{2,}} [string trim [stripcodes * $text]] { }]       set text [string map [list \001ACTION ""] [stripcodes abcgru $text]]       set bmask m:[maskhost $nick!$uhost 2]    if {[regexp -nocase {(.)\s*(?:\1\s*){20,}} $text] || [regexp -nocase {(..)\s*(?:\1\s*){20,}} $text]} {     if {![ischanban "$bmask" $chan]} {     if {[isvoice $nick $chan]} { pushmode $chan -v $nick }       pushmode $chan +b $bmask       }   }}

it seems to freeze the bot not sure why

Statistics: Posted by simo — Wed Jul 05, 2023 9:47 am