alias ban.check {
  if ($me isop $chan) {
  echo -a Clearing matching bans on $chan
    var %i = 1
    while (%i <= $ibl($chan,0)) {
      var %ban = $ibl($chan,%i)
      if (%ban iswm $address($me,5)) {
        mode $chan -b $ifmatch
      }
      inc %i
    }
  }
}

alias clearban {
  ; /clearban Channel [nick!user@host]
  var %b = $iif($2,$2,$address($me,5)), %x = $ibl($1,0), %unban
  while (%x) {
    if ($ibl($1,%x) iswm %b) {
      var %unban = %unban $v1
    }
    if ($numtok(%unban,32) > 5) {
      mode $1 -bbbbbb %unban
      var %unban
    }
    dec %x
  }
  if (%unban) {
    mode $1 $+(-,$str(b,$numtok(%unban,32))) %unban
  }
  echo -ac info * Done clearing bans.
}
menu channel {
  Remove bans matching me: {
    if ($me isop $chan) clearban $active
    else echo -ac info * $me $+ : You're not a channel operator.
  }
}