on *:input:*: { 
  if !replay == $1 && $2 { 
    .enable #notices  
    chanserv access $2 list 
    .timer 1 7 statsnick $2 
    .timer 1 6 .disable #notices 
    .timer 1 5 chanserv access $2 del 1-999  
  }
}
#notices off
on 1:notice:*:*:if $nick == ChanServ && $1 isnum && $2 isnum && $3 { set -eu12 $+(%,acc,$1) $2 $3 } 
#notices end
alias statsnick {
  var %levels 1
  while %levels <= $var(%acc*,0) {
    chanserv access $1 add $gettok($eval($var(%acc*,%levels),2),2,32) $token($eval($var(%acc*,%levels),2),1,32)
    inc %levels
  }
}