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