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
      }
    }
  }
}