// Petrarch
// Merentha Lib 1.0
// <inheritlist>

varargs int command(string obj) {
object ob;
string *list;
  if(!obj) return notify_fail("Syntax: inheritlist <object>\n");
  ob=present(obj, this_player());
  if(!ob) ob=present(obj, environment(this_player()));
  if(!ob) ob=find_object(obj);
  if(!ob) return notify_fail("Could not find "+obj+"\n");
  
  message("command", "Inherited list of object = "+file_name(ob)+"\n"+format_page(inherit_list(ob), 2), this_player()); 
  message("command", "Deep Inherited list of object = "+file_name(ob)+"\n"+format_page(deep_inherit_list(ob), 2), this_player()); 

  return 1;
}


string help() {
return "Syntax: inheritlist <object>\n\nReturns a list of object which <object> has inherited.";
}