egghelp/eggheads community

help in caps kicker tcl for arfer

2021-01-10T21:24:07-04:00

add this path but it doesn't work for me to skip : ; [ ]

Code:

regsub -- {-[0-9A-Z].} $text {:;[ ]} text

Statistics: Posted by Arnold_X-P — Sun Jan 10, 2021 9:24 pm

help in caps kicker tcl for arfer

2021-01-10T20:10:15-04:00

it can be omitted in uppercase nicknames, for example the use of [] or: is omitted;
example if there is an uppercase nickname called GENICOZZ
And the users name it in the channel like this GENICOZZ: or also GENICOZZ;
and the bot omit that semicolons and also omit when it is put between characters like [the-nickname]
example [GENICOZZ]
it is possible to create that variant so that it skips ; : and also [ ]

Statistics: Posted by Arnold_X-P — Sun Jan 10, 2021 8:10 pm

help in caps kicker tcl for arfer

2020-12-06T18:06:04-04:00

thanks SpiKe^^ and caesar

Statistics: Posted by Arnold_X-P — Sun Dec 06, 2020 6:06 pm

help in caps kicker tcl for arfer

2020-12-06T11:02:32-04:00

The variable "diff" is neither set nor called in the code you posted above.

Statistics: Posted by SpiKe^^ — Sun Dec 06, 2020 11:02 am

help in caps kicker tcl for arfer

2020-12-06T00:26:26-04:00

if i delete these two routes

Code:

if {[botisop $chan]} { if {![matchattr [nick2hand $nick] $vCapsFlagsAllow $chan]} {

and I replace them with

Code:

if {[matchattr $hand $vCapsFlagsAllow $chan] || [isop $nick $chan] || [ishalfop $nick $chan]} {

I get the error again

[04:02:41] Tcl error [pCapsDetect]: can't read "diff": no such variable

Code:

# caps.tcl# set bot user flags to ignore textset vCapsFlagsAllow fo# set text length (excluding spaces) to allow without checkingset vCapsLengthAllow 4# set maximum percentage caps allowed (calculation excludes spaces in text)# greater than 0, less than or equal to 100set vCapsPercentAllow 40# set number of warnings before punishing# integer value equal to or greater than 1set vCapsWarnings 3# set here the mode of punishment# 1 == kick only (after warnings)# 2 == kickban (after warnings)set vCapsPunishMode 1# time in minutes within which a warning remains valid# even after the user is punished, passed offences remain valid for this time period# hence a user could be punished twice for two consecutive offencesset vCapsSinTime 20# if punishment mode 2, set here the time in minutes the ban lastsset vCapsBanTime 10# Set this to 1 to ignore nicks in linesset vIgnoreNick 1bind PUBM - * pCapsDetectproc pCapsDetect {nick uhost hand chan text} {    global vCapsBanTime vCapsFlagsAllow vCapsLengthAllow vCapsPercentAllow    global vCapsPunishMode vCapsSinBin vCapsSinTime vCapsWarnings if {[matchattr $hand $vCapsFlagsAllow $chan] || [isop $nick $chan] || [ishalfop $nick $chan]} {         if {$::vIgnoreNick == 1} {            set nicks [chanlist $chan]            set text [join [ldiff [split $text] $nicks]]         }            set caps [regexp -all -- {[A-Z]} $text]            set total [string length [regsub -all -- {[\s]} $text {}]]            if {$total > $vCapsLengthAllow} {                set percent [expr {$caps * 100.0 / $total}]                if {$percent > $vCapsPercentAllow} {                    set now [unixtime]                    set max [expr {$now - ($vCapsSinTime * 60)}]                    lappend vCapsSinBin(${nick},$chan) $now                    foreach sin $vCapsSinBin(${nick},$chan) {                        if {$sin >= $max} {lappend newlist $sin}                    }                    set vCapsSinBin(${nick},$chan) $newlist                    if {[llength $vCapsSinBin(${nick},$chan)] > $vCapsWarnings} {                        switch -- $vCapsPunishMode {                            1 {}                            2 {                                pushmode $chan +b ${nick}!$uhost                                flushmode $chan                                timer $vCapsBanTime [list pushmode $chan -b ${nick}!$uhost]                            }                            default {return 0}                        }                        putkick $chan $nick "excess caps, you were warned"                    } else {                        set output "*** [llength $vCapsSinBin(${nick},$chan)] WARNING(S) *** within the last $vCapsSinTime minutes for excess caps"                        putserv "PRIVMSG $chan :$nick $output"                    }                }            }        }    }    return 0}proc ldiff {list1 list2 {option -exact}} {   if {$option ne "-nocase"} { set option -exact }   return [lmap x $list1 {expr {[lsearch $option $list2 $x] < 0 ? $x : [continue]}}]}proc lintersect {list1 list2 {option -exact}} {   if {$option ne "-nocase"} { set option -exact }   return [lmap x $list1 {expr {[lsearch $option $list2 $x] >= 0 ? $x : [continue]}}]}putlog "Caps.tcl by arfer is loaded"

Statistics: Posted by Arnold_X-P — Sun Dec 06, 2020 12:26 am

help in caps kicker tcl for arfer

2020-11-09T01:49:37-04:00

Sure, that's what I said.

Statistics: Posted by caesar — Mon Nov 09, 2020 1:49 am

help in caps kicker tcl for arfer

2020-11-08T20:39:56-04:00

would this be correct?

Code:

if {[matchattr $hand $vCapsFlagsAllow $chan] || [isop $nick $chan] || [ishalfop $nick $chan]} {

Statistics: Posted by Arnold_X-P — Sun Nov 08, 2020 8:39 pm

help in caps kicker tcl for arfer

2020-11-08T04:57:58-04:00

In:

Code:

if {![matchattr [nick2hand $nick] $vCapsFlagsAllow $chan]} {

you don't need nick2hand $nick since you already have the hand (user account) from the proc itself.

Statistics: Posted by caesar — Sun Nov 08, 2020 4:57 am

help in caps kicker tcl for arfer

2020-11-07T07:51:20-04:00

Code:

# caps.tcl# set bot user flags to ignore textset vCapsFlagsAllow fo# set text length (excluding spaces) to allow without checkingset vCapsLengthAllow 4# set maximum percentage caps allowed (calculation excludes spaces in text)# greater than 0, less than or equal to 100set vCapsPercentAllow 40# set number of warnings before punishing# integer value equal to or greater than 1set vCapsWarnings 3# set here the mode of punishment# 1 == kick only (after warnings)# 2 == kickban (after warnings)set vCapsPunishMode 1# time in minutes within which a warning remains valid# even after the user is punished, passed offences remain valid for this time period# hence a user could be punished twice for two consecutive offencesset vCapsSinTime 20# if punishment mode 2, set here the time in minutes the ban lastsset vCapsBanTime 10# Set this to 1 to ignore nicks in linesset vIgnoreNick 1bind PUBM - * pCapsDetectproc pCapsDetect {nick uhost hand chan text} {    global vCapsBanTime vCapsFlagsAllow vCapsLengthAllow vCapsPercentAllow    global vCapsPunishMode vCapsSinBin vCapsSinTime vCapsWarnings    if {[botisop $chan]} {        if {![matchattr [nick2hand $nick] $vCapsFlagsAllow $chan]} {         if {$::vIgnoreNick == 1} {            set nicks [chanlist $chan]            set text [join [ldiff [split $text] $nicks]]         }            set caps [regexp -all -- {[A-Z]} $text]            set total [string length [regsub -all -- {[\s]} $text {}]]            if {$total > $vCapsLengthAllow} {                set percent [expr {$caps * 100.0 / $total}]                if {$percent > $vCapsPercentAllow} {                    set now [unixtime]                    set max [expr {$now - ($vCapsSinTime * 60)}]                    lappend vCapsSinBin(${nick},$chan) $now                    foreach sin $vCapsSinBin(${nick},$chan) {                        if {$sin >= $max} {lappend newlist $sin}                    }                    set vCapsSinBin(${nick},$chan) $newlist                    if {[llength $vCapsSinBin(${nick},$chan)] > $vCapsWarnings} {                        switch -- $vCapsPunishMode {                            1 {}                            2 {                                pushmode $chan +b ${nick}!$uhost                                flushmode $chan                                timer $vCapsBanTime [list pushmode $chan -b ${nick}!$uhost]                            }                            default {return 0}                        }                        putkick $chan $nick "excess caps, you were warned"                    } else {                        set output "*** [llength $vCapsSinBin(${nick},$chan)] WARNING(S) *** within the last $vCapsSinTime minutes for excess caps"                        putserv "PRIVMSG $chan :$nick $output"                    }                }            }        }    }    return 0}proc ldiff {list1 list2 {option -exact}} {   if {$option ne "-nocase"} { set option -exact }   return [lmap x $list1 {expr {[lsearch $option $list2 $x] < 0 ? $x : [continue]}}]}proc lintersect {list1 list2 {option -exact}} {   if {$option ne "-nocase"} { set option -exact }   return [lmap x $list1 {expr {[lsearch $option $list2 $x] >= 0 ? $x : [continue]}}]}putlog "Caps.tcl by arfer is loaded"

Statistics: Posted by simo — Sat Nov 07, 2020 7:51 am

help in caps kicker tcl for arfer

2020-11-07T00:06:00-04:00

[04:02:41] Tcl error [pCapsDetect]: can't read "diff": no such variable

Statistics: Posted by Arnold_X-P — Sat Nov 07, 2020 12:06 am

help in caps kicker tcl for arfer

2020-10-21T02:49:26-04:00

Thanks to caesar, I'd redone my functions ldiff and lintersect (need tcl8.6):

Code:

proc ldiff {list1 list2 {option -exact}} {   if {$option ne "-nocase"} { set option -exact }   return [lmap x $list1 {expr {[lsearch $option $list2 $x] < 0 ? $x : [continue]}}]}proc lintersect {list1 list2 {option -exact}} {   if {$option ne "-nocase"} { set option -exact }   return [lmap x $list1 {expr {[lsearch $option $list2 $x] >= 0 ? $x : [continue]}}]}

Each proc uses exact search by default, put you can pass -nocase as third argument to have a case insensitive way.

My original posts:
ldiff, lintersect, wiki page

Statistics: Posted by CrazyCat — Wed Oct 21, 2020 2:49 am

help in caps kicker tcl for arfer

2020-10-19T11:02:28-04:00

Well, I didn't know lmap I'll have a look on it.

And as I said before: I intentionnaly choose a case-sensitive mode, otherwise I'd used a different approach with lsearch and not in.

BTW, gonna learn lmap, thanks a lot

Statistics: Posted by CrazyCat — Mon Oct 19, 2020 11:02 am

help in caps kicker tcl for arfer

2020-10-19T10:35:04-04:00

Instead of your ldiff you can use lmap and lsearch and can make it case insensitive if you want:

Code:

set diff [lmap x $list1{expr {[lsearch -nocase $list2 $x] < 0 ? $x : [continue]}}]

Statistics: Posted by caesar — Mon Oct 19, 2020 10:35 am

help in caps kicker tcl for arfer

2020-10-19T06:06:30-04:00

You can try this:

Code:

# caps.tcl# set bot user flags to ignore textset vCapsFlagsAllow fo# set text length (excluding spaces) to allow without checkingset vCapsLengthAllow 4# set maximum percentage caps allowed (calculation excludes spaces in text)# greater than 0, less than or equal to 100set vCapsPercentAllow 40# set number of warnings before punishing# integer value equal to or greater than 1set vCapsWarnings 3# set here the mode of punishment# 1 == kick only (after warnings)# 2 == kickban (after warnings)set vCapsPunishMode 1# time in minutes within which a warning remains valid# even after the user is punished, passed offences remain valid for this time period# hence a user could be punished twice for two consecutive offencesset vCapsSinTime 20# if punishment mode 2, set here the time in minutes the ban lastsset vCapsBanTime 10# Set this to 1 to ignore nicks in linesset vIgnoreNick 1bind PUBM - * pCapsDetectproc pCapsDetect {nick uhost hand chan text} {    global vCapsBanTime vCapsFlagsAllow vCapsLengthAllow vCapsPercentAllow    global vCapsPunishMode vCapsSinBin vCapsSinTime vCapsWarnings    if {[botisop $chan]} {        if {![matchattr [nick2hand $nick] $vCapsFlagsAllow $chan]} {if {$::vIgnoreNick == 1} {set nicks [chanlist $chan]set text [join [ldiff [split $text] $nicks]]}            set caps [regexp -all -- {[A-Z]} $text]            set total [string length [regsub -all -- {[\s]} $text {}]]            if {$total > $vCapsLengthAllow} {                set percent [expr {$caps * 100.0 / $total}]                if {$percent > $vCapsPercentAllow} {                    set now [unixtime]                    set max [expr {$now - ($vCapsSinTime * 60)}]                    lappend vCapsSinBin(${nick},$chan) $now                    foreach sin $vCapsSinBin(${nick},$chan) {                        if {$sin >= $max} {lappend newlist $sin}                    }                    set vCapsSinBin(${nick},$chan) $newlist                    if {[llength $vCapsSinBin(${nick},$chan)] > $vCapsWarnings} {                        switch -- $vCapsPunishMode {                            1 {}                            2 {                                pushmode $chan +b ${nick}!$uhost                                flushmode $chan                                timer $vCapsBanTime [list pushmode $chan -b ${nick}!$uhost]                            }                            default {return 0}                        }                        putkick $chan $nick "excess caps, you were warned"                    } else {                        set output "*** [llength $vCapsSinBin(${nick},$chan)] WARNING(S) *** within the last $vCapsSinTime minutes for excess caps"                        putserv "PRIVMSG $chan :$nick $output"                    }                }            }        }    }    return 0}proc ldiff {list1 list2} {   foreach element $list1 {      if { !($element in $list2) } {         lappend diff $element      }   }   return $diff}# eof

Short explanation: if vIgnoreNick is setted to 1, I remove all nicks (from chanlist) in the text.
The ldiff proc is case sensitive, and I keep it like this for a simple thing:
If CrazyCat is on your channel, we have 3 options:
- user type "crazycat" => no caps, the ratio is better for him
- user type "CrazyCat" => exact match, nick is not in stats
- user type "CRAZYCAT" => he's shouting, ratio will be worst

Statistics: Posted by CrazyCat — Mon Oct 19, 2020 6:06 am

help in caps kicker tcl for arfer

2020-10-18T23:47:22-04:00

Perhaps You could add another line to check for nick and caps in nick to exempt from caps checker

Statistics: Posted by simo — Sun Oct 18, 2020 11:47 pm