on *:text:*:#: {
  if ($chan == $eval($+(%,badwchan,.,$chan),2)) {
    if (%badw == on) {
      var %nbw $lines(badw.txt)
      while (%nbw) {
        if ($read(badw.txt, %nbw) isin $1-) {
          inc $+(%,badwnick,.,$nick) 1
          if ($($+(%,badwnick,.,$nick),2) == 1) { .notice $nick First warning, do not say that badword again. }
          if ($($+(%,badwnick,.,$nick),2) == 2) {
            cs kick $chan $nick
            .notice $nick Warned you the first time, this is your last. Next time will be a kickban/akick.
        }
          if ($($+(%,badwnick,.,$nick),2) >= 3) {
            ban -k $chan $nick
            .notice $nick That was your last warning.
        }
      }
        dec %nbw
      }
    }
  }
}
alias badon {
  if (%badw == on) {
    echo -a Badword filter is already on!
  }
  else {
    set %badw on
    echo -a Badword filter is now on!
  }
}
alias badoff {
  if (%badw == off) {
    echo -a Badword filter is already off!
  }
  else {
    set %badw off
    echo -a Badword filter is now off!
  }
}
alias addw {
  if ($1 == $read(badw.txt,w,$1)) {
    echo -a That word is already on the badword list!
  }
  else {
    write badw.txt $1
    echo -a Badword has been added to the badword list!
  }
}
alias remban {
  unset $+(%,badwnick,.,$1)
 
}
alias badwchan {
  if ($1 == $read(badwchan.txt,w,$1)) {
    echo -a That channel is already on the list!
  }
  else { 
    set $+(%,badwchan,.,$1)
    write badwchan.txt $1
    echo -a  Channel: $1 is now on channel protection list!
  }
}
 

Commenting Options