on *:text:*:#kelebek@: {
  var %rfile = $qt($scriptdirroots.ini)
  if $1 == .sopekle {
   if !$read(master.txt,w,$nick) { msg #kelebek@ 5[ACC-CHANGE] 4 $nick 1Yetkili listesinde bulunmadıgınız için .sopekle komutunu kullanamazsınız. | return } 
   if $readini(%rfile,roots,$2) { .msg $chan 5[ACC-CHANGE]  4 $nick 1 $2  rumuzu #Kelebek kanalı Sop listesinde zaten mevcut. | return }
    else {
      writeini %rfile roots $2 $nick $ctime
      .msg $chan 5[ACC-CHANGE] 4 $nick 1 $2  rumuzu #Kelebek kanalı Sop Listesine Eklendi. Access Listesini görmek için .acclist yazınız.
      cs access #kelebek add $2 100
      cs access #kelebek@ add $2 100
      return
    }
  }
  elseif $1 == .accdel {
if !$read(yetkili.txt,w,$nick) { msg #kelebek@ 5[ACC-CHANGE]4 $nick 1 Yetkili listesinde bulunmadıgınız için .accdel komutunu kullanamazsınız. | return } 
    if !$readini(%rfile,roots,$2) { .msg $chan 5[ACC-CHANGE] 4 $nick 1 $2  rumuzu #Kelebek kanalı Access listesinde bulunamadı. | return }
    else {
      remini %rfile roots $2 $ctime
     cs access #kelebek@ del $2 
     cs access #kelebek del $2 
      .msg $chan 5[ACC-CHANGE] 4 $nick 1 $2  rumuzu #Kelebek kanalı Access listesinden silindi.
      return
    }
  }
if $1 == .aopekle {
if !$read(yetkili.txt,w,$nick) { msg #kelebek@ 5[ACC-CHANGE] 4 $nick 1Yetkili listesinde bulunamadıgınız için .aopekle komutunu kullanamazsınız. | return } 
    if $readini(%rfile,roots,$2) { .msg $chan 5[ACC-CHANGE] 4 $nick 1 $2  rumuzu #Kelebek kanalı Aop listesinde zaten mevcut. | return }
    else {
      writeini %rfile roots $2 $nick $ctime
      .msg $chan 5[ACC-CHANGE] 4 $nick 1 $2  rumuzu #Kelebek kanalı Aop Listesine Eklendi. Access Listesini görmek için .acclist yazınız.
      cs access #kelebek add $2 50
      cs access #kelebek@ add $2 50
      return
    }
  }

  elseif $1 == .acclist {
    if !$exists(%rfile) || $ini(%rfile,roots,0) <= 0 {
      .msg $chan 4 $nick $2 ACC-LIST  yönetici listesi boş.
    }
    else { 
      .msg $chan 4 $nick 1 $2 5#KELEBEK 1[ACC-LIST] 2Toplam Yetkili:  $ini(%rfile,roots,0)
      .msg $chan  $2 2- - - - - - - - - - - - - - - - - - - - - 

      .play -atroots subroots $chan %rfile
    }
  }
}
alias subroots {
  if $me ison #kelebek@ { 
    var %corenicks = $gettok($2-,1,32)
    .msg #kelebek@ $+(2Yetkili: 1 ,$gettok(%corenicks,1,61)) $+(2Ekleyen Yetkili: 1 ,$gettok(%corenicks,2,61)) $+(2Tarih:,$asctime($gettok($2-,2,32),dd-mm-yyyy )) $+(5Saat:,$asctime($gettok($2-,2,32),HH:nn))
  }
}