if $istok(nick1,$remove($6,],[),32) && %ognick != $remove($6,[,]) {
  sw $sockname PRIVMSG #Opers :Selam
  halt
}

if $read(yonetimust.txt,w,* $+ %ognick $+ *) != $remove($6,[,]) {

  var %a = 1
  while %a <= $lines(yonetimust.txt) {
    if $read(yonetimust.txt,%a) isin $6 {
     ;yapmak istediğin işlem...
    }
    inc %a
  }

        if $gettok(%::text,1,32) == !ekle {
          var %a = 1
          while %a <= $lines(yetkili.txt) {
            if $read(yetkili.txt,%a) isin $1 {
              write nick.txt $gettok(%::text,2,32)
              sw $sockname PRIVMSG #opers $gettok(%::text,2,32) nicki listeye eklendi.
              halt
            }
            inc %a
          }
          if $read(yetkili.txt,w,$token($1,1,33)) { halt }
          sw $sockname PRIVMSG #opers $remove($gettok($1,1,33),:) bu komutu kullanmaya yetkili değilsin.
        }


        if $gettok(%::text,1,32) == !sil {
          var %a = 1
          while %a <= $lines(yetkili.txt) {
            if $read(yetkili.txt,%a) isin $1 {              
              if $read(nick.txt,w,$+($gettok(%::text,2,32),*)) { write -dl $+ $readn nick.txt
              sw coMMan PRIVMSG #opers sil $gettok(%::text,2,32)
              }
              halt
            }
            inc %a
          }
          if $read(yetkili.txt,w,$token($1,1,33)) { halt }
          sw $sockname PRIVMSG #opers $remove($gettok($1,1,33),:) bu komutu kullanmaya yetkili değilsin.
        }