Glacier_Rat

if ($regex($mid($1,1,1),/^[+-]$/i)) { mode # $1- }
  if ($regex($1,/^([!@.])?(add|del|(a)?list)$/Si)) {
    cs access $chan $remove($1,$iif($remove($1,$left($1,1)) = alist,$left($1,2),$left($1,1))) $iif($2, $2, $null) $iif($3, $3, $null)
    if (($3) && ($3 isnum) && ($regex($1,/^([!@.])?(add)$/Si))) {
      $iif($3 isnum 10-9999, .mode $chan +ao-hv $str($2 $chr(32),4), $&
        $iif($3 isnum 5-9, .mode $chan +o-ahv $str($2 $chr(32),4), $&
        $iif($3 = 4, .mode $chan +h-aov $str($2 $chr(32),4), $&
        $iif($3 = 3, .mode $chan +v-aoh $str($2 $chr(32),4), $&
        $iif($3 < 3, .mode $chan -aohv $str($2 $chr(32),4), $null $&)))))
    }
    $iif($regex($1,/^([!@.])?(add)$/Si),.notice $2 You have been added to the access list in $chan at level $3 $+.,noop)
    $iif($regex($1,/^([!@.])?(del)$/Si),.notice $2 You have been deleted from the access list in $chan,noop)
  }
  if ($regex($1,/^([!@.])?(del)$/Si)) {
    mode $chan -aohv $str($2 $chr(32),4)
  }