egghelp/eggheads community

Warn Action

2021-03-13T01:43:25-04:00

Just thought i'd make the script "fancier"

Code:

############################################################################ xAction.tcl ################################################ Author    ComputerTech, caesar, Spike^^# Version   0.1 (BETA)# Released  12/03/2021# GitHub    https://github.com/computertech312################################################ Description:##               Action punishment script.##               Use .chanset #channel +xaction   to enable per channel## History:##               - 0.1: First release. ############################################################################# Start of configuration ############################################ Flags for usage and protection.####set warn(flag) "ofmn"################# Punishment's##### w  = warning# k  = kick# b  = ban# kb = kickban####set warn(max) "w:w:k:kb"################# X time before timer warning total is reduced by one (in seconds).####set warn(time) "120"################# Warning Message.####set warn(wreason) "Warning! Avoid using /me please"################# Kick Reason.####set warn(kreason) "Usage of /me"################# Ban Time.##### m  = minutes# h  = hours# d  = days####set warn(btime) "60m"################# Ban hostmask Type.##### 0 *!user@host# 1 *!*user@host# 2 *!*@host# 3 *!*user@*.host# 4 *!*@*.host# 5 nick!user@host# 6 nick!*user@host# 7 nick!*@host# 8 nick!*user@*.host# 9 nick!*@*.host####set warn(btype) "2"###########################  End of configuration  ############################################################################bind CTCP - ACTION action:avoidsetudef flag xactionproc action:avoid {nick host hand chan key text} {   global warnif {![channel get $chan xaction]} {return 0}  if {[isbotnick $nick] || ![botisop $chan]} {return 0}    if {[matchattr $hand $warn(flag) $chan]} {return 0}       if {[isop $nick $chan]} {return 0}     incr warn($host) +1     set warn(host) [maskhost $nick![getchanhost $nick $chan] $warn(btype)]            if {![info exists output1]} {        switch -- [string tolower $warn(btime)] {            d {set output1 [expr {$warn(btime) * 1440}]}            h {set output1 [expr {$warn(btime) * 60}]}            m {set output1 $warn(btime)}         }      }      if {![info exists end5]} {      set end5 [lindex [split $warn(max) :] end]      }   switch -- [lindex $warn(max) [incr warn($host) 1]] {    "w" {putkick $chan $nick $warn(wreason)             set blah($host) "w"}    "k" {putkick $chan $nick $warn(kreason)             set blah($host) "k"}    "b" {newchanban "$chan" "$warn(host)" "$::botnick" "$warn(kreason)" $output1              set blah($host) "b"}    "kb" {newchanban "$chan" "$warn(host)" "$::botnick" "$warn(kreason)" $output1           putkick $chan $nick $warn(kreason)              set blah($host) "kb"}   }    if {[string match $blah($host) $end5]} {    unset warn($host) ; unset blah($host)    }      utimer $warn(time) [list action:reset $host]}proc action:reset {host} {   global warn    if {[array names warn] != {}} {      if {[lsearch -nocase [array names warn] $host] > -1} {         if {$warn($host) > 1} {            incr warn($host) -1         } else {            unset warn($host)         }      }   }}###########################################################################

As version suggests, its in (BETA) and i haven't had time yet to test it personally

Anyway, any tests is appreciated or even suggestions gor that matter, although my above post's code also works, but this will hopefully be more easier to set punishments

Statistics: Posted by ComputerTech — Sat Mar 13, 2021 1:43 am

Warn Action

2021-03-12T16:04:47-04:00

This works great on my eggdrop.

Code:

# Set max warnings before Punishmentset warn(max) "4"# Set X time before timer undo's warning amount (in seconds)set warn(time) "120"# Set Kick Reasonset warn(reason) "Hey No Action Please!"bind CTCP - ACTION action:avoidproc action:avoid {nick host hand chan key text} {   global warn  if {[isbotnick $nick] || [isbotnick $chan]} { return 0 }  if {[matchattr $hand "ofmn|ofmm" $chan]} { return 0 }  if {[isop $nick $chan]} { return 0 }   incr warn($host) +1   if {$warn($host) > $warn(max)} {    putquick "MODE $chan +b *!$host"    putquick "KICK $chan $nick $warn(reason)"      unset warn($host)   } else {      putserv "PRIVMSG $chan :Warning $warn($host)"      utimer $warn(time) [list action:reset $host]   }}proc action:reset {host} {   global warn   if {[array names warn] != {}} {      if {[lsearch -nocase [array names warn] $host] > -1} {         if {$warn($host) > 1} {            incr warn($host) -1         } else {            unset warn($host)         }      }   }}

I just made a change for the warning message, because it only reported Warning 1, 2, 3, etc

Code:

# Set max warnings before Punishmentset warn(max) "3"# Set X time before timer undo's warning amount (in seconds)set warn(time) "22"# Set Warn Messageset warn(reason2) "Please No Action "# Set Kick Reasonset warn(reason) "NO Action /me! Do you understand?"bind CTCP - ACTION action:avoidproc action:avoid {nick host hand chan key text} {   global warn  if {[isbotnick $nick] || [isbotnick $chan]} { return 0 }  if {[matchattr $hand "ofmn|ofmm" $chan]} { return 0 }  if {[isop $nick $chan]} { return 0 }   incr warn($host) +1   if {$warn($host) > $warn(max)} {    putquick "MODE $chan +b *!$host"    putquick "KICK $chan $nick $warn(reason)"      unset warn($host)   } else {      putserv "PRIVMSG $chan :$warn(reason2) $warn($host)  Warning"      utimer $warn(time) [list action:reset $host]   }}proc action:reset {host} {   global warn   if {[array names warn] != {}} {      if {[lsearch -nocase [array names warn] $host] > -1} {         if {$warn($host) > 1} {            incr warn($host) -1         } else {            unset warn($host)         }      }   }}

Statistics: Posted by MrBeta — Fri Mar 12, 2021 4:04 pm

Warn Action

2021-03-12T10:29:23-04:00

MrBeta,

Which version of the script have you tested to be working please?

Statistics: Posted by SpiKe^^ — Fri Mar 12, 2021 10:29 am

pros and cons of many utimers

2021-03-12T10:22:52-04:00

The biggest difference between the 2 scan methods is that the one I prefer sets a single utimer for each host, and the other method sets a utimer for each action, could be 3 or 4 running utimers per host.

I call the single timer method fuzzy scanning, and the many timer method explicit scanning. In actual usage on actual abusers few will notice any differences ever, with far fewer running timers.

Every coding method has pros and cons, tradeoffs that can be weighed and decided on. For this warning script, scanning for things that do not threaten the channel in any way, I chose the low resource fuzzy method. I stand by my decision there. Users should make their own choices between the two methods...

Statistics: Posted by SpiKe^^ — Fri Mar 12, 2021 10:22 am

Warn Action

2021-03-12T05:18:49-04:00

With this code in mind

Code:

if {[info exists warn($host)]} {  unset warn($host)  }

consider the following scenario:

user dose a /me and triggers the action:avoid function. user is given 1 warning and has his warn(host) set to 1.

in a short time frame, before the utimer (with whatever value you got set at warn(time)) kicks in, the same user dose a second /me and triggers the action:avoid function gets his warning, his warn(host) goes to 2 and a second delayed utimer will reset his points.

the first utimer kicks in and instead of lowering the warning from 2 to 1 will remove the host completely, thus making the "warn before ban" not work as intended, meaning will only issue an initial "warning" without the punishment IF the user doesn't do 3x (or whatever you set at warn(max)) /me in a short time frame.

tldr: stick with the version ComputerTech posted.

Statistics: Posted by caesar — Fri Mar 12, 2021 5:18 am

Warn Action

2021-03-12T04:52:42-04:00

Thanks guys, you are the top everything works perfectly.

Statistics: Posted by MrBeta — Fri Mar 12, 2021 4:52 am

Warn Action

2021-03-11T20:32:58-04:00

Code:

# Set max warnings before Punishmentset warn(max) "4"# Set X time before timer undo's warning amount (in seconds)set warn(time) "120"# Set Kick Reasonset warn(reason) "Hey No Action Please!"bind CTCP - ACTION action:avoidproc action:avoid {nick host hand chan key text} {global warn  if {[isbotnick $nick] || [isbotnick $chan]} { return 0 }  if {[matchattr $hand "ofmn|ofmm" $chan]} { return 0 }  if {[isop $nick $chan]} { return 0 }incr warn($host) +1if {$warn($host) > $warn(max)} {    putquick "MODE $chan +b *!$host"    putquick "KICK $chan $nick $warn(reason)"unset warn($host)} else {putserv "PRIVMSG $chan :Warning $warn($host)"utimer $warn(time) [list action:reset $host]}}proc action:reset {host} {   global warn   if {[array names warn] != {}} {      if {[lsearch -nocase [array names warn] $host] > -1} {         if {$warn($host) > 1} {            incr warn($host) -1         } else {            unset warn($host)         }      }   }}

Tested and working

(Not sure if it's the "best" way to do so, but it works perfectly here)

Statistics: Posted by ComputerTech — Thu Mar 11, 2021 8:32 pm

No Action Dude

2021-03-11T18:49:57-04:00

Try this MrBeta

Code:

# Set max warnings before Punishmentset warn(max) "3"# Set X time before timer undo's warning amount (in seconds)set warn(reset) "120"# Set Kick Reasonset warn(reason) "Hey No Action Please!"######################bind CTCP - ACTION action:avoidproc action:avoid {nick host hand chan key text} {  global warn  if {[isbotnick $nick] || [isbotnick $chan]} { return 0 }  if {[matchattr $hand "ofmn|ofmm" $chan]} { return 0 }  if {[isop $nick $chan]} { return 0 }  if {![info exists warn($host)]} {    set warn($host) 1    utimer $warn(reset) [list action:reset $host]  } else {  incr warn($host)  }  if {$warn($host) > $warn(max)} {    putquick "MODE $chan +b *!$host"    putquick "KICK $chan $nick $warn(reason)"  } else {    putserv "PRIVMSG $chan :Warning $warn($host): No Action Please"  }  return 0}proc action:reset {host} {  global warn  if {[info exists warn($host)]} {  unset warn($host)  }}

Statistics: Posted by SpiKe^^ — Thu Mar 11, 2021 6:49 pm

Warn Action

2021-03-11T10:36:43-04:00

The error message was my fault for importing the unmodified tcl.
However, the continuous Warning 1 message remains for each action sent in the channel, but no ban after 3/4/5 and more repetitions

Statistics: Posted by MrBeta — Thu Mar 11, 2021 10:36 am

Warn Action

2021-03-11T10:21:38-04:00

"doesn't work for me, it still gives me an error" is no help at all.

Post the new error here...

Statistics: Posted by SpiKe^^ — Thu Mar 11, 2021 10:21 am

Warn Action

2021-03-11T09:52:58-04:00

I removed the extra code but it doesn't work for me, it still gives me an error. I await the code cleaned by you to test again, surely I am doing something wrong
The bot give only Warning1 messagge, but don't ban and no give another warn message, only "Warning1"

Statistics: Posted by MrBeta — Thu Mar 11, 2021 9:52 am

Warn Action

2021-03-10T14:14:56-04:00

Haven't tested it myself yet though, but will after work

Statistics: Posted by ComputerTech — Wed Mar 10, 2021 2:14 pm

Remove the extra }

2021-03-10T11:58:15-04:00

Remove the extra }

Code:

if {[isop $nick $chan]} return}

making it look more like this

Code:

if {[isop $nick $chan]} return

Statistics: Posted by SpiKe^^ — Wed Mar 10, 2021 11:58 am

Warn Action

2021-03-10T09:47:45-04:00

It gives me this error, I use egg 1.8.4

can't read "host": no such variable
while executing
"set warn($host) 1"
(file "scripts/noaction.tcl" line 23)

Code:

# Set max warnings before Punishmentset warn(max) "3"# Set X time before timer undo's warning amount (in seconds)set warn(reset) "60"# Set Kick Reasonset warn(reason) "Hey No Action Please!"######################bind CTCP - ACTION action:avoidproc action:avoid {nick host hand chan key text} {global warnif {[isbotnick $nick]} returnif {[matchattr $hand "ofmn|ofmm"]} returnif {[isop $nick $chan]} return}if {[info exists warn]} {   set warn($host) 1} else {if {[info exists warn]} {   set warn($host) 1} else {   incr warn($host) 1}}if {$warn($host) > $warn(max)} {putquick "MODE $chan +b $host"putquick "KICK $chan $nick $warn(reason)"unset warn($host)} else {putserv "PRIVMSG $chan :Warning $warn($host)"utimer $warn(reset) [list action:reset $host]  }}proc action:reset {host} {   global warn   if {[array names warn] != {}} {      if {[lsearch -nocase [array names warn] $host] > -1} {         if {$warn($host) > 1} {            incr warn($host) -1         } else {            unset warn($host)         }      }   }}

Statistics: Posted by MrBeta — Wed Mar 10, 2021 9:47 am

Warn Action

2021-03-10T08:00:56-04:00

What TCL version do you have?

Anyway, replacing:

Code:

incr warn($host) 1

with:

Code:

if {[info exists warn]} {set warn($host) 1} else {incr warn($host) 1}

should take care of the issue.

Next I would also replace this:

Code:

utimer $warn(reset) {incr warn($host) -1 }

with:

Code:

utimer $warn(reset) [list action:reset $host]

and add this nice helper function at the end of the initial code:

Code:

proc action:reset {host} {global warnif {[array names warn] != {}} {if {[lsearch -nocase [array names warn] $host] > -1} {if {$warn($host) > 1} {incr warn($host) -1} else {unset warn($host)}}}}

Oh, and another thing, should consider unset the warn(host) when said host is banned to save on memory. I mean replace:

Code:

set warn($host) "0"

with:

Code:

unset warn($host)

Statistics: Posted by caesar — Wed Mar 10, 2021 8:00 am