var %c 1
while %c <= $chan(0) {
  badtara $chan(%c) 
  inc %c
}
} 
 
alias badtara {
var %jnk 1  
while %jnk <= $nick($1,0) { 
  if $ulist($nick($1,%jnk),nick,0) { 
    mode $1 +b  $nick($1,%jnk)
    kick $1 $nick($1,%jnk) Bad Nick !
  }  
  inc %jnk 
}
}
 
on *:text:*:#: {
if $nick isop $chan {
  if $1 == !badekle {
    auser nick $2
    msg $chan $2 nicki listeye eklenmiştir.
  }
  if $1 == !badsil {
    ruser nick $2
    msg $chan $2 nicki listeden çıkartılmıştır.
  }
}
else {
  if !bad* iswm $1 {
    msg $chan Bu komutu kullanabilmek için $chan kanalında en az op olmanız gerekmektedir.
  }
}
}
 
on *:connect: {
chanss
.timer 0 1200 chanss
}

alias badtara {
 var %jnk 1  
 while %jnk <= $nick($1,0) { 
   if $ulist($nick($1,%jnk),nick,0) && $me isop $1 { 
     mode $1 +b  $nick($1,%jnk)
     kick $1 $nick($1,%jnk) Bad Nick !
   }  
   inc %jnk 
 }
}
on me:*:join:#:.timer 1 1 badtara $chan