Code:
bind notc - * notc:advbind ctcp - ACTION act:advbind part - * part:advbind msgm - * msg:advproc notc:adv {n u h a c} { filter_advertisement $n $u $h $c $a}proc act:adv {n u h c kw a} { filter_advertisement $n $u $h $c $a}proc part:adv {n u h c a} { filter_advertisement $n $u $h $c $a}proc msg:adv {n u h a} { foreach c [channels] { filter_advertisement $n $u $h $c $a }}Statistics: Posted by Sir_Fz — Tue Nov 21, 2006 10:39 am
Statistics: Posted by Sir_Fz — Mon Nov 20, 2006 8:54 pm
Code:
### Set Bad Words that you want the Bot to Kick onset advwords { blqblq blqblq blq blq}### Set Words that you want the Bot to EXEMPT (Dont count as spam)set advexemptwords { "apniisp""#channel"}### Set Your Ban Reasonset advreason "Some Reason"### Set Ban Timeset advduration 24h### Begin Script:## (Don't change anything below here... Unless you know tcl)proc ccodes:filter {str} { regsub -all -- {\003([0-9]{1,2}(,[0-9]{1,2})?)?|\017|\037|\002|\026|\006|\007} $str "" str return $str}## Binding all Public Messages to our Processbind pubm - * filter_advertisement## Starting Processproc filter_advertisement {nick uhost handle channel args} { global advwords advreason banmask botnick advduration advexemptwords set args [ccodes:filter $args] set handle [nick2hand $nick] set banmask "*![lindex [split $uhost @] 0]@[lindex [split $uhost @] 1]" foreach advword [string tolower $advwords] { if {[string match *$advword* [string tolower $args]]} { foreach advexemptword [string tolower $advexemptwords] { if {![string match *$advexemptword* [string tolower $args]]} { if {[matchattr $handle +f]} { putlog "Protected: $nick ($handle) " } elseif {[matchattr $handle +o]} { putlog "Protected: $nick ($handle) " } else { putlog "KICKED $nick matched by $args" putquick "KICK $nick :$advreason" } } } } }}bind pubm - * filter_advertisementStatistics: Posted by CadeFoster — Mon Nov 20, 2006 8:10 pm