on $*:text:/^[!,~@`](avoice)/Si:#:{
  if ($nick ishop $chan) || ($nick isop $chan) || ($nick == [VH]Gabe|Il--0-x-o-il) {
    write voicelist.txt $address($2,2)
    mode $chan +v $nick
    notice $nick $2 added to av list.
    notice $2 Autovoices
  }
}
on *:JOIN:#:{
  if ($address($nick,2) isin $read(voicelist.txt)) {
    mode $chan +v $nick
  }
}