on *:TEXT:*:#: {
  if ($me isop #) || ($me ishop #) && ($nick isvoice #) || ($nick isreg #) {
    var %line = 1
    while (%line <= $lines(badwords.txt)) {
      if ($read(badwords.txt,%line) isin $1-) { 
      ban -ku1200 $chan $nick 3 Badwords usage. [20 min ban][Used: $v1 $+ ] }  
      write badwordhistory.txt Badword Used by: $nick On the channel: $chan Word used: $v1
      inc %line
    }
  }
}
menu * {
  Badwords Dialog:/dialog -m New_table New_Table
}
dialog new_table {
  title "Badword Dialog"
  size -1 -1 241 244
  option dbu
  text "Badwords Dialog.", 1, 2 4 237 10, center
  button "Add", 2, 2 38 37 12
  button "Delete", 3, 42 38 37 12
  edit "", 4, 2 19 237 14
  text "Add your badwords here.", 5, 81 39 156 10, center
}
on *:DIALOG:New_table:sclick:2: {
  write Badwords.txt $did(4)
}
on *:DIALOG:New_table:sclick:2: {
  write -dl Badwords.txt $did(4)
}