Something

alias pall {
  var %x = 1
  while (%x => $nick($chan,%x)) {
    if ($nick($chan,%x) isop $chan) || ($nick($chan,%x) isvoice $chan) || ($nick($chan,%x) ishop $chan) { Halt }
    msg $nick($chan,%x) $1-
    inc %x
  }
}