set pubtrig .
 
setudef flag swearcheck
 
set swearwords {
  "*fuck*"
  "*cunt*"
  "*shit*"
}
 
bind pub - ${pubtrig}swearcheck chanset:swearcheck
proc chanset:swearcheck {nick uhost hand chan text} {
  global botnick
  if {[matchattr $hand o]} {
 
    if {[lindex $text 0] == "on"} {
      channel set $chan +swearcheck
      puthelp "PRIVMSG $chan :Enabled Swear Protection for $chan"
    }
 
    if {[lindex $text 0] == "off"} {
      channel set $chan -swearcheck
      puthelp "PRIVMSG $chan :Disabled Swear Protection for $chan"
    }
  }
}
 
bind msg - swearcheck swear:msg
proc swear:msg {nick uhost hand arg} {
  set chan [strlwr [lindex $arg 0]]
  if {[matchattr $hand o]} {
 
      if {[lindex $arg 1] == "on"} {
      channel set $chan +swearcheck
      putquick "NOTICE $nick :Enabled Swear Protection for $chan"
    }
 
    if {[lindex $arg 1] == "off"} {
      channel set $chan -swearcheck
      putquick "NOTICE $nick :Disabled Swear Protection for $chan"
    }
  }
}
 
bind pubm - * swear:check
proc swear:check {nick uhost hand chan text} {
  global botnick swearwords
  if {[lsearch -exact [channel info $chan] +swearcheck] != -1} {
    foreach pattern $swearwords {
      if {[string match -nocase $pattern $text]} {
        if {(![validuser $hand]) && (![isop $nick $chan]) && (![isvoice $nick $chan])} {
          putquick "MODE $chan +b *!*@[lindex [split $uhost @] 1]"
          putquick "KICK $chan $nick :\002\037S\037\002wear-\002\037W\037\002ord \002\037D\037\002etected. - Matching: $pattern"
        }
      }
    }
  }
}
 
putlog "Swear:Check - Loaded!"

Commenting Options