Stuff

ON $*:TEXT:/^[!@.](unban|deban|-ban) /Si:#:{
  var %ub.i 1
  var %ub.t $ibl($chan,0)
  var %ub.out $iif($left($1,1) == !,.notice $nick ***,msg $chan) [4UnBan]:
  var %ub.address $address($2,5)
  if (($nick isreg $chan) || ($nick isvoice $chan)) { %ub.out This command is for Half-Ops and Ops only. | halt }
  if (%ub.address == $null) { %ub.out Unable to obtain an address for $2 $+ . | halt }
  while (%ub.i <= %ub.t) {
    if ($ibl($chan,%ub.i) iswm %ub.address) { var %ub.do = %ub.do $ibl($chan,%ub.i) }
    inc %ub.i
  }
  if (%ub.do) {
    .mode $chan -bbbbbbbbbbb %ub.do
    %ub.out All matching Bans for $2 on $chan have been removed.
  }
  else { %ub.out Could not find any matches for $2 on $chan $+ 's Ban List! }
}