Code:

set badword {  "*[censored]*" "*bastard*""*cock *""[censored]" } 

Code:

############################################################# Bad Word TCL modified for 1.3.x bots by TheGhost aka TG### you can contact me at TheGhost@EFNET jsimm@satexas.com### THIS SCRIPT WONT WORK ON 1.1.5 BOTS###### Made it a little more secure and slimed it down a tad### took out the other checks about ops and masters it only### checks for the +f flag now so if you have a user with +f### it wont kick them, seemed silly to have all that stuff### about masters and owners in it.### Also dekiddyized it, for adult usage.###### Orginal author I forgot kuz i cut the garbage off the top###### Not Really : Rajeh Alharithi - ZimoZimo@EFnet###### Make sure you check the set flagx lines to be sure they### dont conflict with any other scripts.############################################################# Set this to the default password to assign to the added user# record.set bword "badword1"##Ban time for second warningset ban-time 10##Comment for banset Ban "For abusive language"set flag1 Yset flag2 Eset flag3 G###The bad words add and remove as you pleasebind pubm - "*[censored]*" badwordbind pubm - "*bastard*" badwordbind pubm - "*cock *" badwordbind pub - "[censored]" badwordbind pub - "nigger" badwordbind pubm - "*fag*" badwordbind pubm - "*[censored]*" badwordbind pubm - "*asshole*" badwordbind pubm - "*asshole*" badwordbind pubm - "*bitch*" badwordbind pubm - "*pussy*" badwordbind pub - "whore" badwordbind pub - "slut" badwordbind pub - "dickhead" badwordbind pub - "nigga" badwordbind pub - "nigger" badwordbind pub - "piss" badwordbind pub - "maricon" badwordbind pub - "maricone" badwordbind pub - "suck" badwordbind pub - "shithead" badwordbind pub - "prick" badwordbind pub - "sucks" badwordbind pub - "dicks" badwordbind pub - "pricks" badwordproc badword {nick uhost hand chan rest} {putlog "$nick $uhost $hand $chan $rest"global botnick ban-time Ban bwordif {([ matchattr $hand f ])} {putserv "PRIVMSG $chan :\001ACTION OVER Hears \002$nick\002 And SmiLes L:-)\001"return 1} elseif {([matchattr $hand G])} {chattr $nick +dksetuser $nick COMMENT "Perm banned for 4 bad word offenses"putserv "PRIVMSG $chan :$nick You Are Not Welcomed Here Anymore..."putserv "KICK $chan $nick :$Ban \[Perm\]"return 1} elseif {([matchattr $hand E])} {chattr $nick +G-Eputserv "PRIVMSG $chan :$nick You Have Had Your Chances, Now You Are Out of Here. Strike! two Your --------=>>> Out."set banlamer [maskhost [getchanhost $nick $chan]]newban $banlamer Badword $Ban 120 nonesetuser $nick COMMENT "3 Bad Word Offenses"return 1} elseif {([matchattr $hand Y])} {chattr $nick +E-Yputserv "PRIVMSG $chan :Has taken action on $nick for the 2nd Offense"set banlamer [maskhost [getchanhost $nick $chan]]newban $banlamer Badword $Ban 10 nonesetuser $nick COMMENT "2 Bad Word Offenses"return 1}adduser $nick [maskhost [getchanhost $nick $chan]]putserv "PRIVMSG $chan :\001ACTION Detected A Banned Word by $nick\001"putserv "PRIVMSG $nick :\001ACTION Hey, $nick, Profanity IS BAD,I Will Not allow Such A Thing In This Channel!!!\001"putserv "PRIVMSG $chan :\001ACTION Bad Language Is Not Fun, $nick Should never have said that...\001"putserv "KICK $chan $nick :Get The out of here with that kind of talk"putserv "NOTICE $nick :Please DON'T use that language in $chan"putserv "NOTICE $nick :\001ACTION Is Frowning At $nick This is your \[1st Warning\]\001"putserv "NOTICE $nick :If You Continue, You Will Be Banned The Second Time For 1 hour"chattr $nick +Ysetuser $nick PASS $bwordsetuser $nick COMMENT "1st Offense Badword"return 0}putlog "\[Word|KiCk\] v3.0 By \002TheGhost\002 is Loaded"