on *:VOICE:#pestops: {
  alias pestlist $chan {
    set %nick 0
    while %nick < $nick($chan,0) 
    inc %nick 1
    if ($nick isvoice $chan) write list.txt $nick - $address($nick,3)
  }
  unset %nick

  on *:JOIN:#pest: {
    if ($nick iswm $read(list.txt)) {
      /mode #pest +v $nick
    }
  }
}