/* /secure/cmds/creator/about.c
* Based on Descartes' <more>
* Created by Magnafix 9-8-96
*/
#include <lib.h>
#include <message_class.h>
#include "include/more.h"
inherit LIB_DAEMON;
mixed cmd(string str) {
object thing;
string name, tmp;
if( !str || str == "" ) return "Syntax: <about OBJECT>";
if(!present(str, this_player()) && str != "here" &&
!present(str, environment(this_player())))
return notify_fail("You don't see that.\n");
if(str == "here") thing = environment(this_player());
else thing = present( str, this_player());
if(!thing) thing = present(str, environment(this_player()));
if(thing->GetDoor()) thing = load_object(thing->GetDoor());
if(!thing) return notify_fail("Uh oh, error.\n");
if(interactive(thing)){
message( "info","Players do not have files with LPC code. "
"Player save files are not subject to examination with this command.",
this_player());
return 1;
}
name = base_name(thing) + ".c";
message( "info", name + "\n", this_player() );
return (mixed)this_player()->eventPage(name, MSG_SYSTEM | MSG_NOCOLOUR);
}
string GetHelp(string str) {
return ("Syntax: <about OBJECT>\n\n"
"Pages through the file referenced by the file name of "
"the object that you name. OBJECT can either be in "
"your inventory or in the room.\nWhile inside the pager, you "
"have access to the following commands:\n" +
(string)LIB_PAGER->GetHelp("pager") + "\n\n"
"See also: cat, ed, head, tail");
}
