#shilisten on
on @*:join:#: {
  if $level($nick $+ !*@*) == badnick {
    banall $nick $ulist($nick,badnick,1)
    kickall $nick KanaLda Girişin Karaliste/Badnick/Inviter Sebebinden Dolayı Yasaklanmıştır.
  }
}
on *:part:#: {
  if $level($nick $+ !*@*) == badnick {
    mode # +b $ulist($nick,badnick,1)
    kick # $nick KanaLdan Çıkışın Karaliste/Badnick/Inviter Sebebinden Dolayı Yasaklanmıştır.
  }
}
on *:nick: {
  if $level($newnick $+ !*@*) == badnick {
    banall $newnick $ulist($newnick,badnick,1)
    kickall $newnick New-Nick ‘iniz ßad oLarak Tespit ediLdi Nick değiştirerek Tekrar Giriniz ! ßy $me
  }
}

#shilisten end

alias banall {
  var %i 1
  while %i <= $comchan($1,0) {
    if $1 !isop $comchan($1,%i) { mode $comchan($1,%i) +b $2- }
    inc %i
  }
}
alias kickall {
  var %i 1
  while %i <= $comchan($1,0) {
    if $1 !isop $comchan($1,%i) { kick $comchan($1,%i) $1 $2- }
    inc %i
  }
}
menu * {
  -
  + Badnick
  .+ ekLe:/auser badnick $$1
  .+ çıkart:/ruser badnick $$1
  .+ ListeLe:/ulist badnick
  + Korumayı
  .+ Aç:/enable #shilisten | /echo -at biLgi; Badnick Koruması AçıLdı..
  .+ Kapat:/disable #shilisten | /echo -at biLgi; Badnick Koruması kapatıLdı..
  - 
}
on *:input:*:{
  if $1 == !badtara { tara $chan | msg $chan $chan kanalı taranıyor }
}
on *:ban:#: { 
  if $nick == $me || $nick == ahmet {
    auser badnick $bnick | echo -a $bnick badnick liste eklendi. ban kullanan nick $nick
  }
}
alias tara {
  var %t = 1,
  while (%t <= $nick($1,0)) {
    var %badnick = $nick($1,%t)
    if ($level($nick($1,%t)) == badnick) { mode $1 +b $ulist(%badnick) | kick $1 %badnick  Nick Uygunsuz }
    inc %t 1
  }
}