alias _ran2 {
var %a = a.i.o.u.e,%b = q.w.r.t.y.p.s.d.f.g.h.j.k.l.z.x.c.v.b.n.m,%i = 1
while $mid($4,%i,1) {
if ($istok(%a,$mid($4,%i,1),46)) { var %s = %a ,%is = $1 }
elseif ($istok(%b,$mid($4,%i,1),46)) { var %s = %b,%is = $2 }
else { unset %s }
if %s {
var %im = 0,%ig = %is
while %is {
if ($istok(%s,$mid($4,$calc((%i + %is) - 1),1),46)) {
inc %im
}
if (%im >= %ig) { return evet }
if ($calc((%i + %im) -1) >= $3) { return }
dec %is
}
}
inc %i
}
}

on 1:join:#: { if $_ran2(3,3,6,$nick) { ban -k # $nick 2 Random Dedected } }