alias badnick {
  var %1 $gettok($1-,1,32)
  if ($1 == on) { .debug -i on badnick | echo 4 -ea  Badnick korumasi acildi. }
  if ($1 == off) { .debug -i off badnick | echo 4 -ea  Badnick korumasi kapatildi }
  if ($1 == ekle) {
    if $ulist($1,bad,1) { echo -ea $1 zaten ekli | return }
    echo -ea $1 badnick eklendi.
    .auser bad $1
  }
  if ($1 == sil) {
    if !$ulist($1,bad,1) { echo -ea $1 zaten listede yok | return }
    echo -ea $1 listeden silindi.
    .ruser bad $1
  }
  if %1 = <- {
    tokenize 32 $gettok($1-,2-,32)
    if $regex($2,/join/i) {
      var %nick $right($token($1,1,33),-1), %ident $token($token($1,1,64),2,33), %host $token($1,2,64), %chan $right($3,-1)
      if $level(%nick) == badnick && $nick(%chan,$me,oh) && (%nick !== $me) {
        echo %chan ***4Badnick girisi: %nick 4Mask: $maskbul(badnick,%nick) (4Bani-Ac)
        kick %chan %nick 4Badnick girisi yasak.
        mode %chan +b %nick
      }
    }
  }
}
alias maskbul {
  var %x 1
  while $ulist($2,$1,%x) {
    var %mask $addtok(%mask,$v1,32)
    inc %x
  }
  return %mask
}
on $^*:hotlink:/\Bani-Ac/S:#:return
on *:hotlink:*:#:if $regex($strip($hotline),girisi:(.+)Mask) { mode # -b $regml(1) }