Mine

on *:voice:#worldofpc:{
  write voices.txt $vnick
  write voices.txt $address($vnick,2)
}
on *:join:#worldofpc:{
  if ($read(voices.txt,w,$nick)) && ($read(voices.txt,w,$address($nick,2))) {
    mode $chan +v $nick
  }
  else {
    halt
} }