### CHANNEL WALLOPS (by Eagle-1, Mods from Vassago (and Wizzu))

alias wall {
    if ([$C]==0) {xecho -level crap ### You must be on a channel to use /WALL.}
    {
         ^on ^401 "*" #
          xecho -level crap ### Sending WallOp message to $C, please wait...
         ^assign message $encode($0-)
          xecho -level crap ### [WallOp/$C] $decode($message)
         ^on ^names "*" sendwall $$1-
         ^names $C
          wait -CMD _undowall
    }
}

alias sendwall {
   if ([$0]) {
         if (([$[1]0] == [@]) && ([$0] != [@] ## N)) {
          if ([$sendlist]==[]) {
                ^assign sendlist $strip(@ $0)
                ^assign showlist $strip(@ $0)
                 sendwall $1-
          }
          {
                ^assign sendlist $strip(@ $0),$sendlist
                ^assign showlist $strip(@ $0) $showlist
                 sendwall $1-
          }
         }
         {sendwall $1-}
   }
   {
       if ([$sendlist]!=[]) {
           ${K}${K}^notice $sendlist [WallOp/$C] $decode($message)
            xecho -level crap ### WALLOPED: $showlist
           ^assign -sendlist
           ^assign -showlist
       }
   }
}

alias _undowall {
   ^on names - "*"
   ^timer 15 ^on 401 - "*"
}

xecho -level crap ### Channel WallOps. Usage: /wall <message>