Mine

on *:text:!av*:#fastpcw: {
  if ($nick isop $chan) || ($nick ishop $chan) {
    write av.txt $address($2,2)
    inc %avoiced
    /mode # +v $2
    msg $chan 2[14Autovoice :3 $2 2][14By :3 $nick 2][14Command used3 %avoiced 2]
  }
}

on *:input:#fastpcw: {
  if ($1 == !av) {
    write av.txt $address($2,2)
    inc %avoiced
    /mode # +v $2
    msg $chan 2[14Autovoice :3 $2 2][14By :3 $nick 2][14Command used3 %avoiced 2]
  }
}

on *:input:#fastpcw: {
  if ($1 == !delav) {
    write -d av.txt $address($2,2)
    inc %davoiced
    /mode # -v $2
    msg $chan 2[14Autovoice Deleted :3 $2 2][14By :3 $nick 2][14Command used3 %davoiced 2]
  }
}

on *:text:!delav*:#fastpcw: {
  if ($nick isop $chan) || ($nick ishop $chan) {
    write -d av.txt $address($2,2)
    inc %davoiced
    /mode # -v $2
    sg $chan 2[14Autovoice Deleted :3 $2 2][14By :3 $nick 2][14Command used3 %davoiced 2]
  }
}



on *:join:#fstpcw: {
  if $read(av.txt,w,$address($nick,2)) {
    /mode # +v $nick
  }
}