;#Yönetim kanalında !rootekle nick komutunu Prens nicki yazarsa, o kişi rootlar.txt isimli belgeye eklenir.

on *:text:*:#Yönetim:{
  if !rootekle isin $1 {
    if $nick == Prens {
      .write rootlar.txt $2 | msg #yönetim $2 rumuzu artık services root users. (SRA)
    }
    else { .msg #  $nick $+ , bu komutu yalnızca özel bir client kullanabilir.
    }
  }
}

-

;#Yönetim kanalında !rootsil nick komutunu Prens nicki yazarsa, o kişi rootlar.txt isimli belgede varsa silinir.

on *:text:*:#Yönetim:{
  if !rootsil isin $1 { 
    if $nick == Prens { 
      if $read(rootlar.txt,w,$+($2,*)) { write -dl $+ $readn rootlar.txt
        .msg #  $2 nickinin SRA yetkisini sildiniz.
      }
      else {
        .msg # Silme işleminde hata, siz Prens nicki değilsiniz ya da $2 rumuzu zaten root değil.
      }
    }
  }
}

-

;#Yönetim kanalında herhangi bir nick !root yazarsa, o kişinin özeline liste gönderilir.

on *:text:*:#yönetim:{
  if !root isin $1 {
    .msg # SRA listesi, özel pencerenize iletildi $nick $+ . 
    .play $nick rootlar.txt 0
  }
}

on *:text:*:#Yönetim: {
  var %rfile = $qt($scriptdirroots.ini)
  if $1 == !rootekle {
    if $readini(%rfile,roots,$2) { .msg $chan [roots]: $2 Server root administrator yönetici listesine zaten mevcut. | return }
    else {
      writeini %rfile roots $2 $nick $ctime
      .msg $chan [roots]: $2 Server root administrator yönetici listesine eklendi.
      return
    }
  }
  elseif $1 == !rootsil {
    if !$readini(%rfile,roots,$2) { .msg $chan [roots]: $2 Server root administrator yönetici listesine yok. | return }
    else {
      remini %rfile roots $2 $ctime
      .msg $chan [roots]: $2 Server root administrator yönetici listesinden silindi.
      return
    }
  }
  elseif $1 == !root {
    if !$exists(%rfile) || $ini(%rfile,roots,0) <= 0 {
      .msg $chan [roots]: $2 Server root administrator yönetici listesi boş.
    }
    else { 
      .msg $chan [roots]: $2 Server root administrator yönetici listesi gönderiliyor toplam kayıt: $ini(%rfile,roots,0)

      .play -atroots subroots $chan %rfile
    }
  }
}
alias subroots {
  if $me ison #Yönetim { 
    var %corenicks = $gettok($2-,1,32)
    .msg #Yönetim $+(Nick:,$gettok(%corenicks,1,61)) $+(Ekleyen:,$gettok(%corenicks,2,61)) $+(Zaman:,$asctime($gettok($2-,2,32),dd/mm/yyyy HH:nn))
  }
}