53 lines
1.2 KiB
C
53 lines
1.2 KiB
C
#include <lib.h>
|
|
#include <message_class.h>
|
|
|
|
inherit LIB_DAEMON;
|
|
|
|
mixed cmd(string str) {
|
|
object thing;
|
|
string file, content;
|
|
|
|
if(!str){
|
|
write("Try: help about");
|
|
return 1;
|
|
}
|
|
|
|
thing = get_object(str);
|
|
|
|
if(!thing){
|
|
write("There's no such object available here.");
|
|
return 1;
|
|
}
|
|
|
|
if(interactive(thing)){
|
|
write("Player save files are not subject to examination "
|
|
"with this command.");
|
|
return 1;
|
|
}
|
|
|
|
file = lpc_file(base_name(thing));
|
|
|
|
if(!file && thing->GetVirtual()){
|
|
file = lpc_file(path_prefix(base_name(thing)));
|
|
}
|
|
|
|
if(file && file_exists(file)) content = read_file(file);
|
|
|
|
if(!content){
|
|
write("That data is not currently available to you.");
|
|
return 1;
|
|
}
|
|
|
|
message( "info", file + "\n", this_player() );
|
|
|
|
return this_player()->eventPage( explode(content, "\n"),
|
|
MSG_SYSTEM | MSG_NOCOLOUR);
|
|
}
|
|
|
|
string GetHelp(string str) {
|
|
return ("Syntax: about <OBJECT>\n"
|
|
" about here\n\n"
|
|
"Displays the code for the object, if the file is "
|
|
"available.\nSee also: more, find, findobj");
|
|
}
|