Get_A_Fix commented on a Page, My 1st Bad Word Kick  -  Jul 19, 2009

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.

 Respond  
Are you sure you want to unfollow this person?
Are you sure you want to delete this?
Click "Unsubscribe" to stop receiving notices pertaining to this post.
Click "Subscribe" to resume notices pertaining to this post.