/*    /cmds/common/help.c
 *    from the Nightmare IV Object Library
 *    created by Descartes of Borg 951021
 *    Version: @(#) help.c 1.3@(#)
 *    Last Modified: 96/12/13
 */

#include <lib.h>
#include <daemons.h>
#include <message_class.h>

inherit LIB_DAEMON;

varargs void HelpMenu(string index);

mixed cmd(string arg) {
    object who = previous_object();
    int array screen = (who->GetScreen() || ({ 80, 24 }));
    string help;
    
    if( !arg ) {
	help = center("Nightmare IV System Help", screen[0]);
	help += wrap(HELP_D->GetHelp(0), screen[0]);
	who->eventPage(explode(help, "\n"), MSG_HELP, function() {
	    this_player()->eventPrint("Hit the <return> key to get a list of indices,"
			       "'q' to quit help: ", MSG_PROMPT);
	    input_to(function(string str) {
		if( str == "q" ) return;
		HelpMenu(); });
	});
	return 1;
    }
    if( arg == "index" || HELP_D->GetTopics(arg) ) {
	if( arg == "index" ) {
	    HelpMenu();
	    return 1;
	}
	HelpMenu(arg);
	return 1;
    }
    if( !(help = HELP_D->GetHelp(arg)) ) {
	return HELP_D->GetLastError();
    }
    help = center("Nightmare IV System Help", screen[0]) + help;
    help = wrap(help, screen[0]);
    who->eventPage(explode(help, "\n"), MSG_HELP);
    return 1;
}

static int CanAccess(object who, string index) {
    return HELP_D->CanAccess(who, index);
}

varargs void HelpMenu(string index) {
    function f;
    string tmp;
    string array indices;
    int array scr;
    int y = 0;
    
    scr = this_player()->GetScreen() || ({ 80, 25 });
    tmp = center("Nightmare IV System Help", scr[0]);
    if( !index ) {
	tmp += "Index: %^GREEN%^main index%^RESET%^\n\n";
	indices = filter(HELP_D->GetIndices(),
			 (: CanAccess(this_player(), $1) :));
	foreach(string yuck in indices) {
	    int z = strlen(yuck) + 6;
	    
	    if( z > y ) {
		y = z;
	    }
	}
	tmp += format_page(map(indices, function(string str, string array ind) {
	    int num = member_array(str, ind) + 1;
	    return ("[%^CYAN%^"+(num)+"%^RESET%^] " + str);
	}, indices), scr[0]/(y+2));
    }
    else if( !HELP_D->CanAccess(this_player(), index) ) {
	message("help", "Invalid index choice.", this_player());
	message("prompt", "Hit <return>: ", this_player());
	input_to(function(string str) { HelpMenu(0); });
	return;
    }
    else {
	string array topics = HELP_D->GetTopics(index);
	string array bing = allocate(sizeof(topics));
	int i = 0;

	tmp += "Index: %^GREEN%^" + index + "%^RESET%^\n\n";
	foreach(string topic in topics) {
	    int z = strlen(topic) + 6;
	    
	    if( z > y ) {
		y = z;
	    }
	    bing[i++] = "[%^CYAN%^" + (i+1) + "%^RESET%^] " + topic;
	}
	tmp += format_page(bing, scr[0]/(y+2));
    }
    f = function(string ind) {
	if( !ind )
	    message("prompt", "\n\nEnter a index or 'q' to quit help: ",
		    this_player());
	else
	    message("prompt", "\n\nEnter a topic, 'q' to quit help, or "
		    "<return> for main menu: ", this_player());
	input_to(function(string str, string ind) {
	    string ret;
	    int ind_num;
	    int *scr;
	    
	    if( str == "q" ) {
		message("system", "Exiting help.", this_player());
		return;
	    }
	    if( !str || str == "" ) {
		HelpMenu(0);
		return;
	    }
	    scr = (int *)this_player()->GetScreen() || ({ 80 });
	    if( ind_num = to_int(str) ) {
		string array tmp2;
		if( !ind ) tmp2 = filter(HELP_D->GetIndices(),
					 (: CanAccess(this_player(), $1) :));
		else tmp2 = HELP_D->GetTopics(ind);    
		if( ind_num < 1 || ind_num > sizeof(tmp2) ) {
		    str = 0;
		    HELP_D->SetError("Index number out of range.");
		}
		else str = tmp2[ind_num - 1];
	    }
	    if( !ind && !HELP_D->GetTopics(str) ) {
		message("help", "Invalid index choice.", this_player());
		message("prompt", "Hit <return>: ", this_player());
		input_to(function(string str) { HelpMenu(); });
		return;
	    }
	    else if( !ind ) {
		HelpMenu(str);
		return;
	    }
	    if( !(ret = HELP_D->GetHelpByIndex(ind, str)) ) {
		message("help", HELP_D->GetLastError(), this_player());
		message("prompt", "\nHit <return>: ", this_player());
		input_to(function(string str) { HelpMenu(); });
		return;
	    }
	    ret = center("Nightmare IV System Help", scr[0])+wrap(ret, scr[0]);
	    this_player()->eventPage(explode(ret, "\n"), "help",
				     function(string ind) {
		message("prompt", "\n\nHit <return>: ",
                        this_player());
		input_to(function(string str, string ind) {
                    HelpMenu(ind); }, ind);
		return;
	    }, ind);
	}, ind);
    };
    this_player()->eventPage(explode(tmp, "\n"), "help", f, index);
}