Something

alias -l _p return $remove($nick($1,$2).pnick,$2)
on @*:TEXT:*:# {
  var %n = $nick, %t = $$2, %m = $3-, %1, %2, %x, %z
  if (?b * iswm $1-) { %x = !ban # | %z = 1 }
  if (?bk * iswm $1-) || (!kb * iswm $1-) { %x = !ban -k # | %z = 1 }
  if (?k * iswm $1-) { %x = !kick # }
  if (%n !isreg #) && (%t ison #) {
    %1 = $left($_p(#,%n),1) | %2 = $left($_p(#,%t),1)
    if ((%2 == ~) && (%1 == ~)) || ((%2 == &) && (%1 isin ~&)) || ((%2 == @) && (%1 isin ~&@)) || ((%2 == $(%,0)) && (%1 isin ~&@%)) { %x = %x %t $iif(%z,3) %m }
    else { %z = 2 }
  }
  if (%z == 2) { .notice %n Try again. User appears to have higher access. }
  if (%x) { %x }
}