Kod: Kodu kopyalamak için üzerine çift tıklayın!
on @kl:JOIN:#:{
if $nick isop $chan { halt }
if ($chan == #cinsellik) { halt }
if ($chan == #gay) { halt }
if ($chan == #lezbiyen) { halt }
if ($chan == #***) { halt }
if ($chan == #help) { halt }
if ($cha == #eğitim) { halt }
.kick # $nick 4,1(9ßad11~9Nick4)
.mode # +b $nick
}
alias badntara {
if (!$1) { $iif($input(Kanal Girmediniz?,io,Uyarı),halt,halt) }
if ($chr(35) !isin $1) { $iif($input($chr(35) işaretini girmediniz,io,Uyarı),halt,halt) }
set %ch $1
var %y = $input(Tarama İşlemi Sırasında Bulunan Bad Nickler Atılsınmı?,ivy,Seçim)
var %! = 1,%? = $nick(%ch,0)
while (%! <= %?) {
if ($level($nick(%ch,%!)) == Kl) {
if %y == $yes { mode %ch +b $nick(%ch,%!) | kick %ch $nick($1,%!) 9,1(15Bad4~15Nick9) }
else { cline 4 %ch %! }
}
inc %! 1
}
if %y == $no { $input(Tarama İşlemi Bitti Bad Nickler Kırmızı Olarak Renklendirildi,io,Bilgi) }
else { { $input(Tarama İşlemi Bitti Bad Nickler Atıldı,io,Bilgi) } }
}
menu status,menubar,channel {
ReBeLLioN Script™ 1.0 BadNick Kick Menu
.Aç/Kapa
..$iif($group(#badjoin) == on,$style(2)) aç:.enable #badjoin | $input(kl Koruması Açıldı,io,Bad Nick)
..$iif($group(#badjoin) == off,$style(2)) kapat:.disable #badjoin | $input(kl Koruması Kapatıldı,io,Bad Nick)
.Nick
..Ekle:var %x $$?="eklenecek nick'i girin" | .auser kl %x | $input(%x kl Listesine Eklendi,io,Bad Nick)
..Sil:var %x $$?="silinecek nick'i girin" | .ruser kl %x | $input(%x kl Listesinden Silindi,io,Bad Nick)
..Listele:badnlist
.Tara:badntara $active
}
menu nicklist {
ReBeLLioN Script™ 1.0 Bad Nick Kill Menu
.Ekle:.auser kl $$1 | $input($$1 kl Listesine Eklendi,io,Bad Nick)
.Sil:.ruser kl $$1 | $input($$1 kl Listesinden Silindi,io,Bad Nick)
.Listele:badnlist
}
#badjoin on
#badjoin end
menu @kl {
Ekle:.auser kl $$?="Eklenecek Nick'i Girin" | badnlist
Sil:if ($gettok($line(@kl,$1,1),2,45)) { .ruser kl $gettok($line(@kl,$1,1),2,45) | badnlist }
Kapat:window -c $active
}
alias badnlist {
$iif(!$window(@kl),window -Cak0dl @kl 0 0 250 550)
clear @kl
var %2 = $ulist(*,kl,*),%1 = 1
while (%1 <= %2) {
aline 4 @kl $+(%1,-,$ulist(*,kl,%1)))
inc %1 1
}
}
on *:text:*:#:{
if !badtara isin $1 {
if $nick !isop $chan {
.notice $nick kanalda op olmanız gerekır. }
else {
timer 1 2 tara $chan | msg $chan tarama basladı }
}
}
alias tara {
var %t = 1,
while (%t <= $nick($1,0)) {
var %kl = $nick($1,%t)
if ($level($nick($1,%t)) == kl) { mode $1 +b $ulist(%kl) | kick $1 %kl 0,12 Nick Uygunsuz }
inc %t 1
}
}
senin bu kod biraz çorba olmuş oyuzden 2 ci bir tara aliası ekledik umarın işine yarar