Argh, there's no more edit time. I made a few minor errors in the alias.

Code:
alias badword {
  if (!$1) {
    echo -ac info * Bad word kicker is $group(#badword)
  }
  if ($1 == off) {
    .disable #badword
    echo -ac info * Bad word kicker has been disabled
  }
  if ($1 == on) {
    .enable #badword
    echo -ac info * Bad word kicker has been enabled
  }
  if ($1 == -a) {
    hadd -m badword $2 1
    echo -ac info * $2 has been added to the bad word list
  }
  if ($hget(badword,$2)) && ($1 == -d) {
    hdel badword $2
    echo -ac info * $2 has been deleted from the bad word list
  }
  if ($hget(badword)) {
    if ($1 == -r) {
      hfree badword
      echo -ac info * Bad word list has been cleared
    }
    if ($1 == -l) {
      echo -ac info * Bad words list:
      var %x = 1
      while ($hget(badword,%x).item) {
        echo -ac info $v1
        inc %x
      }
    }
  }
}

- Relinsquish