amsg

alias amsg { 
  if (!$1) echo $color(info) * /amsg: Invalid syntax [/amsg <msg>] 
  elseif ($1) { 
    var %t = 1
    while (%t <= $scon(0)) { 
      scid %t
      var %c = $chan(0)
      while (%c) {
        msg $chan(%c) $1-
        dec %c
      }
      inc %t
    }
  }
}
alias ame { 
  if (!$1) echo $color(info) * /ame: Invalid syntax [/ame <action>]
  elseif ($1) {
    var %t = 1
    while (%t <= $scon(0)) { 
      scid %t
      var %c = $chan(0)
      while (%c) {
        describe $chan(%c) $1-
        dec %c
      }
      inc %t
    }
  }
}