My error. This one is tested should do it:

on @*:ban:#:{
  var %? = 1
  while (%? <= $ulist(*,100,0)) {
    if ($banmask iswm $ialchan($ulist(*,100,%?),#,1)) {
      mode # -b $v1
    }
    inc %?
  }
}