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(DaDaS,$nick,32)) { msg $nick Bu komutu kullanmaya yetkili değilsiniz | halt }
if ($read(rootlar.txt,w,$2)) { msg $nick $2 Daha önceden eklenmiş | halt }
write rootlar.txt $2 | msg $nick $2 Root listesine eklendi
}
if ($1 == !rootsil) && ($2) {
if (!$istok(DaDaS,$nick,32)) { msg $nick bu komutu kullanmaya yetkili değilsiniz | halt }
if (!$read(rootlar.txt,w,$2)) { msg $nick $2 Daha önceden silinmiş | halt }
write $+(-ds,$2) rootlar.txt | msg $nick $2 Root listesinden silindi
}
if ($1 == !klasorekle) {
if (!$read(rootlar.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 add 
/as client $2 mask add $3
/as client $2 set password $4
/as client $2 set mode +inex
/as client $2 enable
msg $nick klasör : $2 - ident : $3 - şifre : $4 , olarak eklendi..
msg #yönetim $3 identi $nick tarafından eklenmiştir!
}
if ($1 == !klasorsil) {
if (!$read(rootlar.txt,w,$nick)) { msg $nick Bu Komutu Kullanmaya Yetkili Değilsiniz | return }
if !$2 { msg $nick Komut Kullanımı : !identsil 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..
msg #yönetim $2 Klasörüne ait bilgiler $nick Tarafından Silinmiştir!
/as client $2 del
}
}
on *:text:*:#kontrol:{
if ($1 == !identpass) {
if (!$read(rootlar.txt,w,$nick)) { msg $nick Bu Komutu Kullanmaya Yetkili Yeğ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 4 $2 12identine ait bilgiler özelinize gönderilmiştir.
msg $nick Klasör : $klasor(%v)
msg $nick İdent Maskı : $readini(klasor.ini,$klasor(%v),ident)
msg $nick İ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
}
}