egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2004-02-17T05:45:10-04:00 https://forum.eggheads.org/app.php/feed/topic/6876 2004-02-17T05:45:10-04:00 2004-02-17T05:45:10-04:00 https://forum.eggheads.org/viewtopic.php?p=33672#p33672 <![CDATA[Megahal - how to filter badwords ?]]> I'm currently trying to create a script that filters out bad words, but i'm a bit out of ideas how to do it.
Something like this for starters:

Code: 

bind pubm - "* $nick*" megahal:filtersetudef flag megahfiltproc megahal:filter {nick uhost hand chan text} {if {[lsearch -exact [channel info $chan] +megahfilt] != -1} {} else { return 0 }set filtered [filterproc text]learn $filteredset reply [filterproc [getreply $filtered]]puthelp "PRIVMSG $chan :$nick\: $reply"}
So you see, the filterproc is what i need. But how?
It needs to filter both input and output, my megahal.brn-file is already filled with profanity :-?
* Strict: Put the words in a file ? ( badword|niceword )
* Random out of a few: Put the words in a file ? ( badword|niceword|niceword2|niceword3 )
* Read any random word from a file ?

What would be the nicest way to do it ?

Or maybe there is such a script somewhere already that i haven't found ?
Or even BarkerJr himself would like to code that into the module :wink:

Statistics: Posted by b34r — Tue Feb 17, 2004 5:45 am

]]>