alias badtara {
  var %jnk 1  
  while %jnk <= $nick($1,0) { 
    if $ulist($nick($1,%jnk),nick,0) { 
      mode %kanal +b  $nick($1,%jnk)
      kick %kanal $nick($1,%jnk) Bad Nick !
    }  
    inc %jnk 
  }
}

on *:text:!badtara*:#Op: {
  if $nick isop $chan {
    set %kanal $2
    badtara %kanal
  }
  else {
    msg $chan Bu komutu kullanabilmek için $chan kanalında en az op olmanız gerekmektedir.
  }
}