Stuff

on *:TEXT:!bantime *:#: {
  if $floodprot($nick,$network) { return }  
  illegalcheck $1-
  if ($nick isop $chan || $nick ishop $chan) {
    if ($2 !isnum 1-999) {
      notice $nick 12[14Badwords12]14 Please set the bantime to a number between 1 and 999
      halt
    }
    elseif ($2 isnum 1-999) {
      set %bantime [ $+ [ $chan ] ] $calc( $2 * 60)
      notice $nick 12[14Badwords12]14 The bantime for 12 $chan 14have successfully ben set to12 $2 mins.
    } 
    if (%badwords [ $+ [ $chan ] ] != on) {
      notice $nick 12[14Badwords12]14 You can now enable the filter with 12!badwordfilter on
    }
  }
}
on *:TEXT:!badwordfilter *:#: {
  if $floodprot($nick,$network) { return }  
  illegalcheck $1-
  if ($nick isop $chan || $nick ishop $chan) {
    if (%bantime [ $+ [ $chan ] ] == $null) {
      notice $nick 12[14Badwords12]14 You must set a bantime before you can enable/disable the filter. 12!bantime <time in mins>
    }
    elseif ($2 == on) {
      set %badwords [ $+ [ $chan ] ] on
      msg $chan 12[14Badwords12]14 The badword filter is now12 enabled 14for12 $chan 14with the bantime12 $calc( %bantime [ $+ [ $chan ] ] /60) mins.
      halt
    }
    elseif ($2 == off) { 
      unset %badwords [ $+ [ $chan ] ]
      unset %bantime [ $+ [ $chan ] ]
      msg $chan 12[14Badwords12]14 The badword filter is now12 disabled 14for12 $chan 14and the bantime was deleted.
      halt
    }
  }
}
On *:TEXT:!badword add *:#: {
  if $floodprot($nick,$network) { return }  
  illegalcheck $1-
  if ($nick isop $chan || $nick ishop $chan) {
    if (%badwords [ $+ [ $chan ] ] != on) {
      notice $nick 12[14Badwords12]14 You must enable the badword filter, and set a bantime first 12!bantime <mins> & !badwordfilter on
    }
    elseif ($4) {
      notice $nick 12[14Badwords12]14 Please add single words, one at the time, to the badword list.
      halt
    }
    else {
      writeini $me $+ badwords.ini $chan $3 $3
      notice $nick 12[14Badwords12]12 $3 14have been added to the badword list for12 $chan $+ .
    }
  }
}

On *:TEXT:!badword del *:#: {
  if $floodprot($nick,$network) { return }  
  illegalcheck $1-
  if ($nick isop $chan || $nick ishop $chan) {
    if (%badwords [ $+ [ $chan ] ] != on) {
      notice $nick 12[14Badwords12]14 You must enable the badword filter, and set a bantime first. !badwordfilter on & !Bantime <time in mins>
      halt
    }
    else {
      remini $me $+ badwords.ini $chan $3 $3
      notice $nick 12[14Badwords12]12 $3 14have been removed from the badword list for12 $chan $+ .
    }
  }
}
on *:TEXT:*:#:{
  if (%badwords [ $+ [ $chan ] ] == on) {
    if ($me ishop $chan || $me isop $chan) {
      if ($nick isvoice $chan || $nick isreg $chan || $nick ishop $chan) && (!$readini(staff.ini,staff,$address($nick,2))) {
        var %x = 1
        while ($gettok($1-,%x,32) != $null) {
          if ($readini( $+ $me $+ badwords.ini,-n, $+ $chan $+ ,$gettok($1-,%x,32)) != $null) {
            ban -ku $+ %bantime [ $+ [ $chan ] ] $chan $nick 2 14Do not use badwords in12 $chan $+ . $calc( %bantime [ $+ [ $chan ] ] /60) 14min ban.
          }
          inc %x
        }
      }
    }
  }
}