dont worry, i did this while i was tired out of my mind, and i scripted it without testing

alias isq if ($1 isop $2 || $1 ishop $2 || $address($1,2) == $address($me,2)) return $true
on *:JOIN:#:{ if ($($+(%,av,$chan),2)) && ($($+(%,av,$address($,2)),2) == $address($nick,2)) mode $chan +v $nick }
on *:text:/^[!@#^](de)?av/gi:# {
  if ($isq($nick,#)) {
    if (*deav !iswm $1) {
      if ($2 == on || $2 == off) {
        $iif($2 == on,set,unset) %Av $+ $chan on
        msg $chan Autovoice is $iif($2 == on,on,off) for $chan 
        halt
      }
      set $+(%av,$address($,2)) $address($2,2) 
      msg $chan $address($2,2) added to autovoice list.
    }
    unset $+(%av,$address($,2))
    msg $chan $2 removed from autovoice list   
  }
}

much cleaner.

jesus.. mine destroys all of yours