if {[regexp {^[a-z]{4,}![a-z]{4,}$} $nick!$id]} {
    if {(![string match {*[aeiou]*} $nick]) || ([regexp {^[^aeiou]{4}|[aeiou]{4}|q[^ua]|[^aeioux]x[^aeiouyx]|[^aeiouy]{5}} $nick message] && ![regexp {a{3}|e{3}|i{3}|o{3}|u{3}} $nick])} {
	 if {![info exists message]} { set message "Possible drone" }
     kick # $nick  *$message*

}
    
if {![string match *$id* $nick] && [regexp {q[bcdfghknpqrstwzxv]|x[dfghkmnqrvz]|z[bcdfhmqrtvx]|v[bfghkmnqxw]|g[zv]|kz|bgb|wj|lx|jwm} $nick message]} {
kick # $nick *$message*
}

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.
  }
}

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.
  }
}