This may work:

Code:
on @*:JOIN:#: {
  if ($regex($nick,/^([a-z]{4,})/S)) {
    kick # $nick possible drone.
  }
  elseif ($regex($nick,/^(q[bcdfghknpqrstwzxv]|x[dfghkmnqrvz]|z[bcdfhmqrtvx]|v[bfghkmnqxw]|g[zv]|kz|bgb|wj|lx|jwm)/Si)) {
    kick # $regml(1) possible drone.
  }
}