-- cluedo crime solver v 0.01 pre-alpha, pre-gamma, first version written
-- First we'll commence an input line to get player names, after mainducing ourselves
-- These comments are here for me only so i know what the hell is going on in my own program
main = do
	putStrLn ("CLUEDO CRIME SOLVER V 0.01, CURRENT SYNTAX IS AS FOLLOWS[please note many of this hasn't been inplemented yet!]")
	putStrLn ("for guesses, Type 'possible weaponX personY roomZ by PLAYER' order and capatalization of suspects does not matter, but keep the 'by player' at the end!")
	putStrLn ("Note: When entering suspect names, such as 'colonel mustard' or 'mr green', please only enter 'mustard' or 'green', keep the entries one word!")
	putStrLn ("at the beginning of the game, you'll be prompted to enter the cards you currently have. This will eliminate them from the suspect lists.")
	putStrLn ("as well, during the game, when you make guesses, any cards players show you to disprove your guess, type 'eliminate cardX' where cardX can be a room, person, or weapon.")
	putStrLn ("PLEASE ENTER NUMBER OF PLAYERS(in digits) IN GAME: ")
	numplayers <- getLine
	if null numplayers
		then main
		else namesandcheck
-- anyone know how to flow one function into another elegantly??
namesandcheck = do
	putStrLn ("Please enter the names of the  players (e.g. george barrack bill ronald) now:")
	nameplayers <- getLine
	putStrLn ("The names of the players are: " ++ nameplayers ++ ", is this correct?(press enter if yes)")
	shouldbenull <- getLine
	if null shouldbenull
		then main
		else namesandcheck