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
  }
}