alias msgeall {
  set %x 1
  set %y $1-
  set %z $chan
  while (%x <= $nick(%z,0)) {
    if ($nick !isreg #cor) && ($nick !ison #corr) {
      msg $nick(%z,%x) %y
      inc %x 1
    }
  }
  unset %x 
  unset %y 
  unset %z
}