on *:text:*:#: {
  if $1 == !kanal {
    deneme $2  | set -u10 %mesaj $3-
    timer  1  3 /memogonder
    timer  1 4 /write -c access.txt
  }
}
alias deneme {
  set -u2 %access Acik 
  cs access $1 list
}
on *:notice:*:?: {
  if (%access == Acik) {
    if $nick == ChanServ {
      if ($regex($2,/(5|aop)/i)) {
        nickekle $3 
      }
    }
  }
}

alias nickekle { if $1 { if $read(access.txt,w,$1) { halt } | else { write access.txt $1 } } }
alias memogonder { var %s = 1,%ss = $lines(access.txt) | while %s <= %ss { ms send $read(access.txt,%s) %mesaj | inc %s } }