egghelp/eggheads community

Amount of Warnings before action option

2021-02-19T15:21:10-04:00

Ok cheers CrazyCat, will do that right away

Statistics: Posted by ComputerTech — Fri Feb 19, 2021 3:21 pm

Amount of Warnings before action option

2021-02-18T18:37:29-04:00

That's the way I would do it.

Just think about two detals:
- set the warn variable global (or use ::warn)
- check if warn($host) exists before increment it (positive or negative)

Statistics: Posted by CrazyCat — Thu Feb 18, 2021 6:37 pm

Amount of Warnings before action option

2021-02-19T15:50:18-04:00

Nevermind

Found a way

Code:

#Badwordsset swearwords {"*[censored]*""*wank*""*pussy*""*[censored]*"}#Time until reset warningsset brd "30"#max warningset maxwarning "5"###########Code############setudef flag ctswearbind pubm - * ctswear:pubproc ctswear:pub {nick host hand chan text} {global swearwords brd maxwarning warnif {[channel get $chan ctswear]} {foreach badword $swearwords { if {[string match -nocase $badword $text]} {incr warn($host) +1if{![info exists warn]} {return}if {![$warn($host) == $maxwarning]} {putserv "NOTICE $nick :Warning! Do not Swear on $chan, cease immediately or else"utimer $brd {incr warn($host) -1 }} else {putserv "kick $nick $chan Kickbanned from $chan : Reason: Use of swear word $badword"set warn($host) "0"    }   }  } }}

If anyone knows of a better way of doing this, do share

EDIT: Fixed

Statistics: Posted by ComputerTech — Thu Feb 18, 2021 6:16 pm

Amount of Warnings before action option

2021-02-18T17:42:21-04:00

So i was wondering how to make it a user can choose how many warnings until kicking

Code:

#Badwordsset swearwords {"*[censored]*""*wank*""*pussy*""*[censored]*"}#Time until reset warningsset brd "30"###########Code############setudef flag ctswearbind pubm - * ctswear:pubbind ctcp - ACTION ctswear:actproc ctswear:pub {nick host hand chan text} {global swearwords brdif {[channel get $chan ctswear]} {foreach badword $swearwords { if {[string match -nocase $badword $text]} {incr warn +1if {$warn($host) == "1"} {putserv "NOTICE $nick :Warning! Do not Swear on $chan, cease immediately or else"utimer $brd {set warn "0"}} elseif {$warn($host) == "2"} {utimer $brd {set warn "1"}putserv "NOTICE $nick :Warning! Do not swear on $chan, cease immediately or else"} elseif {$warn($host) == "3"} { putserv "kick $nick $chan Kickbanned from $chan : Reason: Use of swear word $badword"set warn($host) "0"    }   }  } }}

so like

Code:

set warnings "5"

will allow 5 of

Code:

putserv "NOTICE $nick :Warning! Do not swear on $chan, cease immediately or else"

Before doing

Code:

putserv "kick $nick $chan Kickbanned from $chan : Reason: Use of swear word $badword"

Any ideas and help is much appreciated

Statistics: Posted by ComputerTech — Thu Feb 18, 2021 5:42 pm