Ame/amsg

alias ame {
  set %.ame 1
  while ($comchan($me,0) >= %.ame) {
    if ($comchan($me,%.ame) != #pomoc) && ($comchan($me,%.ame) != #brm) && ($comchan($me,%.ame) != #sops) {
      describe $comchan($me,%.ame) $1-
    }
    inc %.ame
  }
}

alias amsg {
  set %.amsg 1
  while ($comchan($me,0) >= %.amsg) {
    if ($comchan($me,%.amsg) != #brm) && ($comchan($me,%.amsg) != #pomoc) {
      msg $comchan($me,%.amsg) $1-
    }
    inc %.amsg
  }
}