# ONotice: send a notice to all the ops on a channel.
# Original written by Magel <magel@dal.net>
# Modified by Wizzu <wizzu@dal.net>
# Date: 28th Dec 1996
# Modified: 15th Jan 1996, 19th Jan 1996

alias onotice {
  if (rmatch($0 #* &*)) {
    ^assign onotice_channel $0
    ^assign onotice_message $1-
  } {
    ^assign onotice_channel $C
    ^assign onotice_message $0-
  }
  if (onotice_channel) {
    ^assign onotice_chanppl $chanusers($onotice_channel)
    @ onotice_chancount = 0
    while (onotice_chancount < #onotice_chanppl) {
      ^assign onotice_nick $word($onotice_chancount $onotice_chanppl)
      if (ischanop($onotice_nick $onotice_channel)) {
        if (onotice_nick != N) {
          ^notice $onotice_nick \[@$onotice_channel\] $onotice_message
        }
      }
      @ onotice_chancount = onotice_chancount + 1
    }
    echo -> -@${onotice_channel}- $onotice_message
    ^assign -onotice_chancount
    ^assign -onotice_chanppl
    ^assign -onotice_nick
  } {
    eval xecho -level crap ### ONotice: send a notice to all the ops on a channel.
    eval xecho -level crap ### Usage: ${K}onotice [#channel] <message>
  }
  ^assign -onotice_message
  ^assign -onotice_channel
}