Mine

on *:ban:#:{
  if (!$regex($left($banmask,2),/~(c|r)/Si)) {
    var %k = 1
    while (%k <= $ialchan($remove($banmask,~n:,~q:),$chan,0)) {
      var %allbanned = $iif(%allbanned,$+($v1,$chr(44))) $ialchan($remove($banmask,~n:,~q:),$chan,%k).nick
      inc %k
    }
    echo $chan $+($chr(91),$chr(3),07,BAN $+ $iif($regex($left($banmask,2),/~(q|n)/Si),$+($chr(3),$chr(91),$chr(3),07,$iif($regex($left($banmask,2),/~q/Si),~q,~n),$chr(3),$chr(93))),$chr(3),$chr(93),$chr(91),$chr(3),07,$nick,$chr(3),$chr(93),$chr(91),$chr(3),07,$remove($banmask,~n:,~q:),$chr(3),$chr(93),:) $iif($bnick,$v1) $iif($remove(%allbanned,$bnick),$v1,None)
  }
}