alias amsg {
  var %a $comchan($me,0)
  while (%a) {
    if (!$istok($blockchans,$comchan($me,%a),32)) {
      msg $comchan($me,%a) $1- 
    }
    dec %a
  }
  inc %amsgs 1
}

alias ame {
  var %a $comchan($me,0)
  while %a {
    if (!$istok($blockchans,$comchan($me,%a),32)) {
      describe $comchan($me,%a) $1-
    }
    dec %a
  }
}
alias blockchans return #mSL #IRChelp #help #support #idle