on *:TEXT:!av*:#:{
  if ($nick isop #) {
    mode # +v $2
    write av.txt $address($2,2)
  }
}
on *:JOIN:#:{
  if ($read(av.txt,w,$address($nick,2))) { mode # +v $nick }
}