Merhabalar;
Remotenin amacı kanalınıza girmesini istemediğiniz kişileri otomatik olarak banlaması ve nick değiştirse dahi kanala girişini engellemektir.
Kişiye özel akick listesi diyebiliriz.
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Kod: Kodu kopyalamak için üzerine çift tıklayın!
on *:input:#: {
if $regex($1,/^([.!-]ban)/Si) {
if !$2 { echo -a 2Lütfen parametre belirtiniz.4 !ban kayit|liste|sil Örnek : !ban Liste | return }
}
if $2 == liste {
if $lines(ban.txt) = 0 { echo -a 2Belirtilen ban mevcut değil. | halt }
echo -a 2ban listesi siralaniyor.
var %banla 1
while (%banla <= $lines(ban.txt)) {
echo -a %banla $read(ban.txt,%banla)
inc %banla
}
}
if $2 == ekle {
if !$3 { echo -a 2Lütfen nick belirtiniz.4 !ban ekle nick | return }
if $read(ban.txt,w, $+ * $+ $nick $+ * $+ ) { echo -a 2Eklemeye çalıştığınız nick zaten listede ekli bulunuyor. | halt }
write ban.txt $3 | mode # +b $3 | kick # $3 4,1Kişisel Ban listeme eklendiniz.
echo -a 4 $+ $3 $+ , 2ban listesine eklenmiştir.
}
if $2 == sil {
if !$3 { echo -a $nick 2Lütfen nick belirtiniz.4 !ban sil numara | return }
if $lines(ban.txt) = 0 { echo -a 2Ban kaydı bulunamadi. | halt }
write $+(,-dl,$3,) ban.txt
echo -a $3 $+ , 2Numaralı nickin ban kaydı silindi.
}
}
on *:join:#: {
if ($read(ban.txt,w,$nick)) {
mode # +b $nick | kick # $nick 4,1 Kişisel Ban Listemdesiniz.
}
}
on *:nick: { if $read(ban.txt,w,$nick) { echo -a Ban listesindeki $nick $newnick nickini aldığı için ban listesine eklendi. | write ban.txt $newnick | mode # +b $newnick | kick # $newnick 4,1Nick değiştirip kanalıma girmeye çalıştığınızı tespit ettim. } }
Botunuza ekleyip
Kod: Kodu kopyalamak için üzerine çift tıklayın!
on *:input:#: {
kısmını
Kod: Kodu kopyalamak için üzerine çift tıklayın!
on *:text:*:#: {
olarak değiştirerek kullanabilirsiniz.
Farklı ceza türleri ekleyip farklı amaçlarla da kullanabilirsiniz.
Kod benim tarafımdan yapılmıştır ve denenmiştir. Keyifli paylaşımlar. Kullanımı .!-ban ekle - sil - liste