alias chanss {
  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),badnick,0) { 
      mode $chan +b  $nick($1,%jnk)
      kick $chan $nick($1,%jnk) Bad Nick !
    }  
    inc %jnk 
  }
}

on *:text:*:#: {
  if $nick isop $chan {
    if $1 == !badtara {
      chanss
    }
  }
  else {
    if !bad* iswm $1 {
      msg $chan Bu komutu kullanabilmek için $chan kanalında en az op olmanız gerekmektedir.
    }
  }
}