Someone

alias x { 
  var %x = 1
  while ($read(Badword.txt,%x)) { 
    inc %x
  }
}
on *:TEXT:BADWORDS*:?: {
  if ($3 iswm add) {
    write Badword.txt $2 $4
    notice $nick $+($chr(2),$4,$chr(2)) added to $2  bad words list.
  }
  if ($3 iswm del) {
    write -ds $2 $4 Badword.txt 
    notice $nick $+($chr(2),$4,$chr(2)) deleted from $2  bad words list.
  } 
  if ($3 iswm clear) {
    write -c Badword.txt 
    notice $nick Bad words list is now empty.
  }
  if ($3 iswm list) {
    notice $nick Bad words list for $2 $+ :
    notice $nick $x
  }
}