Something

gban {
  var %x =  1
  while (%x <= $chan(0)) {
    if ($me isop $chan(%x)) || ($me ishop $chan(%x)) {
      mode $chan(%x) +b $1
      inc %x 1
    }
  }
}