Code:
on *:TEXT:!circle:#: {
  var %i = 1 
  while ( %i <= $nick($chan,0) ) { 
    write Nicklist.txt $nick($chan,%i) 
    inc %i 
  }
  msg # $read(Nicklist.txt,$rand(1,$nick($chan,0)))
}

Last edited by Tulga; 11/09/16 01:03 PM.