Kişisel ban listenizi oluşturun

[chain]

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.

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