Mine

on *:TEXT:!alvl*:#: {
  if ($nick isop $chan) {
    set %chan $chan
    set %nick $iif($2,$2,$nick)
    if ($3 == 3) { mode $chan +v $iif($2,$2,$nick) | cs access $chan add $iif($2,$2,$nick) $3 | halt }
    elseif ($3 == 4) { mode $chan +h $iif($2,$2,$nick) | cs access $chan add $iif($2,$2,$nick) $3 | halt }
    elseif ($3 isnum 5-9) { mode $chan +o $iif($2,$2,$nick) | cs access $chan add $iif($2,$2,$nick) $3 | halt }
    elseif ($3 isnum 10-9999) { mode $chan +ao $iif($2,$2,$nick) | cs access $chan add $iif($2,$2,$nick) $3 | halt }
  }
}
on *:TEXT:!rlvl*:#: {
  if ($nick isop $chan) {
    set %chan $chan
    set %nick $iif($2,$2,$nick)
    if ($iif($2,$2,$nick) isvoice $chan) { mode $chan -v $iif($2,$2,$nick) | /cs access $chan del $iif($2,$2,$nick) | halt }
    elseif ($iif($2,$2,$nick) ishop $chan) { mode $chan -h $iif($2,$2,$nick) | /cs access $chan del $iif($2,$2,$nick) | halt }
    elseif ($iif($2,$2,$nick) isop $chan) { mode $chan -o $iif($2,$2,$nick) | /cs access $chan del $iif($2,$2,$nick) | halt }
    elseif ($iif($2,$2,$nick) isaop $chan) { mode $chan -ao $iif($2,$2,$nick) | /cs access $chan del $iif($2,$2,$nick) | halt }
  }
}
on *:NOTICE:*:*: {
  if ($nick == chanserv) {
    if ($1- == Channel access lists may only contain registered nicknames.) {
      msg %chan Previous nickname is NOT registered. Please register it and try again.
      unset %nick 
      unset %chan 
      halt
    }
    elseif ($7- == changed) {
      var %x 3 4 5-9 10-9999,%y 1,%z voice halfop op admin | while ($token(%x,%y,32)) { if ($2 isnum $v1) msg %chan %nick $+ 's Access level changed to auto- $+ $token(%z,%y,32) | inc %y }
      unset %nick 
      unset %chan 
      halt
    }
    elseif ($7 == unchanged) {
      var %x 3 4 5-9 10-9999,%y 1,%z voice halfop op admin | while ($token(%x,%y,32)) { if ($2 isnum $v1) msg %chan %nick Is already on the Access list for auto- $+ $token(%z,%y,32) | inc %y }
      unset %nick 
      unset %chan 
      halt
    }
    elseif ($2 == added) {
      var %x 3 4 5-9 10-9999,%y 1,%z voice halfop op admin | while ($token(%x,%y,32)) { if ($2 isnum $v1) msg %chan %nick Has been added to the Access list for auto- $+ $token(%z,%y,32) | inc %y }
      unset %nick 
      unset %chan 
      halt
    }
    if ($2 == deleted) {
      msg %chan %nick Removed from Access list.
      unset %nick 
      unset %chan 
      halt
    }
    elseif ($2 == not) {
      msg %chan %nick Is not on the access list.
      unset %nick 
      unset %chan 
      halt
    }
  }
}