/*    /cmds/player/faq.c
 *    from the Foundation II LPC Library
 *    a command to access Frequently Asked Questions lists easily
 *    created by Descartes of Borg 950501 (power to the proletariate)
 */

#include <lib.h>

inherit LIB_DAEMON;

static void GetFAQ(string args);

mixed cmd(string args) {

    if( !args || args == "" ) {
	string *files;
	int cols, i, maxi, x, y;

	message("help", mud_name() + " has the following FAQ lists:",
		this_player());
	cols = ((int *)this_player()->GetScreen())[0];
	i = sizeof(files = get_dir(DIR_FAQS "/"));
	while(i--) if( (y =strlen(files[i])) > x ) x = y;
	cols = cols / (x+2);
	message("help", format_page(files, cols), this_player());
	message("prompt", "\nWhich FAQ (general)? ", this_player());
	input_to( (: GetFAQ :) );
	return 1;
    }
    else GetFAQ(args);
    return 1;
}

static void GetFAQ(string args) {
    string file;

    if( !args || args == "" ) args = "general";
    if( file_size(file = DIR_FAQS "/" + args) < 0 ) {
	message("error", "No such FAQ available.", this_player());
	return;
    }
    if( !(file = read_file(file)) ) {
	message("error", "Failed to read FAQ document.", this_player());
	return;
    }
    this_player()->more(explode(file, "\n"), "help");
}

void help() {
    message("help", "Syntax: <faq ([FAQ])>\n\n"
	    "If you specify a particular FAQ to read, this command will "
	    "display that FAQ for you.  If you fail to specify a FAQ, it "
	    "will give you a list of FAQs from which to choose.  FAQ "
	    "stands for Frequently Asked Questions.  Reading the FAQs is "
	    "a good way of coming to understand topics basic to " +
	    mud_name() + ".\n\n"
	    "See also: help" + (creatorp(this_player()) ? ", man" : ""),
	    this_player());
}