Mine

ON $*:TEXT:/^[!@.](unban|deban|-ban) /Si:#:{
  if (($nick isop $chan) || ($nick ishop $chan)) {
    %ub.nick = $nick | %ub.who = $2 | %ub.chan = $chan
    .enable #unban
    whois %ub.who
  }
}

#unban on
RAW 311:*:{
  if ($2 != %ub.who) { .disable #unban | unset %ub.* | halt }
  var %ub.who $2 | var %ub.i 1 | var %ub.t $ibl(%ub.chan,0) | var %ub.address $+($2,!,$3,@,$4)
  var %ub.out $iif($left($1,1) == @,msg %ub.chan,.notice %ub.nick) [4UnBan]:
  while (%ub.i <= %ub.t) {
    if ($ibl(%ub.chan,%ub.i) iswm %ub.address) { var %ub.do = %ub.do $ibl(%ub.chan,%ub.i) }
    inc %ub.i
  }
  if (%ub.do) { .mode %ub.chan -bbbbbbbbbbb %ub.do | .timer 1 3 %ub.out All matching Bans for %ub.who on %ub.chan have been removed. }
  else { %ub.out Could not find any matches for %ub.who on %ub.chan $+ 's Ban List! }
  unset %ub.*
  .disable #unban
}
#unban end