Someone

on @*:input:#:{
  if ($1 == !unbanall) { unbanall # }
  elseif ($1 == !unban) && ($2) { unban $chan $2- }
  elseif ($1 == !unbanlast) { mode # -b $ibl(#,1) }
  elseif ($regex($1,/^(\+|-)/)) { mode # $1- }
  elseif ($1 == !kick) { kick # $2 $3- }
  elseif ($1 == !ban) { mode # +b $2 $3- }
  elseif ($1 == !qnet) { .msg $iif(Q ison #,q,l) $2 # $3- }
}
alias unbanall {
  var %x = 1,%ibl 
  while ($ibl(#,%x)) { 
    var %ibl = $addtok(%ibl,$ibl(#,%x),32)
    if ($numtok(%ibl,32) == $modespl) { mode # $+(-,$str(b,$modespl)) %ibl | var %ibl } 
    inc %x 
  }
  if (%ibl) { mode # $+(-,$str(b,$modespl)) %ibl }
}
alias unban {
  var %x 1 
  while ($ibl($1,%x)) { 
    if ($gettok($v1,1,33) == $2-) { mode $1 -b $ibl($1,%x) | halt } 
    inc %X
  }
}