Ok, I have edited it:

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