| Emre |
03.Haziran.2022 15:43 |
Kişisel ban listenizi oluşturun
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.
Kod:
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. } }
|
