// prompt <userid> <command> <delay> <question1> [question2] ... [question10]

block load
{
	es_xregcmd prompt "prompt/command" "Prompt a user"

	es_xkeygroupdelete _prompt
	es_xkeygroupcreate _prompt
	es_xkeycreate _prompt _test
	es_xkeysetvalue _prompt _test 1 0
	es_xkeysetvalue _prompt _test 2 0
	es_xkeysetvalue _prompt _test 3 0
	es_xkeysetvalue _prompt _test 4 0
	es_xkeysetvalue _prompt _test 5 0
	es_xkeysetvalue _prompt _test 6 0
	es_xkeysetvalue _prompt _test 7 0
	es_xkeysetvalue _prompt _test 8 0
	es_xkeysetvalue _prompt _test 9 0
	es_xkeysetvalue _prompt _test 10 0

	es_xset _prompt_argc 0
	es_xset _prompt_count 0
	es_xset _prompt_count2 0
	es_xset _prompt_count3 0
	es_xset _prompt_exists 0
	es_xset _prompt_arg1 0
	es_xset _prompt_arg2 0
	es_xset _prompt_arg3 0
	es_xset _prompt_arg4 0
	es_xset _prompt_arg5 0
	es_xset _prompt_arg6 0
	es_xset _prompt_arg7 0
	es_xset _prompt_arg8 0
	es_xset _prompt_arg9 0
	es_xset _prompt_arg10 0
	es_xset _prompt_format 0
	es_xset _prompt_argument 0
	es_xset _prompt_killuserid 0
	es_xset _prompt_killid 0
	es_xset _prompt_killid2 0
	es_xset _prompt_aname 0
	es_xset _prompt_aname2 0
	es_xset _prompt_aname3 0
	es_xset _prompt_answer 0
	es_xset _prompt_active 0
	es_xset _prompt_questions 0
	es_xset _prompt_acount 0
	es_xset _prompt_question 0
	es_xset _prompt_userid 0
	es_xset _prompt_command 0
	es_xset _prompt_id 0
	es_xset _prompt_answer1 0
	es_xset _prompt_answer2 0
	es_xset _prompt_answer3 0
	es_xset _prompt_answer4 0
	es_xset _prompt_answer5 0
	es_xset _prompt_answer6 0
	es_xset _prompt_answer7 0
	es_xset _prompt_answer8 0
	es_xset _prompt_answer9 0
	es_xset _prompt_answer10 0
}

block unload
{
	es_xkeygroupdelete _prompt
}

block command
{
	es_xgetargc _prompt_argc
	es_xmath _prompt_argc - 1
	ifx parse("_prompt_argc > 3") do
	{
		ifx parse("_prompt_argc < 14") do
		{
			es_xgetargv _prompt_arg1 1
			es_xset _prompt_exists 0
			es_exists _prompt_exists key _prompt server_var(_prompt_arg1)
			ifx false(_prompt_exists) do
			{
				es_xset _prompt_exists 0
				es_exists _prompt_exists userid server_var(_prompt_arg1)
				ifx true(_prompt_exists) do
				{
					es_xmath _prompt_id + 1
					es_xcopy _prompt_count3 _prompt_argc
					es_xmath _prompt_count3 - 3
					es_keycreate _prompt server_var(_prompt_arg1)
					es_xforeachval _prompt_count in _prompt _test "es_xdoblock prompt/arguments"
					es_keysetvalue _prompt server_var(_prompt_arg1) id server_var(_prompt_id)
					es_keysetvalue _prompt server_var(_prompt_arg1) command server_var(_prompt_arg2)
					es_keysetvalue _prompt server_var(_prompt_arg1) delay server_var(_prompt_arg3)
					es_keysetvalue _prompt server_var(_prompt_arg1) questions server_var(_prompt_count3)
					es_keysetvalue _prompt server_var(_prompt_arg1) active 1
					ifx true(_prompt_arg4) do
					{
						es usermsg hudhint server_var(_prompt_arg1) server_var(_prompt_arg4)
					}
					es_delayed server_var(_prompt_arg3) es_xset _prompt_killid server_var(_prompt_id)
					es_delayed server_var(_prompt_arg3) es_xset _prompt_killuserid server_var(_prompt_arg1)
					es_delayed server_var(_prompt_arg3) es_xdoblock prompt/kill
				}
				else do
				{
					es_xdbgmsg 0 Prompt Error: Userid is not valid.
				}
			}
			else do
			{
				es_xdbgmsg 0 Prompt Error: A Prompt already exists for this Userid.
			}
		}
		else do
		{
			es_xdbgmsg 0 Prompt Error: Too many parameters.
		}
	}
	else do
	{
		es_xdbgmsg 0 Prompt Error: Not enough parameters. Syntax: prompt <userid> <command> <delay> <question1> [question2] ... [question10]
	}
}

block arguments
{
	es_xformatv _prompt_argument "_prompt_arg%1" _prompt_count
	es_xformatv _prompt_format "es_xgetargv %1 %2" _prompt_argument _prompt_count
	es_xcommandv _prompt_format
	ifx parse("_prompt_count > 3") do
	{
		es_xcopy _prompt_count2 _prompt_count
		es_xmath _prompt_count2 - 3
		es_keysetvalue _prompt server_var(_prompt_arg1) server_var(_prompt_count2) server_var(server_var(_prompt_argument))
	}
}

block answers
{
	es_xformatv _prompt_aname "_prompt_answer%1" _prompt_acount
	es_xformatv _prompt_aname2 "answer%1" _prompt_acount
	es_keygetvalue server_var(_prompt_aname) _prompt event_var(userid) server_var(_prompt_aname2)
}

block kill
{
	es_xset _prompt_exists 0
	es_exists _prompt_exists key _prompt server_var(_prompt_killuserid)
	ifx true(_prompt_exists) do
	{
		es_keygetvalue _prompt_killid2 _prompt server_var(_prompt_killuserid) id
		if (server_var(_prompt_killid) equalto server_var(_prompt_killid2)) do
		{
			es_keydelete _prompt server_var(_prompt_killuserid)
		}
	}
}

block test
{
	es_msg _prompt_userid = server_var(_prompt_userid)
	es_msg _prompt_command = server_var(_prompt_command)
	es_msg _prompt_answer1 = server_var(_prompt_answer1)
	es_msg _prompt_answer2 = server_var(_prompt_answer2)
	es_msg _prompt_answer3 = server_var(_prompt_answer3)
	es_msg _prompt_answer4 = server_var(_prompt_answer4)
	es_msg _prompt_answer5 = server_var(_prompt_answer5)
	es_msg _prompt_answer6 = server_var(_prompt_answer6)
	es_msg _prompt_answer7 = server_var(_prompt_answer7)
	es_msg _prompt_answer8 = server_var(_prompt_answer8)
	es_msg _prompt_answer9 = server_var(_prompt_answer9)
	es_msg _prompt_answer10 = server_var(_prompt_answer10)
}

event es_player_chat
{
	es_xset _prompt_exists 0
	es_exists _prompt_exists key _prompt event_var(userid)
	ifx true(_prompt_exists) do
	{
		es_keygetvalue _prompt_active _prompt event_var(userid) active
		es_keygetvalue _prompt_questions _prompt event_var(userid) questions
		es_xformatv _prompt_aname3 "answer%1" _prompt_active
		es_keysetvalue _prompt event_var(userid) server_var(_prompt_aname3) event_var(text)
		if (server_var(_prompt_active) equalto server_var(_prompt_questions)) do
		{
			es_set _prompt_userid event_var(userid)
			es_keygetvalue _prompt_command _prompt event_var(userid) command
			es_xforeachval _prompt_acount in _prompt _test "es_xdoblock prompt/answers"
			esnq server_var(_prompt_command)
			es_delayed 0.5 es_xkeydelete _prompt event_var(userid)
		}
		else do
		{
			es_xmath _prompt_active + 1
			es_keysetvalue _prompt event_var(userid) active server_var(_prompt_active)
			es_keygetvalue _prompt_question _prompt event_var(userid) server_var(_prompt_active)
			ifx true(_prompt_question) do
			{
				es usermsg hudhint event_var(userid) server_var(_prompt_question)
			}
		}
	}
}

event es_map_start
{
	es_xkeygroupdelete _prompt
	es_xkeygroupcreate _prompt
	es_xkeycreate _prompt _test
	es_xkeysetvalue _prompt _test 1 0
	es_xkeysetvalue _prompt _test 2 0
	es_xkeysetvalue _prompt _test 3 0
	es_xkeysetvalue _prompt _test 4 0
	es_xkeysetvalue _prompt _test 5 0
	es_xkeysetvalue _prompt _test 6 0
	es_xkeysetvalue _prompt _test 7 0
	es_xkeysetvalue _prompt _test 8 0
	es_xkeysetvalue _prompt _test 9 0
	es_xkeysetvalue _prompt _test 10 0

	es_xset _prompt_id 0
}