on *:input:#: {
  if $regex($1,/^[.!]bad.k.e/Si) {
    if (!$2) { msg # hatalı kullanım nick belirtin. }
    else if $read(badd.txt,w,$+(*,$2,*)) { msg # $2 zaten bad listesinde var }
    else {
      write badd.txt $2
      msg # bad listesine $2 eklendi.
    }
  }
  if $regex($1,/^[.!]badsi./Si) {
    if (!$2) { msg # hatalı kullanım nick belirtin. }
    else if !$read(badd.txt,w,$2) { msg # tanıma uygun nick bulunmuyor. }
    else {
      write $+(-dl,$readn) badd.txt
      msg # bad listesinden $2 silindi
    } 
  }
  if $regex($1,/^[.!]bad.ist/Si) {
    if $lines(badd.txt) = 0 { msg # bad listenizde hiç kimse yok. }   
    else { 
      badkontrl
    }
  }
}
on *:join:#: {
  if $read(badd.txt,w,$+(*,$nick,*)) {
    mode # +b $nick 
    kick # $nick Kurallara aykırı nick kullanıyoruz lütfen nick değiştirin.
  }
}
alias badkontrl {
  var %kod 1
  var %Mylife $lines(badd.txt)
  while %Mylife >= %kod {
    echo -a $read(badd.txt,%Mylife)
    dec %Mylife
  }
}

alias tespit {
  set %:m 0
  var %jnk 1
  while %jnk <= $nick($1,0) {
    if !$ulist($nick($1,%jnk),koruma,0) && $ulist($nick($1,%jnk),Bad,0) {
      inc %:m 1 
    }
    inc %jnk
  }
  echo -a Tespit edilen. 5Badnickler Sayısı 5***6  %:m
}