client
	var
		AFKQuizAnswer

	proc
		isTakingAFKQuiz()
			return AFKQuizAnswer != null

		beginAFKQuiz()
			AFKQuizAnswer = copytext(md5("[rand()]"), 1, 10)
			while(TRUE)
				if(kCommandInput("Please enter \[[AFKQuizAnswer]\]...") != AFKQuizAnswer)
					src << "Try again.\n"
					continue

				break

			src << "Woo, you aren't AFK!"
			AFKQuizAnswer = null

proc
	globalAFKQuizLoop()
		spawn()
			while(TRUE)
				world.log << "AFK quiz loop..."
				for(var/client/client)
					if(client.isTakingAFKQuiz())
						continue

					spawn()
						client.beginAFKQuiz()

				sleep(100)

world
	New()
		..()
		spawn(10)
			globalAFKQuizLoop()