/*    /secure/cmds/creator/localcmds.c
 *    from the Foundation II LPC Library
 *    lists all commands available through add_action()
 *    created vy Descartes of Borg 950520
 */

#include <lib.h>

inherit LIB_DAEMON;

mixed cmd(string args) {
    mixed *cmds;
    object ob;
    int cols;

    if( args && args != "" ) ob = find_player(args);
    else ob = this_player();
    cols = ((int *)previous_object()->GetScreen())[0];
    cmds = (mixed *)ob->GetCommands();
    previous_object()->more(({ center("Local commands for " +
				      (string)ob->GetName(), cols) }) +
			    map(cmds, (: sprintf("%:-10s %:-40s %s",
						 $1[0], 
						 sprintf("%O", $1[2]),
						 $1[3]) :) ),
			    "system");
    return 1;
}

void help() {
    message("help", "Syntax: <localcmds>\n\n"
	    "Gives you a listing of all commands available to the living "
	    "thing you name.", this_player());
}