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