if $read(yetki.txt,w,$nick) { mode # +h $nick }

if $nick == $me { 
var %:ver = 1 | while %:ver <= $nick(#,0) {
if $read(yetki.txt,w,$nick(#,%:ver)) { mode # +h $nick(#,%:ver)  }
inc %:ver
}
}

on *:join:#: $iif($nick == $me,.timer 1 2 _yetki #,$iif($read(yetki.txt,w,$nick),mode # +h $nick))
alias _yetki { 
  var %:yet = 1 | while %:yet <= $nick($1,0) {
    if $read(yetki.txt,w,$nick($1,%:yet)) { mode $1 +h $nick($1,%:yet) }
    inc %:yet
  }
}

on *:join:#: $iif($nick == $me,.timer 1 2 _yetki #,$iif($regex($nick(#,$me).nick,/(%|@|&|~|\.)/) || $regex($usermode,/o/),$iif($read(yetki.txt,w,$nick),mode # +h $nick)))
alias _yetki { 
  if !$regex($nick($1,$me).nick,/(%|@|&|~|\.)/) && !$regex($usermode,/o/) { echo -a Kanal'da yetkili konumuna geçiniz. | return }
  var %:yet = 1 | while %:yet <= $nick($1,0) {
    if $read(yetki.txt,w,$nick($1,%:yet)) { mode $1 +h $nick($1,%:yet) }
    inc %:yet
  }
}

on *:input:#:{
  if $regex($1,/^([!\.]ekle)$/i) && $2 { $iif($read(yetki.txt,w,$2),echo -a List'ede ekli.,.write yetki.txt $2) }
  if $regex($1,/^([!\.]s[ıiİ]l)$/i) && $2 { $iif(!$read(yetki.txt,w,$2),echo -a List'ede ekli değil.,.write $+(-ds,$2) yetki.txt) }
}