on *:join:#a:{
  if $nick == $me { 
	write -c names.txt
	var %x = 1
	var %t = $nick($chan,0)
	while %x <= %t {
	  write names.txt $nick($chan,%x)
	  inc %x
	}
  }
}