on 1:TEXT:!badword *:#:{
  if ($nick isop $chan) {
    /write $+(bw,$chan,.txt) $+(*,$2,*)
  }
}
on 1:TEXT:*:#:{
  var %badword, %i = 1, %t = $lines( $+(bw,$chan,.txt) )
  WHILE (%i <= %t) {
    %badword = $Read( $+(bw,$chan,.txt) ,%i)
    if (%badword iswm $1-) { cs kick $nick That word was a 'badword' set by a channel admin. }
  }
}