on *:text:!av*:#calamity: {
  if ($nick isop $chan) || ($nick ishop $chan) {
    write av.txt $address($2,2)
    inc %avoiced
    /mode # +v $2
  }
}

on *:input:#calamity: {
  if ($1 == !av) {
    write av.txt $address($2,2)
    inc %avoiced
    /mode # +v $2
  }
}

on *:input:#calamtiy: {
  if ($1 == !delav) {
    write -d av.txt $address($2,2)
    inc %davoiced
    /mode # -v $2
  }
}

on *:text:!delav*:#calamity: {
  if ($nick isop $chan) || ($nick ishop $chan) {
    write -d av.txt $address($2,2)
    inc %davoiced
    /mode # -v $2
  }
}

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