alias kaydet {
  .enable #csaccess
  cs access $1 list
  set %accx $1
  timer 1 3 .disable #csaccess
}
#csaccess on
on *:notice:*:?: {
  if $nick = ChanServ && $1 isnum && $2 isnum {
    write acc $+ $regsubex(%accx,(#),) $+ .txt $2 $+ $chr(11) $+ $3
  }
}
#csaccess end
alias yukle {
  if !$1 || #* !iswm $1 { echo -a Kullanım, /yukle #kanal seklindedir. }
  else {
    var %s $lines($+(acc,$regsubex($1,(#),),.txt))
    while (%s) {
      chanserv access $1 add $token($read($+(acc,$regsubex($1,(#),),.txt),%s),2,11) $token($read($+(acc,$regsubex($1,(#),),.txt),%s),1,11)
      dec %s
    }
    echo -a Yukleme tamamlandi.
  }
}