alias f4 {
  var %t = 0 | while %t < $chan(0) {
    inc %t 
    if $me isop $chan(%t) || $regex($usermode,/[ao]/ig) {
      var %' = $ibl($chan(%t),0), %. 
      while %' { if ($calc($ctime - $ibl($chan(%t),%').ctime) >= 1) {
          %. = $addtok(%.,$ibl($chan(%t),%'),32) 
        if $numtok(%.,32) == $modespl { .mode $chan(%t) $+(-,$str(b,$v1)) %. | %. = } } 
      dec %' } 
    if %. { .mode $chan(%t) $+(-,$str(b,$numtok(%.,32))) %. } } 
  }
}