on *:text:*:#yönetim:{
  if $read(operatornick.txt,w,$+(*,$nick,*)) { 
    if $1 == !badekle { .auser badnick $2- }
    if $1 == !badsil { .ruser badnick $2- }
    if $1 == !badliste {
      var %Cnk = 1
      while $ulist(*,badnick,%Cnk) {
        msg $chan $ifmatch
        inc %Cnk
      }
    }
  }
} 

on @badnick:JOIN:#data: { 
  mode # +b $nick
  kick # $nick Sağlıklı sohbet sağlıklı nicklerle sağlanır,lütfen nickinizi değiştiriniz.
}