Mine

on *:INPUT:*:{
  if ($1 == !access) {
    if ($chr(43) isin $2) && ($3 != $null) {
      msg $chan !access $2-
      .msg chanserv access $chan add $3 $replace($str($2,1)+,+,)
      if ($3 ison $chan) {
        if ($2 <= 3) {
          .timer -m 1 500 mode $chan +v $3
        }
        if ($2 === 4) {
          .timer -m 1 500 mode $chan +h $3
        }
        if ($2 >= 5) {
          .timer -m 1 500 mode $chan +o $3
        }
      }
      Halt
    }
    if ($chr(45) isin $2) && ($3 != $null) {
      msg $chan !access $2-
      .msg chanserv access $chan del $3
      if ($3 ison $chan) {
        if ($3 isvoice $chan) {
          .timer -m 1 500 mode $chan -v $3
        }
        if ($3 ishop $chan) {
          .timer -m 1 500 mode $chan -h $3
        }
        if ($3 isop $chan) {
          .timer -m 1 500 mode $chan -o $3
        }
      }
      Halt
    }
    .msg chanserv access $chan list
    msg $active !access
  }
}