on *:text:*:#: {
  if ($1 == !badword) && ($_chan($chan)) && ($istok(on off,$2,32)) && ($nick isop $chan) {
    set %_badword $iif($2 == off,$v2,on)
    notice $nick is %_badword for channel $chan
  }
  else {
    if (%_badword == on) && ($_chan($chan)) {

      var %badword = facebook,gay,homo,youtube, %a = $numtok(%badword,44)
      while (%a) {
        var %bchk = $gettok(%badword,%a,44)
        if (%bchk isin $1-) {
          inc $+(%,badword,.,$nick,.,$chan)
          var %times = $($+(%,badword,.,$nick,.,$chan),2)
          if (%times == 1) {
            msg #opers Spamming in $chan $nick $+ . %times time. (said badword: $1- $+ )
          }
          elseif (%times == 2) {
            msg #opers Spamming in $chan $nick $+ . %times time. (said badword: $1- $+ )
          }
          elseif (%times > 2) {
            msg #opers Spamming in $chan $nick $+ . %times time. (said badword: $1- $+ )
            unset $+(%,badword,.,$nick,.,$chan)
            msg #opers reset badword for $nick
          }
        }
        dec %a
      }
    }
  }
}

alias -l _chan {
  var %a = #, %b = $numtok(%a,44)
  while (%b) {
    if ($1 == $gettok(%a,%b,44)) || (%a == $chr(35)) {
      return $true
    }
    dec %b
  }
}