msame-msmsg

alias msmsg {
  ; syntax: /msmsg message
  ; send a message to all channels on all servers
  var %i = 0
  while (%i  < $scon(0)) {
    inc %i
    scid $scon(%i)
    var %i. = 0
    while (%i. < $chan(0)) {
      inc %i.
      if ($server && $chan(0) > 0) {
        msg $chan(%i.) $1-
      }
    }
  }
}

alias msame {
  ; syntax: /msame message
  ; send a /me to all channels on all servers
  var %i = 0
  while (%i  < $scon(0)) {
    inc %i
    scid $scon(%i)
    var %i. = 0
    while (%i. < $chan(0)) {
      inc %i.
      if ($server && $chan(0) > 0) {
        describe $chan(%i.) $1-
      }
    }
  }
}