on *:text:*:#channel:{
  if ($regex($1-,/(sex|fuck|cunt|ass)/Si)) {
    inc %badwordcounter
    mode # +b-Q $wildsite | kick # $nick No bad words here - %badwordcounter
    msg $nick Blacklist Word from me for saying4 $regml(1)
  }
}

huhu

lol

I'm sure writing all the badwords to a .txt file, and letting the script read from it to identify the badwords. Also adding an alias to add/remove badwords would be essential.

I would write it, but today I'm too lazy. :P

buddy all those are explained in the mIRC help file. /help in mirc as long as you have the help files. You can look up isop, isvoice, *tok, etc.

may i ask wht is ($me isop $chan) { $nick isvoice $cahn and $nick isreg $chan ????
and the var, and the wrd that have tok tok at the end ??? Sory for asking, some of the codes make me confuse.

heh, I like to add things to groups, easy to turn on/off

#swear.prot off
on @*:TEXT:*:#: {
  if ($nick isreg $chan) {
    var %i = 0
    while (%i < $numtok(%swear.words,32)) {
      inc %i
      var %current.word = $gettok(%swear.words,%i,32)
      if ($istok($strip($1-),%current.word,32) == $true) {
        ban -ku300 # $nick 2 Swear Word Detected.
      }
    }
  }
}
#swear.prot end

menu channel {
  -
  Swear Protection.
  .On://.enable #swear.prot | echo 4 -at * Your Current Set Swear Words are: %swear.words
  .Off://.disable #swear.prot | echo 4 -at * Disabled Swear Protection. 
  .Set Swear Words://unset %swear.words | set %swear.words $$?="Enter Swear Words - Reset ALL Again (with spaces)"
  .-
}

Similar method to others posted here, basic channel menu included.

Yes Jethro_ ..I actually reply to Solitude..and i agree wif u using $findtok..I just explain to him that using $gettok will matches all word that the op set even the person type Assasin, Assrafh etc.. :)

Have you tried using $gettok as solitude posted? It matches anything, even if it's not a bad word. I think an alternative should be:

on @*:TEXT:*:#: {
  var %x = 1, %y = ass fark sex
  while ($numtok(%y,32) >= %x) {
    if ($wildtok($strip($1-),$gettok(%y,%x,32),0,32)) {
      ban -k $chan $nick 2 No badwords!
    }
    inc %x
  }
}

Actually using $findtok will match exactly the bad words themselves only, so $wildtok is necessary for the script to catch them in a sentence.

Yes. If you use $gettok you actually shots the match word..Any word match you will kick them..

Solitude, using $gettok will trigger the on text event every time, even if words differ from the bad words in the matching range:

on *:text:*:#:if ($gettok(fark ass sex,$1-,32)) echo -a true

hello true hello true testing trueAs you can see, it will match whatever. You should use $findtok:

if ($findtok(fark ass sex,$strip($1-),1,32)) {

$gettok would help, because if you use

 if (ass isin $1-) {

Wouldn't it pick up on any of those words anywhere? i.e, 'ASSassin'?

Also add if $nick isop $chan and $nick isvoice $chan so it will not disturbing people when chatting.

I think no need to use gettok etc but there are many ways to create it. So no comment for that.

MODE $chan +b $nick
KICK $chan $nick No badwords!

TO

ban -k $chan $nick 2 No badwords!

on *:text:*:#: {
  if ($me isop $chan) {
    if ($gettok(fuck cunt ass sex,$1-,32)) {
      MODE $chan +b $nick
      KICK $chan $nick No badwords!
    }
  }
}

Obviously replace the censored words above with whatever cuss words you want, lol.