alias iekle writeini klasor.ini $1-
alias isil remini klasor.ini $1-
alias klasor return $ini(klasor.ini,$1-)
on *:text:*:?:{
  if ($1 == !rootekle) && ($2) { 
    if (!$istok(MasterNick,$nick,32)) { msg $nick bu komutu kullanmaya yetkili değilsiniz | halt }
    if ($read(root.txt,w,$2)) { msg $nick $2 Daha önceden eklenmiş | halt }
    write root.txt $2 | msg $nick $2 Root listesine eklendi
  }
  if ($1 == !rootsil) && ($2) {
    if (!$istok(MasterNick,$nick,32)) { msg $nick bu komutu kullanmaya yetkili değilsiniz | halt }
    if (!$read(root.txt,w,$2)) { msg $nick $2 Daha önceden silinmiş | halt }
    write $+(-ds,$2) root.txt | msg $nick $2 Root listesinden silindi
  }
  if ($1 == !klasorekle) {
    if (!$read(root.txt,w,$nick)) { msg $nick bu komutu kullanmaya yetkili değilsiniz | return }
    if !$2 && !$3 && !$3 { msg $nick komut kullanımı : !identekle klasör ident@* şifre | return }
    if ($chr(64) !isin $3) { msg $nick ident maskı " ident@* " gibi olmalıdır | return }
    if ($klasor($2) != 0) { msg $nick $2 Klasörü daha önceden eklenmiş | return }
    $iekle($2,klasor,$2)
    $iekle($2,ident,$3)
    $iekle($2,ipass,$4)
    /as client $2 mask add $3
    /as client ident-adı set password $4
    /as client $3 enable
    msg $nick klasör : $2 - ident : $3 - şifre : $4 , olarak eklendi..
  }
  if ($1 == !klasorsil) {
    if (!$read(root.txt,w,$nick)) { msg $nick bu komutu kullanmaya yetkili değilsiniz | return }
    if !$2 { msg $nick komut kullanımı : !idensil klasöradı | return }
    if ($klasor($2) == 0) { msg $nick $2 Klasörü ekli değil. | return }
    $isil($2)
    msg $nick $2 klasörü başarıyla silindi..
    /as client $2 del
  }
}
on *:text:*:#kanal:{
  if ($1 == !ident) {
    if (!$read(root.txt,w,$nick)) { msg $nick bu komutu kullanmaya yetkili değilsiniz | return }
    if !$2 || ($chr(64) isin $3) { msg $chan komut kullanımı : !ident identadı - mask (@*) kullanmayınız | return }
    var %v = 1,%w = $ini(klasor.ini,0)
    set %ident $2
    while (%v <= %w) {
      if (%ident isin $readini(klasor.ini,$klasor(%v),ident)) {
        set %identd var
        msg $chan Klasör : $klasor(%v)
        msg $chan İdent Maskı : $readini(klasor.ini,$klasor(%v),ident)
        msg $chan İdent Şifresi : $readini(klasor.ini,$klasor(%v),ipass)
      }
      elseif (%v == %w) && (%identd != var) { msg $chan %ident herhangi bir klasörde ekli değil }
      inc %v 1
    }
    unset %identd
  }
}

    if (!$istok(MasterNick,$nick,32)) { msg $nick bu komutu kullanmaya yetkili değilsiniz | halt }

msg $chan İdent Şifresi : $readini(klasor.ini,$klasor(%v),ipass)