on *:TEXT:!banlist add*:#: {
  if ($nick isop #) {
    set %banlist. $+ $3 $+ . $+ $chan On
  }
}
on *:TEXT:!banlist del*:#: {
  if ($nick isop #) {
    unset %blacklist. $+ $3 $+ . $+ $chan On
  }
}
on *:TEXT:*:#: {
  if ($nick isop #) return
  var %i = 1
  while (%i <= $0) {
    if ($($+(%,banlist.,$gettok($1-,%i,32),.,#),2)) {
      msg # .ban $nick
      break
    }
    inc %i
  }
}