on *:JOIN:#:$iif($readini(autovoice.ini,$chan,$nick),mode $chan +v $nick)
on $*:TEXT:/^[@!](de?l?)?a(utovoice|v)/Si:#:{
  if (($nick($chan,$nick,oh)) && ($2)) {
    var %a = $readini(autovoice.ini,$chan,$2), %disp = $iif($left($1,1) == !,notice $nick,msg $chan)
    if (d isin $1) {
      if ($nick($chan,$2,v)) mode $chan -v $2
      %disp $iif(%a,$2 has lost access in $chan,$2 isn't on our access list..)
      if (%a) remini autovoice.ini $chan $2
    }
    else {
      if (%a) %disp $2 is already on our access list.
      else {
        writeini autovoice.ini $chan $2 yes
        %disp $2 is now on our access list.
      }
    }
  }
}