Code:
on @*:text:*:#:{
  if ($1 == !bwadd) { if $read(badwords.txt,w,$2-) { 
    msg $chan  $2- already on the list } 
    else { write badwords.txt $2- | msg $chan $2- added on the list } 
  }
}

need bwdell n bwlist any idea confused