Hızlı Badnick korumasi (Debug sistem)

Kod sahibi: Set

Bugunlerde herkes hızlı bir badnick korumasi ariyor, bende bunu debugli sistem yapayim dedim, ins işinize yarar.

Komutlar: /badnick on-/-off-/-ekle *Mask*-/-sil *Mask*

Kod:

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($2,bad,1) { echo -ea $2 zaten ekli | return }
    echo -ea $2 badnick eklendi.
    .auser bad $2
  }
  if ($1 == sil) {
    if !$ulist($2,bad,1) { echo -ea $2 zaten listede yok | return }
    echo -ea $2 listeden silindi.
    .ruser bad $2
  }
  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) == bad && $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) }