alias _ran2 {
  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
  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 $_ran2(3,3,99,$nick) { !KOMUT SATIRI }
on *:join:#:{ if $_ran2(3,3,99,$nick) { !KOMUT SATIRI }

if $level($nick $+ !*@*) == badnick {
!mode # +b $ulist($nick $+ !*@*,1)
!kick # $nick $kmesaj(bul,23) $slogo
rapor Badnick girişi görüldü: kanal: # - nick: $nick - mask: $ulist($nick $+ !*@*,1)
return
}

if %n == 352 {
if $level($6) == badnick {
if $ircop {
kill $6 $kmesaj(bul,36)
return
}
var %i 1
while %i <= $comchan($me,0) {
if $me isop $comchan($me,%i) {
modex $comchan($me,%i) +b $ulist($6 $+ !*@*,1)
kick $comchan($me,%i) $6 $kmesaj(bul,23)
}
inc %i
}
}

var %b 1
while %b < $ulist(*,badnick) {
if $ulist(*,badnick,%b) {
did -ac genel 92 $ulist(*,badnick,%b)
}
inc %b
}

if $level($nick($1,%i) $+ !*@*) == badnick {
if $me isop $1 || $me ishop $1 || $ircop { .timer 1 5 _do !mode $1 -b $ulist($nick($1,%i) $+ !*@*,1) }
.timer 1 5 kick $1 $nick($1,%i) $kmesaj(bul,23)
rapor Badnick girişi görüldü: kanal: $1 - nick: $nick($1,%i) - mask: $ulist($nick($1,%i) $+ !*@*,1)
}
if $rayar(genel,randomnick) == acik {
if $randmi($nick($1,%i)) {
if $ircop {
kill $nick($1,%i) $kmesaj(bul,11)
}
else {
.timer 1 5 kick $1 $nick($1,%i) $kmesaj(bul,11)
}
rapor Random nick girişi tespit edildi: kanal: $1 - nick: $nick($1,%i)
}
}

if $1 == badnick {
var %i 1
while %i <= $ulist(*,badnick,0) {
mode $2 -b $ulist(*,badnick,%i)
inc %i
}
}
}

_sbtara {
var %b 1
while %b < $ulist(*,badnick) {
if $gettok($ulist(*,badnick,%b),1,33) {
kill $gettok($ulist(*,badnick,%b),1,33) $kmesaj(bul,36)
}
inc %b
}
}

if $level($nick $+ !*@*) == badnick { 
;!mode # +b $ulist($nick $+ !*@*,1) bunun yerine...
!mode # +b $+(*,$nick,*!*@*)
...
}

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