Code:
  elseif $1 == !bwdel {
    if !$2 {
      .msg $chan Usage: !bwdel <list of bad words to be deleted, space or comma separated)    
    }
    else {
      tokenize 32 $2-
      var %a = $0
      while %a {
      if ($hfind(Badwords,$($+($,%a),2),1).data) .hdel Badwords $v1 | msg $chan $1 deleted from bad word list }
      ;else var %er = %er $v1
      dec %a
    }
  }
  .hsave -n Badwords Badwords.txt
}

do u think is this working ?
check it pls smthng wrong it del abt million times n mirc not works anymore lol