alias random {
  var %a = a.A.ı.I.i.İ.o.ö.Ö.u.ü.Ü.e.E,%b = b.c.ç.Ç.d.f.g.ğ.Ğ.h.j.k.l.m.n.p.r.s.ş.Ş.t.v.y.z.q.w.x,%i = 1 && var %identd = a.A.ı.I.i.İ.o.ö.Ö.u.ü.Ü.e.E,%b = b.c.ç.Ç.d.f.g.ğ.Ğ.h.j.k.l.m.n.p.r.s.ş.Ş.t.v.y.z.q.w.x,%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 *:nick:{ if $random(3,3,99,$nick) { mode $chan +b $nick | kick $chan $nick $kmesaj(bul,11) $slogo } }
on *:join:#:{ if $random(3,3,99,$nick) { mode $chan +b $nick | kick $chan $nick $kmesaj(bul,11) $slogo } }

on *:join:#:{ if $random(3,6,99,$remove($gettok($gettok($address($n ick ,5),2,33),1,64),~)) { badidentd $nick | kick $chan $nick $kmesaj(bul,40) $slogo } }